Changeset 20 for trunk/Forms/UFormConnect.pas

Timestamp:

Mar 23, 2018, 1:59:25 PM (6 years ago)

Author:

chronos

Message:

• Modified: Database classes reorganized. Now TDbConnectProfile is class which holds information about connection to database.
• Modified: TDbManager is top most class for managing other database classes.
• Modified: TDbConnectParams class contains client specific parameters for connect profile.

File:

• trunk/Forms/UFormConnect.pas (modified) (5 diffs)

trunk/Forms/UFormConnect.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, UDatabase;
+  ComCtrls, Spin, UDatabase;
 
 type
@@ -14 +14 @@
 
   TFormConnect = class(TForm)
+    ButtonXmlBrowse: TButton;
     ButtonOk: TButton;
     ButtonCancel: TButton;
     ComboBox1: TComboBox;
+    EditHost: TEdit;
+    EditXml: TEdit;
     EditName: TEdit;
-    EditConnectionString: TEdit;
     Label1: TLabel;
     Label2: TLabel;
     Label3: TLabel;
+    Label4: TLabel;
+    Label5: TLabel;
+    OpenDialog1: TOpenDialog;
+    PageControl1: TPageControl;
+    SpinEditPort: TSpinEdit;
+    TabSheetSqlite: TTabSheet;
+    TabSheetRegistry: TTabSheet;
+    TabSheetXml: TTabSheet;
+    TabSheetSql: TTabSheet;
+    procedure ButtonXmlBrowseClick(Sender: TObject);
+    procedure ComboBox1Change(Sender: TObject);
     procedure FormShow(Sender: TObject);
   private
-    { private declarations }
   public
-    procedure Load(Database: TDatabase);
-    procedure Save(Database: TDatabase);
+    procedure Load(ConnectProfile: TDbConnectProfile);
+    procedure Save(ConnectProfile: TDbConnectProfile);
     procedure Init;
+    procedure UpdateInterface;
   end;
 
 var
   FormConnect: TFormConnect;
+
 
 implementation
@@ -39 +53 @@
 
 uses
-  UCore;
+  UCore, UEngineXML, UEngineMySQL;
 
 { TFormConnect }
@@ -47 +61 @@
 end;
 
-procedure TFormConnect.Load(Database: TDatabase);
+procedure TFormConnect.ButtonXmlBrowseClick(Sender: TObject);
 begin
-  EditName.Text := Database.Name;
-  EditConnectionString.Text := Database.ConnectionString;
-  ComboBox1.ItemIndex := ComboBox1.Items.IndexOfObject(Database.Engine);
+  OpenDialog1.Filter := 'XML files (.xml)|*.xml|Any file|*.*';
+  OpenDialog1.InitialDir := ExtractFileDir(EditXml.Text);
+  OpenDialog1.FileName := ExtractFileName(EditXml.Text);
+  if OpenDialog1.Execute then
+    EditXml.Text := OpenDialog1.FileName;
+end;
+
+procedure TFormConnect.ComboBox1Change(Sender: TObject);
+begin
+  UpdateInterface;
+end;
+
+procedure TFormConnect.Load(ConnectProfile: TDbConnectProfile);
+begin
+  EditName.Text := ConnectProfile.Name;
+  //EditConnectionString.Text := Database.ConnectionString;
+  ComboBox1.ItemIndex := ComboBox1.Items.IndexOfObject(ConnectProfile.ClientType);
   if (ComboBox1.ItemIndex = -1) and (ComboBox1.Items.Count > 0) then
     ComboBox1.ItemIndex := 0;
+  if ConnectProfile.Params is TDbConnectParamsXml then
+    EditXml.Text := TDbConnectParamsXml(ConnectProfile.Params).FileName;
+  if ConnectProfile.Params is TDbConnectParamsMysql then begin
+    EditHost.Text := TDbConnectParamsMysql(ConnectProfile.Params).Host;
+    SpinEditPort.Value := TDbConnectParamsMysql(ConnectProfile.Params).Port;
+  end;
+  UpdateInterface;
 end;
 
-procedure TFormConnect.Save(Database: TDatabase);
+procedure TFormConnect.Save(ConnectProfile: TDbConnectProfile);
 begin
-  Database.Name := EditName.Text;
-  Database.ConnectionString := EditConnectionString.Text;
-  Database.Engine := TDatabaseEngine(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
+  ConnectProfile.Name := EditName.Text;
+  //DatabaseClient.ConnectionString := EditConnectionString.Text;
+  ConnectProfile.ClientType := TDbClientType(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
+  if ConnectProfile.Params is TDbConnectParamsXml then
+    TDbConnectParamsXml(ConnectProfile.Params).FileName := EditXml.Text;
+  if ConnectProfile.Params is TDbConnectParamsMysql then begin
+    TDbConnectParamsMysql(ConnectProfile.Params).Host := EditHost.Text;
+    TDbConnectParamsMysql(ConnectProfile.Params).Port := SpinEditPort.Value;
+  end;
 end;
 
@@ -68 +109 @@
 begin
   ComboBox1.Items.Clear;
-  for I := 0 to Core.Engines.Count - 1 do
-    ComboBox1.Items.AddObject(TDatabaseEngine(Core.Engines[I]).Name, Core.Engines[I]);
+  for I := 0 to Core.DbManager.ClientTypes.Count - 1 do
+    ComboBox1.Items.AddObject(TDbClientType(Core.DbManager.ClientTypes[I]).Name,
+      Core.DbManager.ClientTypes[I]);
+end;
+
+procedure TFormConnect.UpdateInterface;
+begin
+  PageControl1.TabIndex := ComboBox1.ItemIndex;
 end;