Changeset 24 for trunk/Forms

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk/Forms

Files:

• UFormFields.pas (modified) (2 diffs)
• UFormTables.pas (modified) (1 diff)

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;

trunk/Forms/UFormTables.pas

@@ -131 +131 @@
     if FormTable.ShowModal = mrOk then begin
       FormTable.Save(TTable(ListView1.Selected.Data));
-      DbClient.Query('UPDATE Model SET Name = ' + TTable(ListView1.Selected.Data).Name);
+      DbClient.Query('UPDATE Model SET Caption = ' + TTable(ListView1.Selected.Data).Caption + ' WHERE Name = ' + TTable(ListView1.Selected.Data).Name);
       ReloadList;
     end;