← Back to branch summary

~chronoscz/mydata/trunk

« back to all changes in this revision

Viewing changes to Forms/UFormFields.pas

  • Committer: chronos
  • Date: 2018-03-26 21:37:46 UTC
  • Revision ID: svn-v4:dfc1a4cf-ca09-4be6-80b8-3cecc5d1c945:trunk:24
* Modified: Improved handling of SQL commands by XML backend.

Show diffs side-by-side

added added

removed removed

Lines of Context:
Forms/UFormFields.pas
107
107
    FormField.Load(TField(ListView1.Selected.Data));
108
108
    if FormField.ShowModal = mrOk then begin
109
109
      FormField.Save(TField(ListView1.Selected.Data));
110
 
      Fields.Table.DbClient.Query('UPDATE ModelField SET TextBefore = ' + TField(ListView1.Selected.Data).TextBefore +
111
 
        ' WHERE Name = ' + TField(ListView1.Selected.Data).Name);
 
110
      Fields.Table.DbClient.Query('UPDATE ModelField SET Caption = ' + TField(ListView1.Selected.Data).TextBefore +
 
111
        ' , DataType = ' + TField(ListView1.Selected.Data).DataType.Name +
 
112
        ' WHERE Model = ' + Fields.Table.Name +' , Name = ' + TField(ListView1.Selected.Data).Name);
112
113
      ReloadList;
113
114
    end;
114
115
  end;
122
123
procedure TFormFields.ARemoveExecute(Sender: TObject);
123
124
begin
124
125
  if Assigned(ListView1.Selected) then begin
125
 
    Fields.Table.DbClient.Query('DELETE FROM ModelField WHERE Name = ' + TField(ListView1.Selected.Data).Name);
 
126
    Fields.Table.DbClient.Query('DELETE FROM ModelField WHERE Model = ' + Fields.Table.Name +
 
127
      ' , Name = ' + TField(ListView1.Selected.Data).Name);
126
128
    ReloadList;
127
129
    UpdateInterface;
128
130
  end;