Changeset 29 for trunk/Forms/UFormRecords.pas

Timestamp:

Sep 10, 2022, 10:54:56 PM (20 months ago)

Author:

chronos

Message:

• Fixed: Load table fields in records list and record edit form.
• Fixed: Record add needs to insert new row into database.

File:

• trunk/Forms/UFormRecords.pas (modified) (5 diffs)

trunk/Forms/UFormRecords.pas

@@ -60 +60 @@
     ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
   Caption := STable + ' - ' + Table.Caption;
+  Table.Fields.Load;
   ReloadList;
 end;
@@ -68 +69 @@
 begin
   if (Item.Index >= 0) and (Item.Index < Table.Records.Count) then
-  with TRecord(Table.Records[Item.Index]) do begin
+  with Table.Records[Item.Index] do begin
     for I := 0 to Table.Fields.Count - 1 do begin
-      if I = 0 then Item.Caption := TValue(Values[0]).GetString
-        else Item.SubItems.Add(TValue(Values[I]).GetString);
+      if I = 0 then Item.Caption := Values[0].GetString
+        else Item.SubItems.Add(Values[I].GetString);
     end;
     Item.Data := Table.Records[Item.Index];
@@ -116 +117 @@
   I: Integer;
   NewValue: TValue;
+  Columns: string;
+  Values: string;
 begin
   NewRecord := TRecord.Create;
-  NewRecord.Parent := Table;
+  NewRecord.Table := Table;
   NewRecord.Values.Count := Table.Fields.Count;
   for I := 0 to Table.Fields.Count - 1 do begin
-    ValueClass := TField(Table.Fields[I]).GetValueClass;
+    ValueClass := Table.Fields[I].GetValueClass;
     NewValue := ValueClass.Create;
     NewRecord.Values[I] := NewValue;
@@ -132 +135 @@
     if ShowModal = mrOk then begin
       Save(NewRecord);
-      Table.Records.Add(NewRecord);
+
+      Values := '';
+      Columns := '';
+      for I := 0 to Table.Fields.Count - 1 do begin
+        Columns := Columns + Table.Fields[I].Name;
+        Values := Values + '"' + NewRecord.Values[I].GetString + '"';
+        if I < Table.Fields.Count - 1 then begin
+          Columns := Columns + ' , ';
+          Values := Values + ' , ';
+        end;
+      end;
+      Table.DbClient.Query('INSERT INTO ' + Table.Name + ' ( ' + Columns + ' )' +
+        ' VALUES ( ' + Values + ' )');
+
+      NewRecord.Free;
       ReloadList;
     end else NewRecord.Free;
@@ -150 +167 @@
   I: Integer;
 begin
-  Table.LoadRecords;
+  Table.Records.Load;
 
   ListViewRecords.Columns.BeginUpdate;
-  while ListViewRecords.Columns.Count > Table.Fields.Count do
-    ListViewRecords.Columns[ListViewRecords.ColumnCount - 1].Free;
-  while ListViewRecords.Columns.Count < Table.Fields.Count do
-    ListViewRecords.Columns.Add;
-  for I := 0 to Table.Fields.Count - 1 do begin
-    ListViewRecords.Columns[I].Caption := TField(Table.Fields[I]).TextBefore;
-    ListViewRecords.Columns[I].Width := 200;
+  try
+    while ListViewRecords.Columns.Count > Table.Fields.Count do
+      ListViewRecords.Columns[ListViewRecords.ColumnCount - 1].Free;
+    while ListViewRecords.Columns.Count < Table.Fields.Count do
+      ListViewRecords.Columns.Add;
+    for I := 0 to Table.Fields.Count - 1 do begin
+      ListViewRecords.Columns[I].Caption := Table.Fields[I].TextBefore;
+      ListViewRecords.Columns[I].Width := 200;
+    end;
+  finally
+    ListViewRecords.Columns.EndUpdate;
   end;
-  ListViewRecords.Columns.EndUpdate;
 
   ListViewRecords.Items.Count := Table.Records.Count;