paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 11:29:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Tablename property

Browse Source 
git-svn-id: trunk@11496 -
This commit is contained in:
michael 2008-07-31 12:56:09 +00:00
parent d6c475c944
commit d04b2c5c7d
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packages/fcl-db/src/codegen/fpcgtiopf.pp
View File

@ -36,6 +36,7 @@ TYpe
FListAncestorName: String;
FListClassName : String;
FVisitorOptions: TVisitorOptions;
FTableName : String;
function GetListClassName: String;
procedure SetListAncestorName(const AValue: String);
procedure SetListClassName(const AValue: String);
@ -48,6 +49,7 @@ TYpe
Property ListAncestorName : String Read FListAncestorName Write SetListAncestorName;
Property ListClassName : String Read GetListClassName Write SetListClassName;
Property AncestorClass;
Property TableName : String Read FTableName Write FTableName;
end;
{ TTiOPFCodeGenerator }
@ -97,7 +99,8 @@ TYpe
end;
Const
SOID = 'OID'; // OID property.
SOID = 'OID'; // OID property.
SDefTableName = 'MYTABLE'; // Default table name.
implementation
@ -128,6 +131,7 @@ begin
FListAncestorName:='TtiObjectList';
AncestorClass:='TtiObject';
ObjectClassName:='MyObject';
TableName:=SDefTableName;
FVisitorOptions:=[voRead,voCreate,voDelete,voUpdate];
FClassOptions:=[caCreateList,caListAddMethod,caListItemsProperty];
end;
@ -145,6 +149,7 @@ begin
AncestorClass:=OC.AncestorClass;
FVisitorOptions:=OC.FVisitorOptions;
FClassOptions:=OC.FClassOptions;
FTableName:=OC.TableName;
end;
inherited Assign(ASource);
end;
@ -277,7 +282,9 @@ Var
F : TFieldPropDef;
begin
TN:='MyTable';
TN:=TiOPFOptions.TableName;
If (TN='') then
TN:=SDefTableName;
S:='';
VS:='';
W:='Your condition here';