ViewVC Help

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

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

Comparing ibx/trunk/design/ibrefreshsqleditor.pas (file contents):
Revision 80 by tony, Mon Jan 1 11:31:07 2018 UTC vs.
Revision 107 by tony, Thu Jan 18 14:37:40 2018 UTC

#	Line 32 | Line 32 | interface
32
33		uses
34		Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
35	<	ibselectsqleditor, IBDatabase, IBCustomDataset;
35	>	ibselectsqleditor, IBDatabase, IBCustomDataset, IBSQLEditFrame;
36
37		type
38
#	Line 73 | Line 73 | begin
73		GenerateParams.Checked := DataSet.GenerateParamNames;
74		end;
75		IBSQLEditFrame1.SQLText.Lines.Assign(SelectSQL);
76	+	IBSQLEditFrame1.SelectProcs := true;
77		Result := ShowModal = mrOK;
78		if Result then
79		begin
#	Line 89 | Line 90 | end;
90
91		procedure TIBRefreshSQLEditorForm.GenerateBtnClick(Sender: TObject);
92		begin
93	<	IBSQLEditFrame1.GenerateRefreshSQL(QuoteFields.Checked);
93	>	if PageControl.ActivePage = ExecutePage then
94	>	IBSQLEditFrame1.GenerateExecuteSQL(QuoteFields.Checked)
95	>	else
96	>	IBSQLEditFrame1.GenerateRefreshSQL(QuoteFields.Checked);
97		end;
98
99

Diff Legend

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