Changeset 29 for trunk/Forms/UFormFields.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/UFormFields.pas (modified) (1 diff)

trunk/Forms/UFormFields.pas

@@ -160 +160 @@
 
 procedure TFormFields.ReloadList;
-var
-  DbRows: TDbRows;
-  NewField: TField;
-  I: Integer;
 begin
-  Fields.Clear;
-  DbRows := TDbRows.Create;
-  try
-    Fields.Table.DbClient.Query('SELECT * FROM ModelField WHERE Model = ' + Fields.Table.Name, DbRows);
-    for I := 0 to DbRows.Count - 1 do begin
-      NewField := Fields.AddNew(DbRows[I].Items['Name'],
-        Fields.Table.DbClient.DbManager.DataTypes.SearchByName(DbRows[I].Items['DataType']));
-      NewField.TextBefore := DbRows[I].Items['Caption'];
-    end;
-  finally
-    DbRows.Free;
-  end;
+  Fields.Load;
 
   ListView1.Items.Count := Fields.Count;