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

File Contents

# User Rev Content
1 tony 5 object IBSelectSQLEditorForm: TIBSelectSQLEditorForm
2 tony 106 Left = 678
3 tony 105 Height = 487
4 tony 106 Top = 264
5 tony 7 Width = 747
6     ActiveControl = PageControl
7 tony 5 Caption = 'Select SQL Editor'
8 tony 105 ClientHeight = 487
9 tony 7 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 105 Top = 429
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 105 Top = 429
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 105 Top = 429
47 tony 7 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 105 Top = 429
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 105 Top = 440
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 105 Height = 405
74 tony 80 Top = 8
75 tony 7 Width = 232
76 tony 141 ActivePage = SelectPage
77     TabIndex = 0
78 tony 80 TabOrder = 5
79 tony 7 object SelectPage: TTabSheet
80     Caption = 'Tables'
81 tony 105 ClientHeight = 373
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 106 Top = 160
96 tony 19 Width = 33
97 tony 7 Caption = 'Fields'
98     ParentColor = False
99     end
100     object Label4: TLabel
101 tony 106 Left = 8
102 tony 67 Height = 14
103 tony 106 Top = 80
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 tony 141 Sorted = True
120 tony 80 TabOrder = 0
121     AutoInsert = False
122 tony 21 AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
123 tony 37 ItemHeight = 0
124 tony 7 end
125 tony 80 object FieldNamesGrid: TIBDynamicGrid
126 tony 7 Left = 7
127 tony 105 Height = 168
128 tony 106 Top = 174
129 tony 80 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 tony 143 ReadOnly = True
145 tony 80 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 tony 7 TabOrder = 1
159 tony 80 OnDblClick = FieldNamesGridDblClick
160     ExpandEditorPanelBelowRow = False
161     Descending = False
162     EditorBorderStyle = bsSingle
163     DefaultPositionAtEnd = False
164 tony 7 end
165 tony 80 object PrimaryKeysGrid: TIBDynamicGrid
166 tony 106 Left = 8
167 tony 80 Height = 56
168 tony 106 Top = 96
169 tony 80 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 tony 143 ReadOnly = True
185 tony 80 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 tony 7 TabOrder = 2
198 tony 80 OnDblClick = PrimaryKeysGridDblClick
199     ExpandEditorPanelBelowRow = False
200     Descending = False
201     EditorBorderStyle = bsSingle
202     DefaultPositionAtEnd = False
203 tony 7 end
204 tony 80 object SelectSelectAll: TCheckBox
205     Left = 7
206     Height = 22
207 tony 106 Top = 342
208 tony 80 Width = 134
209     Caption = 'Select/Deselect All'
210     OnChange = SelectSelectAllChange
211     TabOrder = 3
212     end
213     object IncludeSysTables: TCheckBox
214 tony 106 Left = 7
215 tony 80 Height = 22
216     Top = 48
217     Width = 158
218     Caption = 'Include System Tables'
219     OnChange = IncludeSysTablesChange
220     TabOrder = 4
221     end
222 tony 7 end
223     object ExecutePage: TTabSheet
224     Caption = 'Procedures'
225 tony 105 ClientHeight = 373
226 tony 37 ClientWidth = 226
227 tony 7 OnShow = ExecutePageShow
228     object Label16: TLabel
229 tony 107 Left = 9
230 tony 80 Height = 14
231 tony 107 Top = 56
232 tony 37 Width = 100
233 tony 7 Caption = 'Procedure Name'
234     ParentColor = False
235     end
236     object Label17: TLabel
237 tony 107 Left = 9
238 tony 80 Height = 14
239 tony 107 Top = 111
240 tony 37 Width = 104
241 tony 7 Caption = 'Input Parameters'
242     ParentColor = False
243     end
244     object Label18: TLabel
245 tony 107 Left = 10
246 tony 80 Height = 14
247 tony 107 Top = 229
248 tony 37 Width = 114
249 tony 7 Caption = 'Output Parameters'
250     ParentColor = False
251     end
252 tony 80 object ProcedureNames: TIBLookupComboEditBox
253 tony 107 Left = 9
254 tony 37 Height = 27
255 tony 107 Top = 70
256 tony 7 Width = 201
257 tony 80 KeyField = 'RDB$PROCEDURE_NAME'
258     ListField = 'RDB$PROCEDURE_NAME'
259     ListFieldIndex = 0
260     LookupCache = False
261     OnDblClick = ProcedureNamesDblClick
262     ScrollListDataset = True
263 tony 141 Sorted = True
264 tony 80 TabOrder = 0
265     AutoInsert = False
266     AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
267 tony 37 ItemHeight = 0
268 tony 7 end
269 tony 80 object InputProcGrid: TIBDynamicGrid
270 tony 107 Left = 9
271 tony 80 Height = 96
272 tony 107 Top = 125
273 tony 80 Width = 201
274     Color = clWindow
275     Columns = <
276     item
277 tony 143 ReadOnly = True
278 tony 80 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 tony 7 TabOrder = 1
291 tony 80 OnDblClick = InputProcGridDblClick
292     ExpandEditorPanelBelowRow = False
293     Descending = False
294     EditorBorderStyle = bsSingle
295     DefaultPositionAtEnd = False
296 tony 7 end
297 tony 80 object OutputProcGrid: TIBDynamicGrid
298 tony 107 Left = 9
299 tony 80 Height = 104
300 tony 107 Top = 245
301 tony 80 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 tony 143 ReadOnly = True
317 tony 80 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 tony 7 TabOrder = 2
330 tony 80 OnDblClick = OutputProcGridDblClick
331     ExpandEditorPanelBelowRow = False
332     Descending = False
333     EditorBorderStyle = bsSingle
334     DefaultPositionAtEnd = False
335 tony 7 end
336 tony 107 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 tony 141 Sorted = True
357 tony 107 TabOrder = 3
358     AutoInsert = False
359     AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
360     ItemHeight = 0
361     end
362 tony 7 end
363 tony 5 end
364 tony 19 object GenerateParams: TCheckBox
365     Left = 24
366 tony 37 Height = 22
367 tony 105 Top = 416
368 tony 37 Width = 171
369 tony 19 Caption = 'Allow DSQL Placeholders'
370 tony 80 TabOrder = 6
371     end
372     inline IBSQLEditFrame1: TIBSQLEditFrame
373     Left = 282
374 tony 105 Height = 389
375 tony 80 Top = 24
376     Width = 448
377     Anchors = [akTop, akLeft, akRight, akBottom]
378 tony 105 ClientHeight = 389
379 tony 80 ClientWidth = 448
380 tony 19 TabOrder = 7
381 tony 80 DesignLeft = 1974
382     DesignTop = 200
383     inherited SQLText: TSynEdit
384 tony 105 Height = 363
385 tony 80 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 tony 105 inherited IdentityCols: TIBQuery
426     ParamData = <
427     item
428     DataType = ftUnknown
429     Name = 'RDB$RELATION_NAME'
430     ParamType = ptInput
431     end>
432     end
433 tony 106 inherited ReadOnlyFields: TIBQuery
434     ParamData = <
435     item
436     DataType = ftUnknown
437     Name = 'RDB$RELATION_NAME'
438     ParamType = ptInput
439     end>
440     end
441 tony 107 inherited PackageNames: TIBQuery
442     BeforeClose = nil
443     end
444 tony 19 end
445 tony 5 end