26 lines
579 B
ObjectPascal
26 lines
579 B
ObjectPascal
|
unit UCDataConnector;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
{$I 'UserControl.inc'}
|
||
|
|
|
||
|
|
uses
|
||
|
|
Classes,
|
||
|
|
DB;
|
||
|
|
|
||
|
|
type
|
||
|
|
TUCDataConnector = class(TComponent)
|
||
|
|
public
|
||
|
|
procedure UCExecSQL(FSQL: String); virtual; abstract;
|
||
|
|
function UCGetSQLDataset(FSQL: String): TDataset; dynamic; abstract;
|
||
|
|
function UCFindTable(const Tablename: String): Boolean; virtual; abstract;
|
||
|
|
function UCFindDataConnection: Boolean; virtual; abstract;
|
||
|
|
function GetDBObjectName: String; virtual; abstract;
|
||
|
|
function GetTransObjectName: String; virtual; abstract;
|
||
|
|
end;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
end.
|
||
|
|
|