Changeset 24 for trunk/Forms/UFormFields.pas

Timestamp:

Mar 26, 2018, 11:37:46 PM (6 years ago)

Author:

chronos

Message:

• Modified: Improved handling of SQL commands by XML backend.

File:

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

trunk/Forms/UFormFields.pas

@@ -108 +108 @@
     if FormField.ShowModal = mrOk then begin
       FormField.Save(TField(ListView1.Selected.Data));
-      Fields.Table.DbClient.Query('UPDATE ModelField SET TextBefore = ' + TField(ListView1.Selected.Data).TextBefore +
-        ' WHERE Name = ' + TField(ListView1.Selected.Data).Name);
+      Fields.Table.DbClient.Query('UPDATE ModelField SET Caption = ' + TField(ListView1.Selected.Data).TextBefore +
+        ' , DataType = ' + TField(ListView1.Selected.Data).DataType.Name +
+        ' WHERE Model = ' + Fields.Table.Name +' , Name = ' + TField(ListView1.Selected.Data).Name);
       ReloadList;
     end;
@@ -123 +124 @@
 begin
   if Assigned(ListView1.Selected) then begin
-    Fields.Table.DbClient.Query('DELETE FROM ModelField WHERE Name = ' + TField(ListView1.Selected.Data).Name);
+    Fields.Table.DbClient.Query('DELETE FROM ModelField WHERE Model = ' + Fields.Table.Name +
+      ' , Name = ' + TField(ListView1.Selected.Data).Name);
     ReloadList;
     UpdateInterface;