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 19 by tony, Mon Jul 7 13:00:15 2014 UTC vs.
Revision 106 by tony, Thu Jan 18 14:37:35 2018 UTC

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

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines