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 107 by tony, Thu Jan 18 14:37:40 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 = 506
3 >  Height = 555
4 >  Top = 383
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
41        end
42 <      object IncludePrimaryKeys: TCheckBox
43 <        Left = 5
254 <        Height = 22
255 <        Top = 181
256 <        Width = 161
257 <        Caption = 'Include Primary keys'
258 <        OnClick = IncludePrimaryKeysClick
259 <        TabOrder = 3
42 >      inherited SelectSelectAll: TCheckBox
43 >        Top = 424
44        end
45 <      object Label5: TLabel
46 <        Left = 27
263 <        Height = 18
264 <        Top = 202
265 <        Width = 75
266 <        Caption = 'in Field List'
267 <        ParentColor = False
45 >      inherited ReadOnlyGrid: TIBDynamicGrid
46 >        Left = 9
47        end
48      end
49 <    object DeletePage: TTabSheet
50 <      Caption = 'Delete'
51 <      ClientHeight = 300
52 <      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
290 <      end
291 <      object DeleteTableNames: TComboBox
292 <        Left = 7
293 <        Height = 29
294 <        Top = 19
295 <        Width = 169
296 <        ItemHeight = 0
297 <        OnCloseUp = DeleteTableNamesCloseUp
298 <        TabOrder = 0
49 >    inherited ExecutePage: TTabSheet
50 >      ClientHeight = 450
51 >      inherited Label16: TLabel
52 >        Left = 10
53        end
54 <      object DeletePrimaryKeys: TListBox
55 <        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
54 >      inherited Label17: TLabel
55 >        Top = 128
56        end
57 <    end
58 <    object ExecutePage: TTabSheet
313 <      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
57 >      inherited Label18: TLabel
58 >        Top = 280
59        end
60 <      object Label17: TLabel
60 >      inherited ProcedureNames: TIBLookupComboEditBox
61          Left = 10
62 <        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
62 >        Top = 72
63        end
64 <      object ProcedureNames: TComboBox
65 <        Left = 7
66 <        Height = 27
67 <        Top = 19
68 <        Width = 169
69 <        ItemHeight = 0
70 <        OnCloseUp = ProcedureNamesCloseUp
71 <        TabOrder = 0
64 >      inherited InputProcGrid: TIBDynamicGrid
65 >        Left = 8
66 >        Height = 122
67 >        Top = 144
68 >      end
69 >      inherited OutputProcGrid: TIBDynamicGrid
70 >        Top = 296
71 >        Columns = <        
72 >          item
73 >            ButtonStyle = cbsCheckboxColumn
74 >            PickList.Strings = (            )
75 >            Title.Caption = 'SELECTED'
76 >            Width = 30
77 >            FieldName = 'SELECTED'
78 >            AutoSizeColumn = False
79 >            InitialSortColumn = False
80 >            DBLookupProperties.ItemHeight = 0
81 >            DBLookupProperties.ItemWidth = 0
82 >            DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
83 >          end        
84 >          item
85 >            PickList.Strings = (            )
86 >            Title.Caption = 'COLUMNNAME'
87 >            Width = 64
88 >            FieldName = 'COLUMNNAME'
89 >            AutoSizeColumn = True
90 >            InitialSortColumn = False
91 >            DBLookupProperties.ItemHeight = 0
92 >            DBLookupProperties.ItemWidth = 0
93 >            DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
94 >          end>
95        end
96 <      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
96 >      object SelectProcedure: TLabel[8]
97          Left = 10
98 <        Height = 66
99 <        Top = 201
100 <        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
98 >        Height = 13
99 >        Top = 104
100 >        Width = 168
101          Anchors = [akLeft, akBottom]
102 <        Caption = 'Is ''Select Procedure'''
102 >        Caption = 'This is a ''Select Procedure'''
103          Font.Height = -11
104          Font.Style = [fsBold]
105          ParentColor = False
# Line 385 | Line 108 | object IBSQLEditorForm: TIBSQLEditorForm
108        end
109      end
110    end
111 <  object TestBtn: TButton
112 <    Left = 403
113 <    Height = 30
114 <    Top = 374
115 <    Width = 66
116 <    Anchors = [akRight, akBottom]
117 <    Caption = 'Test'
118 <    OnClick = TestBtnClick
119 <    TabOrder = 6
120 <  end
121 <  object GenerateParams: TCheckBox
122 <    Left = 16
400 <    Height = 24
401 <    Top = 368
402 <    Width = 173
403 <    Caption = 'Allow DSQL Placeholders'
111 >  inherited GenerateParams: TCheckBox
112 >    Left = 11
113 >    Top = 472
114 >  end
115 >  inherited IBSQLEditFrame1: TIBSQLEditFrame
116 >    Left = 312
117 >    Height = 440
118 >    Top = 24
119 >    Width = 447
120 >    Anchors = [akTop, akLeft, akRight, akBottom]
121 >    ClientHeight = 440
122 >    ClientWidth = 447
123      TabOrder = 7
124 +    DesignLeft = 1974
125 +    DesignTop = 200
126 +    inherited SQLText: TSynEdit
127 +      Height = 414
128 +      Width = 447
129 +    end
130 +    inherited ToolBar1: TToolBar
131 +      Width = 447
132 +    end
133 +    inherited FieldNameList: TIBQuery
134 +      ParamData = <      
135 +        item
136 +          DataType = ftUnknown
137 +          Name = 'RDB$RELATION_NAME'
138 +          ParamType = ptInput
139 +        end>
140 +    end
141 +    inherited PrimaryKeys: TIBQuery
142 +      ParamData = <      
143 +        item
144 +          DataType = ftUnknown
145 +          Name = 'RDB$RELATION_NAME'
146 +          ParamType = ptInput
147 +        end>
148 +    end
149 +    inherited UserProcedures: TIBQuery
150 +      AfterScroll = UserProceduresAfterScroll
151 +    end
152 +    inherited ProcInputParams: TIBQuery
153 +      ParamData = <      
154 +        item
155 +          DataType = ftUnknown
156 +          Name = 'RDB$PROCEDURE_NAME'
157 +          ParamType = ptInput
158 +        end>
159 +    end
160 +    inherited ProcOutputParams: TIBQuery
161 +      ParamData = <      
162 +        item
163 +          DataType = ftUnknown
164 +          Name = 'RDB$PROCEDURE_NAME'
165 +          ParamType = ptInput
166 +        end>
167 +    end
168 +    inherited SQLTransaction: TIBTransaction
169 +      Params.Strings = (      )
170 +    end
171 +    inherited IdentityCols: TIBQuery
172 +      ParamData = <      
173 +        item
174 +          DataType = ftUnknown
175 +          Name = 'RDB$RELATION_NAME'
176 +          ParamType = ptInput
177 +        end>
178 +    end
179 +    inherited ReadOnlyFields: TIBQuery
180 +      ParamData = <      
181 +        item
182 +          DataType = ftUnknown
183 +          Name = 'RDB$RELATION_NAME'
184 +          ParamType = ptInput
185 +        end>
186 +    end
187 +    inherited ReadOnlyFieldsSource: TDataSource
188 +      left = 436
189 +      top = 203
190 +    end
191 +    inherited PackageNames: TIBQuery
192 +      BeforeClose = nil
193 +    end
194    end
195 <  object IBTransaction1: TIBTransaction
196 <    Active = False
197 <    left = 200
198 <    top = 391
195 >  object TabControl1: TTabControl[9]
196 >    Left = 11
197 >    Height = 312
198 >    Top = 8
199 >    Width = 59
200 >    OnChange = TabControl1Change
201 >    TabPosition = tpLeft
202 >    TabIndex = 4
203 >    Tabs.Strings = (
204 >      'Select'
205 >      'Insert'
206 >      'Modify'
207 >      'Delete'
208 >      'Execute'
209 >    )
210 >    TabOrder = 8
211 >  end
212 >  object IncludePrimaryKeys: TCheckBox[10]
213 >    Left = 11
214 >    Height = 22
215 >    Top = 520
216 >    Width = 241
217 >    Caption = 'Include Primary keys in Update SQL'
218 >    TabOrder = 9
219    end
220   end

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines