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 7 by tony, Sun Aug 5 18:28:19 2012 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 11 | Line 11 | object IBDataSetEditorForm: TIBDataSetEd
11    ClientWidth = 662
12    OnClose = FormClose
13    OnShow = FormShow
14 <  LCLVersion = '0.9.30'
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 = 317
27 >      ClientHeight = 320
28        ClientWidth = 635
29        object GroupBox1: TGroupBox
30          Left = 8
31 <        Height = 312
31 >        Height = 315
32          Top = 4
33          Width = 617
34          Anchors = [akTop, akLeft, akRight, akBottom]
35          Caption = ' SQL Generation '
36 <        ClientHeight = 293
37 <        ClientWidth = 613
36 >        ClientHeight = 300
37 >        ClientWidth = 615
38          TabOrder = 0
39          object Label1: TLabel
40            Left = 12
41 <          Height = 18
41 >          Height = 14
42            Top = 18
43 <          Width = 82
43 >          Width = 73
44            Caption = 'Table &Name:'
44 –          FocusControl = TableNamesCombo
45            ParentColor = False
46          end
47          object Label3: TLabel
48 <          Left = 315
49 <          Height = 18
50 <          Top = 18
51 <          Width = 71
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 = 18
57 >          Height = 14
58            Top = 18
59 <          Width = 94
59 >          Width = 85
60            Caption = 'Update &Fields:'
62 –          FocusControl = FieldList
61            ParentColor = False
62          end
65 –        object TableNamesCombo: TComboBox
66 –          Left = 9
67 –          Height = 29
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 –          TabOrder = 3
83 –          TopIndex = -1
84 –        end
85 –        object FieldList: TListBox
86 –          Left = 458
87 –          Height = 232
88 –          Hint = 'Select Fields to include in Update Statements, or leave unselected to select all'
89 –          Top = 35
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 = 132
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 = 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 = 163
115 <          Width = 239
116 <          Caption = 'Include Primary keys in Field List'
117 <          Checked = True
123 <          OnClick = TableNamesComboCloseUp
124 <          State = cbChecked
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
206      object SQLPage: TTabSheet
207        Caption = 'SQL'
208 <      ClientHeight = 317
208 >      ClientHeight = 320
209        ClientWidth = 635
210        OnShow = SQLPageShow
211        object Label2: TLabel
212          Left = 10
213 <        Height = 18
213 >        Height = 14
214          Top = 81
215 <        Width = 61
215 >        Width = 56
216          Caption = 'S&QL Text:'
140 –        FocusControl = SQLMemo
217          ParentColor = False
218        end
143 –      object SQLMemo: TMemo
144 –        Left = 9
145 –        Height = 205
146 –        Top = 105
147 –        Width = 615
148 –        Anchors = [akTop, akLeft, akRight, akBottom]
149 –        OnChange = SQLMemoChange
150 –        ScrollBars = ssAutoBoth
151 –        TabOrder = 0
152 –      end
219        object StatementType: TRadioGroup
220          Left = 10
221 <        Height = 53
221 >        Height = 49
222          Top = 9
223 <        Width = 350
223 >        Width = 327
224          AutoFill = True
225          AutoSize = True
226          Caption = 'Statement Type'
# Line 167 | Line 233 | object IBDataSetEditorForm: TIBDataSetEd
233          ChildSizing.Layout = cclLeftToRightThenTopToBottom
234          ChildSizing.ControlsPerLine = 5
235          ClientHeight = 34
236 <        ClientWidth = 346
236 >        ClientWidth = 325
237          Columns = 5
238          ItemIndex = 0
239          Items.Strings = (
# Line 178 | 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 = 541
250 >        Left = 539
251          Height = 25
252          Top = 31
253          Width = 75
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 214 | Line 330 | object IBDataSetEditorForm: TIBDataSetEd
330      ModalResult = 2
331      TabOrder = 2
332    end
217 –  object IBTransaction1: TIBTransaction
218 –    Active = False
219 –    left = 32
220 –    top = 368
221 –  end
333   end

Diff Legend

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