How manually mapping a field to TDatabase

Board index FiveWin for Harbour/xHarbour How manually mapping a field to TDatabase

Posts: 1096

Joined: Fri Oct 28, 2005 02:27 AM

How manually mapping a field to TDatabase
Posted: Fri Feb 22, 2019 08:00 AM

Hi guys,
Sometimes when maintaining legacy modules, I come across dbfs which have cryptic field names.

If I have a dbf with field name cod, otr1, otp1 is it possible to create a TDatabase object where the field name is more user friendly and mapped to the physical dbf?

I mean creating oDbf:EmployeeCode to map to field cod, oDbf:OTRate1 mapped to field otr1, oDbf:OTAmount1 mapped to field otp1, etc?

Thank you for any tip

FWH 11.08/FWH 19.12

BCC5.82/BCC7.3

xHarbour/Harbour

richard-service

Posts: 866

Joined: Tue Oct 16, 2007 08:57 AM

Re: How manually mapping a field to TDatabase
Posted: Sat Feb 23, 2019 09:40 AM

hua wrote:Hi guys,
Sometimes when maintaining legacy modules, I come across dbfs which have cryptic field names.

If I have a dbf with field name cod, otr1, otp1 is it possible to create a TDatabase object where the field name is more user friendly and mapped to the physical dbf?

I mean creating oDbf:EmployeeCode to map to field cod, oDbf:OTRate1 mapped to field otr1, oDbf:OTAmount1 mapped to field otp1, etc?

Thank you for any tip

Hi
These code from my old and use 3rd party LIB.
I hope TDatabase can use these easy code.

Code (fw): Select all Collapse

::cDB := TaxBillSetMsfOpen( "TBS" )
::oDB := TDataBase():New()

....

REDEFINE GET ::oDB:oTB_HDNO      VAR ::oDB:TB_HDNO      ID 103 OF ::oDlg UPDATE        
REDEFINE GET ::oDB:oTB_STRNO     VAR ::oDB:TB_STRNO     ID 104 OF ::oDlg UPDATE            
REDEFINE GET ::oDB:oTB_TRMNO     VAR ::oDB:TB_TRMNO    ID 105 OF ::oDlg UPDATE          
REDEFINE GET ::oDB:oTB_PRSNO     VAR ::oDB:TB_PRSNO      ID 106 OF ::oDlg UPDATE READONLY   
REDEFINE GET ::oDB:oTB_REMARK    VAR ::oDB:TB_REMARK   ID 107 OF ::oDlg UPDATE         

….

IF lNew
   ::oDB:Blank()
ELSE
   ::oDB:Load()
ENDIF

IF lNew .OR. !lNew
   ::oDB:oTB_PRSMNYR:Disable()                    
   ::oDB:oTB_PRSNO:Disable()                      
   ::oDB:oTB_MONA:Disable()                       
ENDIF

IF lNew
   ::oDB:TB_BNO   := nBNO + 1
   ::oDB:TB_FULL  := "N"                               
   ::oDB:TB_PRNNO := SubStr(AllTrim(cPCNAME),1,20)   
   ::oDB:MAKER_NO := AllTrim(GetUserE_NO())            
   ::oDB:MAKER_NM := AllTrim(_USER_NAME)               
ENDIF

(::cDB)->( DbRLock()  )
::oDB:Save()
(::cDB)->( DbCommit() )
(::cDB)->( DbUnLock() )

Best Regards,

Richard

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: How manually mapping a field to TDatabase
Posted: Sat Feb 23, 2019 11:50 AM

hua wrote:Hi guys,
Sometimes when maintaining legacy modules, I come across dbfs which have cryptic field names.

If I have a dbf with field name cod, otr1, otp1 is it possible to create a TDatabase object where the field name is more user friendly and mapped to the physical dbf?

I mean creating oDbf:EmployeeCode to map to field cod, oDbf:OTRate1 mapped to field otr1, oDbf:OTAmount1 mapped to field otp1, etc?

Thank you for any tip

TDatabase has this feature for many years. To be exact, from FWH 10.02 onwards.

oDbf:MapCol( cFieldName, cUserFriendlyName )

or

oDbf:MapCol( { { "fld1", "name1" }, .... { "fldN","nameN" } } )

Small Sample:

Code (fw): Select all Collapse

   local oDbf

   oDbf  := TDatabase():Open( nil, "STATES", "DBFCDX", .T. )

   oDbf:MapCol( "CODE", "StateCode" )
   oDbf:MapCol( "NAME", "StateName" )

/*
   // Alternatively, we can assign several fields together

   oDbf:MapCol( { { "CODE", "StateCode" }, ;
                  { "NAME", "StateCode" } } )

*/

   ? odbf:name, odbf:statename

   oDbf:Edit()

   XBROWSER oDbf

Regards

G. N. Rao.

Hyderabad, India

hua

Posts: 1096

Joined: Fri Oct 28, 2005 02:27 AM

Re: How manually mapping a field to TDatabase
Posted: Mon Feb 25, 2019 02:38 AM

Thank you very much Rao! I didn't notice the existence of :MapCol()

FWH 11.08/FWH 19.12

BCC5.82/BCC7.3

xHarbour/Harbour

FiveTech Support Forums

Continue the discussion