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 7 by tony, Sun Aug 5 18:28:19 2012 UTC vs.
Revision 37 by tony, Mon Feb 15 14:44:25 2016 UTC

#	Line 1 | Line 1
1		object IBSQLEditorForm: TIBSQLEditorForm
2		Left = 402
3	<	Height = 426
3	>	Height = 425
4		Top = 369
5		Width = 716
6		ActiveControl = PageControl
7		Caption = 'IBSQL Editor'
8	<	ClientHeight = 426
8	>	ClientHeight = 425
9		ClientWidth = 716
10		OnShow = FormShow
11	<	LCLVersion = '0.9.30'
11	>	LCLVersion = '1.4.4.0'
12		object Label3: TLabel
13		Left = 288
14	<	Height = 18
14	>	Height = 15
15		Top = 8
16	<	Width = 26
16	>	Width = 24
17		Caption = 'SQL'
18		ParentColor = False
19		end
20		object SQLText: TMemo
21		Left = 288
22	<	Height = 336
22	>	Height = 335
23		Top = 27
24		Width = 418
25		Anchors = [akTop, akLeft, akRight, akBottom]
#	Line 29 | Line 29 | object IBSQLEditorForm: TIBSQLEditorForm
29		object GenerateBtn: TButton
30		Left = 267
31		Height = 30
32	<	Top = 375
32	>	Top = 374
33		Width = 104
34		Anchors = [akRight, akBottom]
35		Caption = 'Generate SQL'
#	Line 39 | Line 39 | object IBSQLEditorForm: TIBSQLEditorForm
39		object Button2: TButton
40		Left = 627
41		Height = 30
42	<	Top = 375
42	>	Top = 374
43		Width = 72
44		Anchors = [akRight, akBottom]
45		Cancel = True
#	Line 50 | Line 50 | object IBSQLEditorForm: TIBSQLEditorForm
50		object QuoteFields: TCheckBox
51		Left = 16
52		Height = 22
53	<	Top = 380
54	<	Width = 132
53	>	Top = 392
54	>	Width = 125
55		Caption = '&Quote Identifiers'
56		TabOrder = 3
57		end
58		object Button1: TButton
59		Left = 539
60		Height = 30
61	<	Top = 374
61	>	Top = 373
62		Width = 72
63		Anchors = [akRight, akBottom]
64		Caption = 'OK'
#	Line 71 | Line 71 | object IBSQLEditorForm: TIBSQLEditorForm
71		Height = 337
72		Top = 27
73		Width = 251
74	<	ActivePage = ExecutePage
75	<	TabIndex = 4
74	>	ActivePage = SelectPage
75	>	TabIndex = 0
76		TabOrder = 5
77	+	TabPosition = tpLeft
78		object SelectPage: TTabSheet
79		Caption = 'Select'
80	<	ClientHeight = 302
81	<	ClientWidth = 245
80	>	ClientHeight = 331
81	>	ClientWidth = 184
82		OnShow = SelectPageShow
83		object Label1: TLabel
84		Left = 7
85	<	Height = 18
85	>	Height = 15
86		Top = 3
87	<	Width = 78
87	>	Width = 69
88		Caption = 'Table Name'
89		ParentColor = False
90		end
91		object Label2: TLabel
92		Left = 7
93	<	Height = 18
93	>	Height = 15
94		Top = 53
95	<	Width = 39
95	>	Width = 33
96		Caption = 'Fields'
97		ParentColor = False
98		end
99		object Label4: TLabel
100		Left = 7
101	<	Height = 18
101	>	Height = 15
102		Top = 231
103	<	Width = 87
103	>	Width = 77
104		Caption = 'Primary Keys'
105		ParentColor = False
106		end
107		object SelectTableNames: TComboBox
108		Left = 7
109	<	Height = 29
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
#	Line 118 | Line 122 | object IBSQLEditorForm: TIBSQLEditorForm
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 = 46
137	>	Height = 77
138		Top = 247
139	<	Width = 159
140	<	Anchors = [akTop, akLeft, akBottom]
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 = 302
150	<	ClientWidth = 245
149	>	ClientHeight = 331
150	>	ClientWidth = 184
151		OnShow = InsertPageShow
152		object Label8: TLabel
153		Left = 7
154	<	Height = 18
154	>	Height = 15
155		Top = 3
156	<	Width = 78
156	>	Width = 69
157		Caption = 'Table Name'
158		ParentColor = False
159		end
160		object Label9: TLabel
161		Left = 7
162	<	Height = 18
162	>	Height = 15
163		Top = 53
164	<	Width = 39
164	>	Width = 33
165		Caption = 'Fields'
166		ParentColor = False
167		end
168		object InsertTableNames: TComboBox
169		Left = 7
170	<	Height = 29
170	>	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
179		end
180		object InsertFieldsList: TListBox
181		Left = 7
182	<	Height = 225
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, akBottom]
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
#	Line 185 | Line 196 | object IBSQLEditorForm: TIBSQLEditorForm
196		end
197		object ModifyPage: TTabSheet
198		Caption = 'Modify'
199	<	ClientHeight = 302
200	<	ClientWidth = 245
199	>	ClientHeight = 331
200	>	ClientWidth = 184
201		OnShow = ModifyPageShow
202		object Label10: TLabel
203		Left = 7
204	<	Height = 18
204	>	Height = 15
205		Top = 3
206	<	Width = 78
206	>	Width = 69
207		Caption = 'Table Name'
208		ParentColor = False
209		end
210		object Label11: TLabel
211		Left = 7
212	<	Height = 18
212	>	Height = 15
213		Top = 53
214	<	Width = 39
214	>	Width = 33
215		Caption = 'Fields'
216		ParentColor = False
217		end
218		object Label12: TLabel
219		Left = 7
220	<	Height = 18
220	>	Height = 15
221		Top = 228
222	<	Width = 87
222	>	Width = 77
223		Caption = 'Primary Keys'
224		ParentColor = False
225		end
226		object ModifyTableNames: TComboBox
227		Left = 7
228	<	Height = 29
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
#	Line 227 | Line 241 | object IBSQLEditorForm: TIBSQLEditorForm
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 = 46
254	>	Height = 77
255		Top = 244
256	<	Width = 159
257	<	Anchors = [akTop, akLeft, akBottom]
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
#	Line 248 | Line 265 | object IBSQLEditorForm: TIBSQLEditorForm
265		Left = 5
266		Height = 22
267		Top = 181
268	<	Width = 161
268	>	Width = 150
269		Caption = 'Include Primary keys'
270		OnClick = IncludePrimaryKeysClick
271		TabOrder = 3
272		end
273		object Label5: TLabel
274		Left = 27
275	<	Height = 18
275	>	Height = 15
276		Top = 202
277	<	Width = 75
277	>	Width = 67
278		Caption = 'in Field List'
279		ParentColor = False
280		end
281		end
282		object DeletePage: TTabSheet
283		Caption = 'Delete'
284	<	ClientHeight = 302
285	<	ClientWidth = 245
284	>	ClientHeight = 331
285	>	ClientWidth = 184
286		OnShow = DeletePageShow
287		object Label14: TLabel
288		Left = 7
289	<	Height = 18
289	>	Height = 15
290		Top = 3
291	<	Width = 78
291	>	Width = 69
292		Caption = 'Table Name'
293		ParentColor = False
294		end
295		object Label15: TLabel
296		Left = 7
297	<	Height = 18
297	>	Height = 15
298		Top = 66
299	<	Width = 87
299	>	Width = 77
300		Caption = 'Primary Keys'
301		ParentColor = False
302		end
303		object DeleteTableNames: TComboBox
304		Left = 7
305	<	Height = 29
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
#	Line 296 | Line 316 | object IBSQLEditorForm: TIBSQLEditorForm
316		Left = 7
317		Height = 55
318		Top = 82
319	<	Width = 159
319	>	Width = 167
320	>	Anchors = [akTop, akLeft, akRight]
321		ItemHeight = 0
322		OnDblClick = SelectFieldsListDblClick
323	+	ScrollWidth = 165
324		TabOrder = 1
325		TopIndex = -1
326		end
327		end
328		object ExecutePage: TTabSheet
329		Caption = 'Execute'
330	<	ClientHeight = 302
331	<	ClientWidth = 245
330	>	ClientHeight = 331
331	>	ClientWidth = 184
332		OnShow = ExecutePageShow
333		object Label16: TLabel
334		Left = 7
335	<	Height = 18
335	>	Height = 15
336		Top = 3
337	<	Width = 109
337	>	Width = 100
338		Caption = 'Procedure Name'
339		ParentColor = False
340		end
341		object Label17: TLabel
342		Left = 10
343	<	Height = 18
343	>	Height = 15
344		Top = 61
345	<	Width = 112
345	>	Width = 104
346		Caption = 'Input Parameters'
347		ParentColor = False
348		end
349		object Label18: TLabel
350		Left = 11
351	<	Height = 18
351	>	Height = 15
352		Top = 181
353	<	Width = 123
353	>	Width = 114
354		Caption = 'Output Parameters'
355		ParentColor = False
356		end
357		object ProcedureNames: TComboBox
358		Left = 7
359	<	Height = 29
359	>	Height = 27
360		Top = 19
361		Width = 169
362	+	Anchors = [akTop, akLeft, akRight]
363		ItemHeight = 0
364		OnCloseUp = ProcedureNamesCloseUp
365		TabOrder = 0
#	Line 346 | Line 369 | object IBSQLEditorForm: TIBSQLEditorForm
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 = 68
381	>	Height = 97
382		Top = 201
383		Width = 160
384	<	Anchors = [akTop, akLeft, akBottom]
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 = 15
394	<	Top = 280
395	<	Width = 127
393	>	Height = 14
394	>	Top = 310
395	>	Width = 126
396		Anchors = [akLeft, akBottom]
397		Caption = 'Is ''Select Procedure'''
398		Font.Height = -11
#	Line 380 | Line 406 | object IBSQLEditorForm: TIBSQLEditorForm
406		object TestBtn: TButton
407		Left = 403
408		Height = 30
409	<	Top = 375
409	>	Top = 374
410		Width = 66
411		Anchors = [akRight, akBottom]
412		Caption = 'Test'
413		OnClick = TestBtnClick
414		TabOrder = 6
415		end
416	+	object GenerateParams: TCheckBox
417	+	Left = 16
418	+	Height = 22
419	+	Top = 368
420	+	Width = 171
421	+	Caption = 'Allow DSQL Placeholders'
422	+	TabOrder = 7
423	+	end
424		object IBTransaction1: TIBTransaction
425		Active = False
426		left = 200

Diff Legend

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