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 19 by tony, Mon Jul 7 13:00:15 2014 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.2.2.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 = 24
53	<	Top = 392
54	<	Width = 127
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
28	<	Height = 337
29	<	Top = 27
30	<	Width = 251
31	<	ActivePage = ExecutePage
32	<	TabIndex = 4
33	<	TabOrder = 5
34	<	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
26	>	inherited PageControl: TPageControl
27	>	Left = 68
28	>	ActivePage = SelectPage
29	>	ShowTabs = False
30	>	TabIndex = 0
31	>	inherited SelectPage: TTabSheet
32	>	ClientHeight = 349
33	>	inherited Label4: TLabel
34	>	Top = 256
35		end
36	<	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
36	>	inherited FieldNamesGrid: TIBDynamicGrid
37		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
38		end
39	<	object InsertTableNames: TComboBox
40	<	Left = 7
165	<	Height = 29
166	<	Top = 19
167	<	Width = 169
168	<	ItemHeight = 0
169	<	OnCloseUp = InsertTableNamesCloseUp
170	<	TabOrder = 0
39	>	inherited PrimaryKeysGrid: TIBDynamicGrid
40	>	Top = 272
41		end
42	<	object InsertFieldsList: TListBox
43	<	Left = 7
44	<	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
42	>	inherited SelectSelectAll: TCheckBox
43	>	Left = 8
44	>	Top = 224
45		end
46	<	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
229	<	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
46	>	object IncludePrimaryKeys: TCheckBox[8]
47		Left = 5
48		Height = 22
49	<	Top = 181
50	<	Width = 161
51	<	Caption = 'Include Primary keys'
52	<	OnClick = IncludePrimaryKeysClick
53	<	TabOrder = 3
54	<	end
55	<	object Label5: TLabel
262	<	Left = 27
263	<	Height = 18
264	<	Top = 202
265	<	Width = 75
266	<	Caption = 'in Field List'
267	<	ParentColor = False
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 DeletePage: TTabSheet
59	<	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
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
299	<	end
300	<	object DeletePrimaryKeys: TListBox
301	<	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
310	<	end
311	<	end
312	<	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
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
58	>	inherited ExecutePage: TTabSheet
59	>	ClientHeight = 349
60		end
61		end
62	<	object TestBtn: TButton
63	<	Left = 403
390	<	Height = 30
391	<	Top = 374
392	<	Width = 66
393	<	Anchors = [akRight, akBottom]
394	<	Caption = 'Test'
395	<	OnClick = TestBtnClick
396	<	TabOrder = 6
62	>	inherited GenerateParams: TCheckBox
63	>	Left = 68
64		end
65	<	object GenerateParams: TCheckBox
66	<	Left = 16
67	<	Height = 24
68	<	Top = 368
69	<	Width = 173
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