ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibselectsqleditor.lfm
Revision: 143
Committed: Fri Feb 23 12:11:21 2018 UTC (6 years, 9 months ago) by tony
File size: 12488 byte(s)
Log Message:
Fixes Merged

File Contents

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