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 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.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
41		end
42	<	object IncludePrimaryKeys: TCheckBox
43	<	Left = 5
260	<	Height = 24
261	<	Top = 181
262	<	Width = 152
263	<	Caption = 'Include Primary keys'
264	<	OnClick = IncludePrimaryKeysClick
265	<	TabOrder = 3
42	>	inherited SelectSelectAll: TCheckBox
43	>	Top = 424
44		end
45	<	object Label5: TLabel
46	<	Left = 27
269	<	Height = 15
270	<	Top = 202
271	<	Width = 67
272	<	Caption = 'in Field List'
273	<	ParentColor = False
45	>	inherited ReadOnlyGrid: TIBDynamicGrid
46	>	Left = 9
47		end
48		end
49	<	object DeletePage: TTabSheet
50	<	Caption = 'Delete'
51	<	ClientHeight = 300
52	<	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
296	<	end
297	<	object DeleteTableNames: TComboBox
298	<	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
49	>	inherited ExecutePage: TTabSheet
50	>	ClientHeight = 450
51	>	inherited Label16: TLabel
52	>	Left = 10
53		end
54	<	object DeletePrimaryKeys: TListBox
55	<	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
54	>	inherited Label17: TLabel
55	>	Top = 128
56		end
57	<	end
58	<	object ExecutePage: TTabSheet
321	<	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
57	>	inherited Label18: TLabel
58	>	Top = 280
59		end
60	<	object Label17: TLabel
60	>	inherited ProcedureNames: TIBLookupComboEditBox
61		Left = 10
62	<	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
62	>	Top = 72
63		end
64	<	object ProcedureNames: TComboBox
65	<	Left = 7
66	<	Height = 27
67	<	Top = 19
68	<	Width = 169
69	<	ItemHeight = 0
70	<	OnCloseUp = ProcedureNamesCloseUp
71	<	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
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
96	>	object SelectProcedure: TLabel[8]
97		Left = 10
98	<	Height = 66
99	<	Top = 201
100	<	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
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 393 | 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
408	<	Height = 24
409	<	Top = 368
410	<	Width = 173
411	<	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