Changeset 29 for trunk/USystem.pas

Timestamp:

Nov 23, 2011, 8:24:07 PM (13 years ago)

Author:

chronos

Message:

• Added: Preliminary support for modules.
• Modified: Database initialization moved to module System.

File:

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

trunk/USystem.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, SpecializedList, SpecializedDictionary, USqlDatabase,
-  Strings, UDataTypes, Dialogs, ComCtrls, StdCtrls, Controls, UChronisClient;
+  Strings, UDataTypes, Dialogs, ComCtrls, StdCtrls, Controls, UChronisClient,
+  UChronisModule;
 
 const
@@ -105 +106 @@
     Client: TChronisClient;
     Database: TSqlDatabase;
+    Modules: TListObject; // TListObject<TChronisModule>
+    ModuleSystem: TChronisModule;
+    procedure RegisterModule(ModuleClass: TChronisModuleClass);
     function AddType(Name, DataType: string; TypeIndex: TDbValueType): Integer;
     function AddGroup(Name: string; ParentGroupId: Integer = 0): Integer;
@@ -132 +136 @@
     function AddModule(Name, Author, Website, Version, Description, License: string): Integer;
     procedure LoadTypes;
+    function IsDatabaseEmpty: Boolean;
     constructor Create;
     destructor Destroy; override;
@@ -235 +240 @@
 end;
 
+procedure TChronisBase.RegisterModule(ModuleClass: TChronisModuleClass);
+begin
+  Modules.AddNew(ModuleClass.Create);
+  TChronisModule(Modules.Last).System := TChronisBase(Self);
+end;
+
 function TChronisBase.AddType(Name, DataType: string; TypeIndex: TDbValueType): Integer;
 var
@@ -625 +636 @@
 end;
 
+function TChronisBase.IsDatabaseEmpty: Boolean;
+var
+  DbRows: TDbRows;
+begin
+  try
+    DbRows := TDbRows.Create;
+    Database.Query(DbRows, 'SELECT 1 FROM information_schema.tables WHERE table_name = "Information" AND table_schema = "' +
+      Database.Database + '"');
+    Result := DbRows.Count = 0;
+  finally
+    DbRows.Free;
+  end;
+end;
+
 constructor TChronisBase.Create;
 begin
   Types := TChronisTypeList.Create;
+  Modules := TListObject.Create;
   Client := nil;
 end;
@@ -634 +660 @@
 begin
   Types.Free;
+  Modules.Free;
   Client.Free;
   inherited Destroy;