Changeset 23 for trunk/Forms/UFormFields.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/UFormFields.pas (modified) (2 diffs)

trunk/Forms/UFormFields.pas

@@ -91 +91 @@
   if FormField.ShowModal = mrOk then begin
     FormField.Save(NewField);
-    Fields.Table.DbClient.Query('INSERT INTO ModelField ( Name , TextBefore) VALUES ( ' +
-      NewField.Name + ' , ' + NewField.TextBefore + ' )');
+    Fields.Table.DbClient.Query('INSERT INTO ModelField ( Name , Caption , Model , DataType ) VALUES ( ' +
+      NewField.Name + ' , ' + NewField.TextBefore + ' , ' + TableName + ' , ' + NewField.DataType.Name + ' )');
     ReloadList;
   end else NewField.Free;
@@ -160 +160 @@
   I: Integer;
 begin
+  Fields.Clear;
   DbRows := TDbRows.Create;
   Fields.Table.DbClient.Query('SELECT * FROM ModelField WHERE Model = ' + Fields.Table.Name, DbRows);
   for I := 0 to DbRows.Count - 1 do begin
-    NewField := TField.Create;
-    NewField.Table := Fields.Table;
-    Fields.Add(NewField);
+    NewField := Fields.AddNew(DbRows[I].Values['Name'], Fields.Table.DbClient.DbManager.DataTypes.SearchByName(DbRows[I].Values['DataType']));
+    NewField.TextBefore := DbRows[I].Values['Caption'];
   end;
   DbRows.Free;