44 lines
1.1 KiB
ObjectPascal
44 lines
1.1 KiB
ObjectPascal
unit SynDBExplorerClasses;
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Classes,
|
|
SynCommons, mORMot;
|
|
|
|
type
|
|
TExpConnectionType = (
|
|
ctOracleDirectOCI,
|
|
ctOracleOLEDB, ctOracleMSOLEDB, ctMSSQL, ctGenericOLEDB,
|
|
ctSqlite3,
|
|
ctJet_mdbOLEDB,
|
|
ctODBC,ctRemoteHTTP,ctZEOS);
|
|
|
|
TSQLConnection = class(TSQLRecord)
|
|
private
|
|
fUserName: RawUTF8;
|
|
fIdent: RawUTF8;
|
|
fPassword: RawUTF8;
|
|
fServer: RawUTF8;
|
|
fDataBase: RawUTF8;
|
|
fConnection: TExpConnectionType;
|
|
fForeignKeys: TSQLRawBlob;
|
|
public
|
|
fTableNames: TRawUTF8DynArray;
|
|
published
|
|
property Ident: RawUTF8 read fIdent write fIdent;
|
|
property Connection: TExpConnectionType read fConnection write fConnection;
|
|
property Server: RawUTF8 read fServer write fServer;
|
|
property Database: RawUTF8 read fDataBase write fDataBase;
|
|
property UserName: RawUTF8 read fUserName write fUserName;
|
|
property Password: RawUTF8 read fPassword write fPassword;
|
|
property TableNames: TRawUTF8DynArray read fTableNames write fTableNames;
|
|
property ForeignKeys: TSQLRawBlob read fForeignKeys write fForeignKeys;
|
|
end;
|
|
|
|
implementation
|
|
|
|
|
|
|
|
end.
|