Changeset 13 for trunk/Forms/UFormTables.pas

Timestamp:

Mar 17, 2015, 12:09:11 AM (9 years ago)

Author:

chronos

Message:

• Modified: Now records are loaded from SQL database using SQL query. The query is parsed also by XML database client to load records from XML file.
• Added: Packages Network and Synapse.

File:

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

trunk/Forms/UFormTables.pas

@@ -77 +77 @@
   with TTable(Database.Tables[Item.Index]) do begin
     Item.Caption := Caption;
-    Item.SubItems.Add(IntToStr(Records.Count));
+    Item.SubItems.Add(IntToStr(RecordsCount));
     Item.Data := Database.Tables[Item.Index];
   end
@@ -215 +215 @@
 
 procedure TFormTables.ReloadList;
-begin
+var
+  I: Integer;
+begin
+  for I := 0 to Database.Tables.Count - 1 do
+    TTable(Database.Tables[I]).LoadRecordsCount;
   if Assigned(Database) then begin
     ListView1.Items.Count := Database.Tables.Count;