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 80 by tony, Mon Jan 1 11:31:07 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 = 315
3	>	Width = 776
4		Caption = 'IBSQL Editor'
5	<	ClientHeight = 425
9	<	ClientWidth = 716
5	>	ClientWidth = 776
6		OnShow = FormShow
7	<	LCLVersion = '1.4.4.0'
8	<	object Label3: TLabel
13	<	Left = 288
14	<	Height = 15
15	<	Top = 8
16	<	Width = 24
17	<	Caption = 'SQL'
18	<	ParentColor = False
7	>	inherited Label3: TLabel
8	>	Left = 312
9		end
10	<	object SQLText: TMemo
11	<	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 Button1: TButton
11	>	Left = 579
12		end
13	<	object GenerateBtn: TButton
14	<	Left = 267
31	<	Height = 30
32	<	Top = 374
33	<	Width = 104
34	<	Anchors = [akRight, akBottom]
35	<	Caption = 'Generate SQL'
36	<	OnClick = GenerateBtnClick
37	<	TabOrder = 1
13	>	inherited Button2: TButton
14	>	Left = 667
15		end
16	<	object Button2: TButton
17	<	Left = 627
18	<	Height = 30
42	<	Top = 374
43	<	Width = 72
44	<	Anchors = [akRight, akBottom]
45	<	Cancel = True
46	<	Caption = 'Cancel'
47	<	ModalResult = 2
48	<	TabOrder = 2
16	>	inherited GenerateBtn: TButton
17	>	Left = 307
18	>	OnClick = GenerateBtnClick
19		end
20	<	object QuoteFields: TCheckBox
21	<	Left = 16
52	<	Height = 22
53	<	Top = 392
54	<	Width = 125
55	<	Caption = '&Quote Identifiers'
56	<	TabOrder = 3
20	>	inherited TestBtn: TButton
21	>	Left = 443
22		end
23	<	object Button1: TButton
24	<	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
23	>	inherited QuoteFields: TCheckBox
24	>	Left = 68
25		end
26	<	object PageControl: TPageControl
27	<	Left = 16
71	<	Height = 337
72	<	Top = 27
73	<	Width = 251
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'
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
31	>	inherited SelectPage: TTabSheet
32	>	ClientHeight = 349
33	>	inherited Label4: TLabel
34	>	Top = 256
35		end
36	<	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
36	>	inherited FieldNamesGrid: TIBDynamicGrid
37		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
38		end
39	<	object Label9: TLabel
40	<	Left = 7
162	<	Height = 15
163	<	Top = 53
164	<	Width = 33
165	<	Caption = 'Fields'
166	<	ParentColor = False
39	>	inherited PrimaryKeysGrid: TIBDynamicGrid
40	>	Top = 272
41		end
42	<	object InsertTableNames: TComboBox
43	<	Left = 7
44	<	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
42	>	inherited SelectSelectAll: TCheckBox
43	>	Left = 8
44	>	Top = 224
45		end
46	<	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
240	<	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
263	<	end
264	<	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
274	<	Left = 27
275	<	Height = 15
276	<	Top = 202
277	<	Width = 67
278	<	Caption = 'in Field List'
279	<	ParentColor = False
280	<	end
281	<	end
282	<	object DeletePage: TTabSheet
283	<	Caption = 'Delete'
284	<	ClientHeight = 331
285	<	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
314	<	end
315	<	object DeletePrimaryKeys: TListBox
316	<	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
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'
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
340	<	end
341	<	object Label17: TLabel
342	<	Left = 10
343	<	Height = 15
344	<	Top = 61
345	<	Width = 104
346	<	Caption = 'Input Parameters'
347	<	ParentColor = False
348	<	end
349	<	object Label18: TLabel
350	<	Left = 11
351	<	Height = 15
352	<	Top = 181
353	<	Width = 114
354	<	Caption = 'Output Parameters'
355	<	ParentColor = False
356	<	end
357	<	object ProcedureNames: TComboBox
358	<	Left = 7
359	<	Height = 27
360	<	Top = 19
361	<	Width = 169
362	<	Anchors = [akTop, akLeft, akRight]
363	<	ItemHeight = 0
364	<	OnCloseUp = ProcedureNamesCloseUp
365	<	TabOrder = 0
366	<	end
367	<	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
380	<	Left = 10
381	<	Height = 97
382	<	Top = 201
383	<	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
396	<	Anchors = [akLeft, akBottom]
397	<	Caption = 'Is ''Select Procedure'''
398	<	Font.Height = -11
399	<	Font.Style = [fsBold]
400	<	ParentColor = False
401	<	ParentFont = False
402	<	Visible = False
403	<	end
58	>	inherited ExecutePage: TTabSheet
59	>	ClientHeight = 349
60		end
61		end
62	<	object TestBtn: TButton
63	<	Left = 403
408	<	Height = 30
409	<	Top = 374
410	<	Width = 66
411	<	Anchors = [akRight, akBottom]
412	<	Caption = 'Test'
413	<	OnClick = TestBtnClick
414	<	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