Changeset 37 for trunk/Forms/UMainForm.pas

Timestamp:

Mar 8, 2012, 3:11:10 PM (13 years ago)

Author:

chronos

Message:

• Modified: Direct acces using Database: TSqlDatabase replaced by TChronisClient interface.

File:

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

trunk/Forms/UMainForm.pas

@@ -148 +148 @@
 procedure TMainForm.UpdateInterface;
 begin
-  ADisconnect.Enabled := Core.System.Database.Connected;
-  AConnect.Enabled := not Core.System.Database.Connected;
-  AImportStructure.Enabled := Core.System.Database.Connected;
+  ADisconnect.Enabled := Core.System.Client.Connected;
+  AConnect.Enabled := not Core.System.Client.Connected;
+  AImportStructure.Enabled := Core.System.Client.Connected;
   if Assigned(MainPanelForm) then
     Caption := MainPanelForm.Caption + ' - ' + ApplicationInfo.Name
@@ -257 +257 @@
   if LoginForm.ShowModal = mrOK then begin
     with TConnectProfile(Core.Profiles[Core.LastProfile]) do begin
-      Core.System.Database.HostName := HostName;
-      Core.System.Database.Database := Database;
-      Core.System.Database.UserName := Core.LastUserName;
-      Core.System.Database.Password := Core.LastPassword;
-      Core.System.Database.Port := Port;
+      Core.System.Client.Host := HostName;
+      Core.System.Client.Schema := Database;
+      Core.System.Client.User := Core.LastUserName;
+      Core.System.Client.Password := Core.LastPassword;
+      Core.System.Client.Port := Port;
       if Protocol = cpDirect then Core.Client := TChronisClientDirect.Create;
     end;
     try
-      Core.System.Database.Connect;
+      Core.System.Client.Connect;
       if Core.System.IsDatabaseEmpty then Core.System.ModuleSystem.Install;
       Core.System.LoadTypes;
@@ -277 +277 @@
 procedure TMainForm.ADisconnectExecute(Sender: TObject);
 begin
-  if Core.System.Database.Connected then begin
-    Core.System.Database.Disconnect;
+  if Core.System.Client.Connected then begin
+    Core.System.Client.Disconnect;
     TreeView1.Items.Clear;
     Core.System.Types.Clear;
@@ -361 +361 @@
       Groups.Client := Core.System.Client;
       Groups.ObjectName := ObjectGroupTable;
-      Groups.SchemaName := Core.System.Database.Database;
+      Groups.SchemaName := Core.System.Client.Schema;
       Groups.Load;
       for I := 0 to Groups.Objects.Count - 1 do begin
@@ -373 +373 @@
           Objects.Client := Core.System.Client;
           Objects.ObjectName := ObjectTable;
-          Objects.SchemaName := Core.System.Database.Database;
-          Objects.SetCondition('Group', Obj.Properties.Values['Id']);
+          Objects.SchemaName := Core.System.Client.Schema;
+          Objects.Condition := '`Group`="' + Obj.Properties.Values['Id'] + '"';
           Objects.Load;
           for O := 0 to Objects.Objects.Count - 1 do begin