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 21 by tony, Thu Feb 26 10:33:34 2015 UTC vs.
Revision 106 by tony, Thu Jan 18 14:37:35 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 = 582
3	>	Height = 555
4	>	Top = 415
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.6.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 = InsertPage
75	<	TabIndex = 1
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 = 15
85	<	Top = 3
86	<	Width = 69
87	<	Caption = 'Table Name'
88	<	ParentColor = False
89	<	end
90	<	object Label2: TLabel
91	<	Left = 7
92	<	Height = 15
93	<	Top = 53
94	<	Width = 33
95	<	Caption = 'Fields'
96	<	ParentColor = False
97	<	end
98	<	object Label4: TLabel
99	<	Left = 7
100	<	Height = 15
101	<	Top = 231
102	<	Width = 77
103	<	Caption = 'Primary Keys'
104	<	ParentColor = False
105	<	end
106	<	object SelectTableNames: TComboBox
107	<	Left = 7
108	<	Height = 27
109	<	Top = 19
110	<	Width = 169
111	<	AutoComplete = True
112	<	AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
113	<	ItemHeight = 0
114	<	OnCloseUp = SelectTableNamesCloseUp
115	<	TabOrder = 0
116	<	end
117	<	object SelectFieldsList: TListBox
118	<	Left = 7
119	<	Height = 136
120	<	Hint = 'Select Fields to include in Select Statement or leave unselected to select all'
121	<	Top = 69
122	<	Width = 169
123	<	ItemHeight = 0
124	<	MultiSelect = True
125	<	OnDblClick = SelectFieldsListDblClick
126	<	ParentShowHint = False
127	<	ScrollWidth = 167
128	<	ShowHint = True
129	<	TabOrder = 1
130	<	TopIndex = -1
131	<	end
132	<	object SelectPrimaryKeys: TListBox
133	<	Left = 7
134	<	Height = 46
135	<	Top = 247
136	<	Width = 159
137	<	Anchors = [akTop, akLeft, akBottom]
138	<	ItemHeight = 0
139	<	ScrollWidth = 157
140	<	TabOrder = 2
141	<	TopIndex = -1
142	<	end
143	<	end
144	<	object InsertPage: TTabSheet
145	<	Caption = 'Insert'
146	<	ClientHeight = 300
147	<	ClientWidth = 243
148	<	OnShow = InsertPageShow
149	<	object Label8: TLabel
150	<	Left = 7
151	<	Height = 15
152	<	Top = 3
153	<	Width = 69
154	<	Caption = 'Table Name'
155	<	ParentColor = False
156	<	end
157	<	object Label9: TLabel
158	<	Left = 7
159	<	Height = 15
160	<	Top = 53
161	<	Width = 33
162	<	Caption = 'Fields'
163	<	ParentColor = False
164	<	end
165	<	object InsertTableNames: TComboBox
166	<	Left = 7
167	<	Height = 27
168	<	Top = 19
169	<	Width = 169
170	<	AutoComplete = True
171	<	AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
172	<	ItemHeight = 0
173	<	OnCloseUp = InsertTableNamesCloseUp
174	<	TabOrder = 0
175	<	end
176	<	object InsertFieldsList: TListBox
177	<	Left = 7
178	<	Height = 225
179	<	Hint = 'Select Fields to include in Insert  Statement or leave unselected to select all'
180	<	Top = 69
181	<	Width = 169
182	<	Anchors = [akTop, akLeft, akBottom]
183	<	ItemHeight = 0
184	<	MultiSelect = True
185	<	OnDblClick = SelectFieldsListDblClick
186	<	ParentShowHint = False
187	<	ScrollWidth = 167
188	<	ShowHint = True
189	<	TabOrder = 1
190	<	TopIndex = -1
191	<	end
192	<	end
193	<	object ModifyPage: TTabSheet
194	<	Caption = 'Modify'
195	<	ClientHeight = 300
196	<	ClientWidth = 243
197	<	OnShow = ModifyPageShow
198	<	object Label10: TLabel
199	<	Left = 7
200	<	Height = 15
201	<	Top = 3
202	<	Width = 69
203	<	Caption = 'Table Name'
204	<	ParentColor = False
205	<	end
206	<	object Label11: TLabel
207	<	Left = 7
208	<	Height = 15
209	<	Top = 53
210	<	Width = 33
211	<	Caption = 'Fields'
212	<	ParentColor = False
213	<	end
214	<	object Label12: TLabel
215	<	Left = 7
216	<	Height = 15
217	<	Top = 228
218	<	Width = 77
219	<	Caption = 'Primary Keys'
220	<	ParentColor = False
221	<	end
222	<	object ModifyTableNames: TComboBox
223	<	Left = 7
224	<	Height = 27
225	<	Top = 19
226	<	Width = 169
227	<	AutoComplete = True
228	<	AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
229	<	ItemHeight = 0
230	<	OnCloseUp = ModifyTableNamesCloseUp
231	<	TabOrder = 0
232	<	end
233	<	object ModifyFieldsList: TListBox
234	<	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
236	–	Hint = 'Select Fields to include in Update Statement or leave unselected to select all'
237	–	Top = 69
238	–	Width = 169
239	–	ItemHeight = 0
240	–	MultiSelect = True
241	–	OnClick = SelectFieldsListDblClick
242	–	ScrollWidth = 167
243	–	TabOrder = 1
244	–	TopIndex = -1
245	–	end
246	–	object ModifyPrimaryKeys: TListBox
247	–	Left = 7
248	–	Height = 46
249	–	Top = 244
250	–	Width = 159
251	–	Anchors = [akTop, akLeft, akBottom]
252	–	ItemHeight = 0
253	–	OnClick = SelectFieldsListDblClick
254	–	ScrollWidth = 157
255	–	TabOrder = 2
256	–	TopIndex = -1
257	–	end
258	–	object IncludePrimaryKeys: TCheckBox
259	–	Left = 5
260	–	Height = 24
261	–	Top = 181
262	–	Width = 152
263	–	Caption = 'Include Primary keys'
264	–	OnClick = IncludePrimaryKeysClick
265	–	TabOrder = 3
266	–	end
267	–	object Label5: TLabel
268	–	Left = 27
269	–	Height = 15
270	–	Top = 202
271	–	Width = 67
272	–	Caption = 'in Field List'
273	–	ParentColor = False
274	–	end
275	–	end
276	–	object DeletePage: TTabSheet
277	–	Caption = 'Delete'
278	–	ClientHeight = 300
279	–	ClientWidth = 243
280	–	OnShow = DeletePageShow
281	–	object Label14: TLabel
282	–	Left = 7
283	–	Height = 15
284	–	Top = 3
285	–	Width = 69
286	–	Caption = 'Table Name'
287	–	ParentColor = False
288	–	end
289	–	object Label15: TLabel
290	–	Left = 7
291	–	Height = 15
292	–	Top = 66
293	–	Width = 77
294	–	Caption = 'Primary Keys'
295	–	ParentColor = False
41		end
42	<	object DeleteTableNames: TComboBox
43	<	Left = 7
299	<	Height = 27
300	<	Top = 19
301	<	Width = 169
302	<	AutoComplete = True
303	<	AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
304	<	ItemHeight = 0
305	<	OnCloseUp = DeleteTableNamesCloseUp
306	<	TabOrder = 0
42	>	inherited SelectSelectAll: TCheckBox
43	>	Top = 424
44		end
45	<	object DeletePrimaryKeys: TListBox
46	<	Left = 7
310	<	Height = 55
311	<	Top = 82
312	<	Width = 159
313	<	ItemHeight = 0
314	<	OnDblClick = SelectFieldsListDblClick
315	<	ScrollWidth = 157
316	<	TabOrder = 1
317	<	TopIndex = -1
45	>	inherited ReadOnlyGrid: TIBDynamicGrid
46	>	Left = 9
47		end
48		end
49	<	object ExecutePage: TTabSheet
50	<	Caption = 'Execute'
322	<	ClientHeight = 300
323	<	ClientWidth = 243
324	<	OnShow = ExecutePageShow
325	<	object Label16: TLabel
326	<	Left = 7
327	<	Height = 15
328	<	Top = 3
329	<	Width = 100
330	<	Caption = 'Procedure Name'
331	<	ParentColor = False
332	<	end
333	<	object Label17: TLabel
334	<	Left = 10
335	<	Height = 15
336	<	Top = 61
337	<	Width = 104
338	<	Caption = 'Input Parameters'
339	<	ParentColor = False
340	<	end
341	<	object Label18: TLabel
342	<	Left = 11
343	<	Height = 15
344	<	Top = 181
345	<	Width = 114
346	<	Caption = 'Output Parameters'
347	<	ParentColor = False
348	<	end
349	<	object ProcedureNames: TComboBox
350	<	Left = 7
351	<	Height = 27
352	<	Top = 19
353	<	Width = 169
354	<	ItemHeight = 0
355	<	OnCloseUp = ProcedureNamesCloseUp
356	<	TabOrder = 0
357	<	end
358	<	object ProcInputList: TListBox
359	<	Left = 6
360	<	Height = 80
361	<	Top = 82
362	<	Width = 164
363	<	IntegralHeight = True
364	<	ItemHeight = 0
365	<	ScrollWidth = 162
366	<	TabOrder = 1
367	<	TopIndex = -1
368	<	end
369	<	object ProcOutputList: TListBox
370	<	Left = 10
371	<	Height = 66
372	<	Top = 201
373	<	Width = 160
374	<	Anchors = [akTop, akLeft, akBottom]
375	<	IntegralHeight = True
376	<	ItemHeight = 0
377	<	ScrollWidth = 158
378	<	TabOrder = 2
379	<	TopIndex = -1
380	<	end
381	<	object SelectProcedure: TLabel
382	<	Left = 7
383	<	Height = 14
384	<	Top = 279
385	<	Width = 126
386	<	Anchors = [akLeft, akBottom]
387	<	Caption = 'Is ''Select Procedure'''
388	<	Font.Height = -11
389	<	Font.Style = [fsBold]
390	<	ParentColor = False
391	<	ParentFont = False
392	<	Visible = False
393	<	end
49	>	inherited ExecutePage: TTabSheet
50	>	ClientHeight = 450
51		end
52		end
53	<	object TestBtn: TButton
54	<	Left = 403
55	<	Height = 30
56	<	Top = 374
57	<	Width = 66
58	<	Anchors = [akRight, akBottom]
59	<	Caption = 'Test'
60	<	OnClick = TestBtnClick
61	<	TabOrder = 6
62	<	end
63	<	object GenerateParams: TCheckBox
64	<	Left = 16
408	<	Height = 24
409	<	Top = 368
410	<	Width = 173
411	<	Caption = 'Allow DSQL Placeholders'
53	>	inherited GenerateParams: TCheckBox
54	>	Left = 11
55	>	Top = 472
56	>	end
57	>	inherited IBSQLEditFrame1: TIBSQLEditFrame
58	>	Left = 312
59	>	Height = 440
60	>	Top = 24
61	>	Width = 447
62	>	Anchors = [akTop, akLeft, akRight, akBottom]
63	>	ClientHeight = 440
64	>	ClientWidth = 447
65		TabOrder = 7
66	+	DesignLeft = 1974
67	+	DesignTop = 200
68	+	inherited SQLText: TSynEdit
69	+	Height = 414
70	+	Width = 447
71	+	end
72	+	inherited ToolBar1: TToolBar
73	+	Width = 447
74	+	end
75	+	inherited FieldNameList: TIBQuery
76	+	ParamData = <
77	+	item
78	+	DataType = ftUnknown
79	+	Name = 'RDB$RELATION_NAME'
80	+	ParamType = ptInput
81	+	end>
82	+	end
83	+	inherited PrimaryKeys: TIBQuery
84	+	ParamData = <
85	+	item
86	+	DataType = ftUnknown
87	+	Name = 'RDB$RELATION_NAME'
88	+	ParamType = ptInput
89	+	end>
90	+	end
91	+	inherited UserProcedures: TIBQuery
92	+	AfterScroll = UserProceduresAfterScroll
93	+	end
94	+	inherited ProcInputParams: TIBQuery
95	+	ParamData = <
96	+	item
97	+	DataType = ftUnknown
98	+	Name = 'RDB$PROCEDURE_NAME'
99	+	ParamType = ptInput
100	+	end>
101	+	end
102	+	inherited ProcOutputParams: TIBQuery
103	+	ParamData = <
104	+	item
105	+	DataType = ftUnknown
106	+	Name = 'RDB$PROCEDURE_NAME'
107	+	ParamType = ptInput
108	+	end>
109	+	end
110	+	inherited SQLTransaction: TIBTransaction
111	+	Params.Strings = (      )
112	+	end
113	+	inherited IdentityCols: TIBQuery
114	+	ParamData = <
115	+	item
116	+	DataType = ftUnknown
117	+	Name = 'RDB$RELATION_NAME'
118	+	ParamType = ptInput
119	+	end>
120	+	end
121	+	inherited ReadOnlyFields: TIBQuery
122	+	ParamData = <
123	+	item
124	+	DataType = ftUnknown
125	+	Name = 'RDB$RELATION_NAME'
126	+	ParamType = ptInput
127	+	end>
128	+	end
129	+	inherited ReadOnlyFieldsSource: TDataSource
130	+	left = 436
131	+	top = 203
132	+	end
133		end
134	<	object IBTransaction1: TIBTransaction
135	<	Active = False
136	<	left = 200
137	<	top = 391
134	>	object TabControl1: TTabControl[9]
135	>	Left = 11
136	>	Height = 312
137	>	Top = 8
138	>	Width = 59
139	>	OnChange = TabControl1Change
140	>	TabPosition = tpLeft
141	>	TabIndex = 0
142	>	Tabs.Strings = (
143	>	'Select'
144	>	'Insert'
145	>	'Modify'
146	>	'Delete'
147	>	'Execute'
148	>	)
149	>	TabOrder = 8
150	>	end
151	>	object IncludePrimaryKeys: TCheckBox[10]
152	>	Left = 11
153	>	Height = 22
154	>	Top = 520
155	>	Width = 241
156	>	Caption = 'Include Primary keys in Update SQL'
157	>	TabOrder = 9
158		end
159		end

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines