Changeset 53 for trunk/Client/Forms

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.

Location:

trunk/Client/Forms

Files:

• UFormItemAdd.pas (modified) (1 diff)
• UFormItemEdit.pas (modified) (1 diff)
• UFormMenu.pas (modified) (2 diffs)

trunk/Client/Forms/UFormItemAdd.pas

@@ -64 +64 @@
     NewProxy.Client := Client;
     NewProxy.ObjectName := SelectedObject.Table;
-    NewProxy.SchemaName := SelectedObject.Schema;
+    NewProxy.Path := SelectedObject.Schema;
     for I := 0 to Report.Columns.Count - 1 do
     if not (TReportColumn(Report.Columns[I]).CustomType is TDataTypeRelationMany) then

trunk/Client/Forms/UFormItemEdit.pas

@@ -128 +128 @@
     Proxy.Client := Client;
     Proxy.ObjectName := SelectedObject.Table;
-    Proxy.SchemaName := SelectedObject.Schema;
+    Proxy.Path := SelectedObject.Schema;
     Proxy.Id := SelectedItemId;
     for I := 0 to Report.Columns.Count - 1 do

trunk/Client/Forms/UFormMenu.pas

@@ -142 +142 @@
       Groups.Client := Core.System.Client;
       Groups.ObjectName := ObjectGroupTable;
-      Groups.SchemaName := Core.System.Client.Schema;
+      Groups.Path := Core.System.Client.Schema;
       Groups.Load;
       for I := 0 to Groups.Objects.Count - 1 do begin
@@ -154 +154 @@
           Objects.Client := Core.System.Client;
           Objects.ObjectName := ObjectTable;
-          Objects.SchemaName := Core.System.Client.Schema;
+          Objects.Path := Core.System.Client.Schema;
           Objects.Condition := '`Group`="' + Obj.Properties.Values['Id'] + '"';
           Objects.Load;