Changeset 27 for trunk/Forms/UMainForm.pas

Timestamp:

Nov 9, 2011, 4:11:56 PM (13 years ago)

Author:

george

Message:

• Added: Partial client-server protocol layer implementation.

File:

• trunk/Forms/UMainForm.pas (modified) (7 diffs)

trunk/Forms/UMainForm.pas

@@ -18 +18 @@
     AConnect: TAction;
     AAbout: TAction;
+    ADisconnect: TAction;
     AImportStructure: TAction;
     AInitSystemValues: TAction;
@@ -55 +56 @@
     MenuItem20: TMenuItem;
     MenuItem21: TMenuItem;
+    MenuItem22: TMenuItem;
     MenuItem3: TMenuItem;
     MenuItem4: TMenuItem;
@@ -71 +73 @@
     procedure AAboutExecute(Sender: TObject);
     procedure AConnectExecute(Sender: TObject);
+    procedure ADisconnectExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
     procedure AImportStructureExecute(Sender: TObject);
@@ -111 +114 @@
     TreeState: TTreeState;
     Report: TReport;
+    procedure UpdateInterface;
     procedure LoadTree;
     procedure LoadItemList;
@@ -130 +134 @@
 uses
   UItemView, UItemEdit, UItemAdd, ULoginForm, USettingForm, UApplicationInfo,
-  UCore, UImportStructureForm, UAboutForm, ULoginProfileForm;
+  UCore, UImportStructureForm, UAboutForm, ULoginProfileForm, UChronisClientDirect;
 
 {$R *.lfm}
@@ -507 +511 @@
 end;
 
+procedure TMainForm.UpdateInterface;
+begin
+  ADisconnect.Enabled := Core.System.Database.Connected;
+  AConnect.Enabled := not Core.System.Database.Connected;
+  AInitSystemValues.Enabled := Core.System.Database.Connected;
+  AImportStructure.Enabled := Core.System.Database.Connected;
+end;
+
 procedure TMainForm.FormCreate(Sender: TObject);
 begin
@@ -639 +651 @@
       Core.System.Database.UserName := Core.LastUserName;
       Core.System.Database.Password := Core.LastPassword;
+      Core.System.Database.Port := Port;
+      if Protocol = cpDirect then Core.Client := TChronisClientDirect.Create;
+    end;
+    try
       Core.System.Database.Connect;
-    end;
-    InitStructure;
-    Core.System.LoadTypes;
-    LoadTree;
-  end;
+      InitStructure;
+      Core.System.LoadTypes;
+      LoadTree;
+    except
+      on E:Exception do ShowMessage(E.Message);
+    end;
+  end;
+end;
+
+procedure TMainForm.ADisconnectExecute(Sender: TObject);
+begin
+  Core.System.Database.Disconnect;
+  TreeView1.Items.Clear;
+  ListView1.Items.Clear;
+  Core.System.Types.Clear;
+  FreeAndNil(Core.Client);
 end;