Changeset 3 for trunk/UCore.pas

Timestamp:

Jan 18, 2015, 5:25:37 PM (10 years ago)

Author:

chronos

Message:

• Added: Support for editing String and DateTime value types in record edit form.

Location:

trunk

Files:

• . (modified) (1 prop)
• UCore.pas (modified) (3 diffs)

trunk

@@ -3 +3 @@
 MyData.lps
 data.xml
+Config.xml

@@ -3 +3 @@
 MyData.lps
 data.xml
+Config.xml

trunk/UCore.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, Controls, UDatabase;
+  Classes, SysUtils, XMLConf, FileUtil, Controls, ActnList, UDatabase, Forms;
 
 type
@@ -13 +13 @@
 
   TCore = class(TDataModule)
+    AExit: TAction;
+    ActionList1: TActionList;
     ImageList1: TImageList;
+    XMLConfig1: TXMLConfig;
+    procedure AExitExecute(Sender: TObject);
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
   private
-    { private declarations }
+    Initialized: Boolean;
   public
     Database: TDatabase;
+    procedure LoadConfig;
+    procedure SaveConfig;
+    procedure Init;
+    procedure Done;
   end;
 
@@ -37 +45 @@
 begin
   Database := TDatabaseXML.Create;
-  Database.ConnectionString := 'file:///home/chronos/Projekty/test/MyData/data.xml';
-  Database.Load;
+end;
+
+procedure TCore.AExitExecute(Sender: TObject);
+begin
+  FormMain.Close;
 end;
 
 procedure TCore.DataModuleDestroy(Sender: TObject);
 begin
+  Database.Free;
+end;
+
+procedure TCore.LoadConfig;
+begin
+  Database.ConnectionString := XMLConfig1.GetValue('ConnectionString', 'file://' + ExtractFileDir(Application.ExeName) + '/data.xml');
+end;
+
+procedure TCore.SaveConfig;
+begin
+  XMLConfig1.SetValue('ConnectionString', Database.ConnectionString);
+end;
+
+procedure TCore.Init;
+begin
+  if not Initialized then begin
+    Initialized := True;
+    LoadConfig;
+    Database.Load;
+    FormMain.ReloadList;
+  end;
+end;
+
+procedure TCore.Done;
+begin
   Database.Save;
-  Database.Free;
+  SaveConfig;
 end;
 

@@ -3 +3 @@
 MyData.lps
 data.xml
+Config.xml