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 79 by tony, Tue Oct 3 14:08:11 2017 UTC vs.
Revision 80 by tony, Mon Jan 1 11:31:07 2018 UTC

#	Line 1 | Line 1
1	<	object IBSQLEditorForm: TIBSQLEditorForm
2	<	Left = 2090
3	<	Height = 425
4	<	Top = 382
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	<	Position = poScreenCenter
8	<	LCLVersion = '1.8.0.4'
13	<	object Label3: TLabel
14	<	Left = 288
15	<	Height = 14
16	<	Top = 8
17	<	Width = 24
18	<	Caption = 'SQL'
19	<	ParentColor = False
7	>	inherited Label3: TLabel
8	>	Left = 312
9		end
10	<	object SQLText: TMemo
11	<	Left = 288
23	<	Height = 335
24	<	Top = 27
25	<	Width = 418
26	<	Anchors = [akTop, akLeft, akRight, akBottom]
27	<	ScrollBars = ssAutoBoth
28	<	TabOrder = 0
10	>	inherited Button1: TButton
11	>	Left = 579
12		end
13	<	object GenerateBtn: TButton
14	<	Left = 267
32	<	Height = 30
33	<	Top = 374
34	<	Width = 104
35	<	Anchors = [akRight, akBottom]
36	<	Caption = 'Generate SQL'
37	<	OnClick = GenerateBtnClick
38	<	TabOrder = 1
13	>	inherited Button2: TButton
14	>	Left = 667
15		end
16	<	object Button2: TButton
17	<	Left = 627
18	<	Height = 30
43	<	Top = 374
44	<	Width = 72
45	<	Anchors = [akRight, akBottom]
46	<	Cancel = True
47	<	Caption = 'Cancel'
48	<	ModalResult = 2
49	<	TabOrder = 2
16	>	inherited GenerateBtn: TButton
17	>	Left = 307
18	>	OnClick = GenerateBtnClick
19		end
20	<	object QuoteFields: TCheckBox
21	<	Left = 16
53	<	Height = 22
54	<	Top = 392
55	<	Width = 125
56	<	Caption = '&Quote Identifiers'
57	<	TabOrder = 3
20	>	inherited TestBtn: TButton
21	>	Left = 443
22		end
23	<	object Button1: TButton
24	<	Left = 539
61	<	Height = 30
62	<	Top = 373
63	<	Width = 72
64	<	Anchors = [akRight, akBottom]
65	<	Caption = 'OK'
66	<	Default = True
67	<	ModalResult = 1
68	<	TabOrder = 4
23	>	inherited QuoteFields: TCheckBox
24	>	Left = 68
25		end
26	<	object PageControl: TPageControl
27	<	Left = 16
72	<	Height = 337
73	<	Top = 27
74	<	Width = 256
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'
81	<	ClientHeight = 331
82	<	ClientWidth = 189
83	<	OnShow = SelectPageShow
84	<	object Label1: TLabel
85	<	Left = 7
86	<	Height = 14
87	<	Top = 3
88	<	Width = 69
89	<	Caption = 'Table Name'
90	<	ParentColor = False
91	<	end
92	<	object Label2: TLabel
93	<	Left = 7
94	<	Height = 14
95	<	Top = 53
96	<	Width = 33
97	<	Caption = 'Fields'
98	<	ParentColor = False
31	>	inherited SelectPage: TTabSheet
32	>	ClientHeight = 349
33	>	inherited Label4: TLabel
34	>	Top = 256
35		end
36	<	object Label4: TLabel
101	<	Left = 7
102	<	Height = 14
103	<	Top = 231
104	<	Width = 77
105	<	Caption = 'Primary Keys'
106	<	ParentColor = False
107	<	end
108	<	object SelectTableNames: TComboBox
109	<	Left = 7
110	<	Height = 27
111	<	Top = 19
112	<	Width = 174
113	<	Anchors = [akTop, akLeft, akRight]
114	<	AutoComplete = True
115	<	AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
116	<	ItemHeight = 0
117	<	OnCloseUp = SelectTableNamesCloseUp
118	<	TabOrder = 0
119	<	end
120	<	object SelectFieldsList: TListBox
121	<	Left = 7
36	>	inherited FieldNamesGrid: TIBDynamicGrid
37		Height = 136
123	–	Hint = 'Select Fields to include in Select Statement or leave unselected to select all'
124	–	Top = 69
125	–	Width = 174
126	–	Anchors = [akTop, akLeft, akRight]
127	–	ItemHeight = 0
128	–	MultiSelect = True
129	–	OnDblClick = SelectFieldsListDblClick
130	–	ParentShowHint = False
131	–	ScrollWidth = 172
132	–	ShowHint = True
133	–	TabOrder = 1
134	–	TopIndex = -1
135	–	end
136	–	object SelectPrimaryKeys: TListBox
137	–	Left = 7
138	–	Height = 77
139	–	Top = 247
140	–	Width = 174
141	–	Anchors = [akTop, akLeft, akRight, akBottom]
142	–	ItemHeight = 0
143	–	ScrollWidth = 172
144	–	TabOrder = 2
145	–	TopIndex = -1
146	–	end
147	–	end
148	–	object InsertPage: TTabSheet
149	–	Caption = 'Insert'
150	–	ClientHeight = 331
151	–	ClientWidth = 189
152	–	OnShow = InsertPageShow
153	–	object Label8: TLabel
154	–	Left = 7
155	–	Height = 15
156	–	Top = 3
157	–	Width = 69
158	–	Caption = 'Table Name'
159	–	ParentColor = False
38		end
39	<	object Label9: TLabel
40	<	Left = 7
163	<	Height = 15
164	<	Top = 53
165	<	Width = 33
166	<	Caption = 'Fields'
167	<	ParentColor = False
39	>	inherited PrimaryKeysGrid: TIBDynamicGrid
40	>	Top = 272
41		end
42	<	object InsertTableNames: TComboBox
43	<	Left = 7
44	<	Height = 27
172	<	Top = 19
173	<	Width = 169
174	<	Anchors = [akTop, akLeft, akRight]
175	<	AutoComplete = True
176	<	AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
177	<	ItemHeight = 0
178	<	OnCloseUp = InsertTableNamesCloseUp
179	<	TabOrder = 0
42	>	inherited SelectSelectAll: TCheckBox
43	>	Left = 8
44	>	Top = 224
45		end
46	<	object InsertFieldsList: TListBox
182	<	Left = 7
183	<	Height = 256
184	<	Hint = 'Select Fields to include in Insert  Statement or leave unselected to select all'
185	<	Top = 69
186	<	Width = 169
187	<	Anchors = [akTop, akLeft, akRight, akBottom]
188	<	ItemHeight = 0
189	<	MultiSelect = True
190	<	OnDblClick = SelectFieldsListDblClick
191	<	ParentShowHint = False
192	<	ScrollWidth = 167
193	<	ShowHint = True
194	<	TabOrder = 1
195	<	TopIndex = -1
196	<	end
197	<	end
198	<	object ModifyPage: TTabSheet
199	<	Caption = 'Modify'
200	<	ClientHeight = 331
201	<	ClientWidth = 189
202	<	OnShow = ModifyPageShow
203	<	object Label10: TLabel
204	<	Left = 7
205	<	Height = 15
206	<	Top = 3
207	<	Width = 69
208	<	Caption = 'Table Name'
209	<	ParentColor = False
210	<	end
211	<	object Label11: TLabel
212	<	Left = 7
213	<	Height = 15
214	<	Top = 53
215	<	Width = 33
216	<	Caption = 'Fields'
217	<	ParentColor = False
218	<	end
219	<	object Label12: TLabel
220	<	Left = 7
221	<	Height = 15
222	<	Top = 228
223	<	Width = 77
224	<	Caption = 'Primary Keys'
225	<	ParentColor = False
226	<	end
227	<	object ModifyTableNames: TComboBox
228	<	Left = 7
229	<	Height = 27
230	<	Top = 19
231	<	Width = 169
232	<	Anchors = [akTop, akLeft, akRight]
233	<	AutoComplete = True
234	<	AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
235	<	ItemHeight = 0
236	<	OnCloseUp = ModifyTableNamesCloseUp
237	<	TabOrder = 0
238	<	end
239	<	object ModifyFieldsList: TListBox
240	<	Left = 7
241	<	Height = 104
242	<	Hint = 'Select Fields to include in Update Statement or leave unselected to select all'
243	<	Top = 69
244	<	Width = 169
245	<	Anchors = [akTop, akLeft, akRight]
246	<	ItemHeight = 0
247	<	MultiSelect = True
248	<	OnClick = SelectFieldsListDblClick
249	<	ScrollWidth = 167
250	<	TabOrder = 1
251	<	TopIndex = -1
252	<	end
253	<	object ModifyPrimaryKeys: TListBox
254	<	Left = 7
255	<	Height = 77
256	<	Top = 244
257	<	Width = 169
258	<	Anchors = [akTop, akLeft, akRight, akBottom]
259	<	ItemHeight = 0
260	<	OnClick = SelectFieldsListDblClick
261	<	ScrollWidth = 167
262	<	TabOrder = 2
263	<	TopIndex = -1
264	<	end
265	<	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
275	<	Left = 27
276	<	Height = 15
277	<	Top = 202
278	<	Width = 67
279	<	Caption = 'in Field List'
280	<	ParentColor = False
281	<	end
282	<	end
283	<	object DeletePage: TTabSheet
284	<	Caption = 'Delete'
285	<	ClientHeight = 331
286	<	ClientWidth = 189
287	<	OnShow = DeletePageShow
288	<	object Label14: TLabel
289	<	Left = 7
290	<	Height = 15
291	<	Top = 3
292	<	Width = 69
293	<	Caption = 'Table Name'
294	<	ParentColor = False
295	<	end
296	<	object Label15: TLabel
297	<	Left = 7
298	<	Height = 15
299	<	Top = 66
300	<	Width = 77
301	<	Caption = 'Primary Keys'
302	<	ParentColor = False
303	<	end
304	<	object DeleteTableNames: TComboBox
305	<	Left = 7
306	<	Height = 27
307	<	Top = 19
308	<	Width = 169
309	<	Anchors = [akTop, akLeft, akRight]
310	<	AutoComplete = True
311	<	AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
312	<	ItemHeight = 0
313	<	OnCloseUp = DeleteTableNamesCloseUp
314	<	TabOrder = 0
315	<	end
316	<	object DeletePrimaryKeys: TListBox
317	<	Left = 7
318	<	Height = 55
319	<	Top = 82
320	<	Width = 167
321	<	Anchors = [akTop, akLeft, akRight]
322	<	ItemHeight = 0
323	<	OnDblClick = SelectFieldsListDblClick
324	<	ScrollWidth = 165
325	<	TabOrder = 1
326	<	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'
331	<	ClientHeight = 331
332	<	ClientWidth = 189
333	<	OnShow = ExecutePageShow
334	<	object Label16: TLabel
335	<	Left = 7
336	<	Height = 15
337	<	Top = 3
338	<	Width = 100
339	<	Caption = 'Procedure Name'
340	<	ParentColor = False
341	<	end
342	<	object Label17: TLabel
343	<	Left = 10
344	<	Height = 15
345	<	Top = 61
346	<	Width = 104
347	<	Caption = 'Input Parameters'
348	<	ParentColor = False
349	<	end
350	<	object Label18: TLabel
351	<	Left = 11
352	<	Height = 15
353	<	Top = 181
354	<	Width = 114
355	<	Caption = 'Output Parameters'
356	<	ParentColor = False
357	<	end
358	<	object ProcedureNames: TComboBox
359	<	Left = 7
360	<	Height = 27
361	<	Top = 19
362	<	Width = 169
363	<	Anchors = [akTop, akLeft, akRight]
364	<	ItemHeight = 0
365	<	OnCloseUp = ProcedureNamesCloseUp
366	<	TabOrder = 0
367	<	end
368	<	object ProcInputList: TListBox
369	<	Left = 6
370	<	Height = 80
371	<	Top = 82
372	<	Width = 164
373	<	Anchors = [akTop, akLeft, akRight]
374	<	IntegralHeight = True
375	<	ItemHeight = 0
376	<	ScrollWidth = 162
377	<	TabOrder = 1
378	<	TopIndex = -1
379	<	end
380	<	object ProcOutputList: TListBox
381	<	Left = 10
382	<	Height = 97
383	<	Top = 201
384	<	Width = 160
385	<	Anchors = [akTop, akLeft, akRight]
386	<	IntegralHeight = True
387	<	ItemHeight = 0
388	<	ScrollWidth = 158
389	<	TabOrder = 2
390	<	TopIndex = -1
391	<	end
392	<	object SelectProcedure: TLabel
393	<	Left = 7
394	<	Height = 14
395	<	Top = 310
396	<	Width = 126
397	<	Anchors = [akLeft, akBottom]
398	<	Caption = 'Is ''Select Procedure'''
399	<	Font.Height = -11
400	<	Font.Style = [fsBold]
401	<	ParentColor = False
402	<	ParentFont = False
403	<	Visible = False
404	<	end
58	>	inherited ExecutePage: TTabSheet
59	>	ClientHeight = 349
60		end
61		end
62	<	object TestBtn: TButton
63	<	Left = 403
409	<	Height = 30
410	<	Top = 374
411	<	Width = 66
412	<	Anchors = [akRight, akBottom]
413	<	Caption = 'Test'
414	<	OnClick = TestBtnClick
415	<	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