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, 3 months ago) by tony
File size: 12376 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 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 TabOrder = 1
158 OnDblClick = FieldNamesGridDblClick
159 ExpandEditorPanelBelowRow = False
160 Descending = False
161 EditorBorderStyle = bsSingle
162 DefaultPositionAtEnd = False
163 end
164 object PrimaryKeysGrid: TIBDynamicGrid
165 Left = 8
166 Height = 56
167 Top = 96
168 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 TabOrder = 2
196 OnDblClick = PrimaryKeysGridDblClick
197 ExpandEditorPanelBelowRow = False
198 Descending = False
199 EditorBorderStyle = bsSingle
200 DefaultPositionAtEnd = False
201 end
202 object SelectSelectAll: TCheckBox
203 Left = 7
204 Height = 22
205 Top = 342
206 Width = 134
207 Caption = 'Select/Deselect All'
208 OnChange = SelectSelectAllChange
209 TabOrder = 3
210 end
211 object IncludeSysTables: TCheckBox
212 Left = 7
213 Height = 22
214 Top = 48
215 Width = 158
216 Caption = 'Include System Tables'
217 OnChange = IncludeSysTablesChange
218 TabOrder = 4
219 end
220 end
221 object ExecutePage: TTabSheet
222 Caption = 'Procedures'
223 ClientHeight = 373
224 ClientWidth = 226
225 OnShow = ExecutePageShow
226 object Label16: TLabel
227 Left = 9
228 Height = 14
229 Top = 56
230 Width = 100
231 Caption = 'Procedure Name'
232 ParentColor = False
233 end
234 object Label17: TLabel
235 Left = 9
236 Height = 14
237 Top = 111
238 Width = 104
239 Caption = 'Input Parameters'
240 ParentColor = False
241 end
242 object Label18: TLabel
243 Left = 10
244 Height = 14
245 Top = 229
246 Width = 114
247 Caption = 'Output Parameters'
248 ParentColor = False
249 end
250 object ProcedureNames: TIBLookupComboEditBox
251 Left = 9
252 Height = 27
253 Top = 70
254 Width = 201
255 KeyField = 'RDB$PROCEDURE_NAME'
256 ListField = 'RDB$PROCEDURE_NAME'
257 ListFieldIndex = 0
258 LookupCache = False
259 OnDblClick = ProcedureNamesDblClick
260 ScrollListDataset = True
261 Sorted = True
262 TabOrder = 0
263 AutoInsert = False
264 AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
265 ItemHeight = 0
266 end
267 object InputProcGrid: TIBDynamicGrid
268 Left = 9
269 Height = 96
270 Top = 125
271 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 TabOrder = 1
288 OnDblClick = InputProcGridDblClick
289 ExpandEditorPanelBelowRow = False
290 Descending = False
291 EditorBorderStyle = bsSingle
292 DefaultPositionAtEnd = False
293 end
294 object OutputProcGrid: TIBDynamicGrid
295 Left = 9
296 Height = 104
297 Top = 245
298 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 TabOrder = 2
326 OnDblClick = OutputProcGridDblClick
327 ExpandEditorPanelBelowRow = False
328 Descending = False
329 EditorBorderStyle = bsSingle
330 DefaultPositionAtEnd = False
331 end
332 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 Sorted = True
353 TabOrder = 3
354 AutoInsert = False
355 AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
356 ItemHeight = 0
357 end
358 end
359 end
360 object GenerateParams: TCheckBox
361 Left = 24
362 Height = 22
363 Top = 416
364 Width = 171
365 Caption = 'Allow DSQL Placeholders'
366 TabOrder = 6
367 end
368 inline IBSQLEditFrame1: TIBSQLEditFrame
369 Left = 282
370 Height = 389
371 Top = 24
372 Width = 448
373 Anchors = [akTop, akLeft, akRight, akBottom]
374 ClientHeight = 389
375 ClientWidth = 448
376 TabOrder = 7
377 DesignLeft = 1974
378 DesignTop = 200
379 inherited SQLText: TSynEdit
380 Height = 363
381 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 inherited IdentityCols: TIBQuery
422 ParamData = <
423 item
424 DataType = ftUnknown
425 Name = 'RDB$RELATION_NAME'
426 ParamType = ptInput
427 end>
428 end
429 inherited ReadOnlyFields: TIBQuery
430 ParamData = <
431 item
432 DataType = ftUnknown
433 Name = 'RDB$RELATION_NAME'
434 ParamType = ptInput
435 end>
436 end
437 inherited PackageNames: TIBQuery
438 BeforeClose = nil
439 end
440 end
441 end