ViewVC Help

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

root/public/ibx/branches/journaling/design/ibsqleditor.pas

Comparing ibx/trunk/design/ibsqleditor.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 40 | Line 40 | type
40		TIBSQLEditorForm = class(TForm)
41		Button1: TButton;
42		Button2: TButton;
43	+	GenerateParams: TCheckBox;
44		GenerateBtn: TButton;
45		IBTransaction1: TIBTransaction;
46		Label5: TLabel;
#	Line 134 | Line 135 | begin
135		try
136		SetDatabase(DataSet.Database);
137		SQLText.Lines.Assign(DataSet.SQL);
138	+	GenerateParams.Checked := DataSet.GenerateParamNames;
139		Result := ShowModal = mrOK;
140		if Result then
141	<	DataSet.SQL.Assign(SQLText.Lines)
141	>	begin
142	>	DataSet.SQL.Assign(SQLText.Lines);
143	>	DataSet.GenerateParamNames := GenerateParams.Checked
144	>	end;
145		finally
146		Free
147		end;
#	Line 235 | Line 240 | end;
240
241		procedure TIBSQLEditorForm.TestBtnClick(Sender: TObject);
242		begin
243	<	FIBSystemTables.TestSQL(SQLText.Text);
243	>	FIBSystemTables.TestSQL(SQLText.Text,GenerateParams.Checked);
244		end;
245
246		procedure TIBSQLEditorForm.DeleteTableNamesCloseUp(Sender: TObject);
#	Line 384 | Line 389 | begin
389		end;
390
391		end.
392	<
392	>

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines