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 67 by tony, Tue Oct 3 14:08:11 2017 UTC vs.
Revision 80 by tony, Mon Jan 1 11:31:07 2018 UTC

# Line 1 | Line 1
1   object IBDataSetEditorForm: TIBDataSetEditorForm
2 <  Left = 475
2 >  Left = 442
3    Height = 410
4 <  Top = 327
4 >  Top = 421
5    Width = 662
6    ActiveControl = PageControl
7    BorderIcons = [biSystemMenu]
# Line 12 | Line 12 | object IBDataSetEditorForm: TIBDataSetEd
12    OnClose = FormClose
13    OnShow = FormShow
14    Position = poScreenCenter
15 <  LCLVersion = '1.8.0.4'
15 >  LCLVersion = '1.8.1.0'
16    object PageControl: TPageControl
17      Left = 8
18      Height = 352
# Line 42 | Line 42 | object IBDataSetEditorForm: TIBDataSetEd
42            Top = 18
43            Width = 73
44            Caption = 'Table &Name:'
45 –          FocusControl = TableNamesCombo
45            ParentColor = False
46          end
47          object Label3: TLabel
48 <          Left = 315
48 >          Left = 288
49            Height = 14
50 <          Top = 18
50 >          Top = 16
51            Width = 62
52            Caption = '&Key Fields:'
54 –          FocusControl = PrimaryKeyList
53            ParentColor = False
54          end
55          object Label4: TLabel
# Line 60 | Line 58 | object IBDataSetEditorForm: TIBDataSetEd
58            Top = 18
59            Width = 85
60            Caption = 'Update &Fields:'
63 –          FocusControl = FieldList
61            ParentColor = False
62          end
66 –        object TableNamesCombo: TComboBox
67 –          Left = 9
68 –          Height = 27
69 –          Top = 35
70 –          Width = 171
71 –          AutoComplete = True
72 –          AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
73 –          ItemHeight = 0
74 –          OnCloseUp = TableNamesComboCloseUp
75 –          TabOrder = 0
76 –        end
77 –        object PrimaryKeyList: TListBox
78 –          Left = 315
79 –          Height = 239
80 –          Top = 35
81 –          Width = 136
82 –          Anchors = [akTop, akLeft, akBottom]
83 –          ItemHeight = 0
84 –          MultiSelect = True
85 –          ScrollWidth = 134
86 –          TabOrder = 3
87 –          TopIndex = -1
88 –        end
89 –        object FieldList: TListBox
90 –          Left = 458
91 –          Height = 239
92 –          Hint = 'Select Fields to include in Update Statements, or leave unselected to select all'
93 –          Top = 35
94 –          Width = 136
95 –          Anchors = [akTop, akLeft, akBottom]
96 –          ItemHeight = 0
97 –          MultiSelect = True
98 –          ParentShowHint = False
99 –          ScrollWidth = 134
100 –          ShowHint = True
101 –          TabOrder = 4
102 –          TopIndex = -1
103 –        end
63          object GenerateButton: TButton
64            Left = 9
65            Height = 25
# Line 108 | 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
# Line 116 | Line 75 | object IBDataSetEditorForm: TIBDataSetEd
75            Top = 160
76            Width = 125
77            Caption = '&Quote Identifiers'
78 <          TabOrder = 2
78 >          TabOrder = 1
79          end
80          object IncludePrimaryKeys: TCheckBox
81            Left = 9
82            Height = 22
83            Top = 192
84 <          Width = 221
85 <          Caption = 'Include Primary keys in Field List'
86 <          Checked = True
128 <          OnClick = TableNamesComboCloseUp
129 <          State = cbChecked
130 <          TabOrder = 5
84 >          Width = 241
85 >          Caption = 'Include Primary keys in Update SQL'
86 >          TabOrder = 2
87          end
88          object GenerateParams: TCheckBox
89            Left = 9
# Line 135 | Line 91 | object IBDataSetEditorForm: TIBDataSetEd
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 +          OwnerDrawEditable = False
102 +          KeyField = 'RDB$RELATION_ID'
103 +          ListField = 'RDB$RELATION_NAME'
104 +          ListFieldIndex = 0
105 +          LookupCache = False
106 +          ScrollListDataset = True
107 +          TabOrder = 4
108 +          AutoInsert = False
109 +          AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
110 +          ItemHeight = 0
111 +        end
112 +        object IncludeSysTables: TCheckBox
113 +          Left = 13
114 +          Height = 22
115 +          Top = 59
116 +          Width = 158
117 +          Caption = 'Include System Tables'
118 +          OnChange = IncludeSysTablesChange
119 +          TabOrder = 5
120 +        end
121 +        object PrimaryKeysGrid: TIBDynamicGrid
122 +          Left = 288
123 +          Height = 181
124 +          Top = 35
125 +          Width = 144
126 +          Color = clWindow
127 +          Columns = <          
128 +            item
129 +              ButtonStyle = cbsCheckboxColumn
130 +              Title.Caption = 'SELECTED'
131 +              Width = 30
132 +              FieldName = 'SELECTED'
133 +              AutoSizeColumn = False
134 +              InitialSortColumn = False
135 +              DBLookupProperties.ItemHeight = 0
136 +              DBLookupProperties.ItemWidth = 0
137 +              DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
138 +            end          
139 +            item
140 +              Title.Caption = 'COLUMNNAME'
141 +              Width = 64
142 +              FieldName = 'COLUMNNAME'
143 +              AutoSizeColumn = True
144 +              InitialSortColumn = False
145 +              DBLookupProperties.ItemHeight = 0
146 +              DBLookupProperties.ItemWidth = 0
147 +              DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
148 +            end>
149 +          FixedCols = 0
150 +          Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
151 +          Scrollbars = ssAutoVertical
152            TabOrder = 6
153 +          ExpandEditorPanelBelowRow = False
154 +          Descending = False
155 +          EditorBorderStyle = bsSingle
156 +          DefaultPositionAtEnd = False
157 +        end
158 +        object FieldNamesGrid: TIBDynamicGrid
159 +          Left = 458
160 +          Height = 184
161 +          Top = 32
162 +          Width = 144
163 +          Color = clWindow
164 +          Columns = <          
165 +            item
166 +              ButtonStyle = cbsCheckboxColumn
167 +              Title.Caption = 'SELECTED'
168 +              Width = 30
169 +              FieldName = 'SELECTED'
170 +              AutoSizeColumn = False
171 +              InitialSortColumn = False
172 +              DBLookupProperties.ItemHeight = 0
173 +              DBLookupProperties.ItemWidth = 0
174 +              DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
175 +            end          
176 +            item
177 +              Title.Caption = 'COLUMNNAME'
178 +              Width = 64
179 +              FieldName = 'COLUMNNAME'
180 +              AutoSizeColumn = True
181 +              InitialSortColumn = False
182 +              DBLookupProperties.ItemHeight = 0
183 +              DBLookupProperties.ItemWidth = 0
184 +              DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
185 +            end>
186 +          DataSource = IBSQLEditFrame.FieldsSource
187 +          FixedCols = 0
188 +          Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
189 +          Scrollbars = ssAutoVertical
190 +          TabOrder = 7
191 +          ExpandEditorPanelBelowRow = False
192 +          Descending = False
193 +          EditorBorderStyle = bsSingle
194 +          DefaultPositionAtEnd = False
195 +        end
196 +        object SelectSelectAll: TCheckBox
197 +          Left = 456
198 +          Height = 22
199 +          Top = 216
200 +          Width = 134
201 +          Caption = 'Select/Deselect All'
202 +          OnClick = SelectSelectAllClick
203 +          TabOrder = 8
204          end
205        end
206      end
# Line 146 | Line 211 | object IBDataSetEditorForm: TIBDataSetEd
211        OnShow = SQLPageShow
212        object Label2: TLabel
213          Left = 10
214 <        Height = 15
214 >        Height = 14
215          Top = 81
216          Width = 56
217          Caption = 'S&QL Text:'
153 –        FocusControl = SQLMemo
218          ParentColor = False
219        end
156 –      object SQLMemo: TMemo
157 –        Left = 9
158 –        Height = 203
159 –        Top = 105
160 –        Width = 613
161 –        Anchors = [akTop, akLeft, akRight, akBottom]
162 –        OnChange = SQLMemoChange
163 –        ScrollBars = ssAutoBoth
164 –        TabOrder = 0
165 –      end
220        object StatementType: TRadioGroup
221          Left = 10
222 <        Height = 53
222 >        Height = 49
223          Top = 9
224 <        Width = 339
224 >        Width = 327
225          AutoFill = True
226          AutoSize = True
227          Caption = 'Statement Type'
# Line 179 | Line 233 | object IBDataSetEditorForm: TIBDataSetEd
233          ChildSizing.ShrinkVertical = crsScaleChilds
234          ChildSizing.Layout = cclLeftToRightThenTopToBottom
235          ChildSizing.ControlsPerLine = 5
236 <        ClientHeight = 38
237 <        ClientWidth = 337
236 >        ClientHeight = 34
237 >        ClientWidth = 325
238          Columns = 5
239          ItemIndex = 0
240          Items.Strings = (
# Line 191 | Line 245 | object IBDataSetEditorForm: TIBDataSetEd
245            '&Refresh'
246          )
247          OnClick = StatementTypeClick
248 <        TabOrder = 1
248 >        TabOrder = 0
249        end
250        object TestBtn: TButton
251          Left = 539
# Line 201 | Line 255 | object IBDataSetEditorForm: TIBDataSetEd
255          Anchors = [akTop, akRight]
256          Caption = 'Test'
257          OnClick = TestBtnClick
258 +        TabOrder = 1
259 +      end
260 +      inline IBSQLEditFrame1: TIBSQLEditFrame
261 +        Left = 12
262 +        Height = 217
263 +        Top = 95
264 +        Width = 616
265 +        Anchors = [akTop, akLeft, akRight, akBottom]
266 +        ClientHeight = 217
267 +        ClientWidth = 616
268          TabOrder = 2
269 +        inherited SQLText: TSynEdit
270 +          Height = 191
271 +          Width = 616
272 +          OnChange = SQLMemoChange
273 +        end
274 +        inherited ToolBar1: TToolBar
275 +          Width = 616
276 +        end
277 +        inherited FieldNameList: TIBQuery
278 +          ParamData = <          
279 +            item
280 +              DataType = ftUnknown
281 +              Name = 'RDB$RELATION_NAME'
282 +              ParamType = ptInput
283 +            end>
284 +        end
285 +        inherited PrimaryKeys: TIBQuery
286 +          ParamData = <          
287 +            item
288 +              DataType = ftUnknown
289 +              Name = 'RDB$RELATION_NAME'
290 +              ParamType = ptInput
291 +            end>
292 +        end
293 +        inherited ProcInputParams: TIBQuery
294 +          ParamData = <          
295 +            item
296 +              DataType = ftUnknown
297 +              Name = 'RDB$PROCEDURE_NAME'
298 +              ParamType = ptInput
299 +            end>
300 +        end
301 +        inherited ProcOutputParams: TIBQuery
302 +          ParamData = <          
303 +            item
304 +              DataType = ftUnknown
305 +              Name = 'RDB$PROCEDURE_NAME'
306 +              ParamType = ptInput
307 +            end>
308 +        end
309        end
310      end
311    end
# Line 227 | Line 331 | object IBDataSetEditorForm: TIBDataSetEd
331      ModalResult = 2
332      TabOrder = 2
333    end
230 –  object IBTransaction1: TIBTransaction
231 –    Active = False
232 –    left = 32
233 –    top = 368
234 –  end
334   end

Diff Legend

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