source upload

contrib/mORMot/SQLite3/Samples/12 - SynDB Explorer/SynDBExplorerClasses.pas

@@ -0,0 +1,43 @@
+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.