ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibselectsqleditor.lfm
Revision: 80
Committed: Mon Jan 1 11:31:07 2018 UTC (6 years, 11 months ago) by tony
File size: 12033 byte(s)
Log Message:
Fixes merged into public release

File Contents

# User Rev Content
1 tony 5 object IBSelectSQLEditorForm: TIBSelectSQLEditorForm
2 tony 80 Left = 354
3 tony 7 Height = 437
4 tony 80 Top = 244
5 tony 7 Width = 747
6     ActiveControl = PageControl
7 tony 5 Caption = 'Select SQL Editor'
8 tony 7 ClientHeight = 437
9     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 7 Top = 379
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 7 Top = 379
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 7 Top = 379
47     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 7 Top = 379
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 19 Top = 400
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 80 Height = 355
74     Top = 8
75 tony 7 Width = 232
76 tony 37 ActivePage = SelectPage
77     TabIndex = 0
78 tony 80 TabOrder = 5
79 tony 7 object SelectPage: TTabSheet
80     Caption = 'Tables'
81 tony 80 ClientHeight = 323
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 80 Top = 74
96 tony 19 Width = 33
97 tony 7 Caption = 'Fields'
98     ParentColor = False
99     end
100     object Label4: TLabel
101     Left = 7
102 tony 67 Height = 14
103 tony 80 Top = 224
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     TabOrder = 0
120     AutoInsert = False
121 tony 21 AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
122 tony 37 ItemHeight = 0
123 tony 7 end
124 tony 80 object FieldNamesGrid: TIBDynamicGrid
125 tony 7 Left = 7
126 tony 80 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 tony 7 TabOrder = 1
157 tony 80 OnDblClick = FieldNamesGridDblClick
158     ExpandEditorPanelBelowRow = False
159     Descending = False
160     EditorBorderStyle = bsSingle
161     DefaultPositionAtEnd = False
162 tony 7 end
163 tony 80 object PrimaryKeysGrid: TIBDynamicGrid
164 tony 7 Left = 7
165 tony 80 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 tony 7 TabOrder = 2
195 tony 80 OnDblClick = PrimaryKeysGridDblClick
196     ExpandEditorPanelBelowRow = False
197     Descending = False
198     EditorBorderStyle = bsSingle
199     DefaultPositionAtEnd = False
200 tony 7 end
201 tony 80 object SelectSelectAll: TCheckBox
202     Left = 7
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 tony 7 end
220     object ExecutePage: TTabSheet
221     Caption = 'Procedures'
222 tony 80 ClientHeight = 323
223 tony 37 ClientWidth = 226
224 tony 7 OnShow = ExecutePageShow
225     object Label16: TLabel
226     Left = 7
227 tony 80 Height = 14
228 tony 7 Top = 3
229 tony 37 Width = 100
230 tony 7 Caption = 'Procedure Name'
231     ParentColor = False
232     end
233     object Label17: TLabel
234     Left = 7
235 tony 80 Height = 14
236     Top = 58
237 tony 37 Width = 104
238 tony 7 Caption = 'Input Parameters'
239     ParentColor = False
240     end
241     object Label18: TLabel
242     Left = 8
243 tony 80 Height = 14
244     Top = 176
245 tony 37 Width = 114
246 tony 7 Caption = 'Output Parameters'
247     ParentColor = False
248     end
249 tony 80 object SelectProcedure: TLabel
250 tony 7 Left = 7
251 tony 80 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 tony 37 Height = 27
265 tony 80 Top = 17
266 tony 7 Width = 201
267 tony 80 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 tony 37 ItemHeight = 0
277 tony 7 end
278 tony 80 object InputProcGrid: TIBDynamicGrid
279 tony 7 Left = 7
280 tony 80 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 tony 7 TabOrder = 1
310 tony 80 OnDblClick = InputProcGridDblClick
311     ExpandEditorPanelBelowRow = False
312     Descending = False
313     EditorBorderStyle = bsSingle
314     DefaultPositionAtEnd = False
315 tony 7 end
316 tony 80 object OutputProcGrid: TIBDynamicGrid
317 tony 7 Left = 7
318 tony 80 Height = 104
319 tony 7 Top = 192
320 tony 80 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 tony 7 TabOrder = 2
348 tony 80 OnDblClick = OutputProcGridDblClick
349     ExpandEditorPanelBelowRow = False
350     Descending = False
351     EditorBorderStyle = bsSingle
352     DefaultPositionAtEnd = False
353 tony 7 end
354     end
355 tony 5 end
356 tony 19 object GenerateParams: TCheckBox
357     Left = 24
358 tony 37 Height = 22
359 tony 19 Top = 376
360 tony 37 Width = 171
361 tony 19 Caption = 'Allow DSQL Placeholders'
362 tony 80 TabOrder = 6
363     end
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 tony 19 TabOrder = 7
373 tony 80 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 tony 19 end
421 tony 5 end