ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibselectsqleditor.lfm
Revision: 107
Committed: Thu Jan 18 14:37:40 2018 UTC (6 years, 11 months ago) by tony
File size: 12311 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 = ExecutePage
77 TabIndex = 1
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 TabOrder = 0
120 AutoInsert = False
121 AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
122 ItemHeight = 0
123 end
124 object FieldNamesGrid: TIBDynamicGrid
125 Left = 7
126 Height = 168
127 Top = 174
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 OnDblClick = FieldNamesGridDblClick
158 ExpandEditorPanelBelowRow = False
159 Descending = False
160 EditorBorderStyle = bsSingle
161 DefaultPositionAtEnd = False
162 end
163 object PrimaryKeysGrid: TIBDynamicGrid
164 Left = 8
165 Height = 56
166 Top = 96
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 SelectSelectAll: TCheckBox
202 Left = 7
203 Height = 22
204 Top = 342
205 Width = 134
206 Caption = 'Select/Deselect All'
207 OnChange = SelectSelectAllChange
208 TabOrder = 3
209 end
210 object IncludeSysTables: TCheckBox
211 Left = 7
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 = 373
223 ClientWidth = 226
224 OnShow = ExecutePageShow
225 object Label16: TLabel
226 Left = 9
227 Height = 14
228 Top = 56
229 Width = 100
230 Caption = 'Procedure Name'
231 ParentColor = False
232 end
233 object Label17: TLabel
234 Left = 9
235 Height = 14
236 Top = 111
237 Width = 104
238 Caption = 'Input Parameters'
239 ParentColor = False
240 end
241 object Label18: TLabel
242 Left = 10
243 Height = 14
244 Top = 229
245 Width = 114
246 Caption = 'Output Parameters'
247 ParentColor = False
248 end
249 object ProcedureNames: TIBLookupComboEditBox
250 Left = 9
251 Height = 27
252 Top = 70
253 Width = 201
254 KeyField = 'RDB$PROCEDURE_NAME'
255 ListField = 'RDB$PROCEDURE_NAME'
256 ListFieldIndex = 0
257 LookupCache = False
258 OnDblClick = ProcedureNamesDblClick
259 ScrollListDataset = True
260 TabOrder = 0
261 AutoInsert = False
262 AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
263 ItemHeight = 0
264 end
265 object InputProcGrid: TIBDynamicGrid
266 Left = 9
267 Height = 96
268 Top = 125
269 Width = 201
270 Color = clWindow
271 Columns = <
272 item
273 Title.Caption = 'COLUMNNAME'
274 Width = 64
275 FieldName = 'COLUMNNAME'
276 AutoSizeColumn = True
277 InitialSortColumn = False
278 DBLookupProperties.ItemHeight = 0
279 DBLookupProperties.ItemWidth = 0
280 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
281 end>
282 FixedCols = 0
283 Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
284 Scrollbars = ssAutoVertical
285 TabOrder = 1
286 OnDblClick = InputProcGridDblClick
287 ExpandEditorPanelBelowRow = False
288 Descending = False
289 EditorBorderStyle = bsSingle
290 DefaultPositionAtEnd = False
291 end
292 object OutputProcGrid: TIBDynamicGrid
293 Left = 9
294 Height = 104
295 Top = 245
296 Width = 201
297 Color = clWindow
298 Columns = <
299 item
300 ButtonStyle = cbsCheckboxColumn
301 Title.Caption = 'SELECTED'
302 Width = 30
303 FieldName = 'SELECTED'
304 AutoSizeColumn = False
305 InitialSortColumn = False
306 DBLookupProperties.ItemHeight = 0
307 DBLookupProperties.ItemWidth = 0
308 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
309 end
310 item
311 Title.Caption = 'COLUMNNAME'
312 Width = 64
313 FieldName = 'COLUMNNAME'
314 AutoSizeColumn = True
315 InitialSortColumn = False
316 DBLookupProperties.ItemHeight = 0
317 DBLookupProperties.ItemWidth = 0
318 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
319 end>
320 FixedCols = 0
321 Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
322 Scrollbars = ssAutoVertical
323 TabOrder = 2
324 OnDblClick = OutputProcGridDblClick
325 ExpandEditorPanelBelowRow = False
326 Descending = False
327 EditorBorderStyle = bsSingle
328 DefaultPositionAtEnd = False
329 end
330 object PackageNameLabel: TLabel
331 Left = 10
332 Height = 14
333 Top = 8
334 Width = 88
335 Caption = 'Package Name'
336 ParentColor = False
337 end
338 object PackageNames: TIBLookupComboEditBox
339 Left = 9
340 Height = 27
341 Top = 22
342 Width = 200
343 AutoComplete = False
344 KeyField = 'RDB$PACKAGE_NAME'
345 ListField = 'RDB$PACKAGE_NAME'
346 ListFieldIndex = 0
347 LookupCache = False
348 OnDblClick = PackageNamesDblClick
349 ScrollListDataset = True
350 TabOrder = 3
351 AutoInsert = False
352 AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
353 ItemHeight = 0
354 end
355 end
356 end
357 object GenerateParams: TCheckBox
358 Left = 24
359 Height = 22
360 Top = 416
361 Width = 171
362 Caption = 'Allow DSQL Placeholders'
363 TabOrder = 6
364 end
365 inline IBSQLEditFrame1: TIBSQLEditFrame
366 Left = 282
367 Height = 389
368 Top = 24
369 Width = 448
370 Anchors = [akTop, akLeft, akRight, akBottom]
371 ClientHeight = 389
372 ClientWidth = 448
373 TabOrder = 7
374 DesignLeft = 1974
375 DesignTop = 200
376 inherited SQLText: TSynEdit
377 Height = 363
378 Width = 448
379 end
380 inherited ToolBar1: TToolBar
381 Width = 448
382 end
383 inherited FieldNameList: TIBQuery
384 ParamData = <
385 item
386 DataType = ftUnknown
387 Name = 'RDB$RELATION_NAME'
388 ParamType = ptInput
389 end>
390 end
391 inherited PrimaryKeys: TIBQuery
392 ParamData = <
393 item
394 DataType = ftUnknown
395 Name = 'RDB$RELATION_NAME'
396 ParamType = ptInput
397 end>
398 end
399 inherited ProcInputParams: TIBQuery
400 ParamData = <
401 item
402 DataType = ftUnknown
403 Name = 'RDB$PROCEDURE_NAME'
404 ParamType = ptInput
405 end>
406 end
407 inherited ProcOutputParams: TIBQuery
408 ParamData = <
409 item
410 DataType = ftUnknown
411 Name = 'RDB$PROCEDURE_NAME'
412 ParamType = ptInput
413 end>
414 end
415 inherited SQLTransaction: TIBTransaction
416 Params.Strings = ( )
417 end
418 inherited IdentityCols: TIBQuery
419 ParamData = <
420 item
421 DataType = ftUnknown
422 Name = 'RDB$RELATION_NAME'
423 ParamType = ptInput
424 end>
425 end
426 inherited ReadOnlyFields: TIBQuery
427 ParamData = <
428 item
429 DataType = ftUnknown
430 Name = 'RDB$RELATION_NAME'
431 ParamType = ptInput
432 end>
433 end
434 inherited PackageNames: TIBQuery
435 BeforeClose = nil
436 end
437 end
438 end