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

DbRSelect() and DbRelation() implemented

Browse Source
This commit is contained in:
Fernando Mancera
2007-05-07 12:04:31 +00:00
parent 3c557bba56
commit 62b677cbb0
1 changed files with 18 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -593,6 +593,22 @@ static function ADO_CLEARREL( nWA )
return SUCCESS
static function ADO_RELAREA( nWA, nRelNo, nRelArea )
if nRelNo <= s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Keys:Count()
nRelArea = Select( s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Keys( nRelNo - 1 ):RelatedTable )
endif
return SUCCESS
static function ADO_RELTEXT( nWA, nRelNo, cExpr )
if nRelNo <= s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Keys:Count()
cExpr = s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Keys( nRelNo - 1 ):Columns( 0 ):RelatedColumn
endif
return SUCCESS
static function ADO_SETREL( nWA, aRelInfo )
local cParent := Alias( aRelInfo[ UR_RI_PARENT ] )
@@ -678,6 +694,8 @@ function ADORDD_GETFUNCTABLE( pFuncCount, pFuncTable, pSuperTable, nRddID )
aMyFunc[ UR_SETLOCATE ] := ( @ADO_SETLOCATE() )
aMyFunc[ UR_LOCATE ] := ( @ADO_LOCATE() )
aMyFunc[ UR_CLEARREL ] := ( @ADO_CLEARREL() )
aMyFunc[ UR_RELAREA ] := ( @ADO_RELAREA() )
aMyFunc[ UR_RELTEXT ] := ( @ADO_RELTEXT() )
aMyFunc[ UR_SETREL ] := ( @ADO_SETREL() )
aMyFunc[ UR_ORDCREATE ] := ( @ADO_ORDCREATE() )
aMyFunc[ UR_ORDLSTADD ] := ( @ADO_ORDLSTADD() )