ViewVC Help

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

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

Comparing ibx/trunk/design/ibdataseteditor.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 39 | Line 39 | type
39		{ TIBDataSetEditorForm }
40
41		TIBDataSetEditorForm = class(TForm)
42	+	GenerateParams: TCheckBox;
43		TestBtn: TButton;
44		CancelButton: TButton;
45		FieldsPage: TTabSheet;
#	Line 108 | Line 109 | begin
109		with TIBDataSetEditorForm.Create(Application) do
110		try
111		SetDataSet(DataSet);
112	<	Result := ShowModal = mrOK
112	>	if assigned(DataSet) then
113	>	GenerateParams.Checked := DataSet.GenerateParamNames;
114	>	Result := ShowModal = mrOK;
115	>	if Result and assigned(DataSet) then
116	>	DataSet.GenerateParamNames := GenerateParams.Checked
117		finally
118		Free
119		end;
#	Line 161 | Line 166 | end;
166		procedure TIBDataSetEditorForm.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 TIBDataSetEditorForm.GenerateButtonClick(Sender: TObject);
#	Line 285 | Line 290 | begin
290		end;
291
292		end.
293	<
293	>

Diff Legend

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