ViewVC Help

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

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

Comparing ibx/trunk/design/ibselectsqleditor.pas (file contents):
Revision 105 by tony, Thu Jan 18 14:37:32 2018 UTC vs.
Revision 141 by tony, Thu Jan 25 14:18:12 2018 UTC

#	Line 42 | Line 42 | type
42		TIBSelectSQLEditorForm = class(TForm)
43		Button1: TButton;
44		Button2: TButton;
45	+	PackageNames: TIBLookupComboEditBox;
46		InputProcGrid: TIBDynamicGrid;
47	+	PackageNameLabel: TLabel;
48		OutputProcGrid: TIBDynamicGrid;
49		IncludeSysTables: TCheckBox;
50		GenerateBtn: TButton;
#	Line 51 | Line 53 | type
53		PrimaryKeysGrid: TIBDynamicGrid;
54		IBSQLEditFrame1: TIBSQLEditFrame;
55		ProcedureNames: TIBLookupComboEditBox;
54	–	SelectProcedure: TLabel;
56		SelectSelectAll: TCheckBox;
57		SelectTableNames: TIBLookupComboEditBox;
58		TestBtn: TButton;
#	Line 71 | Line 72 | type
72		procedure IncludeSysTablesChange(Sender: TObject);
73		procedure InputProcGridDblClick(Sender: TObject);
74		procedure OutputProcGridDblClick(Sender: TObject);
75	+	procedure PackageNamesDblClick(Sender: TObject);
76		procedure PrimaryKeysGridDblClick(Sender: TObject);
77		procedure ProcedureNamesDblClick(Sender: TObject);
78		procedure SelectSelectAllChange(Sender: TObject);
#	Line 81 | Line 83 | type
83		procedure FormShow(Sender: TObject);
84		procedure PrimaryKeyListDblClick(Sender: TObject);
85		procedure SelectPageShow(Sender: TObject);
84	–	procedure UserProceduresAfterScroll(DataSet: TDataSet);
86		private
87		{ private declarations }
88		procedure HandleUserTablesOpened(Sender: TObject);
#	Line 117 | Line 118 | begin
118		GenerateParams.Checked := DataSet.GenerateParamNames;
119		end;
120		IBSQLEditFrame1.SQLText.Lines.Assign(SelectSQL);
121	+	IBSQLEditFrame1.SelectProcs := true;
122		Result := ShowModal = mrOK;
123		if Result then
124		begin
#	Line 140 | Line 142 | begin
142		begin
143		try
144		SetSQLStatementType(IBSQLEditFrame1.SyncQueryBuilder);
145	+	IncludeSysTables.Checked := IBSQLEditFrame1.IncludeSystemTables;
146		except  end;
147		end;
148		end;
#	Line 155 | Line 158 | begin
158		IBSQLEditFrame1.UserTables.Active := true;
159		end;
160
158	–	procedure TIBSelectSQLEditorForm.UserProceduresAfterScroll(DataSet: TDataSet);
159	–	begin
160	–	SelectProcedure.Visible := DataSet.FieldByName('RDB$PROCEDURE_TYPE').AsInteger = 2;
161	–	end;
162	–
161		procedure TIBSelectSQLEditorForm.FieldListDblClick(Sender: TObject);
162		begin
163		IBSQLEditFrame1.InsertSelectedFieldName;
#	Line 193 | Line 191 | begin
191		IBSQLEditFrame1.InsertSelectedOutputParam;
192		end;
193
194	+	procedure TIBSelectSQLEditorForm.PackageNamesDblClick(Sender: TObject);
195	+	begin
196	+	IBSQLEditFrame1.InsertPackageName;
197	+	end;
198	+
199		procedure TIBSelectSQLEditorForm.PrimaryKeysGridDblClick(Sender: TObject);
200		begin
201		IBSQLEditFrame1.InsertSelectedPrimaryKey;
#	Line 221 | Line 224 | end;
224		procedure TIBSelectSQLEditorForm.ExecutePageShow(Sender: TObject);
225		begin
226		if (IBSQLEditFrame1.Database <> nil) and IBSQLEditFrame1.Database.Connected then
227	<	IBSQLEditFrame1.UserProcedures.Active := true;
227	>	IBSQLEditFrame1.OpenUserProcedures;
228		end;
229
230		procedure TIBSelectSQLEditorForm.HandleUserTablesOpened(Sender: TObject);
231		begin
232		SelectSelectAll.Checked := true;
230	–	SelectProcedure.Visible := false;
233		end;
234
235		procedure TIBSelectSQLEditorForm.Loaded;
#	Line 244 | Line 246 | begin
246		FieldNamesGrid.DataSource := IBSQLEditFrame1.FieldsSource;
247		if PrimaryKeysGrid <> nil then
248		PrimaryKeysGrid.DataSource := IBSQLEditFrame1.PrimaryKeySource;
249	+	if PackageNames <> nil then
250	+	PackageNames.ListSource := IBSQLEditFrame1.PackageNameSource;
251		if ProcedureNames <> nil then
252		ProcedureNames.ListSource := IBSQLEditFrame1.UserProcSource;
253		if InputProcGrid <> nil then

Diff Legend

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