Changeset 21 for trunk/UCore.pas

Timestamp:

Mar 23, 2018, 3:06:47 PM (7 years ago)

Author:

chronos

Message:

• Modified: Allow to create and remove tables for XML backend.

File:

• trunk/UCore.pas (modified) (4 diffs)

trunk/UCore.pas

@@ -87 +87 @@
 
 procedure TCore.ADatabaseConnectExecute(Sender: TObject);
-var
-  NewClient: TDbClient;
 begin
   if FormDatabases.ShowModal = mrOk then begin
     DbClient := nil;
-    NewClient := FormDatabases.SelectedProfile.ClientType.DatabaseClientClass.Create;
-    NewClient.ConnectProfile := FormDatabases.SelectedProfile;
-    DbClient := NewClient;
+    DbClient := FormDatabases.SelectedProfile.GetClient;
   end;
 end;
@@ -134 +130 @@
     DbClient.Load;
     Preferences.LastDatabaseName := FDbClient.ConnectProfile.Name;
-    if not Assigned(FormTables.Tables) then
-      FormTables.Tables := TTables.Create;
-    DbClient.LoadTables(FormTables.Tables);
+    FormTables.DbClient := DbClient;
   end;
   UpdateInterface;
@@ -186 +180 @@
     UpdateInterface;
     if Preferences.RememberDatabase then begin
-      ConnectProfile := DbManager.ConnectProfiles.FindByName(Preferences.LastDatabaseName);
-      if Assigned(ConnectProfile) then
-        DbClient := ConnectProfile.ClientType.DatabaseClientClass.Create;
+      ConnectProfile := DbManager.ConnectProfiles.SearchByName(Preferences.LastDatabaseName);
+      if Assigned(ConnectProfile) then begin
+        DbClient := ConnectProfile.GetClient;
+      end;
     end else ADatabaseConnect.Execute;
   end;
@@ -196 +191 @@
 begin
   SaveConfig;
+  DbClient := nil;
 end;