ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibdataseteditor.lfm
Revision: 105
Committed: Thu Jan 18 14:37:32 2018 UTC (6 years, 2 months ago) by tony
File size: 13685 byte(s)
Log Message:
Property Editor Fixes

File Contents

# Content
1 object IBDataSetEditorForm: TIBDataSetEditorForm
2 Left = 701
3 Height = 410
4 Top = 533
5 Width = 662
6 ActiveControl = PageControl
7 BorderIcons = [biSystemMenu]
8 BorderStyle = bsDialog
9 Caption = 'DataSet Editor'
10 ClientHeight = 410
11 ClientWidth = 662
12 OnClose = FormClose
13 OnShow = FormShow
14 Position = poScreenCenter
15 LCLVersion = '1.8.1.0'
16 object PageControl: TPageControl
17 Left = 8
18 Height = 352
19 Top = 8
20 Width = 641
21 ActivePage = FieldsPage
22 Anchors = [akTop, akLeft, akRight, akBottom]
23 TabIndex = 0
24 TabOrder = 0
25 object FieldsPage: TTabSheet
26 Caption = 'Options'
27 ClientHeight = 320
28 ClientWidth = 635
29 object GroupBox1: TGroupBox
30 Left = 8
31 Height = 315
32 Top = 4
33 Width = 617
34 Anchors = [akTop, akLeft, akRight, akBottom]
35 Caption = ' SQL Generation '
36 ClientHeight = 300
37 ClientWidth = 615
38 TabOrder = 0
39 object Label1: TLabel
40 Left = 12
41 Height = 14
42 Top = 18
43 Width = 73
44 Caption = 'Table &Name:'
45 ParentColor = False
46 end
47 object Label3: TLabel
48 Left = 289
49 Height = 14
50 Top = 18
51 Width = 62
52 Caption = '&Key Fields:'
53 ParentColor = False
54 end
55 object Label4: TLabel
56 Left = 458
57 Height = 14
58 Top = 18
59 Width = 110
60 Caption = 'Updateable &Fields:'
61 ParentColor = False
62 end
63 object GenerateButton: TButton
64 Left = 9
65 Height = 25
66 Top = 83
67 Width = 168
68 Caption = '&Generate SQL'
69 OnClick = GenerateButtonClick
70 TabOrder = 0
71 end
72 object QuoteFields: TCheckBox
73 Left = 9
74 Height = 22
75 Top = 160
76 Width = 125
77 Caption = '&Quote Identifiers'
78 TabOrder = 1
79 end
80 object IncludePrimaryKeys: TCheckBox
81 Left = 9
82 Height = 22
83 Top = 192
84 Width = 241
85 Caption = 'Include Primary keys in Update SQL'
86 TabOrder = 2
87 end
88 object GenerateParams: TCheckBox
89 Left = 9
90 Height = 22
91 Top = 128
92 Width = 171
93 Caption = 'Allow DSQL Placeholders'
94 TabOrder = 3
95 end
96 object SelectTableNames: TIBLookupComboEditBox
97 Left = 12
98 Height = 27
99 Top = 32
100 Width = 209
101 KeyField = 'RDB$RELATION_ID'
102 ListField = 'RDB$RELATION_NAME'
103 ListFieldIndex = 0
104 LookupCache = False
105 ScrollListDataset = True
106 TabOrder = 4
107 AutoInsert = False
108 AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
109 ItemHeight = 0
110 end
111 object IncludeSysTables: TCheckBox
112 Left = 13
113 Height = 22
114 Top = 59
115 Width = 158
116 Caption = 'Include System Tables'
117 OnChange = IncludeSysTablesChange
118 TabOrder = 5
119 end
120 object PrimaryKeysGrid: TIBDynamicGrid
121 Left = 288
122 Height = 61
123 Top = 35
124 Width = 144
125 Color = clWindow
126 Columns = <
127 item
128 ButtonStyle = cbsCheckboxColumn
129 Title.Caption = 'SELECTED'
130 Width = 30
131 FieldName = 'SELECTED'
132 AutoSizeColumn = False
133 InitialSortColumn = False
134 DBLookupProperties.ItemHeight = 0
135 DBLookupProperties.ItemWidth = 0
136 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
137 end
138 item
139 Title.Caption = 'COLUMNNAME'
140 Width = 64
141 FieldName = 'COLUMNNAME'
142 AutoSizeColumn = True
143 InitialSortColumn = False
144 DBLookupProperties.ItemHeight = 0
145 DBLookupProperties.ItemWidth = 0
146 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
147 end>
148 FixedCols = 0
149 Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
150 Scrollbars = ssAutoVertical
151 TabOrder = 6
152 ExpandEditorPanelBelowRow = False
153 Descending = False
154 EditorBorderStyle = bsSingle
155 DefaultPositionAtEnd = False
156 end
157 object FieldNamesGrid: TIBDynamicGrid
158 Left = 458
159 Height = 216
160 Top = 32
161 Width = 144
162 Color = clWindow
163 Columns = <
164 item
165 ButtonStyle = cbsCheckboxColumn
166 Title.Caption = 'SELECTED'
167 Width = 30
168 FieldName = 'SELECTED'
169 AutoSizeColumn = False
170 InitialSortColumn = False
171 DBLookupProperties.ItemHeight = 0
172 DBLookupProperties.ItemWidth = 0
173 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
174 end
175 item
176 Title.Caption = 'COLUMNNAME'
177 Width = 64
178 FieldName = 'COLUMNNAME'
179 AutoSizeColumn = True
180 InitialSortColumn = False
181 DBLookupProperties.ItemHeight = 0
182 DBLookupProperties.ItemWidth = 0
183 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
184 end>
185 DataSource = IBSQLEditFrame.FieldsSource
186 FixedCols = 0
187 Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
188 Scrollbars = ssAutoVertical
189 TabOrder = 7
190 ExpandEditorPanelBelowRow = False
191 Descending = False
192 EditorBorderStyle = bsSingle
193 DefaultPositionAtEnd = False
194 end
195 object SelectSelectAll: TCheckBox
196 Left = 456
197 Height = 22
198 Top = 256
199 Width = 134
200 Caption = 'Select/Deselect All'
201 OnClick = SelectSelectAllClick
202 TabOrder = 8
203 end
204 object Label5: TLabel
205 Left = 288
206 Height = 14
207 Top = 104
208 Width = 138
209 Caption = '&Computed By Columns'
210 ParentColor = False
211 end
212 object ReadOnlyGrid: TIBDynamicGrid
213 Left = 289
214 Height = 48
215 Top = 119
216 Width = 143
217 Color = clWindow
218 Columns = <
219 item
220 ButtonStyle = cbsCheckboxColumn
221 Title.Caption = 'SELECTED'
222 Width = 30
223 FieldName = 'SELECTED'
224 AutoSizeColumn = False
225 InitialSortColumn = False
226 DBLookupProperties.ItemHeight = 0
227 DBLookupProperties.ItemWidth = 0
228 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
229 end
230 item
231 Title.Caption = 'COLUMNNAME'
232 Width = 64
233 FieldName = 'COLUMNNAME'
234 AutoSizeColumn = True
235 InitialSortColumn = False
236 DBLookupProperties.ItemHeight = 0
237 DBLookupProperties.ItemWidth = 0
238 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
239 end>
240 FixedCols = 0
241 Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
242 Scrollbars = ssAutoVertical
243 TabOrder = 9
244 ExpandEditorPanelBelowRow = False
245 Descending = False
246 EditorBorderStyle = bsSingle
247 DefaultPositionAtEnd = False
248 end
249 object Label6: TLabel
250 Left = 289
251 Height = 14
252 Top = 176
253 Width = 103
254 Caption = '&Identity Columns'
255 ParentColor = False
256 end
257 object IdentityGrid: TIBDynamicGrid
258 Left = 288
259 Height = 56
260 Top = 192
261 Width = 143
262 Color = clWindow
263 Columns = <
264 item
265 ButtonStyle = cbsCheckboxColumn
266 Title.Caption = 'SELECTED'
267 Width = 30
268 FieldName = 'SELECTED'
269 AutoSizeColumn = False
270 InitialSortColumn = False
271 DBLookupProperties.ItemHeight = 0
272 DBLookupProperties.ItemWidth = 0
273 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
274 end
275 item
276 Title.Caption = 'COLUMNNAME'
277 Width = 64
278 FieldName = 'COLUMNNAME'
279 AutoSizeColumn = True
280 InitialSortColumn = False
281 DBLookupProperties.ItemHeight = 0
282 DBLookupProperties.ItemWidth = 0
283 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
284 end>
285 DataSource = IBSQLEditFrame.IdentityColsSource
286 FixedCols = 0
287 Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
288 Scrollbars = ssAutoVertical
289 TabOrder = 10
290 ExpandEditorPanelBelowRow = False
291 Descending = False
292 EditorBorderStyle = bsSingle
293 DefaultPositionAtEnd = False
294 end
295 end
296 end
297 object SQLPage: TTabSheet
298 Caption = 'SQL'
299 ClientHeight = 320
300 ClientWidth = 635
301 OnShow = SQLPageShow
302 object Label2: TLabel
303 Left = 10
304 Height = 14
305 Top = 81
306 Width = 56
307 Caption = 'S&QL Text:'
308 ParentColor = False
309 end
310 object StatementType: TRadioGroup
311 Left = 10
312 Height = 49
313 Top = 9
314 Width = 327
315 AutoFill = True
316 AutoSize = True
317 Caption = 'Statement Type'
318 ChildSizing.LeftRightSpacing = 6
319 ChildSizing.TopBottomSpacing = 6
320 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
321 ChildSizing.EnlargeVertical = crsHomogenousChildResize
322 ChildSizing.ShrinkHorizontal = crsScaleChilds
323 ChildSizing.ShrinkVertical = crsScaleChilds
324 ChildSizing.Layout = cclLeftToRightThenTopToBottom
325 ChildSizing.ControlsPerLine = 5
326 ClientHeight = 34
327 ClientWidth = 325
328 Columns = 5
329 ItemIndex = 0
330 Items.Strings = (
331 '&Select'
332 '&Modify'
333 '&Insert'
334 '&Delete'
335 '&Refresh'
336 )
337 OnClick = StatementTypeClick
338 TabOrder = 0
339 end
340 object TestBtn: TButton
341 Left = 539
342 Height = 25
343 Top = 31
344 Width = 75
345 Anchors = [akTop, akRight]
346 Caption = 'Test'
347 OnClick = TestBtnClick
348 TabOrder = 1
349 end
350 inline IBSQLEditFrame1: TIBSQLEditFrame
351 Left = 12
352 Height = 217
353 Top = 95
354 Width = 616
355 Anchors = [akTop, akLeft, akRight, akBottom]
356 ClientHeight = 217
357 ClientWidth = 616
358 TabOrder = 2
359 inherited SQLText: TSynEdit
360 Height = 191
361 Width = 616
362 OnChange = SQLMemoChange
363 end
364 inherited ToolBar1: TToolBar
365 Width = 616
366 inherited ToolButton3: TToolButton
367 Height = 8
368 end
369 inherited ToolButton7: TToolButton
370 Height = 8
371 end
372 end
373 inherited FieldNameList: TIBQuery
374 ParamData = <
375 item
376 DataType = ftUnknown
377 Name = 'RDB$RELATION_NAME'
378 ParamType = ptInput
379 end>
380 end
381 inherited PrimaryKeys: TIBQuery
382 ParamData = <
383 item
384 DataType = ftUnknown
385 Name = 'RDB$RELATION_NAME'
386 ParamType = ptInput
387 end>
388 end
389 inherited ProcInputParams: TIBQuery
390 ParamData = <
391 item
392 DataType = ftUnknown
393 Name = 'RDB$PROCEDURE_NAME'
394 ParamType = ptInput
395 end>
396 end
397 inherited ProcOutputParams: TIBQuery
398 ParamData = <
399 item
400 DataType = ftUnknown
401 Name = 'RDB$PROCEDURE_NAME'
402 ParamType = ptInput
403 end>
404 end
405 inherited IdentityCols: TIBQuery
406 ParamData = <
407 item
408 DataType = ftUnknown
409 Name = 'RDB$RELATION_NAME'
410 ParamType = ptInput
411 end>
412 end
413 inherited ReadOnlyFields: TIBQuery
414 ParamData = <
415 item
416 DataType = ftUnknown
417 Name = 'RDB$RELATION_NAME'
418 ParamType = ptInput
419 end>
420 end
421 end
422 end
423 end
424 object OkButton: TButton
425 Left = 480
426 Height = 25
427 Top = 376
428 Width = 75
429 Anchors = [akRight, akBottom]
430 Caption = '&OK'
431 Default = True
432 ModalResult = 1
433 TabOrder = 1
434 end
435 object CancelButton: TButton
436 Left = 573
437 Height = 25
438 Top = 376
439 Width = 75
440 Anchors = [akRight, akBottom]
441 Cancel = True
442 Caption = 'Cancel'
443 ModalResult = 2
444 TabOrder = 2
445 end
446 end