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 21 by tony, Thu Feb 26 10:33:34 2015 UTC vs.
Revision 80 by tony, Mon Jan 1 11:31:07 2018 UTC

#	Line 1 | Line 1
1		object Form1: TForm1
2	<	Left = 711
2	>	Left = 616
3		Height = 329
4		Top = 256
5		Width = 658
6		Caption = 'IBLookup Combo Box Demo'
7		ClientHeight = 329
8		ClientWidth = 658
9	+	DefaultMonitor = dmPrimary
10		OnClose = FormClose
11		OnShow = FormShow
12	<	LCLVersion = '1.4.0.1'
12	>	Position = poScreenCenter
13	>	LCLVersion = '1.8.1.0'
14		object Label1: TLabel
15		Left = 16
16	<	Height = 15
16	>	Height = 14
17		Top = 16
18		Width = 98
19		Caption = 'Employee Name'
#	Line 37 | Line 39 | object Form1: TForm1
39		end
40		object Label2: TLabel
41		Left = 16
42	<	Height = 15
42	>	Height = 14
43		Top = 79
44		Width = 103
45		Caption = 'Employee Details'
#	Line 56 | Line 58 | object Form1: TForm1
58		TabOrder = 1
59		object Label3: TLabel
60		Left = 14
61	<	Height = 15
61	>	Height = 14
62		Top = 18
63		Width = 64
64		Caption = 'First Name'
#	Line 64 | Line 66 | object Form1: TForm1
66		end
67		object DBEdit1: TDBEdit
68		Left = 14
69	<	Height = 25
69	>	Height = 24
70		Top = 32
71		Width = 136
72		DataField = 'FIRST_NAME'
#	Line 75 | Line 77 | object Form1: TForm1
77		end
78		object Label4: TLabel
79		Left = 168
80	<	Height = 15
80	>	Height = 14
81		Top = 18
82		Width = 64
83		Caption = 'Last Name'
#	Line 83 | Line 85 | object Form1: TForm1
85		end
86		object DBEdit2: TDBEdit
87		Left = 168
88	<	Height = 25
88	>	Height = 24
89		Top = 32
90		Width = 144
91		DataField = 'LAST_NAME'
#	Line 94 | Line 96 | object Form1: TForm1
96		end
97		object Label5: TLabel
98		Left = 547
99	<	Height = 15
99	>	Height = 14
100		Top = 120
101		Width = 24
102		Anchors = [akTop, akRight]
#	Line 103 | Line 105 | object Form1: TForm1
105		end
106		object DBEdit3: TDBEdit
107		Left = 547
108	<	Height = 25
108	>	Height = 24
109		Top = 136
110		Width = 48
111		DataField = 'PHONE_EXT'
#	Line 111 | Line 113 | object Form1: TForm1
113		Anchors = [akTop, akRight]
114		CharCase = ecNormal
115		MaxLength = 0
116	<	TabOrder = 4
116	>	TabOrder = 3
117		end
118		object Label6: TLabel
119		Left = 16
120	<	Height = 15
120	>	Height = 14
121		Top = 65
122		Width = 56
123		Caption = 'Hire Date'
#	Line 123 | Line 125 | object Form1: TForm1
125		end
126		object Label7: TLabel
127		Left = 172
128	<	Height = 15
128	>	Height = 14
129		Top = 65
130		Width = 37
131		Caption = 'Salary'
#	Line 131 | Line 133 | object Form1: TForm1
133		end
134		object DBEdit4: TDBEdit
135		Left = 168
136	<	Height = 25
136	>	Height = 24
137		Top = 80
138		Width = 144
139		DataField = 'SALARY'
140		DataSource = EmployeeSource
141		CharCase = ecNormal
142		MaxLength = 0
143	<	TabOrder = 5
143	>	TabOrder = 4
144		end
145		object Label8: TLabel
146		Left = 392
147	<	Height = 15
147	>	Height = 14
148		Top = 16
149		Width = 51
150		Caption = 'Location'
#	Line 150 | Line 152 | object Form1: TForm1
152		end
153		object Label9: TLabel
154		Left = 331
155	<	Height = 15
155	>	Height = 14
156		Top = 16
157		Width = 36
158		Caption = 'Grade'
#	Line 158 | Line 160 | object Form1: TForm1
160		end
161		object DBComboBox1: TDBComboBox
162		Left = 331
163	<	Height = 25
163	>	Height = 28
164		Top = 32
165		Width = 53
166		DataField = 'JOB_GRADE'
#	Line 178 | Line 180 | object Form1: TForm1
180		end
181		object Label10: TLabel
182		Left = 333
183	<	Height = 15
183	>	Height = 14
184		Top = 65
185		Width = 48
186		Caption = 'Job Title'
#	Line 186 | Line 188 | object Form1: TForm1
188		end
189		object Label11: TLabel
190		Left = 17
191	<	Height = 15
191	>	Height = 14
192		Top = 122
193		Width = 73
194		Caption = 'Department'
195		ParentColor = False
196		end
195	–	object IBDateEdit1: TDBDateEdit
196	–	Left = 17
197	–	Height = 25
198	–	Top = 82
199	–	Width = 112
200	–	CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
201	–	OKCaption = 'OK'
202	–	CancelCaption = 'Cancel'
203	–	DateOrder = doNone
204	–	ButtonWidth = 23
205	–	NumGlyphs = 1
206	–	MaxLength = 0
207	–	TabOrder = 3
208	–	DataField = 'HIRE_DATE'
209	–	DataSource = EmployeeSource
210	–	end
197		object DBEdit5: TDBEdit
198		Left = 17
199	<	Height = 25
199	>	Height = 24
200		Top = 136
201		Width = 495
202		DataField = 'DEPT_PATH'
#	Line 219 | Line 205 | object Form1: TForm1
205		Anchors = [akTop, akLeft, akRight]
206		CharCase = ecNormal
207		MaxLength = 0
208	<	TabOrder = 6
208	>	TabOrder = 5
209		end
210		object SpeedButton1: TSpeedButton
211		Left = 516
#	Line 232 | Line 218 | object Form1: TForm1
218		end
219		object IBLookupComboEditBox2: TIBLookupComboEditBox
220		Left = 392
221	<	Height = 25
221	>	Height = 23
222		Top = 32
223		Width = 203
224		Anchors = [akTop, akLeft, akRight]
#	Line 245 | Line 231 | object Form1: TForm1
231		ListSource = CountriesSource
232		LookupCache = False
233		Style = csDropDownList
234	<	TabOrder = 7
234	>	TabOrder = 6
235		AutoInsert = False
236		AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
237		ItemHeight = 0
238		end
239		object IBLookupComboEditBox3: TIBLookupComboEditBox
240		Left = 331
241	<	Height = 29
241	>	Height = 28
242		Top = 82
243		Width = 264
244		Anchors = [akTop, akLeft, akRight]
#	Line 264 | Line 250 | object Form1: TForm1
250		ListSource = JobCodeSource
251		LookupCache = False
252		Style = csDropDownList
253	<	TabOrder = 8
253	>	TabOrder = 7
254		AutoInsert = False
255		AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
256		ItemHeight = 0
257		end
258	+	object IBDateEdit1: TDBDateEdit
259	+	Left = 17
260	+	Height = 24
261	+	Top = 82
262	+	Width = 112
263	+	CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
264	+	DateOrder = doNone
265	+	ButtonWidth = 23
266	+	AutoSelect = False
267	+	NumGlyphs = 1
268	+	MaxLength = 0
269	+	TabOrder = 8
270	+	DataField = 'HIRE_DATE'
271	+	DataSource = EmployeeSource
272	+	end
273		end
274		object CancelBtn: TButton
275		Left = 567
#	Line 302 | Line 303 | object Form1: TForm1
303		end
304		object IBDatabase1: TIBDatabase
305		Connected = False
306	+	CreateIfNotExists = False
307		AllowStreamedConnected = False
308	<	DatabaseName = 'employee'
308	>	DatabaseName = 'localhost:employee'
309		Params.Strings = (
310	<	'lc_ctype=UTF-8'
310	>	'lc_ctype=UTF8'
311	>	'user_name=SYSDBA'
312		'user_name=SYSDBA'
313		)
314		DefaultTransaction = IBTransaction1
315		IdleTimer = 0
316		TraceFlags = []
317	<	left = 328
318	<	top = 24
317	>	UseDefaultSystemCodePage = False
318	>	left = 224
319	>	top = 18
320		end
321		object IBTransaction1: TIBTransaction
322		Active = False
323		DefaultDatabase = IBDatabase1
324	<	left = 296
325	<	top = 24
324	>	left = 136
325	>	top = 18
326		end
327		object Employees: TIBDataSet
328	+	AllowAutoActivateTransaction = False
329		Database = IBDatabase1
330		Transaction = IBTransaction1
331		AfterDelete = EmployeesAfterDelete
332		AfterEdit = EmployeesAfterDelete
333		AfterInsert = EmployeesAfterInsert
334		AfterPost = EmployeesAfterPost
330	–	BeforeClose = EmployeesBeforeScroll
331	–	BeforeScroll = EmployeesBeforeScroll
335		BufferChunks = 1000
336		CachedUpdates = False
337		DeleteSQL.Strings = (
#	Line 340 | Line 343 | object Form1: TForm1
343		)
344		RefreshSQL.Strings = (
345		'with recursive Depts As ('
346	<	'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT  as VarChar(256)) as DEPT_PATH,'
346	>	'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT  as VarChar'
347	>	'(256)) as DEPT_PATH,'
348		'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
349		'From DEPARTMENT Where HEAD_DEPT is NULL '
350		'UNION ALL'
351	<	'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || DEPARTMENT as DEPT_PATH,'
352	<	'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH'
353	<	'From DEPARTMENT  '
354	<	'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO'
351	>	'Select D.DEPT_NO, D.DEPARTMENT,D. HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' '
352	>	'|| D.DEPARTMENT as DEPT_PATH,'
353	>	'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH'
354	>	'From DEPARTMENT  D'
355	>	'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO'
356		')'
357		''
358	<	'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
359	<	'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH'
358	>	'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, '
359	>	'A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
360	>	'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, '
361	>	'D.DEPT_KEY_PATH'
362		'From EMPLOYEE A'
363		'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
364	+	''
365		'Where A.EMP_NO = :EMP_NO'
366		)
367		SelectSQL.Strings = (
#	Line 362 | Line 370 | object Form1: TForm1
370		'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
371		'From DEPARTMENT Where HEAD_DEPT is NULL '
372		'UNION ALL'
373	<	'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || DEPARTMENT as DEPT_PATH,'
374	<	'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH'
375	<	'From DEPARTMENT  '
376	<	'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO'
373	>	'Select D.DEPT_NO, D.DEPARTMENT,D. HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || D.DEPARTMENT as DEPT_PATH,'
374	>	'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH'
375	>	'From DEPARTMENT  D'
376	>	'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO'
377		')'
378		''
379		'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
380		'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH'
381		'From EMPLOYEE A'
382		'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
383	+	'Order by 3 asc'
384		)
385		ModifySQL.Strings = (
386		'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'
#	Line 381 | Line 390 | object Form1: TForm1
390		GeneratorField.Field = 'EMP_NO'
391		GeneratorField.ApplyOnEvent = gaeOnNewRecord
392		GenerateParamNames = False
393	+	DataSetCloseAction = dcSaveChanges
394		AfterTransactionEnd = EmployeesAfterTransactionEnd
395	<	left = 496
396	<	top = 16
395	>	left = 376
396	>	top = 264
397		object EmployeesEMP_NO: TSmallintField
398		DisplayWidth = 10
399		FieldKind = fkData
#	Line 536 | Line 546 | object Form1: TForm1
546		object EmployeeSource: TDataSource
547		DataSet = Employees
548		OnDataChange = EmployeeSourceDataChange
549	<	left = 462
550	<	top = 16
549	>	left = 272
550	>	top = 264
551		end
552		object ApplicationProperties1: TApplicationProperties
553		OnIdle = ApplicationProperties1Idle
554	<	left = 328
555	<	top = 56
554	>	left = 152
555	>	top = 280
556		end
557		object Countries: TIBQuery
558	+	AllowAutoActivateTransaction = False
559		Database = IBDatabase1
560		Transaction = IBTransaction1
561		BeforeOpen = CountriesBeforeOpen
#	Line 568 | Line 579 | object Form1: TForm1
579		Name = 'JOB_GRADE'
580		ParamType = ptInput
581		end>
582	<	left = 425
583	<	top = 56
582	>	DataSetCloseAction = dcDiscardChanges
583	>	left = 616
584	>	top = 16
585		ParamData = <
586		item
587		DataType = ftUnknown
#	Line 584 | Line 596 | object Form1: TForm1
596		end
597		object CountriesSource: TDataSource
598		DataSet = Countries
599	<	left = 392
600	<	top = 58
599	>	left = 528
600	>	top = 18
601		end
602		object JobCodes: TIBQuery
603	+	AllowAutoActivateTransaction = False
604		Database = IBDatabase1
605		Transaction = IBTransaction1
606		BeforeOpen = JobCodesBeforeOpen
#	Line 606 | Line 619 | object Form1: TForm1
619		Name = 'JOB_GRADE'
620		ParamType = ptInput
621		end>
622	<	left = 425
622	>	DataSetCloseAction = dcDiscardChanges
623	>	left = 416
624		top = 18
625		ParamData = <
626		item
#	Line 617 | Line 631 | object Form1: TForm1
631		end
632		object JobCodeSource: TDataSource
633		DataSet = JobCodes
634	<	left = 392
634	>	left = 328
635		top = 18
636		end
637		end

Diff Legend

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