Changeset 13 for trunk/Forms

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.

Location:

trunk/Forms

Files:

• UFormRecord.lfm (modified) (4 diffs)
• UFormRecord.lrt (added)
• UFormRecords.lfm (modified) (3 diffs)
• UFormRecords.pas (modified) (1 diff)
• UFormTables.pas (modified) (2 diffs)

trunk/Forms/UFormRecord.lfm

@@ -1 +1 @@
 object FormRecord: TFormRecord
   Left = 639
-  Height = 694
-  Top = 174
-  Width = 859
+  Height = 649
+  Top = 223
+  Width = 858
   Caption = 'FormRecord'
-  ClientHeight = 694
-  ClientWidth = 859
+  ClientHeight = 649
+  ClientWidth = 858
   OnCreate = FormCreate
   OnDestroy = FormDestroy
@@ -14 +14 @@
   object Panel1: TPanel
     Left = 4
-    Height = 632
+    Height = 583
     Top = 4
-    Width = 851
+    Width = 850
     Align = alTop
+    Anchors = [akTop, akLeft, akRight, akBottom]
     BorderSpacing.Around = 4
     BevelOuter = bvNone
@@ -23 +24 @@
   end
   object ButtonOk: TButton
-    Left = 760
+    Left = 759
     Height = 25
-    Top = 648
+    Top = 603
     Width = 75
     Anchors = [akRight, akBottom]
@@ -33 +34 @@
   end
   object ButtonCancel: TButton
-    Left = 649
+    Left = 648
     Height = 27
-    Top = 646
+    Top = 601
     Width = 72
     Anchors = [akRight, akBottom]

trunk/Forms/UFormRecords.lfm

@@ -1 +1 @@
 object FormRecords: TFormRecords
   Left = 621
-  Height = 433
-  Top = 424
-  Width = 859
+  Height = 549
+  Top = 308
+  Width = 897
   Caption = 'Records'
-  ClientHeight = 433
-  ClientWidth = 859
+  ClientHeight = 549
+  ClientWidth = 897
   OnShow = FormShow
   Position = poMainFormCenter
@@ -12 +12 @@
   object ListView1: TListView
     Left = 4
-    Height = 389
+    Height = 505
     Top = 4
-    Width = 851
+    Width = 889
     Align = alClient
     BorderSpacing.Around = 4
@@ -39 +39 @@
     Left = 0
     Height = 36
-    Top = 397
-    Width = 859
+    Top = 513
+    Width = 897
     Align = alBottom
     ButtonHeight = 32

trunk/Forms/UFormRecords.pas

@@ -147 +147 @@
   NewColumn: TListColumn;
 begin
+  Table.LoadRecords;
   ListView1.Columns.Clear;
   for I := 0 to Table.Fields.Count - 1 do begin

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;