ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibselectsqleditor.lfm
Revision: 141
Committed: Thu Jan 25 14:18:12 2018 UTC (6 years, 10 months ago) by tony
File size: 12376 byte(s)
Log Message:
Fixes Merged

File Contents

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