Changeset 53 for trunk/Client/USystem.pas

Timestamp:

Apr 3, 2012, 8:31:39 AM (13 years ago)

Author:

chronos

Message:

• Opraveno: Aktualizace seznamu modulů do databáze a použití příznaku modulů "Instalován" pro zjištění, zda vytvářet znova strukturu.

File:

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

trunk/Client/USystem.pas

@@ -194 +194 @@
       Properties.Client := Base.Client;
       Properties.ObjectName := PropertyTable;
-      Properties.SchemaName := Base.Client.Schema;
+      Properties.Path := Base.Client.Schema;
       Properties.Condition := 'Object="' + IntToStr(Obj.Id) + '"';
       Properties.Load;
@@ -219 +219 @@
       Values.ColummsFilterUse := True;
       Values.ObjectName := Obj.Table;
-      Values.SchemaName := Obj.Schema;
+      Values.Path := Obj.Schema;
       Values.Condition := Filter;
       Values.Load;
@@ -249 +249 @@
     Client.Connect;
     if Client.Connected then begin
+      if not Modules.IsInstalled then begin
+        Modules.Install;
+        Modules.UpdateList;
+      end;
+      Modules.UpdateList;
       if not ModuleSystem.IsInstalled then ModuleSystem.Install;
       LoadTypes;
@@ -273 +278 @@
     Proxy.Client := Client;
     Proxy.ObjectName := PropertyTypeTable;
+    Proxy.Id := Integer(TypeIndex);
     Proxy.Properties.Add('Name', Name);
     Proxy.Properties.Add('DbType', DataType);
-    Proxy.Properties.Add('Id', IntToStr(Integer(TypeIndex)));
     Proxy.Save;
     Result := Proxy.Id;
@@ -655 +660 @@
     Proxy := TListProxy.Create;
     Proxy.Client := Client;
-    Proxy.SchemaName := 'information_schema';
+    Proxy.Path := 'information_schema';
     Proxy.ObjectName := 'tables';
     Proxy.Condition := 'table_name = "SystemModule" AND table_schema = "' +
@@ -719 +724 @@
     List.Client := Core.System.Client;
     List.ObjectName := ObjectTable;
-    List.SchemaName := Core.System.Client.Schema;
+    List.Path := Core.System.Client.Schema;
     List.Condition := 'Id=' + IntToStr(ObjectId);
     List.Load;
@@ -758 +763 @@
   List := TListProxy.Create;
   List.Client := Base.Client;
-  List.SchemaName := Base.Client.Schema;
-  NewObject := TObjectProxy.Create;
-  NewObject.Client := Base.Client;
+  List.Path := Base.Client.Schema;
+  List.ObjectName := SystemModuleObject;
   for I := 0 to Count - 1 do
   with TChronisModule(Items[I]) do begin
     List.Condition := 'SysName="' + SysName + '"';
     List.Load;
+    NewObject := TObjectProxy.Create;
+    NewObject.Client := Base.Client;
     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.Path := 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);
+    with NewObject.Properties do begin
+      Add('SysName', SysName);
+      Add('Name', Name);
+      Add('Version', Version);
+      Add('License', License);
+      Add('Creator', Creator);
+      Add('HomePage', HomePage);
+    end;
     NewObject.Save;
-  end;
-  NewObject.Free;
+    NewObject.Free;
+  end;
   List.Free;
 end;