ViewVC Help

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

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

Comparing ibx/trunk/design/ibselectsqleditor.lfm (file contents):
Revision 79 by tony, Tue Oct 3 14:08:11 2017 UTC vs.
Revision 80 by tony, Mon Jan 1 11:31:07 2018 UTC

#	Line 1 | Line 1
1		object IBSelectSQLEditorForm: TIBSelectSQLEditorForm
2	<	Left = 527
2	>	Left = 354
3		Height = 437
4	<	Top = 460
4	>	Top = 244
5		Width = 747
6		ActiveControl = PageControl
7		Caption = 'Select SQL Editor'
#	Line 9 | Line 9 | object IBSelectSQLEditorForm: TIBSelectS
9		ClientWidth = 747
10		OnShow = FormShow
11		Position = poScreenCenter
12	<	LCLVersion = '1.8.0.4'
12	>	LCLVersion = '1.8.1.0'
13		object Label3: TLabel
14	<	Left = 279
14	>	Left = 278
15		Height = 14
16	<	Top = 16
16	>	Top = 8
17		Width = 24
18		Caption = 'SQL'
19		ParentColor = False
20		end
21	–	object SQLText: TMemo
22	–	Left = 279
23	–	Height = 327
24	–	Top = 36
25	–	Width = 437
26	–	Anchors = [akTop, akLeft, akRight, akBottom]
27	–	ScrollBars = ssAutoBoth
28	–	TabOrder = 0
29	–	end
21		object Button1: TButton
22		Left = 550
23		Height = 30
#	Line 36 | Line 27 | object IBSelectSQLEditorForm: TIBSelectS
27		Caption = 'OK'
28		Default = True
29		ModalResult = 1
30	<	TabOrder = 1
30	>	TabOrder = 0
31		end
32		object Button2: TButton
33		Left = 638
#	Line 47 | Line 38 | object IBSelectSQLEditorForm: TIBSelectS
38		Cancel = True
39		Caption = 'Cancel'
40		ModalResult = 2
41	<	TabOrder = 2
41	>	TabOrder = 1
42		end
43		object GenerateBtn: TButton
44		Left = 278
#	Line 57 | Line 48 | object IBSelectSQLEditorForm: TIBSelectS
48		Anchors = [akRight, akBottom]
49		Caption = 'Generate SQL'
50		OnClick = GenerateBtnClick
51	<	TabOrder = 3
51	>	TabOrder = 2
52		end
53		object TestBtn: TButton
54		Left = 414
#	Line 67 | Line 58 | object IBSelectSQLEditorForm: TIBSelectS
58		Anchors = [akRight, akBottom]
59		Caption = 'Test'
60		OnClick = TestBtnClick
61	<	TabOrder = 4
61	>	TabOrder = 3
62		end
63		object QuoteFields: TCheckBox
64		Left = 24
#	Line 75 | Line 66 | object IBSelectSQLEditorForm: TIBSelectS
66		Top = 400
67		Width = 125
68		Caption = '&Quote Identifiers'
69	<	TabOrder = 5
69	>	TabOrder = 4
70		end
71		object PageControl: TPageControl
72		Left = 24
73	<	Height = 335
74	<	Top = 28
73	>	Height = 355
74	>	Top = 8
75		Width = 232
76		ActivePage = SelectPage
77		TabIndex = 0
78	<	TabOrder = 6
78	>	TabOrder = 5
79		object SelectPage: TTabSheet
80		Caption = 'Tables'
81	<	ClientHeight = 303
81	>	ClientHeight = 323
82		ClientWidth = 226
83		OnShow = SelectPageShow
84		object Label1: TLabel
#	Line 99 | Line 90 | object IBSelectSQLEditorForm: TIBSelectS
90		ParentColor = False
91		end
92		object Label2: TLabel
93	<	Left = 7
93	>	Left = 8
94		Height = 14
95	<	Top = 56
95	>	Top = 74
96		Width = 33
97		Caption = 'Fields'
98		ParentColor = False
#	Line 109 | Line 100 | object IBSelectSQLEditorForm: TIBSelectS
100		object Label4: TLabel
101		Left = 7
102		Height = 14
103	<	Top = 208
103	>	Top = 224
104		Width = 77
105		Caption = 'Primary Keys'
106		ParentColor = False
107		end
108	<	object TableNamesCombo: TComboBox
109	<	Left = 6
108	>	object SelectTableNames: TIBLookupComboEditBox
109	>	Left = 7
110		Height = 27
111	<	Top = 20
112	<	Width = 201
113	<	AutoComplete = True
111	>	Top = 21
112	>	Width = 209
113	>	KeyField = 'RDB$RELATION_ID'
114	>	ListField = 'RDB$RELATION_NAME'
115	>	ListFieldIndex = 0
116	>	LookupCache = False
117	>	OnDblClick = SelectTableNamesDblClick
118	>	ScrollListDataset = True
119	>	TabOrder = 0
120	>	AutoInsert = False
121		AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
122		ItemHeight = 0
125	–	OnCloseUp = TableNamesComboCloseUp
126	–	TabOrder = 0
123		end
124	<	object FieldList: TListBox
124	>	object FieldNamesGrid: TIBDynamicGrid
125		Left = 7
126	<	Height = 123
127	<	Hint = 'Select Fields to include in Select Statements, or leave unselected to select all'
128	<	Top = 77
129	<	Width = 204
130	<	ItemHeight = 0
131	<	MultiSelect = True
132	<	OnDblClick = FieldListDblClick
133	<	ParentShowHint = False
134	<	ScrollWidth = 202
135	<	ShowHint = True
126	>	Height = 104
127	>	Top = 88
128	>	Width = 209
129	>	Color = clWindow
130	>	Columns = <
131	>	item
132	>	ButtonStyle = cbsCheckboxColumn
133	>	Title.Caption = 'SELECTED'
134	>	Width = 30
135	>	FieldName = 'SELECTED'
136	>	AutoSizeColumn = False
137	>	InitialSortColumn = False
138	>	DBLookupProperties.ItemHeight = 0
139	>	DBLookupProperties.ItemWidth = 0
140	>	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
141	>	end
142	>	item
143	>	Title.Caption = 'COLUMNNAME'
144	>	Width = 64
145	>	FieldName = 'COLUMNNAME'
146	>	AutoSizeColumn = True
147	>	InitialSortColumn = False
148	>	DBLookupProperties.ItemHeight = 0
149	>	DBLookupProperties.ItemWidth = 0
150	>	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
151	>	end>
152	>	DataSource = IBSQLEditFrame.FieldsSource
153	>	FixedCols = 0
154	>	Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
155	>	Scrollbars = ssAutoVertical
156		TabOrder = 1
157	<	TopIndex = -1
157	>	OnDblClick = FieldNamesGridDblClick
158	>	ExpandEditorPanelBelowRow = False
159	>	Descending = False
160	>	EditorBorderStyle = bsSingle
161	>	DefaultPositionAtEnd = False
162	>	end
163	>	object PrimaryKeysGrid: TIBDynamicGrid
164	>	Left = 7
165	>	Height = 56
166	>	Top = 240
167	>	Width = 209
168	>	Color = clWindow
169	>	Columns = <
170	>	item
171	>	ButtonStyle = cbsCheckboxColumn
172	>	Title.Caption = 'SELECTED'
173	>	Width = 30
174	>	FieldName = 'SELECTED'
175	>	AutoSizeColumn = False
176	>	InitialSortColumn = False
177	>	DBLookupProperties.ItemHeight = 0
178	>	DBLookupProperties.ItemWidth = 0
179	>	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
180	>	end
181	>	item
182	>	Title.Caption = 'COLUMNNAME'
183	>	Width = 64
184	>	FieldName = 'COLUMNNAME'
185	>	AutoSizeColumn = True
186	>	InitialSortColumn = False
187	>	DBLookupProperties.ItemHeight = 0
188	>	DBLookupProperties.ItemWidth = 0
189	>	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
190	>	end>
191	>	FixedCols = 0
192	>	Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
193	>	Scrollbars = ssAutoVertical
194	>	TabOrder = 2
195	>	OnDblClick = PrimaryKeysGridDblClick
196	>	ExpandEditorPanelBelowRow = False
197	>	Descending = False
198	>	EditorBorderStyle = bsSingle
199	>	DefaultPositionAtEnd = False
200		end
201	<	object PrimaryKeyList: TListBox
201	>	object SelectSelectAll: TCheckBox
202		Left = 7
203	<	Height = 64
204	<	Top = 224
205	<	Width = 200
206	<	ItemHeight = 0
207	<	OnDblClick = PrimaryKeyListDblClick
208	<	ScrollWidth = 198
209	<	TabOrder = 2
210	<	TopIndex = -1
203	>	Height = 22
204	>	Top = 192
205	>	Width = 134
206	>	Caption = 'Select/Deselect All'
207	>	OnChange = SelectSelectAllChange
208	>	TabOrder = 3
209	>	end
210	>	object IncludeSysTables: TCheckBox
211	>	Left = 8
212	>	Height = 22
213	>	Top = 48
214	>	Width = 158
215	>	Caption = 'Include System Tables'
216	>	OnChange = IncludeSysTablesChange
217	>	TabOrder = 4
218		end
219		end
220		object ExecutePage: TTabSheet
221		Caption = 'Procedures'
222	<	ClientHeight = 303
222	>	ClientHeight = 323
223		ClientWidth = 226
224		OnShow = ExecutePageShow
225		object Label16: TLabel
226		Left = 7
227	<	Height = 15
227	>	Height = 14
228		Top = 3
229		Width = 100
230		Caption = 'Procedure Name'
#	Line 167 | Line 232 | object IBSelectSQLEditorForm: TIBSelectS
232		end
233		object Label17: TLabel
234		Left = 7
235	<	Height = 15
236	<	Top = 60
235	>	Height = 14
236	>	Top = 58
237		Width = 104
238		Caption = 'Input Parameters'
239		ParentColor = False
240		end
241		object Label18: TLabel
242		Left = 8
243	<	Height = 15
244	<	Top = 172
243	>	Height = 14
244	>	Top = 176
245		Width = 114
246		Caption = 'Output Parameters'
247		ParentColor = False
248		end
249	<	object ProcedureNames: TComboBox
249	>	object SelectProcedure: TLabel
250	>	Left = 7
251	>	Height = 13
252	>	Top = 306
253	>	Width = 126
254	>	Anchors = [akLeft, akBottom]
255	>	Caption = 'Is ''Select Procedure'''
256	>	Font.Height = -11
257	>	Font.Style = [fsBold]
258	>	ParentColor = False
259	>	ParentFont = False
260	>	Visible = False
261	>	end
262	>	object ProcedureNames: TIBLookupComboEditBox
263		Left = 7
264		Height = 27
265	<	Top = 20
265	>	Top = 17
266		Width = 201
267	<	ItemHeight = 0
268	<	OnCloseUp = ProcedureNamesCloseUp
269	<	ParentColor = True
267	>	KeyField = 'RDB$PROCEDURE_NAME'
268	>	ListField = 'RDB$PROCEDURE_NAME'
269	>	ListFieldIndex = 0
270	>	LookupCache = False
271	>	OnDblClick = ProcedureNamesDblClick
272	>	ScrollListDataset = True
273		TabOrder = 0
274	+	AutoInsert = False
275	+	AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
276	+	ItemHeight = 0
277		end
278	<	object ProcInputList: TListBox
278	>	object InputProcGrid: TIBDynamicGrid
279		Left = 7
280	<	Height = 80
281	<	Top = 81
282	<	Width = 198
283	<	IntegralHeight = True
284	<	ItemHeight = 0
285	<	ScrollWidth = 196
280	>	Height = 96
281	>	Top = 72
282	>	Width = 201
283	>	Color = clWindow
284	>	Columns = <
285	>	item
286	>	ButtonStyle = cbsCheckboxColumn
287	>	Title.Caption = 'SELECTED'
288	>	Width = 30
289	>	FieldName = 'SELECTED'
290	>	AutoSizeColumn = False
291	>	InitialSortColumn = False
292	>	DBLookupProperties.ItemHeight = 0
293	>	DBLookupProperties.ItemWidth = 0
294	>	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
295	>	end
296	>	item
297	>	Title.Caption = 'COLUMNNAME'
298	>	Width = 64
299	>	FieldName = 'COLUMNNAME'
300	>	AutoSizeColumn = True
301	>	InitialSortColumn = False
302	>	DBLookupProperties.ItemHeight = 0
303	>	DBLookupProperties.ItemWidth = 0
304	>	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
305	>	end>
306	>	FixedCols = 0
307	>	Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
308	>	Scrollbars = ssAutoVertical
309		TabOrder = 1
310	<	TopIndex = -1
310	>	OnDblClick = InputProcGridDblClick
311	>	ExpandEditorPanelBelowRow = False
312	>	Descending = False
313	>	EditorBorderStyle = bsSingle
314	>	DefaultPositionAtEnd = False
315		end
316	<	object ProcOutputList: TListBox
316	>	object OutputProcGrid: TIBDynamicGrid
317		Left = 7
318	<	Height = 80
318	>	Height = 104
319		Top = 192
320	<	Width = 198
321	<	IntegralHeight = True
322	<	ItemHeight = 0
323	<	ScrollWidth = 196
320	>	Width = 201
321	>	Color = clWindow
322	>	Columns = <
323	>	item
324	>	ButtonStyle = cbsCheckboxColumn
325	>	Title.Caption = 'SELECTED'
326	>	Width = 30
327	>	FieldName = 'SELECTED'
328	>	AutoSizeColumn = False
329	>	InitialSortColumn = False
330	>	DBLookupProperties.ItemHeight = 0
331	>	DBLookupProperties.ItemWidth = 0
332	>	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
333	>	end
334	>	item
335	>	Title.Caption = 'COLUMNNAME'
336	>	Width = 64
337	>	FieldName = 'COLUMNNAME'
338	>	AutoSizeColumn = True
339	>	InitialSortColumn = False
340	>	DBLookupProperties.ItemHeight = 0
341	>	DBLookupProperties.ItemWidth = 0
342	>	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
343	>	end>
344	>	FixedCols = 0
345	>	Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
346	>	Scrollbars = ssAutoVertical
347		TabOrder = 2
348	<	TopIndex = -1
349	<	end
350	<	object SelectProcedure: TLabel
351	<	Left = 7
352	<	Height = 14
219	<	Top = 285
220	<	Width = 126
221	<	Anchors = [akLeft, akBottom]
222	<	Caption = 'Is ''Select Procedure'''
223	<	Font.Height = -11
224	<	Font.Style = [fsBold]
225	<	ParentColor = False
226	<	ParentFont = False
227	<	Visible = False
348	>	OnDblClick = OutputProcGridDblClick
349	>	ExpandEditorPanelBelowRow = False
350	>	Descending = False
351	>	EditorBorderStyle = bsSingle
352	>	DefaultPositionAtEnd = False
353		end
354		end
355		end
#	Line 234 | Line 359 | object IBSelectSQLEditorForm: TIBSelectS
359		Top = 376
360		Width = 171
361		Caption = 'Allow DSQL Placeholders'
362	<	TabOrder = 7
362	>	TabOrder = 6
363		end
364	<	object IBTransaction1: TIBTransaction
365	<	Active = False
366	<	left = 212
367	<	top = 390
364	>	inline IBSQLEditFrame1: TIBSQLEditFrame
365	>	Left = 282
366	>	Height = 339
367	>	Top = 24
368	>	Width = 448
369	>	Anchors = [akTop, akLeft, akRight, akBottom]
370	>	ClientHeight = 339
371	>	ClientWidth = 448
372	>	TabOrder = 7
373	>	DesignLeft = 1974
374	>	DesignTop = 200
375	>	inherited SQLText: TSynEdit
376	>	Height = 313
377	>	Width = 448
378	>	end
379	>	inherited ToolBar1: TToolBar
380	>	Width = 448
381	>	end
382	>	inherited FieldNameList: TIBQuery
383	>	ParamData = <
384	>	item
385	>	DataType = ftUnknown
386	>	Name = 'RDB$RELATION_NAME'
387	>	ParamType = ptInput
388	>	end>
389	>	end
390	>	inherited PrimaryKeys: TIBQuery
391	>	ParamData = <
392	>	item
393	>	DataType = ftUnknown
394	>	Name = 'RDB$RELATION_NAME'
395	>	ParamType = ptInput
396	>	end>
397	>	end
398	>	inherited UserProcedures: TIBQuery
399	>	AfterScroll = UserProceduresAfterScroll
400	>	end
401	>	inherited ProcInputParams: TIBQuery
402	>	ParamData = <
403	>	item
404	>	DataType = ftUnknown
405	>	Name = 'RDB$PROCEDURE_NAME'
406	>	ParamType = ptInput
407	>	end>
408	>	end
409	>	inherited ProcOutputParams: TIBQuery
410	>	ParamData = <
411	>	item
412	>	DataType = ftUnknown
413	>	Name = 'RDB$PROCEDURE_NAME'
414	>	ParamType = ptInput
415	>	end>
416	>	end
417	>	inherited SQLTransaction: TIBTransaction
418	>	Params.Strings = (      )
419	>	end
420		end
421		end

Diff Legend

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