Changeset 9 for trunk/UCore.pas

Timestamp:

Jan 25, 2015, 9:41:26 PM (10 years ago)

Author:

chronos

Message:

• Added: Preferences dialog window.
• Modified: Currently selected database is set in TCore class in field Database.
• Added: Application remembers name of previous opened database and reopen it during startup.
• Modified: FormDatabases is now used as modal form.

File:

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

trunk/UCore.pas

@@ -9 +9 @@
 
 type
-
   { TCore }
 
   TCore = class(TDataModule)
+    ADatabaseConnect: TAction;
+    ADatabaseDisconnect: TAction;
     APreferences: TAction;
     AExit: TAction;
@@ -18 +19 @@
     ImageList1: TImageList;
     XMLConfig1: TXMLConfig;
+    procedure ADatabaseConnectExecute(Sender: TObject);
+    procedure ADatabaseDisconnectExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
+    procedure APreferencesExecute(Sender: TObject);
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
   private
+    FDatabase: TDatabase;
     Initialized: Boolean;
     procedure InitEngines;
     procedure InitDataTypes;
+    procedure SetDatabase(AValue: TDatabase);
   public
+    Preferences: TPreferences;
     Databases: TDatabases;
     Engines: TDatabaseEngines;
@@ -33 +40 @@
     procedure Init;
     procedure Done;
+    procedure UpdateInterface;
+    property Database: TDatabase read FDatabase write SetDatabase;
   end;
 
@@ -42 +51 @@
 uses
   UEngineXML, UEngineMySQL, UEngineSQLite, UFormTables, UFormConnect,
-  UFormDatabases, UDataTypes;
+  UFormDatabases, UDataTypes, UFormPreferences, UFormMain;
 
 {$R *.lfm}
@@ -53 +62 @@
   Engines := TDatabaseEngines.Create;
   DataTypes := TDataTypes.Create;
+  Preferences := TPreferences.Create;
 end;
 
@@ -60 +70 @@
 end;
 
+procedure TCore.ADatabaseDisconnectExecute(Sender: TObject);
+begin
+  Database := nil;
+end;
+
+procedure TCore.ADatabaseConnectExecute(Sender: TObject);
+begin
+  if FormDatabases.ShowModal = mrOk then begin
+    Database := FormDatabases.SelectedDatabase;
+  end;
+end;
+
+procedure TCore.APreferencesExecute(Sender: TObject);
+begin
+  FormPreferences.Load(Preferences);
+  if FormPreferences.ShowModal = mrOk then begin
+    FormPreferences.Save(Preferences);
+  end;
+end;
+
 procedure TCore.DataModuleDestroy(Sender: TObject);
 begin
-  DataTypes.Free;
-  Engines.Free;
-  Databases.Free;
+  FreeAndNil(Preferences);
+  FreeAndNil(DataTypes);
+  FreeAndNil(Engines);
+  FreeAndNil(Databases);
 end;
 
@@ -98 +129 @@
 end;
 
+procedure TCore.SetDatabase(AValue: TDatabase);
+begin
+  if FDatabase = AValue then Exit;
+  if Assigned(FDatabase) then begin
+    FDatabase.Clear;
+  end;
+  FDatabase := AValue;
+  if Assigned(FDatabase) then begin
+    FDatabase.Load;
+    Preferences.LastDatabaseName := FDatabase.Name;
+  end;
+  FormTables.Database := FDatabase;
+  UpdateInterface;
+end;
+
 procedure TCore.LoadConfig;
 var
@@ -115 +161 @@
   end;
   //Databases.ConnectionString := XMLConfig1.GetValue('ConnectionString', 'file://' + ExtractFileDir(Application.ExeName) + '/data.xml');
+  Preferences.RememberDatabase := XMLConfig1.GetValue('RememberDatabase', True);
+  Preferences.LastDatabaseName := XMLConfig1.GetValue('LastDatabaseName', '');
 end;
 
@@ -127 +175 @@
     XMLConfig1.SetValue('Database/Item' + IntToStr(I) + '/Engine', TDatabase(Databases[I]).Engine.Name);
   end;
+  XMLConfig1.SetValue('RememberDatabase', Preferences.RememberDatabase);
+  XMLConfig1.SetValue('LastDatabaseName', Preferences.LastDatabaseName);
 end;
 
@@ -138 +188 @@
     LoadConfig;
     FormDatabases.ReloadList;
+    UpdateInterface;
+    if Preferences.RememberDatabase then begin
+      Database := Databases.FindByName(Preferences.LastDatabaseName);
+    end else ADatabaseConnect.Execute;
   end;
 end;
@@ -146 +200 @@
 end;
 
+procedure TCore.UpdateInterface;
+begin
+  ADatabaseDisconnect.Enabled := Assigned(FormTables.Database);
+  FormMain.UpdateInterface;
+end;
+
 end.