Changeset 25 for trunk/UCore.pas

Timestamp:

Nov 9, 2011, 1:58:00 PM (13 years ago)

Author:

george

Message:

• Modified: Login form now use connection profile form for selecting connection parameters.
• Added: About application dialog.

File:

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

trunk/UCore.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, UCoolTranslator, UDebugLog, USystem,
-  USqlDatabase;
+  Classes, SysUtils, FileUtil, UCoolTranslator, UDebugLog, USystem, Registry,
+  USqlDatabase, ULoginProfileForm, URegistry;
 
 type
@@ -21 +21 @@
     procedure SqlDatabase1LogQuery(Sender: TObject; Text: string);
   private
+    procedure LoadFromRegistry;
+    procedure SaveToRegistry;
     { private declarations }
   public
+    LastUserName: string;
+    LastProfile: Integer;
+    LastPassword: string;
+    Profiles: TProfileList;
+    RegistryKey: string;
+    RegistryRootKey: HKEY;
     System: TChronisBase;
   end;
@@ -33 +41 @@
 {$R *.lfm}
 
+uses
+  UApplicationInfo;
+
 { TCore }
 
 procedure TCore.DataModuleCreate(Sender: TObject);
 begin
+  Profiles := TProfileList.Create;
+  RegistryRootKey := HKEY_CURRENT_USER;
+  RegistryKey := '\Software\' + ApplicationInfo.CompanyName + '\' +
+    ApplicationInfo.Name;
+  LoadFromRegistry;
   System := TChronisBase.Create;
   System.Database := SqlDatabase1;
@@ -46 +62 @@
 procedure TCore.DataModuleDestroy(Sender: TObject);
 begin
+  SaveToRegistry;
   System.Free;
+  Profiles.Free;
 end;
 
@@ -54 +72 @@
 end;
 
+procedure TCore.LoadFromRegistry;
+begin
+  with TRegistryEx.Create do
+  try
+    RootKey := RegistryRootKey;
+    OpenKey(RegistryKey, True);
+    LastProfile := ReadIntegerWithDefault('LastConnectProfile', -1);
+    LastUserName := ReadStringWithDefault('LastUserName', 'admin');
+  finally
+    Free;
+  end;
+end;
+
+procedure TCore.SaveToRegistry;
+begin
+  with TRegistryEx.Create do
+  try
+    RootKey := RegistryRootKey;
+    OpenKey(RegistryKey, True);
+    WriteInteger('LastConnectProfile', LastProfile);
+    WriteString('LastUserName', LastUserName);
+  finally
+    Free;
+  end;
+end;
+
+
 end.