fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

SET RELATION implementation

Browse Source
This commit is contained in:
Antonio Linares
2007-05-06 20:43:45 +00:00
parent 2febb18eea
commit 7eb006b839
1 changed files with 21 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
harbour/contrib/adordd/adordd.prg
View File

@@ -579,9 +579,28 @@ static function ADO_LOCATE( nWA, lContinue )
return SUCCESS
static function ADO_CLEARREL( nWA )
local nKeys := s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Keys:Count
local cKeyName
if nKeys > 0
cKeyName = s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Keys( nKeys - 1 ):Name
if Upper( cKeyName ) != "PRIMARYKEY"
s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Keys:Delete( cKeyName )
endif
endif
return SUCCESS
static function ADO_SETREL( nWA, aRelInfo )
local oADO := USRRDD_AREADATA( nWA )[ 1 ]
local cParent := Alias( aRelInfo[ UR_RI_PARENT ] )
local cChild := Alias( aRelInfo[ UR_RI_CHILD ] )
local cKeyName := cParent + "_" + cChild
s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Keys:Append( cKeyName, adKeyForeign,;
aRelInfo[ UR_RI_CEXPR ], cChild, aRelInfo[ UR_RI_CEXPR ] )
return SUCCESS
@@ -621,6 +640,7 @@ function ADORDD_GETFUNCTABLE( pFuncCount, pFuncTable, pSuperTable, nRddID )
aMyFunc[ UR_ZAP ] := ( @ADO_ZAP() )
aMyFunc[ UR_SETLOCATE ] := ( @ADO_SETLOCATE() )
aMyFunc[ UR_LOCATE ] := ( @ADO_LOCATE() )
aMyFunc[ UR_CLEARREL ] := ( @ADO_CLEARREL() )
aMyFunc[ UR_SETREL ] := ( @ADO_SETREL() )
return USRRDD_GETFUNCTABLE( pFuncCount, pFuncTable, pSuperTable, nRddID, ;