Changeset 51 for trunk/Client/USystem.pas

Timestamp:

Apr 2, 2012, 3:59:58 PM (13 years ago)

Author:

chronos

Message:

• Added: Unfinished installable module management.

File:

• trunk/Client/USystem.pas (modified) (8 diffs)

trunk/Client/USystem.pas

@@ -11 +11 @@
 
 const
+  SystemModuleObject = 'SystemModule';
   ObjectGroupTable = 'ObjectGroup';
   ObjectTable = 'Object';
@@ -36 +37 @@
   vtTime, vtDate, vtColor, vtHyperlink, vtRelationOne, vtRelationMany, vtPassword);
 
-  TChronisType = class;
   TChronisObject = class;
   TChronisBase = class;
@@ -88 +88 @@
   end;
 
-  TChronisType = class
-  private
-    ParentId: Integer;
-  public
-    Id: Integer;
-    DbType: string;
-    TypeIndex: Integer;
-  end;
-
-  { TChronisTypeList }
-
-  TChronisTypeList = class(TListObject)
-    function FindById(Id: Integer): TChronisType;
-    function FindByTypeIndex(Id: Integer): TChronisType;
+  { TChronisModuleList }
+
+  TChronisModuleList = class(TListObject) // TListObject<TChronisModule>
+    Base: TChronisBase;
+    procedure UpdateList;
+    procedure Install;
+    procedure Uninstall;
   end;
 
@@ -113 +106 @@
     Types: TChronisTypeList;
     Client: TChronisClient;
-    Modules: TListObject; // TListObject<TChronisModule>
+    Modules: TChronisModuleList;
     ModuleSystem: TChronisModule;
     procedure RegisterModule(ModuleClass: TChronisModuleClass);
@@ -168 +161 @@
 end;
 
-{ TChronisTypeList }
-
-function TChronisTypeList.FindById(Id: Integer): TChronisType;
-var
-  I: Integer;
-begin
-  I := 0;
-  while (I < Count) and (TChronisType(Items[I]).Id <> Id) do Inc(I);
-  if I < Count then Result := TChronisType(Items[I])
-    else Result := nil;
-end;
-
-function TChronisTypeList.FindByTypeIndex(Id: Integer): TChronisType;
-var
-  I: Integer;
-begin
-  I := 0;
-  while (I < Count) and (TChronisType(Items[I]).TypeIndex <> Id) do Inc(I);
-  if I < Count then Result := TChronisType(Items[I])
-    else Result := nil;
-end;
-
 { TReportLine }
 
@@ -277 +248 @@
     Client.Connect;
     if Client.Connected then begin
-      if IsDatabaseEmpty then ModuleSystem.Install;
+      if not ModuleSystem.IsInstalled then ModuleSystem.Install;
       LoadTypes;
     end else FActive := False;
@@ -697 +668 @@
 begin
   Types := TChronisTypeList.Create;
-  Modules := TListObject.Create;
+  Modules := TChronisModuleList.Create;
+  Modules.Base := Self;
 end;
 
@@ -775 +747 @@
 end;
 
+{ TChronisModuleList }
+
+procedure TChronisModuleList.UpdateList;
+var
+  I: Integer;
+  NewObject: TObjectProxy;
+  List: TListProxy;
+begin
+  List := TListProxy.Create;
+  List.Client := Base.Client;
+  List.SchemaName := Base.Client.Schema;
+  NewObject := TObjectProxy.Create;
+  NewObject.Client := Base.Client;
+  for I := 0 to Count - 1 do
+  with TChronisModule(Items[I]) do begin
+    List.Condition := 'SysName="' + SysName + '"';
+    List.Load;
+    if List.Objects.Count > 0 then
+      NewObject.Id := StrToInt(TObjectProxy(List.Objects[0]).Properties.Values['Id'])
+      else NewObject.Id := 0;
+    NewObject.SchemaName := Base.Client.Schema;
+    NewObject.ObjectName := SystemModuleObject;
+    NewObject.Properties.Add('SysName', SysName);
+    NewObject.Properties.Add('Name', Name);
+    NewObject.Properties.Add('Version', Version);
+    NewObject.Properties.Add('License', License);
+    NewObject.Properties.Add('Creator', Creator);
+    NewObject.Properties.Add('HomePage', HomePage);
+    NewObject.Save;
+  end;
+  NewObject.Free;
+  List.Free;
+end;
+
+procedure TChronisModuleList.Install;
+var
+  NewType: TChronisType;
+begin
+  NewType := TChronisType.Create;
+  NewType.Client := Base.Client;
+  NewType.Name := SystemModuleObject;
+  NewType.Properties.Add('SysName', 'String');
+  NewType.Properties.Add('Name', 'String');
+  NewType.Properties.Add('Version', 'String');
+  NewType.Properties.Add('License', 'String');
+  NewType.Properties.Add('Creator', 'String');
+  NewType.Properties.Add('HomePage', 'String');
+  NewType.Properties.Add('Installed', 'Boolean');
+  NewType.Define;
+end;
+
+procedure TChronisModuleList.Uninstall;
+var
+  NewType: TChronisType;
+begin
+  NewType := TChronisType.Create;
+  NewType.Client := Base.Client;
+  NewType.Name := SystemModuleObject;
+  NewType.Undefine;
+end;
+
+
 end.