Changeset 45 for trunk/USystem.pas

Timestamp:

Mar 12, 2012, 10:23:40 AM (13 years ago)

Author:

chronos

Message:

• Modified: TChronisBase.Active property control Client connection instead of direct call of Client.Connect and Client.Disconnect methods.

File:

• trunk/USystem.pas (modified) (4 diffs)

trunk/USystem.pas

@@ -107 +107 @@
 
   TChronisBase = class
+  private
+    FActive: Boolean;
+    procedure SetActive(AValue: Boolean);
+  public
     Types: TChronisTypeList;
     Client: TChronisClient;
-    //Database: TSqlDatabase;
     Modules: TListObject; // TListObject<TChronisModule>
     ModuleSystem: TChronisModule;
@@ -143 +146 @@
     constructor Create;
     destructor Destroy; override;
+    property Active: Boolean read FActive write SetActive;
   private
   end;
@@ -266 +270 @@
 end;
 
+procedure TChronisBase.SetActive(AValue: Boolean);
+begin
+  if FActive = AValue then Exit;
+  FActive := AValue;
+  if AValue then begin
+    Client.Connect;
+    if Client.Connected then begin
+      if IsDatabaseEmpty then ModuleSystem.Install;
+      LoadTypes;
+    end else FActive := False;
+  end else begin
+    Client.Disconnect;
+    FreeAndNil(Client);
+    Types.Clear;
+  end;
+end;
+
 procedure TChronisBase.RegisterModule(ModuleClass: TChronisModuleClass);
 begin
@@ -664 +685 @@
     Proxy.SchemaName := 'information_schema';
     Proxy.ObjectName := 'tables';
-    Proxy.Condition := 'table_name = "Information" AND table_schema = "' +
+    Proxy.Condition := 'table_name = "SystemModule" AND table_schema = "' +
       Client.Schema + '"';
     Proxy.Load;