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

Comparing ibx/trunk/design/ibsqleditor.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 IBSQLEditorForm: TIBSQLEditorForm
2 <  Left = 2090
3 <  Height = 425
4 <  Top = 382
5 <  Width = 716
6 <  ActiveControl = PageControl
1 > inherited IBSQLEditorForm: TIBSQLEditorForm
2 >  Left = 315
3 >  Width = 776
4    Caption = 'IBSQL Editor'
5 <  ClientHeight = 425
9 <  ClientWidth = 716
5 >  ClientWidth = 776
6    OnShow = FormShow
7 <  Position = poScreenCenter
8 <  LCLVersion = '1.8.0.4'
13 <  object Label3: TLabel
14 <    Left = 288
15 <    Height = 14
16 <    Top = 8
17 <    Width = 24
18 <    Caption = 'SQL'
19 <    ParentColor = False
7 >  inherited Label3: TLabel
8 >    Left = 312
9    end
10 <  object SQLText: TMemo
11 <    Left = 288
23 <    Height = 335
24 <    Top = 27
25 <    Width = 418
26 <    Anchors = [akTop, akLeft, akRight, akBottom]
27 <    ScrollBars = ssAutoBoth
28 <    TabOrder = 0
10 >  inherited Button1: TButton
11 >    Left = 579
12    end
13 <  object GenerateBtn: TButton
14 <    Left = 267
32 <    Height = 30
33 <    Top = 374
34 <    Width = 104
35 <    Anchors = [akRight, akBottom]
36 <    Caption = 'Generate SQL'
37 <    OnClick = GenerateBtnClick
38 <    TabOrder = 1
13 >  inherited Button2: TButton
14 >    Left = 667
15    end
16 <  object Button2: TButton
17 <    Left = 627
18 <    Height = 30
43 <    Top = 374
44 <    Width = 72
45 <    Anchors = [akRight, akBottom]
46 <    Cancel = True
47 <    Caption = 'Cancel'
48 <    ModalResult = 2
49 <    TabOrder = 2
16 >  inherited GenerateBtn: TButton
17 >    Left = 307
18 >    OnClick = GenerateBtnClick
19    end
20 <  object QuoteFields: TCheckBox
21 <    Left = 16
53 <    Height = 22
54 <    Top = 392
55 <    Width = 125
56 <    Caption = '&Quote Identifiers'
57 <    TabOrder = 3
20 >  inherited TestBtn: TButton
21 >    Left = 443
22    end
23 <  object Button1: TButton
24 <    Left = 539
61 <    Height = 30
62 <    Top = 373
63 <    Width = 72
64 <    Anchors = [akRight, akBottom]
65 <    Caption = 'OK'
66 <    Default = True
67 <    ModalResult = 1
68 <    TabOrder = 4
23 >  inherited QuoteFields: TCheckBox
24 >    Left = 68
25    end
26 <  object PageControl: TPageControl
27 <    Left = 16
72 <    Height = 337
73 <    Top = 27
74 <    Width = 256
26 >  inherited PageControl: TPageControl
27 >    Left = 68
28      ActivePage = SelectPage
29 +    ShowTabs = False
30      TabIndex = 0
31 <    TabOrder = 5
32 <    TabPosition = tpLeft
33 <    object SelectPage: TTabSheet
34 <      Caption = 'Select'
81 <      ClientHeight = 331
82 <      ClientWidth = 189
83 <      OnShow = SelectPageShow
84 <      object Label1: TLabel
85 <        Left = 7
86 <        Height = 14
87 <        Top = 3
88 <        Width = 69
89 <        Caption = 'Table Name'
90 <        ParentColor = False
91 <      end
92 <      object Label2: TLabel
93 <        Left = 7
94 <        Height = 14
95 <        Top = 53
96 <        Width = 33
97 <        Caption = 'Fields'
98 <        ParentColor = False
31 >    inherited SelectPage: TTabSheet
32 >      ClientHeight = 349
33 >      inherited Label4: TLabel
34 >        Top = 256
35        end
36 <      object Label4: TLabel
101 <        Left = 7
102 <        Height = 14
103 <        Top = 231
104 <        Width = 77
105 <        Caption = 'Primary Keys'
106 <        ParentColor = False
107 <      end
108 <      object SelectTableNames: TComboBox
109 <        Left = 7
110 <        Height = 27
111 <        Top = 19
112 <        Width = 174
113 <        Anchors = [akTop, akLeft, akRight]
114 <        AutoComplete = True
115 <        AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
116 <        ItemHeight = 0
117 <        OnCloseUp = SelectTableNamesCloseUp
118 <        TabOrder = 0
119 <      end
120 <      object SelectFieldsList: TListBox
121 <        Left = 7
36 >      inherited FieldNamesGrid: TIBDynamicGrid
37          Height = 136
123        Hint = 'Select Fields to include in Select Statement or leave unselected to select all'
124        Top = 69
125        Width = 174
126        Anchors = [akTop, akLeft, akRight]
127        ItemHeight = 0
128        MultiSelect = True
129        OnDblClick = SelectFieldsListDblClick
130        ParentShowHint = False
131        ScrollWidth = 172
132        ShowHint = True
133        TabOrder = 1
134        TopIndex = -1
135      end
136      object SelectPrimaryKeys: TListBox
137        Left = 7
138        Height = 77
139        Top = 247
140        Width = 174
141        Anchors = [akTop, akLeft, akRight, akBottom]
142        ItemHeight = 0
143        ScrollWidth = 172
144        TabOrder = 2
145        TopIndex = -1
146      end
147    end
148    object InsertPage: TTabSheet
149      Caption = 'Insert'
150      ClientHeight = 331
151      ClientWidth = 189
152      OnShow = InsertPageShow
153      object Label8: TLabel
154        Left = 7
155        Height = 15
156        Top = 3
157        Width = 69
158        Caption = 'Table Name'
159        ParentColor = False
38        end
39 <      object Label9: TLabel
40 <        Left = 7
163 <        Height = 15
164 <        Top = 53
165 <        Width = 33
166 <        Caption = 'Fields'
167 <        ParentColor = False
39 >      inherited PrimaryKeysGrid: TIBDynamicGrid
40 >        Top = 272
41        end
42 <      object InsertTableNames: TComboBox
43 <        Left = 7
44 <        Height = 27
172 <        Top = 19
173 <        Width = 169
174 <        Anchors = [akTop, akLeft, akRight]
175 <        AutoComplete = True
176 <        AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
177 <        ItemHeight = 0
178 <        OnCloseUp = InsertTableNamesCloseUp
179 <        TabOrder = 0
42 >      inherited SelectSelectAll: TCheckBox
43 >        Left = 8
44 >        Top = 224
45        end
46 <      object InsertFieldsList: TListBox
182 <        Left = 7
183 <        Height = 256
184 <        Hint = 'Select Fields to include in Insert  Statement or leave unselected to select all'
185 <        Top = 69
186 <        Width = 169
187 <        Anchors = [akTop, akLeft, akRight, akBottom]
188 <        ItemHeight = 0
189 <        MultiSelect = True
190 <        OnDblClick = SelectFieldsListDblClick
191 <        ParentShowHint = False
192 <        ScrollWidth = 167
193 <        ShowHint = True
194 <        TabOrder = 1
195 <        TopIndex = -1
196 <      end
197 <    end
198 <    object ModifyPage: TTabSheet
199 <      Caption = 'Modify'
200 <      ClientHeight = 331
201 <      ClientWidth = 189
202 <      OnShow = ModifyPageShow
203 <      object Label10: TLabel
204 <        Left = 7
205 <        Height = 15
206 <        Top = 3
207 <        Width = 69
208 <        Caption = 'Table Name'
209 <        ParentColor = False
210 <      end
211 <      object Label11: TLabel
212 <        Left = 7
213 <        Height = 15
214 <        Top = 53
215 <        Width = 33
216 <        Caption = 'Fields'
217 <        ParentColor = False
218 <      end
219 <      object Label12: TLabel
220 <        Left = 7
221 <        Height = 15
222 <        Top = 228
223 <        Width = 77
224 <        Caption = 'Primary Keys'
225 <        ParentColor = False
226 <      end
227 <      object ModifyTableNames: TComboBox
228 <        Left = 7
229 <        Height = 27
230 <        Top = 19
231 <        Width = 169
232 <        Anchors = [akTop, akLeft, akRight]
233 <        AutoComplete = True
234 <        AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
235 <        ItemHeight = 0
236 <        OnCloseUp = ModifyTableNamesCloseUp
237 <        TabOrder = 0
238 <      end
239 <      object ModifyFieldsList: TListBox
240 <        Left = 7
241 <        Height = 104
242 <        Hint = 'Select Fields to include in Update Statement or leave unselected to select all'
243 <        Top = 69
244 <        Width = 169
245 <        Anchors = [akTop, akLeft, akRight]
246 <        ItemHeight = 0
247 <        MultiSelect = True
248 <        OnClick = SelectFieldsListDblClick
249 <        ScrollWidth = 167
250 <        TabOrder = 1
251 <        TopIndex = -1
252 <      end
253 <      object ModifyPrimaryKeys: TListBox
254 <        Left = 7
255 <        Height = 77
256 <        Top = 244
257 <        Width = 169
258 <        Anchors = [akTop, akLeft, akRight, akBottom]
259 <        ItemHeight = 0
260 <        OnClick = SelectFieldsListDblClick
261 <        ScrollWidth = 167
262 <        TabOrder = 2
263 <        TopIndex = -1
264 <      end
265 <      object IncludePrimaryKeys: TCheckBox
46 >      object IncludePrimaryKeys: TCheckBox[8]
47          Left = 5
48          Height = 22
49 <        Top = 181
50 <        Width = 150
51 <        Caption = 'Include Primary keys'
52 <        OnClick = IncludePrimaryKeysClick
53 <        TabOrder = 3
54 <      end
55 <      object Label5: TLabel
275 <        Left = 27
276 <        Height = 15
277 <        Top = 202
278 <        Width = 67
279 <        Caption = 'in Field List'
280 <        ParentColor = False
281 <      end
282 <    end
283 <    object DeletePage: TTabSheet
284 <      Caption = 'Delete'
285 <      ClientHeight = 331
286 <      ClientWidth = 189
287 <      OnShow = DeletePageShow
288 <      object Label14: TLabel
289 <        Left = 7
290 <        Height = 15
291 <        Top = 3
292 <        Width = 69
293 <        Caption = 'Table Name'
294 <        ParentColor = False
295 <      end
296 <      object Label15: TLabel
297 <        Left = 7
298 <        Height = 15
299 <        Top = 66
300 <        Width = 77
301 <        Caption = 'Primary Keys'
302 <        ParentColor = False
303 <      end
304 <      object DeleteTableNames: TComboBox
305 <        Left = 7
306 <        Height = 27
307 <        Top = 19
308 <        Width = 169
309 <        Anchors = [akTop, akLeft, akRight]
310 <        AutoComplete = True
311 <        AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
312 <        ItemHeight = 0
313 <        OnCloseUp = DeleteTableNamesCloseUp
314 <        TabOrder = 0
315 <      end
316 <      object DeletePrimaryKeys: TListBox
317 <        Left = 7
318 <        Height = 55
319 <        Top = 82
320 <        Width = 167
321 <        Anchors = [akTop, akLeft, akRight]
322 <        ItemHeight = 0
323 <        OnDblClick = SelectFieldsListDblClick
324 <        ScrollWidth = 165
325 <        TabOrder = 1
326 <        TopIndex = -1
49 >        Top = 328
50 >        Width = 221
51 >        Caption = 'Include Primary keys in Field List'
52 >        Checked = True
53 >        OnChange = IncludePrimaryKeysChange
54 >        State = cbChecked
55 >        TabOrder = 5
56        end
57      end
58 <    object ExecutePage: TTabSheet
59 <      Caption = 'Execute'
331 <      ClientHeight = 331
332 <      ClientWidth = 189
333 <      OnShow = ExecutePageShow
334 <      object Label16: TLabel
335 <        Left = 7
336 <        Height = 15
337 <        Top = 3
338 <        Width = 100
339 <        Caption = 'Procedure Name'
340 <        ParentColor = False
341 <      end
342 <      object Label17: TLabel
343 <        Left = 10
344 <        Height = 15
345 <        Top = 61
346 <        Width = 104
347 <        Caption = 'Input Parameters'
348 <        ParentColor = False
349 <      end
350 <      object Label18: TLabel
351 <        Left = 11
352 <        Height = 15
353 <        Top = 181
354 <        Width = 114
355 <        Caption = 'Output Parameters'
356 <        ParentColor = False
357 <      end
358 <      object ProcedureNames: TComboBox
359 <        Left = 7
360 <        Height = 27
361 <        Top = 19
362 <        Width = 169
363 <        Anchors = [akTop, akLeft, akRight]
364 <        ItemHeight = 0
365 <        OnCloseUp = ProcedureNamesCloseUp
366 <        TabOrder = 0
367 <      end
368 <      object ProcInputList: TListBox
369 <        Left = 6
370 <        Height = 80
371 <        Top = 82
372 <        Width = 164
373 <        Anchors = [akTop, akLeft, akRight]
374 <        IntegralHeight = True
375 <        ItemHeight = 0
376 <        ScrollWidth = 162
377 <        TabOrder = 1
378 <        TopIndex = -1
379 <      end
380 <      object ProcOutputList: TListBox
381 <        Left = 10
382 <        Height = 97
383 <        Top = 201
384 <        Width = 160
385 <        Anchors = [akTop, akLeft, akRight]
386 <        IntegralHeight = True
387 <        ItemHeight = 0
388 <        ScrollWidth = 158
389 <        TabOrder = 2
390 <        TopIndex = -1
391 <      end
392 <      object SelectProcedure: TLabel
393 <        Left = 7
394 <        Height = 14
395 <        Top = 310
396 <        Width = 126
397 <        Anchors = [akLeft, akBottom]
398 <        Caption = 'Is ''Select Procedure'''
399 <        Font.Height = -11
400 <        Font.Style = [fsBold]
401 <        ParentColor = False
402 <        ParentFont = False
403 <        Visible = False
404 <      end
58 >    inherited ExecutePage: TTabSheet
59 >      ClientHeight = 349
60      end
61    end
62 <  object TestBtn: TButton
63 <    Left = 403
409 <    Height = 30
410 <    Top = 374
411 <    Width = 66
412 <    Anchors = [akRight, akBottom]
413 <    Caption = 'Test'
414 <    OnClick = TestBtnClick
415 <    TabOrder = 6
62 >  inherited GenerateParams: TCheckBox
63 >    Left = 68
64    end
65 <  object GenerateParams: TCheckBox
66 <    Left = 16
67 <    Height = 22
68 <    Top = 368
69 <    Width = 171
70 <    Caption = 'Allow DSQL Placeholders'
65 >  inherited IBSQLEditFrame1: TIBSQLEditFrame
66 >    Left = 312
67 >    Height = 339
68 >    Top = 24
69 >    Width = 447
70 >    Anchors = [akTop, akLeft, akRight, akBottom]
71 >    ClientHeight = 339
72 >    ClientWidth = 447
73      TabOrder = 7
74 +    DesignLeft = 1974
75 +    DesignTop = 200
76 +    inherited SQLText: TSynEdit
77 +      Height = 313
78 +      Width = 447
79 +    end
80 +    inherited ToolBar1: TToolBar
81 +      Width = 447
82 +    end
83 +    inherited FieldNameList: TIBQuery
84 +      ParamData = <      
85 +        item
86 +          DataType = ftUnknown
87 +          Name = 'RDB$RELATION_NAME'
88 +          ParamType = ptInput
89 +        end>
90 +    end
91 +    inherited PrimaryKeys: TIBQuery
92 +      ParamData = <      
93 +        item
94 +          DataType = ftUnknown
95 +          Name = 'RDB$RELATION_NAME'
96 +          ParamType = ptInput
97 +        end>
98 +    end
99 +    inherited UserProcedures: TIBQuery
100 +      AfterScroll = UserProceduresAfterScroll
101 +    end
102 +    inherited ProcInputParams: TIBQuery
103 +      ParamData = <      
104 +        item
105 +          DataType = ftUnknown
106 +          Name = 'RDB$PROCEDURE_NAME'
107 +          ParamType = ptInput
108 +        end>
109 +    end
110 +    inherited ProcOutputParams: TIBQuery
111 +      ParamData = <      
112 +        item
113 +          DataType = ftUnknown
114 +          Name = 'RDB$PROCEDURE_NAME'
115 +          ParamType = ptInput
116 +        end>
117 +    end
118 +    inherited SQLTransaction: TIBTransaction
119 +      Params.Strings = (      )
120 +    end
121    end
122 <  object IBTransaction1: TIBTransaction
123 <    Active = False
124 <    left = 200
125 <    top = 391
122 >  object TabControl1: TTabControl[9]
123 >    Left = 11
124 >    Height = 312
125 >    Top = 8
126 >    Width = 59
127 >    OnChange = TabControl1Change
128 >    TabPosition = tpLeft
129 >    TabIndex = 0
130 >    Tabs.Strings = (
131 >      'Select'
132 >      'Insert'
133 >      'Modify'
134 >      'Delete'
135 >      'Execute'
136 >    )
137 >    TabOrder = 8
138    end
139   end

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines