ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibupdatesqleditor.pas
(Generate patch)

Comparing ibx/trunk/design/ibupdatesqleditor.pas (file contents):
Revision 17 by tony, Sat Dec 28 19:22:24 2013 UTC vs.
Revision 19 by tony, Mon Jul 7 13:00:15 2014 UTC

# Line 38 | Line 38 | type
38    { TIBUpdateSQLEditorForm }
39  
40    TIBUpdateSQLEditorForm = class(TForm)
41 +    GenerateParams: TCheckBox;
42      TestBtn: TButton;
43      CancelButton: TButton;
44      FieldsPage: TTabSheet;
# Line 108 | Line 109 | begin
109    with TIBUpdateSQLEditorForm.Create(Application) do
110    try
111      SetUpdateObject(UpdateObject);
112 <    Result := ShowModal = mrOK
112 >    if assigned(UpdateObject.DataSet) then
113 >      GenerateParams.Checked := UpdateObject.DataSet.GenerateParamNames;
114 >    Result := ShowModal = mrOK;
115 >    if Result and assigned(UpdateObject.DataSet) then
116 >      UpdateObject.DataSet.GenerateParamNames := GenerateParams.Checked
117    finally
118      Free
119    end;
# Line 161 | Line 166 | end;
166   procedure TIBUpdateSQLEditorForm.TestBtnClick(Sender: TObject);
167   begin
168    if SQLMemo.Lines.Text <> '' then
169 <    FIBSystemTables.TestSQL(SQLMemo.Lines.Text);
169 >    FIBSystemTables.TestSQL(SQLMemo.Lines.Text,GenerateParams.Checked);
170   end;
171  
172   procedure TIBUpdateSQLEditorForm.GenerateBtnClick(Sender: TObject);
# Line 280 | Line 285 | end;
285  
286  
287   end.
288 <
288 >

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines