Changeset 54 for trunk/Client/Forms/UFormImportStructure.pas

Timestamp:

Oct 12, 2012, 11:43:43 AM (12 years ago)

Author:

chronos

Message:

• Added: ChronisAppServer base project.
• Modified: Changes in client virtual database layer handling.

File:

• trunk/Client/Forms/UFormImportStructure.pas (modified) (2 diffs)

trunk/Client/Forms/UFormImportStructure.pas

@@ -126 +126 @@
 
     SQLTables.Clear;
-    GroupId := Core.System.AddGroup(Database.Database, 0);
+    GroupId := Core.System.AddMenu(Database.Database, 0);
     Database.Query(DbRows, 'SHOW TABLES');
     for T := 0 to DbRows.Count - 1 do begin
@@ -133 +133 @@
       TableName := DbRows[T].Items[0].Value;
       Memo1.Lines.Add('Create object "' + TableName + '"');
-      NewTable.Table.Add('ObjId', IntToStr(Core.System.AddObject(TableName, TableName, Database.Database, GroupId)));
+      NewTable.Table.Add('ObjId', IntToStr(Core.System.AddObject(TableName, TableName, Database.Database)));
     end;