ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/design/ibsqleditor.lfm

Comparing ibx/trunk/design/ibsqleditor.lfm (file contents):
Revision 37 by tony, Mon Feb 15 14:44:25 2016 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.4.4.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 = 22
53	<	Top = 392
54	<	Width = 125
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 = SelectPage
75	<	TabIndex = 0
76	<	TabOrder = 5
77	<	TabPosition = tpLeft
78	<	object SelectPage: TTabSheet
79	<	Caption = 'Select'
80	<	ClientHeight = 331
81	<	ClientWidth = 184
82	<	OnShow = SelectPageShow
83	<	object Label1: TLabel
84	<	Left = 7
85	<	Height = 15
86	<	Top = 3
87	<	Width = 69
88	<	Caption = 'Table Name'
89	<	ParentColor = False
90	<	end
91	<	object Label2: TLabel
92	<	Left = 7
93	<	Height = 15
94	<	Top = 53
95	<	Width = 33
96	<	Caption = 'Fields'
97	<	ParentColor = False
98	<	end
99	<	object Label4: TLabel
100	<	Left = 7
101	<	Height = 15
102	<	Top = 231
103	<	Width = 77
104	<	Caption = 'Primary Keys'
105	<	ParentColor = False
106	<	end
107	<	object SelectTableNames: TComboBox
108	<	Left = 7
109	<	Height = 27
110	<	Top = 19
111	<	Width = 169
112	<	Anchors = [akTop, akLeft, akRight]
113	<	AutoComplete = True
114	<	AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
115	<	ItemHeight = 0
116	<	OnCloseUp = SelectTableNamesCloseUp
117	<	TabOrder = 0
118	<	end
119	<	object SelectFieldsList: TListBox
120	<	Left = 7
121	<	Height = 136
122	<	Hint = 'Select Fields to include in Select Statement or leave unselected to select all'
123	<	Top = 69
124	<	Width = 169
125	<	Anchors = [akTop, akLeft, akRight]
126	<	ItemHeight = 0
127	<	MultiSelect = True
128	<	OnDblClick = SelectFieldsListDblClick
129	<	ParentShowHint = False
130	<	ScrollWidth = 167
131	<	ShowHint = True
132	<	TabOrder = 1
133	<	TopIndex = -1
134	<	end
135	<	object SelectPrimaryKeys: TListBox
136	<	Left = 7
137	<	Height = 77
138	<	Top = 247
139	<	Width = 169
140	<	Anchors = [akTop, akLeft, akRight, akBottom]
141	<	ItemHeight = 0
142	<	ScrollWidth = 167
143	<	TabOrder = 2
144	<	TopIndex = -1
145	<	end
146	<	end
147	<	object InsertPage: TTabSheet
148	<	Caption = 'Insert'
149	<	ClientHeight = 331
150	<	ClientWidth = 184
151	<	OnShow = InsertPageShow
152	<	object Label8: TLabel
153	<	Left = 7
154	<	Height = 15
155	<	Top = 3
156	<	Width = 69
157	<	Caption = 'Table Name'
158	<	ParentColor = False
159	<	end
160	<	object Label9: TLabel
161	<	Left = 7
162	<	Height = 15
163	<	Top = 53
164	<	Width = 33
165	<	Caption = 'Fields'
166	<	ParentColor = False
167	<	end
168	<	object InsertTableNames: TComboBox
169	<	Left = 7
170	<	Height = 27
171	<	Top = 19
172	<	Width = 169
173	<	Anchors = [akTop, akLeft, akRight]
174	<	AutoComplete = True
175	<	AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
176	<	ItemHeight = 0
177	<	OnCloseUp = InsertTableNamesCloseUp
178	<	TabOrder = 0
179	<	end
180	<	object InsertFieldsList: TListBox
181	<	Left = 7
182	<	Height = 256
183	<	Hint = 'Select Fields to include in Insert  Statement or leave unselected to select all'
184	<	Top = 69
185	<	Width = 169
186	<	Anchors = [akTop, akLeft, akRight, akBottom]
187	<	ItemHeight = 0
188	<	MultiSelect = True
189	<	OnDblClick = SelectFieldsListDblClick
190	<	ParentShowHint = False
191	<	ScrollWidth = 167
192	<	ShowHint = True
193	<	TabOrder = 1
194	<	TopIndex = -1
195	<	end
196	<	end
197	<	object ModifyPage: TTabSheet
198	<	Caption = 'Modify'
199	<	ClientHeight = 331
200	<	ClientWidth = 184
201	<	OnShow = ModifyPageShow
202	<	object Label10: TLabel
203	<	Left = 7
204	<	Height = 15
205	<	Top = 3
206	<	Width = 69
207	<	Caption = 'Table Name'
208	<	ParentColor = False
209	<	end
210	<	object Label11: TLabel
211	<	Left = 7
212	<	Height = 15
213	<	Top = 53
214	<	Width = 33
215	<	Caption = 'Fields'
216	<	ParentColor = False
217	<	end
218	<	object Label12: TLabel
219	<	Left = 7
220	<	Height = 15
221	<	Top = 228
222	<	Width = 77
223	<	Caption = 'Primary Keys'
224	<	ParentColor = False
225	<	end
226	<	object ModifyTableNames: TComboBox
227	<	Left = 7
228	<	Height = 27
229	<	Top = 19
230	<	Width = 169
231	<	Anchors = [akTop, akLeft, akRight]
232	<	AutoComplete = True
233	<	AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
234	<	ItemHeight = 0
235	<	OnCloseUp = ModifyTableNamesCloseUp
236	<	TabOrder = 0
237	<	end
238	<	object ModifyFieldsList: TListBox
239	<	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
241	–	Hint = 'Select Fields to include in Update Statement or leave unselected to select all'
242	–	Top = 69
243	–	Width = 169
244	–	Anchors = [akTop, akLeft, akRight]
245	–	ItemHeight = 0
246	–	MultiSelect = True
247	–	OnClick = SelectFieldsListDblClick
248	–	ScrollWidth = 167
249	–	TabOrder = 1
250	–	TopIndex = -1
251	–	end
252	–	object ModifyPrimaryKeys: TListBox
253	–	Left = 7
254	–	Height = 77
255	–	Top = 244
256	–	Width = 169
257	–	Anchors = [akTop, akLeft, akRight, akBottom]
258	–	ItemHeight = 0
259	–	OnClick = SelectFieldsListDblClick
260	–	ScrollWidth = 167
261	–	TabOrder = 2
262	–	TopIndex = -1
41		end
42	<	object IncludePrimaryKeys: TCheckBox
43	<	Left = 5
266	<	Height = 22
267	<	Top = 181
268	<	Width = 150
269	<	Caption = 'Include Primary keys'
270	<	OnClick = IncludePrimaryKeysClick
271	<	TabOrder = 3
42	>	inherited SelectSelectAll: TCheckBox
43	>	Top = 424
44		end
45	<	object Label5: TLabel
46	<	Left = 27
275	<	Height = 15
276	<	Top = 202
277	<	Width = 67
278	<	Caption = 'in Field List'
279	<	ParentColor = False
45	>	inherited ReadOnlyGrid: TIBDynamicGrid
46	>	Left = 9
47		end
48		end
49	<	object DeletePage: TTabSheet
50	<	Caption = 'Delete'
51	<	ClientHeight = 331
52	<	ClientWidth = 184
286	<	OnShow = DeletePageShow
287	<	object Label14: TLabel
288	<	Left = 7
289	<	Height = 15
290	<	Top = 3
291	<	Width = 69
292	<	Caption = 'Table Name'
293	<	ParentColor = False
294	<	end
295	<	object Label15: TLabel
296	<	Left = 7
297	<	Height = 15
298	<	Top = 66
299	<	Width = 77
300	<	Caption = 'Primary Keys'
301	<	ParentColor = False
302	<	end
303	<	object DeleteTableNames: TComboBox
304	<	Left = 7
305	<	Height = 27
306	<	Top = 19
307	<	Width = 169
308	<	Anchors = [akTop, akLeft, akRight]
309	<	AutoComplete = True
310	<	AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
311	<	ItemHeight = 0
312	<	OnCloseUp = DeleteTableNamesCloseUp
313	<	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
317	<	Height = 55
318	<	Top = 82
319	<	Width = 167
320	<	Anchors = [akTop, akLeft, akRight]
321	<	ItemHeight = 0
322	<	OnDblClick = SelectFieldsListDblClick
323	<	ScrollWidth = 165
324	<	TabOrder = 1
325	<	TopIndex = -1
54	>	inherited Label17: TLabel
55	>	Top = 128
56		end
57	<	end
58	<	object ExecutePage: TTabSheet
329	<	Caption = 'Execute'
330	<	ClientHeight = 331
331	<	ClientWidth = 184
332	<	OnShow = ExecutePageShow
333	<	object Label16: TLabel
334	<	Left = 7
335	<	Height = 15
336	<	Top = 3
337	<	Width = 100
338	<	Caption = 'Procedure Name'
339	<	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
344	<	Top = 61
345	<	Width = 104
346	<	Caption = 'Input Parameters'
347	<	ParentColor = False
62	>	Top = 72
63		end
64	<	object Label18: TLabel
65	<	Left = 11
66	<	Height = 15
67	<	Top = 181
68	<	Width = 114
69	<	Caption = 'Output Parameters'
70	<	ParentColor = False
71	<	end
72	<	object ProcedureNames: TComboBox
73	<	Left = 7
74	<	Height = 27
75	<	Top = 19
76	<	Width = 169
77	<	Anchors = [akTop, akLeft, akRight]
78	<	ItemHeight = 0
79	<	OnCloseUp = ProcedureNamesCloseUp
80	<	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
368	<	Left = 6
369	<	Height = 80
370	<	Top = 82
371	<	Width = 164
372	<	Anchors = [akTop, akLeft, akRight]
373	<	IntegralHeight = True
374	<	ItemHeight = 0
375	<	ScrollWidth = 162
376	<	TabOrder = 1
377	<	TopIndex = -1
378	<	end
379	<	object ProcOutputList: TListBox
96	>	object SelectProcedure: TLabel[8]
97		Left = 10
98	<	Height = 97
99	<	Top = 201
100	<	Width = 160
384	<	Anchors = [akTop, akLeft, akRight]
385	<	IntegralHeight = True
386	<	ItemHeight = 0
387	<	ScrollWidth = 158
388	<	TabOrder = 2
389	<	TopIndex = -1
390	<	end
391	<	object SelectProcedure: TLabel
392	<	Left = 7
393	<	Height = 14
394	<	Top = 310
395	<	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 403 | 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
418	<	Height = 22
419	<	Top = 368
420	<	Width = 171
421	<	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