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

# Content
1 object IBSelectSQLEditorForm: TIBSelectSQLEditorForm
2 Left = 354
3 Height = 437
4 Top = 244
5 Width = 747
6 ActiveControl = PageControl
7 Caption = 'Select SQL Editor'
8 ClientHeight = 437
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 = 379
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 = 379
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 = 379
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 = 379
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 = 400
67 Width = 125
68 Caption = '&Quote Identifiers'
69 TabOrder = 4
70 end
71 object PageControl: TPageControl
72 Left = 24
73 Height = 355
74 Top = 8
75 Width = 232
76 ActivePage = SelectPage
77 TabIndex = 0
78 TabOrder = 5
79 object SelectPage: TTabSheet
80 Caption = 'Tables'
81 ClientHeight = 323
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 = 74
96 Width = 33
97 Caption = 'Fields'
98 ParentColor = False
99 end
100 object Label4: TLabel
101 Left = 7
102 Height = 14
103 Top = 224
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 = 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 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 = 7
165 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 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 = 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 end
220 object ExecutePage: TTabSheet
221 Caption = 'Procedures'
222 ClientHeight = 323
223 ClientWidth = 226
224 OnShow = ExecutePageShow
225 object Label16: TLabel
226 Left = 7
227 Height = 14
228 Top = 3
229 Width = 100
230 Caption = 'Procedure Name'
231 ParentColor = False
232 end
233 object Label17: TLabel
234 Left = 7
235 Height = 14
236 Top = 58
237 Width = 104
238 Caption = 'Input Parameters'
239 ParentColor = False
240 end
241 object Label18: TLabel
242 Left = 8
243 Height = 14
244 Top = 176
245 Width = 114
246 Caption = 'Output Parameters'
247 ParentColor = False
248 end
249 object SelectProcedure: TLabel
250 Left = 7
251 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 Height = 27
265 Top = 17
266 Width = 201
267 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 ItemHeight = 0
277 end
278 object InputProcGrid: TIBDynamicGrid
279 Left = 7
280 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 TabOrder = 1
310 OnDblClick = InputProcGridDblClick
311 ExpandEditorPanelBelowRow = False
312 Descending = False
313 EditorBorderStyle = bsSingle
314 DefaultPositionAtEnd = False
315 end
316 object OutputProcGrid: TIBDynamicGrid
317 Left = 7
318 Height = 104
319 Top = 192
320 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 TabOrder = 2
348 OnDblClick = OutputProcGridDblClick
349 ExpandEditorPanelBelowRow = False
350 Descending = False
351 EditorBorderStyle = bsSingle
352 DefaultPositionAtEnd = False
353 end
354 end
355 end
356 object GenerateParams: TCheckBox
357 Left = 24
358 Height = 22
359 Top = 376
360 Width = 171
361 Caption = 'Allow DSQL Placeholders'
362 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 TabOrder = 7
373 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 end
421 end