paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 01:09:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Forgot to set capabilities

Browse Source 
git-svn-id: trunk@11603 -
This commit is contained in:
michael 2008-08-17 14:56:05 +00:00
parent 2a108bb4bf
commit 7edaea59fd
1 changed files with 28 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
packages/fcl-db/src/datadict/fpddfb.pp
View File

@ -25,13 +25,22 @@ uses
Type
{ TSQLDBFBDDEngine }
{ TFPDDFBSQLEngine }
TFPDDFBSQLEngine = Class(TFPDDSQLEngine)
Public
Function CreateSequenceSQL(Sequence : TDDSequenceDef) : String; override;
end;
TSQLDBFBDDEngine = Class(TSQLDBDDEngine)
private
Protected
Function CreateConnection(AConnectString : String) : TSQLConnection; override;
Public
Class function EngineCapabilities : TFPDDEngineCapabilities; virtual;
function ImportFields(Table: TDDTableDef): Integer; override;
Function CreateSQLEngine : TFPDDSQLEngine; override;
Class function Description : string; override;
Class function DBType : String; override;
end;
@ -67,6 +76,12 @@ begin
Result:=TIBConnection.Create(Self);
end;
class function TSQLDBFBDDEngine.EngineCapabilities: TFPDDEngineCapabilities;
begin
Result:=[ecImport,ecCreateTable,ecViewTable, ecTableIndexes,
ecRunQuery, ecRowsAffected, ecSequences, ecDomains];
end;
class function TSQLDBFBDDEngine.Description: string;
begin
Result:='Firebird/Interbase connection using SQLDB';
@ -227,5 +242,17 @@ begin
end;
end;
function TSQLDBFBDDEngine.CreateSQLEngine: TFPDDSQLEngine;
begin
Result:=TFPDDFBSQLEngine.Create;
end;
{ TFPDDFBSQLEngine }
function TFPDDFBSQLEngine.CreateSequenceSQL(Sequence: TDDSequenceDef): String;
begin
Result:='CREATE GENERATOR '+Sequence.SequenceName;
end;
end.