ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/examples/lookupcombobox/Unit1.lfm

Comparing ibx/trunk/examples/lookupcombobox/Unit1.lfm (file contents):
Revision 27 by tony, Tue Apr 14 13:10:23 2015 UTC vs.
Revision 45 by tony, Tue Dec 6 10:33:46 2016 UTC

#	Line 8 | Line 8 | object Form1: TForm1
8		ClientWidth = 658
9		OnClose = FormClose
10		OnShow = FormShow
11	<	LCLVersion = '1.4.0.3'
11	>	LCLVersion = '1.6.0.4'
12		object Label1: TLabel
13		Left = 16
14		Height = 15
15		Top = 16
16	<	Width = 98
16	>	Width = 87
17		Caption = 'Employee Name'
18		ParentColor = False
19		end
20		object IBLookupComboEditBox1: TIBLookupComboEditBox
21		Left = 16
22	<	Height = 27
22	>	Height = 23
23		Top = 32
24		Width = 224
25		KeyField = 'EMP_NO'
#	Line 31 | Line 31 | object Form1: TForm1
31		TabOrder = 0
32		AutoInsert = True
33		AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactRetainPrefixCase, cbactSearchAscending]
34	<	ItemHeight = 0
34	>	ItemHeight = 15
35		KeyPressInterval = 600
36		OnCanAutoInsert = IBLookupComboEditBox1CanAutoInsert
37		end
#	Line 39 | Line 39 | object Form1: TForm1
39		Left = 16
40		Height = 15
41		Top = 79
42	<	Width = 103
42	>	Width = 90
43		Caption = 'Employee Details'
44		ParentColor = False
45		end
#	Line 58 | Line 58 | object Form1: TForm1
58		Left = 14
59		Height = 15
60		Top = 18
61	<	Width = 64
61	>	Width = 57
62		Caption = 'First Name'
63		ParentColor = False
64		end
65		object DBEdit1: TDBEdit
66		Left = 14
67	<	Height = 25
67	>	Height = 23
68		Top = 32
69		Width = 136
70		DataField = 'FIRST_NAME'
#	Line 77 | Line 77 | object Form1: TForm1
77		Left = 168
78		Height = 15
79		Top = 18
80	<	Width = 64
80	>	Width = 56
81		Caption = 'Last Name'
82		ParentColor = False
83		end
84		object DBEdit2: TDBEdit
85		Left = 168
86	<	Height = 25
86	>	Height = 23
87		Top = 32
88		Width = 144
89		DataField = 'LAST_NAME'
#	Line 93 | Line 93 | object Form1: TForm1
93		TabOrder = 1
94		end
95		object Label5: TLabel
96	<	Left = 547
96	>	Left = 553
97		Height = 15
98		Top = 120
99	<	Width = 24
99	>	Width = 18
100		Anchors = [akTop, akRight]
101		Caption = 'Ext.'
102		ParentColor = False
103		end
104		object DBEdit3: TDBEdit
105		Left = 547
106	<	Height = 25
106	>	Height = 23
107		Top = 136
108		Width = 48
109		DataField = 'PHONE_EXT'
#	Line 117 | Line 117 | object Form1: TForm1
117		Left = 16
118		Height = 15
119		Top = 65
120	<	Width = 56
120	>	Width = 49
121		Caption = 'Hire Date'
122		ParentColor = False
123		end
#	Line 125 | Line 125 | object Form1: TForm1
125		Left = 172
126		Height = 15
127		Top = 65
128	<	Width = 37
128	>	Width = 31
129		Caption = 'Salary'
130		ParentColor = False
131		end
132		object DBEdit4: TDBEdit
133		Left = 168
134	<	Height = 25
134	>	Height = 23
135		Top = 80
136		Width = 144
137		DataField = 'SALARY'
#	Line 144 | Line 144 | object Form1: TForm1
144		Left = 392
145		Height = 15
146		Top = 16
147	<	Width = 51
147	>	Width = 46
148		Caption = 'Location'
149		ParentColor = False
150		end
#	Line 152 | Line 152 | object Form1: TForm1
152		Left = 331
153		Height = 15
154		Top = 16
155	<	Width = 36
155	>	Width = 31
156		Caption = 'Grade'
157		ParentColor = False
158		end
159		object DBComboBox1: TDBComboBox
160		Left = 331
161	<	Height = 29
161	>	Height = 23
162		Top = 32
163		Width = 53
164		DataField = 'JOB_GRADE'
165		DataSource = EmployeeSource
166	<	ItemHeight = 0
166	>	ItemHeight = 15
167		Items.Strings = (
168		'1'
169		'2'
#	Line 180 | Line 180 | object Form1: TForm1
180		Left = 333
181		Height = 15
182		Top = 65
183	<	Width = 48
183	>	Width = 44
184		Caption = 'Job Title'
185		ParentColor = False
186		end
#	Line 188 | Line 188 | object Form1: TForm1
188		Left = 17
189		Height = 15
190		Top = 122
191	<	Width = 73
191	>	Width = 63
192		Caption = 'Department'
193		ParentColor = False
194		end
195		object DBEdit5: TDBEdit
196		Left = 17
197	<	Height = 25
197	>	Height = 23
198		Top = 136
199		Width = 495
200		DataField = 'DEPT_PATH'
#	Line 216 | Line 216 | object Form1: TForm1
216		end
217		object IBLookupComboEditBox2: TIBLookupComboEditBox
218		Left = 392
219	<	Height = 25
219	>	Height = 23
220		Top = 32
221		Width = 203
222		Anchors = [akTop, akLeft, akRight]
#	Line 232 | Line 232 | object Form1: TForm1
232		TabOrder = 6
233		AutoInsert = False
234		AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
235	<	ItemHeight = 0
235	>	ItemHeight = 15
236		end
237		object IBLookupComboEditBox3: TIBLookupComboEditBox
238		Left = 331
239	<	Height = 29
239	>	Height = 23
240		Top = 82
241		Width = 264
242		Anchors = [akTop, akLeft, akRight]
#	Line 251 | Line 251 | object Form1: TForm1
251		TabOrder = 7
252		AutoInsert = False
253		AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
254	<	ItemHeight = 0
254	>	ItemHeight = 15
255		end
256		object IBDateEdit1: TDBDateEdit
257		Left = 17
258	<	Height = 25
258	>	Height = 23
259		Top = 82
260		Width = 112
261		CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
#	Line 302 | Line 302 | object Form1: TForm1
302		TabOrder = 4
303		end
304		object IBDatabase1: TIBDatabase
305	<	Connected = False
305	>	Connected = True
306		AllowStreamedConnected = False
307		DatabaseName = 'localhost:employee'
308		Params.Strings = (
309	<	'lc_ctype=UTF-8'
309	>	'lc_ctype=UTF8'
310	>	'user_name=SYSDBA'
311		'user_name=SYSDBA'
312		)
313		DefaultTransaction = IBTransaction1
314		IdleTimer = 0
315		TraceFlags = []
316	+	UseDefaultSystemCodePage = False
317		left = 328
318		top = 24
319		end
#	Line 339 | Line 341 | object Form1: TForm1
341		)
342		RefreshSQL.Strings = (
343		'with recursive Depts As ('
344	<	'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT  as VarChar(256)) as DEPT_PATH,'
344	>	'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT  as VarChar'
345	>	'(256)) as DEPT_PATH,'
346		'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
347		'From DEPARTMENT Where HEAD_DEPT is NULL '
348		'UNION ALL'
349	<	'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || DEPARTMENT as DEPT_PATH,'
350	<	'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH'
351	<	'From DEPARTMENT  '
352	<	'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO'
349	>	'Select D.DEPT_NO, D.DEPARTMENT,D. HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' '
350	>	'|| D.DEPARTMENT as DEPT_PATH,'
351	>	'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH'
352	>	'From DEPARTMENT  D'
353	>	'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO'
354		')'
355		''
356	<	'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
357	<	'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH'
356	>	'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, '
357	>	'A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
358	>	'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, '
359	>	'D.DEPT_KEY_PATH'
360		'From EMPLOYEE A'
361		'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
362	+	''
363		'Where A.EMP_NO = :EMP_NO'
364		)
365		SelectSQL.Strings = (
#	Line 361 | Line 368 | object Form1: TForm1
368		'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
369		'From DEPARTMENT Where HEAD_DEPT is NULL '
370		'UNION ALL'
371	<	'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || DEPARTMENT as DEPT_PATH,'
372	<	'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH'
373	<	'From DEPARTMENT  '
374	<	'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO'
371	>	'Select D.DEPT_NO, D.DEPARTMENT,D. HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || D.DEPARTMENT as DEPT_PATH,'
372	>	'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH'
373	>	'From DEPARTMENT  D'
374	>	'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO'
375		')'
376		''
377		'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
378		'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH'
379		'From EMPLOYEE A'
380		'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
381	+	'Order by 3 asc'
382		)
383		ModifySQL.Strings = (
384		'Update EMPLOYEE A Set '#13#10'  A.EMP_NO = :EMP_NO,'#13#10'  A.FIRST_NAME = :FIRST_NAME,'#13#10'  A.LAST_NAME = :LAST_NAME,'#13#10'  A.PHONE_EXT = :PHONE_EXT,'#13#10'  A.HIRE_DATE = :HIRE_DATE,'#13#10'  A.DEPT_NO = :DEPT_NO,'#13#10'  A.JOB_CODE = :JOB_CODE,'#13#10'  A.JOB_GRADE = :JOB_GRADE,'#13#10'  A.JOB_COUNTRY = :JOB_COUNTRY,'#13#10'  A.SALARY = :SALARY'

Diff Legend

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