ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibdataseteditor.lfm
(Generate patch)

Comparing ibx/trunk/design/ibdataseteditor.lfm (file contents):
Revision 5 by tony, Fri Feb 18 16:26:16 2011 UTC vs.
Revision 105 by tony, Thu Jan 18 14:37:32 2018 UTC

# Line 1 | Line 1
1   object IBDataSetEditorForm: TIBDataSetEditorForm
2 <  Left = 350
2 >  Left = 701
3    Height = 410
4 <  Top = 324
4 >  Top = 533
5    Width = 662
6    ActiveControl = PageControl
7    BorderIcons = [biSystemMenu]
# Line 11 | Line 11 | object IBDataSetEditorForm: TIBDataSetEd
11    ClientWidth = 662
12    OnClose = FormClose
13    OnShow = FormShow
14 <  LCLVersion = '0.9.28.2'
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 = SQLPage
21 >    ActivePage = FieldsPage
22      Anchors = [akTop, akLeft, akRight, akBottom]
23 <    TabIndex = 1
23 >    TabIndex = 0
24      TabOrder = 0
25      object FieldsPage: TTabSheet
26        Caption = 'Options'
27 <      ClientHeight = 316
27 >      ClientHeight = 320
28        ClientWidth = 635
29        object GroupBox1: TGroupBox
30          Left = 8
31 <        Height = 311
31 >        Height = 315
32          Top = 4
33          Width = 617
34          Anchors = [akTop, akLeft, akRight, akBottom]
35          Caption = ' SQL Generation '
36 <        ClientHeight = 291
37 <        ClientWidth = 613
36 >        ClientHeight = 300
37 >        ClientWidth = 615
38          TabOrder = 0
39          object Label1: TLabel
40            Left = 12
41 <          Height = 19
41 >          Height = 14
42            Top = 18
43 <          Width = 103
43 >          Width = 73
44            Caption = 'Table &Name:'
44 –          FocusControl = TableNamesCombo
45            ParentColor = False
46          end
47          object Label3: TLabel
48 <          Left = 228
49 <          Height = 19
50 <          Top = 19
51 <          Width = 87
48 >          Left = 289
49 >          Height = 14
50 >          Top = 18
51 >          Width = 62
52            Caption = '&Key Fields:'
53 –          FocusControl = PrimaryKeyList
53            ParentColor = False
54          end
55          object Label4: TLabel
56 <          Left = 371
57 <          Height = 19
58 <          Top = 19
59 <          Width = 113
60 <          Caption = 'Update &Fields:'
62 <          FocusControl = FieldList
56 >          Left = 458
57 >          Height = 14
58 >          Top = 18
59 >          Width = 110
60 >          Caption = 'Updateable &Fields:'
61            ParentColor = False
62          end
65 –        object TableNamesCombo: TComboBox
66 –          Left = 9
67 –          Height = 30
68 –          Top = 35
69 –          Width = 171
70 –          ItemHeight = 0
71 –          OnCloseUp = TableNamesComboCloseUp
72 –          TabOrder = 0
73 –        end
74 –        object PrimaryKeyList: TListBox
75 –          Left = 228
76 –          Height = 230
77 –          Top = 36
78 –          Width = 136
79 –          Anchors = [akTop, akLeft, akBottom]
80 –          ItemHeight = 0
81 –          MultiSelect = True
82 –          TabOrder = 3
83 –          TopIndex = -1
84 –        end
85 –        object FieldList: TListBox
86 –          Left = 371
87 –          Height = 230
88 –          Hint = 'Select Fields to include in Update and Insert Statements, or leave unselected to select all'
89 –          Top = 36
90 –          Width = 136
91 –          Anchors = [akTop, akLeft, akBottom]
92 –          ItemHeight = 0
93 –          MultiSelect = True
94 –          ParentShowHint = False
95 –          ShowHint = True
96 –          TabOrder = 4
97 –          TopIndex = -1
98 –        end
63          object GenerateButton: TButton
64            Left = 9
65            Height = 25
# Line 103 | Line 67 | object IBDataSetEditorForm: TIBDataSetEd
67            Width = 168
68            Caption = '&Generate SQL'
69            OnClick = GenerateButtonClick
70 <          TabOrder = 1
70 >          TabOrder = 0
71          end
72          object QuoteFields: TCheckBox
73            Left = 9
74            Height = 22
75 <          Top = 131
76 <          Width = 144
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 = 316
299 >      ClientHeight = 320
300        ClientWidth = 635
301        OnShow = SQLPageShow
302        object Label2: TLabel
303          Left = 10
304 <        Height = 19
304 >        Height = 14
305          Top = 81
306 <        Width = 80
306 >        Width = 56
307          Caption = 'S&QL Text:'
129 –        FocusControl = SQLMemo
308          ParentColor = False
309        end
132 –      object SQLMemo: TMemo
133 –        Left = 9
134 –        Height = 204
135 –        Top = 105
136 –        Width = 615
137 –        Anchors = [akTop, akLeft, akRight, akBottom]
138 –        OnChange = SQLMemoChange
139 –        ScrollBars = ssVertical
140 –        TabOrder = 0
141 –      end
310        object StatementType: TRadioGroup
311          Left = 10
312 <        Height = 54
312 >        Height = 49
313          Top = 9
314 <        Width = 372
314 >        Width = 327
315          AutoFill = True
316          AutoSize = True
317          Caption = 'Statement Type'
# Line 156 | Line 324 | object IBDataSetEditorForm: TIBDataSetEd
324          ChildSizing.Layout = cclLeftToRightThenTopToBottom
325          ChildSizing.ControlsPerLine = 5
326          ClientHeight = 34
327 <        ClientWidth = 368
327 >        ClientWidth = 325
328          Columns = 5
329          ItemIndex = 0
330          Items.Strings = (
# Line 167 | Line 335 | object IBDataSetEditorForm: TIBDataSetEd
335            '&Refresh'
336          )
337          OnClick = StatementTypeClick
338 <        TabOrder = 1
338 >        TabOrder = 0
339        end
340 <      object Button1: TButton
341 <        Left = 541
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 = Button1Click
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

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines