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 89 by tony, Mon Jan 1 11:31:32 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 +          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 = 181
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 = 184
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 = 216
199 +          Width = 134
200 +          Caption = 'Select/Deselect All'
201 +          OnClick = SelectSelectAllClick
202 +          TabOrder = 8
203          end
204        end
205      end
# Line 146 | Line 210 | object IBDataSetEditorForm: TIBDataSetEd
210        OnShow = SQLPageShow
211        object Label2: TLabel
212          Left = 10
213 <        Height = 15
213 >        Height = 14
214          Top = 81
215          Width = 56
216          Caption = 'S&QL Text:'
153        FocusControl = SQLMemo
217          ParentColor = False
218        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
219        object StatementType: TRadioGroup
220          Left = 10
221 <        Height = 53
221 >        Height = 49
222          Top = 9
223 <        Width = 339
223 >        Width = 327
224          AutoFill = True
225          AutoSize = True
226          Caption = 'Statement Type'
# Line 179 | Line 232 | object IBDataSetEditorForm: TIBDataSetEd
232          ChildSizing.ShrinkVertical = crsScaleChilds
233          ChildSizing.Layout = cclLeftToRightThenTopToBottom
234          ChildSizing.ControlsPerLine = 5
235 <        ClientHeight = 38
236 <        ClientWidth = 337
235 >        ClientHeight = 34
236 >        ClientWidth = 325
237          Columns = 5
238          ItemIndex = 0
239          Items.Strings = (
# Line 191 | Line 244 | object IBDataSetEditorForm: TIBDataSetEd
244            '&Refresh'
245          )
246          OnClick = StatementTypeClick
247 <        TabOrder = 1
247 >        TabOrder = 0
248        end
249        object TestBtn: TButton
250          Left = 539
# Line 201 | Line 254 | object IBDataSetEditorForm: TIBDataSetEd
254          Anchors = [akTop, akRight]
255          Caption = 'Test'
256          OnClick = TestBtnClick
257 +        TabOrder = 1
258 +      end
259 +      inline IBSQLEditFrame1: TIBSQLEditFrame
260 +        Left = 12
261 +        Height = 217
262 +        Top = 95
263 +        Width = 616
264 +        Anchors = [akTop, akLeft, akRight, akBottom]
265 +        ClientHeight = 217
266 +        ClientWidth = 616
267          TabOrder = 2
268 +        inherited SQLText: TSynEdit
269 +          Height = 191
270 +          Width = 616
271 +          OnChange = SQLMemoChange
272 +        end
273 +        inherited ToolBar1: TToolBar
274 +          Width = 616
275 +        end
276 +        inherited FieldNameList: TIBQuery
277 +          ParamData = <          
278 +            item
279 +              DataType = ftUnknown
280 +              Name = 'RDB$RELATION_NAME'
281 +              ParamType = ptInput
282 +            end>
283 +        end
284 +        inherited PrimaryKeys: TIBQuery
285 +          ParamData = <          
286 +            item
287 +              DataType = ftUnknown
288 +              Name = 'RDB$RELATION_NAME'
289 +              ParamType = ptInput
290 +            end>
291 +        end
292 +        inherited ProcInputParams: TIBQuery
293 +          ParamData = <          
294 +            item
295 +              DataType = ftUnknown
296 +              Name = 'RDB$PROCEDURE_NAME'
297 +              ParamType = ptInput
298 +            end>
299 +        end
300 +        inherited ProcOutputParams: TIBQuery
301 +          ParamData = <          
302 +            item
303 +              DataType = ftUnknown
304 +              Name = 'RDB$PROCEDURE_NAME'
305 +              ParamType = ptInput
306 +            end>
307 +        end
308        end
309      end
310    end
# Line 227 | Line 330 | object IBDataSetEditorForm: TIBDataSetEd
330      ModalResult = 2
331      TabOrder = 2
332    end
230  object IBTransaction1: TIBTransaction
231    Active = False
232    left = 32
233    top = 368
234  end
333   end

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines