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 19 by tony, Mon Jul 7 13:00:15 2014 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 11 | Line 11 | object IBDataSetEditorForm: TIBDataSetEd
11    ClientWidth = 662
12    OnClose = FormClose
13    OnShow = FormShow
14 <  LCLVersion = '1.2.2.0'
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 = 315
28 <      ClientWidth = 633
27 >      ClientHeight = 320
28 >      ClientWidth = 635
29        object GroupBox1: TGroupBox
30          Left = 8
31 <        Height = 310
31 >        Height = 315
32          Top = 4
33 <        Width = 615
33 >        Width = 617
34          Anchors = [akTop, akLeft, akRight, akBottom]
35          Caption = ' SQL Generation '
36 <        ClientHeight = 293
37 <        ClientWidth = 611
36 >        ClientHeight = 300
37 >        ClientWidth = 615
38          TabOrder = 0
39          object Label1: TLabel
40            Left = 12
41 <          Height = 15
41 >          Height = 14
42            Top = 18
43            Width = 73
44            Caption = 'Table &Name:'
44 –          FocusControl = TableNamesCombo
45            ParentColor = False
46          end
47          object Label3: TLabel
48 <          Left = 315
49 <          Height = 15
50 <          Top = 18
48 >          Left = 288
49 >          Height = 14
50 >          Top = 16
51            Width = 62
52            Caption = '&Key Fields:'
53 –          FocusControl = PrimaryKeyList
53            ParentColor = False
54          end
55          object Label4: TLabel
56            Left = 458
57 <          Height = 15
57 >          Height = 14
58            Top = 18
59            Width = 85
60            Caption = 'Update &Fields:'
62 –          FocusControl = FieldList
61            ParentColor = False
62          end
65 –        object TableNamesCombo: TComboBox
66 –          Left = 9
67 –          Height = 27
68 –          Top = 35
69 –          Width = 171
70 –          ItemHeight = 0
71 –          OnCloseUp = TableNamesComboCloseUp
72 –          TabOrder = 0
73 –        end
74 –        object PrimaryKeyList: TListBox
75 –          Left = 315
76 –          Height = 232
77 –          Top = 35
78 –          Width = 136
79 –          Anchors = [akTop, akLeft, akBottom]
80 –          ItemHeight = 0
81 –          MultiSelect = True
82 –          ScrollWidth = 134
83 –          TabOrder = 3
84 –          TopIndex = -1
85 –        end
86 –        object FieldList: TListBox
87 –          Left = 458
88 –          Height = 232
89 –          Hint = 'Select Fields to include in Update Statements, or leave unselected to select all'
90 –          Top = 35
91 –          Width = 136
92 –          Anchors = [akTop, akLeft, akBottom]
93 –          ItemHeight = 0
94 –          MultiSelect = True
95 –          ParentShowHint = False
96 –          ScrollWidth = 134
97 –          ShowHint = True
98 –          TabOrder = 4
99 –          TopIndex = -1
100 –        end
63          object GenerateButton: TButton
64            Left = 9
65            Height = 25
# Line 105 | 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 = 24
74 >          Height = 22
75            Top = 160
76 <          Width = 127
76 >          Width = 125
77            Caption = '&Quote Identifiers'
78 <          TabOrder = 2
78 >          TabOrder = 1
79          end
80          object IncludePrimaryKeys: TCheckBox
81            Left = 9
82 <          Height = 24
82 >          Height = 22
83            Top = 192
84 <          Width = 223
85 <          Caption = 'Include Primary keys in Field List'
86 <          Checked = True
125 <          OnClick = TableNamesComboCloseUp
126 <          State = cbChecked
127 <          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
90 <          Height = 24
90 >          Height = 22
91            Top = 128
92 <          Width = 173
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
207      object SQLPage: TTabSheet
208        Caption = 'SQL'
209 <      ClientHeight = 315
210 <      ClientWidth = 633
209 >      ClientHeight = 320
210 >      ClientWidth = 635
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:'
150 –        FocusControl = SQLMemo
218          ParentColor = False
219        end
153 –      object SQLMemo: TMemo
154 –        Left = 9
155 –        Height = 203
156 –        Top = 105
157 –        Width = 613
158 –        Anchors = [akTop, akLeft, akRight, akBottom]
159 –        OnChange = SQLMemoChange
160 –        ScrollBars = ssAutoBoth
161 –        TabOrder = 0
162 –      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 176 | Line 233 | object IBDataSetEditorForm: TIBDataSetEd
233          ChildSizing.ShrinkVertical = crsScaleChilds
234          ChildSizing.Layout = cclLeftToRightThenTopToBottom
235          ChildSizing.ControlsPerLine = 5
236 <        ClientHeight = 36
237 <        ClientWidth = 335
236 >        ClientHeight = 34
237 >        ClientWidth = 325
238          Columns = 5
239          ItemIndex = 0
240          Items.Strings = (
# Line 188 | 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 198 | 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 224 | Line 331 | object IBDataSetEditorForm: TIBDataSetEd
331      ModalResult = 2
332      TabOrder = 2
333    end
227 –  object IBTransaction1: TIBTransaction
228 –    Active = False
229 –    left = 32
230 –    top = 368
231 –  end
334   end

Diff Legend

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