ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/design/ibupdatesqleditor.pas

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