Changeset 32 for trunk/Forms/FormDatabases.pas

Timestamp:

Jun 29, 2024, 7:58:36 AM (3 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from units names.
• Modified: Use TFormEx for all forms.

File:

• trunk/Forms/FormDatabases.pas (moved) (moved from trunk/Forms/UFormDatabases.pas ) (10 diffs)

trunk/Forms/FormDatabases.pas

@@ -1 @@
-unit UFormDatabases;
+unit FormDatabases;
 
 interface
@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  Menus, ActnList, UDatabase;
+  Menus, ActnList, DbEngine, FormEx;
 
 type
@@ -11 +11 @@
   { TFormDatabases }
 
-  TFormDatabases = class(TForm)
+  TFormDatabases = class(TFormEx)
     AAdd: TAction;
     AOpen: TAction;
@@ -39 +39 @@
   public
     SelectedProfile: TDbConnectProfile;
+    DbManager: TDbManager;
     procedure ReloadList;
     procedure UpdateInterface;
@@ -49 +50 @@
 
 uses
-  UCore, UFormConnect;
+  FormConnect;
 
 resourcestring
@@ -76 +77 @@
     if MessageDlg(SRemoveDatabaseConnection, Format(SRemoveDatabaseConnectionQuery, [
     TDbConnectProfile(ListView1.Selected.Data).Name]), mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
-      Core.DbManager.ConnectProfiles.Remove(ListView1.Selected.Data);
+      DbManager.ConnectProfiles.Remove(ListView1.Selected.Data);
       ReloadList;
     end;
@@ -90 +91 @@
   with TFormConnect.Create(nil) do
   try
+    DbManager := Self.DbManager;
     Load(NewConnectProfile);
     if ShowModal = mrOk then begin
       Save(NewConnectProfile);
-      Core.DbManager.ConnectProfiles.Add(NewConnectProfile);
+      DbManager.ConnectProfiles.Add(NewConnectProfile);
       ReloadList;
     end else NewConnectProfile.Free;
@@ -104 +106 @@
 begin
   if Assigned(ListView1.Selected) then begin
+    DbManager := Self.DbManager;
     with TFormConnect.Create(nil) do
     try
+      DbManager := Self.DbManager;
       Load(TDbConnectProfile(ListView1.Selected.Data));
       if ShowModal = mrOk then begin
@@ -128 +132 @@
 procedure TFormDatabases.ListView1Data(Sender: TObject; Item: TListItem);
 begin
-  if (Item.Index >= 0) and (Item.Index < Core.DbManager.ConnectProfiles.Count) then
-  with TDbConnectProfile(Core.DbManager.ConnectProfiles[Item.Index]) do begin
+  if (Item.Index >= 0) and (Item.Index < DbManager.ConnectProfiles.Count) then
+  with TDbConnectProfile(DbManager.ConnectProfiles[Item.Index]) do begin
     Item.Caption := Name;
     Item.SubItems.Add(ClientType.Name);
     Item.SubItems.Add(Params.ConnectionString);
-    Item.Data := Core.DbManager.ConnectProfiles[Item.Index];
+    Item.Data := DbManager.ConnectProfiles[Item.Index];
   end
 end;
@@ -145 +149 @@
 procedure TFormDatabases.ReloadList;
 begin
-  ListView1.Items.Count := Core.DbManager.ConnectProfiles.Count;
+  ListView1.Items.Count := DbManager.ConnectProfiles.Count;
   ListView1.Repaint;
   UpdateInterface;