Changeset 23 for trunk/Forms/UFormTables.pas

Timestamp:

Mar 26, 2018, 12:40:10 AM (7 years ago)

Author:

chronos

Message:

• Modified: More changes to implement SQL over XML file.

File:

• trunk/Forms/UFormTables.pas (modified) (3 diffs)

trunk/Forms/UFormTables.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  ActnList, Menus, UDatabase;
+  ActnList, Menus, UDatabase, SpecializedDictionary;
 
 type
@@ -212 +212 @@
 procedure TFormTables.FormCreate(Sender: TObject);
 begin
-  FTables := TTables.Create(False);
+  FTables := TTables.Create;
 end;
 
@@ -232 +232 @@
 procedure TFormTables.ReloadList;
 var
+  DbRows: TDbRows;
+  NewTable: TTable;
   I: Integer;
 begin
-  if Assigned(DbClient) then DbClient.LoadTables(Tables)
-    else Tables.Clear;
+  Tables.Clear;
+  if Assigned(DbClient) then begin
+    DbRows := TDbRows.Create;
+    DbClient.Query('SELECT * FROM Model', DbRows);
+    for I := 0 to DbRows.Count - 1 do begin
+      NewTable := Tables.AddNew(TDictionaryStringString(DbRows[I]).Values['Name']);
+      NewTable.Caption := TDictionaryStringString(DbRows[I]).Values['Caption'];
+    end;
+    DbRows.Free;
+  end;
+
   for I := 0 to Tables.Count - 1 do
     TTable(Tables[I]).LoadRecordsCount;