Changeset 52 for trunk/Client/Forms

Timestamp:

Apr 3, 2012, 7:28:01 AM (13 years ago)

Author:

chronos

Message:

• Modified: Code related to persistence layer abstraction moved to separated package PersistentData.

Location:

trunk/Client/Forms

Files:

• UFormItemAdd.pas (modified) (1 diff)
• UFormItemEdit.pas (modified) (1 diff)
• UFormLoginProfile.pas (modified) (1 diff)
• UFormMain.pas (modified) (2 diffs)
• UFormMenu.pas (modified) (1 diff)

trunk/Client/Forms/UFormItemAdd.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
   StdCtrls, Spin, EditBtn, MaskEdit, USqlDatabase, USystem,
-  SpecializedDictionary, SpecializedList, UChronisClient;
+  SpecializedDictionary, SpecializedList, UPDClient;
 
 type

trunk/Client/Forms/UFormItemEdit.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
   StdCtrls, Spin, EditBtn, USqlDatabase, MaskEdit, ComCtrls, USystem,
-  SpecializedList, SpecializedDictionary, UChronisClient;
+  SpecializedList, SpecializedDictionary, UPDClient;
 
 type

trunk/Client/Forms/UFormLoginProfile.pas

@@ -10 +10 @@
 
 type
-  TConnectProtocol = (cpXMLRPC, cpDirect, cpMySQL);
+  TConnectProtocol = (cpXMLRPC, cpDirect, cpMySQL, cpINI, cpRegistry, cpSQLLite);
 
   { TConnectProfile }

trunk/Client/Forms/UFormMain.pas

@@ -92 +92 @@
 uses
   UFormItemView, UFormItemEdit, UFormItemAdd, UFormLogin, UFormSetting, UApplicationInfo,
-  UCore, UFormImportStructure, UFormAbout, UFormLoginProfile, UChronisClientDirect,
-  UChronisClient, UChronisClientMySQL, UChronisClientXMLRPC, UFormMenu;
+  UCore, UFormImportStructure, UFormAbout, UFormLoginProfile, UPDClientIni,
+  UPDClient, UPDClientMySQL, UPDClientXMLRPC, UFormMenu, UPDClientRegistry;
 
 {$R *.lfm}
@@ -241 +241 @@
       with TConnectProfile(Core.Profiles[Core.LastProfile]) do begin
         FreeAndNil(Core.System.Client);
-        if Protocol = cpMySQL then Core.System.Client := TChronisClientMySQL.Create
-          else if Protocol = cpDirect then Core.System.Client := TChronisClientDirect.Create
-          else if Protocol = cpXMLRPC then Core.System.Client := TChronisClientXMLRPC.Create;
+        if Protocol = cpMySQL then Core.System.Client := TPDClientMySQL.Create
+          //else if Protocol = cpDirect then Core.System.Client := TPDClientDirect.Create
+          else if Protocol = cpXMLRPC then Core.System.Client := TPDClientXMLRPC.Create
+          else if Protocol = cpINI then Core.System.Client := TPDClientIni.Create
+          else if Protocol = cpRegistry then Core.System.Client := TPDClientRegistry.Create;
         Core.System.Client.Host := HostName;
         Core.System.Client.Schema := Database;

trunk/Client/Forms/UFormMenu.pas

@@ -54 +54 @@
 
 uses
-  UFormMain, USystem, UChronisClient, UChronisClientMySQL, UCore;
+  UFormMain, USystem, UPDClient, UCore;
 
 procedure TFormMenu.TreeViewMenuChange(Sender: TObject; Node: TTreeNode);