ViewVC Help

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

root/public/ibx/trunk/examples/employee/unit1.lfm

Comparing ibx/trunk/examples/employee/unit1.lfm (file contents):
Revision 21 by tony, Thu Feb 26 10:33:34 2015 UTC vs.
Revision 62 by tony, Wed Apr 12 09:19:59 2017 UTC

#	Line 1 | Line 1
1		object Form1: TForm1
2	<	Left = 311
2	>	Left = 453
3		Height = 482
4	<	Top = 328
5	<	Width = 1002
4	>	Top = 336
5	>	Width = 932
6		Caption = 'Employee List'
7		ClientHeight = 482
8	<	ClientWidth = 1002
8	>	ClientWidth = 932
9		OnClose = FormClose
10		OnShow = FormShow
11	<	LCLVersion = '1.4.0.1'
11	>	LCLVersion = '1.6.4.0'
12		object Button1: TButton
13	<	Left = 915
13	>	Left = 845
14		Height = 25
15		Top = 48
16		Width = 75
#	Line 19 | Line 19 | object Form1: TForm1
19		TabOrder = 0
20		end
21		object Button2: TButton
22	<	Left = 915
22	>	Left = 845
23		Height = 25
24		Top = 86
25		Width = 75
#	Line 28 | Line 28 | object Form1: TForm1
28		TabOrder = 1
29		end
30		object Button3: TButton
31	<	Left = 915
31	>	Left = 845
32		Height = 25
33		Top = 125
34		Width = 75
#	Line 38 | Line 38 | object Form1: TForm1
38		end
39		object Label1: TLabel
40		Left = 17
41	<	Height = 15
41	>	Height = 17
42		Top = 14
43	<	Width = 87
43	>	Width = 82
44		Caption = 'Started Before'
45		ParentColor = False
46		end
47		object BeforeDate: TDateEdit
48		Left = 112
49	<	Height = 25
49	>	Height = 27
50		Top = 8
51		Width = 80
52		CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
53	–	OKCaption = 'OK'
54	–	CancelCaption = 'Cancel'
53		DateOrder = doNone
54		ButtonWidth = 23
55		NumGlyphs = 1
#	Line 61 | Line 59 | object Form1: TForm1
59		end
60		object Label2: TLabel
61		Left = 241
62	<	Height = 15
62	>	Height = 17
63		Top = 14
64	<	Width = 78
64	>	Width = 72
65		Caption = 'Started After'
66		ParentColor = False
67		end
68		object AfterDate: TDateEdit
69		Left = 333
70	<	Height = 25
70	>	Height = 27
71		Top = 8
72		Width = 80
73		CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
76	–	OKCaption = 'OK'
77	–	CancelCaption = 'Cancel'
74		DateOrder = doNone
75		ButtonWidth = 23
76		NumGlyphs = 1
#	Line 86 | Line 82 | object Form1: TForm1
82		Left = 12
83		Height = 434
84		Top = 42
85	<	Width = 880
85	>	Width = 810
86		Anchors = [akTop, akLeft, akRight, akBottom]
87		BevelOuter = bvNone
88		ClientHeight = 434
89	<	ClientWidth = 880
89	>	ClientWidth = 810
90		Color = clBackground
91		ParentColor = False
92		TabOrder = 5
#	Line 98 | Line 94 | object Form1: TForm1
94		Left = 0
95		Height = 384
96		Top = 0
97	<	Width = 880
97	>	Width = 810
98		Align = alClient
99		Color = clWindow
100		Columns = <
#	Line 200 | Line 196 | object Form1: TForm1
196		Left = 0
197		Height = 50
198		Top = 384
199	<	Width = 880
199	>	Width = 810
200		Align = alBottom
201		BevelOuter = bvNone
202		ClientHeight = 50
203	<	ClientWidth = 880
203	>	ClientWidth = 810
204		ParentColor = False
205		TabOrder = 1
206		object Button5: TButton
#	Line 229 | Line 225 | object Form1: TForm1
225		Left = 688
226		Height = 27
227		Top = 16
228	<	Width = 49
228	>	Width = 48
229		Alignment = taRightJustify
230		Anchors = [akTop, akLeft, akBottom]
231		DataField = 'TOTALSALARIES'
#	Line 253 | Line 249 | object Form1: TForm1
249		Visible = False
250		object Label3: TLabel
251		Left = 0
252	<	Height = 15
252	>	Height = 17
253		Top = 7
254	<	Width = 83
254	>	Width = 77
255		Caption = 'Employee No.'
256		ParentColor = False
257		end
258		object DBEdit1: TDBEdit
259		Left = 90
260	<	Height = 25
260	>	Height = 27
261		Top = 2
262		Width = 120
263		DataField = 'EMP_NO'
#	Line 272 | Line 268 | object Form1: TForm1
268		end
269		object Label4: TLabel
270		Left = 12
271	<	Height = 15
271	>	Height = 17
272		Top = 32
273	<	Width = 64
273	>	Width = 61
274		Caption = 'First Name'
275		ParentColor = False
276		end
277		object DBEdit2: TDBEdit
278		Left = 90
279	<	Height = 25
279	>	Height = 27
280		Top = 24
281		Width = 120
282		DataField = 'FIRST_NAME'
#	Line 291 | Line 287 | object Form1: TForm1
287		end
288		object Label5: TLabel
289		Left = 12
290	<	Height = 15
290	>	Height = 17
291		Top = 56
292	<	Width = 64
292	>	Width = 60
293		Caption = 'Last Name'
294		ParentColor = False
295		end
296		object DBEdit3: TDBEdit
297		Left = 90
298	<	Height = 25
298	>	Height = 27
299		Top = 46
300		Width = 120
301		DataField = 'LAST_NAME'
#	Line 310 | Line 306 | object Form1: TForm1
306		end
307		object Label6: TLabel
308		Left = 216
309	<	Height = 15
309	>	Height = 17
310		Top = 7
311	<	Width = 77
311	>	Width = 71
312		Caption = 'Date Started'
313		ParentColor = False
314		end
315		object IBDateEdit1: TDBDateEdit
316		Left = 300
317	<	Height = 25
317	>	Height = 27
318		Top = 2
319	<	Width = 80
319	>	Width = 104
320		CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
325	–	OKCaption = 'OK'
326	–	CancelCaption = 'Cancel'
321		DateOrder = doNone
322		ButtonWidth = 23
323	+	AutoSelect = False
324		NumGlyphs = 1
325		MaxLength = 0
326		TabOrder = 3
#	Line 334 | Line 329 | object Form1: TForm1
329		end
330		object Label7: TLabel
331		Left = 252
332	<	Height = 15
332	>	Height = 17
333		Top = 32
334	<	Width = 37
334	>	Width = 35
335		Caption = 'Salary'
336		ParentColor = False
337		end
338		object DBEdit4: TDBEdit
339		Left = 300
340	<	Height = 25
340	>	Height = 27
341		Top = 24
342		Width = 104
343		DataField = 'SALARY'
#	Line 352 | Line 347 | object Form1: TForm1
347		TabOrder = 5
348		end
349		object Label8: TLabel
350	<	Left = 708
351	<	Height = 15
350	>	Left = 712
351	>	Height = 17
352		Top = 54
353	<	Width = 24
353	>	Width = 20
354		Anchors = [akTop, akRight]
355		Caption = 'Ext.'
356		ParentColor = False
357		end
358		object DBEdit5: TDBEdit
359		Left = 732
360	<	Height = 25
360	>	Height = 27
361		Top = 48
362		Width = 40
363		DataField = 'PHONE_EXT'
#	Line 374 | Line 369 | object Form1: TForm1
369		end
370		object Label9: TLabel
371		Left = 536
372	<	Height = 15
372	>	Height = 17
373		Top = 7
374	<	Width = 51
374	>	Width = 47
375		Caption = 'Location'
376		ParentColor = False
377		end
378		object Label10: TLabel
379		Left = 413
380	<	Height = 15
380	>	Height = 17
381		Top = 9
382	<	Width = 59
382	>	Width = 55
383		Caption = 'Job Grade'
384		ParentColor = False
385		end
386		object JobGradeDBComboBox: TDBComboBox
387		Left = 480
388	<	Height = 25
388	>	Height = 23
389		Top = 2
390		Width = 48
391		AutoSize = False
#	Line 411 | Line 406 | object Form1: TForm1
406		end
407		object Label11: TLabel
408		Left = 536
409	<	Height = 15
409	>	Height = 17
410		Top = 32
411	<	Width = 48
411	>	Width = 44
412		Caption = 'Job Title'
413		ParentColor = False
414		end
415		object Label12: TLabel
416		Left = 256
417	<	Height = 15
417	>	Height = 17
418		Top = 54
419	<	Width = 33
419	>	Width = 30
420		Caption = 'Dept.'
421		ParentColor = False
422		end
#	Line 435 | Line 430 | object Form1: TForm1
430		end
431		object DBEdit6: TDBEdit
432		Left = 300
433	<	Height = 25
433	>	Height = 27
434		Top = 48
435		Width = 372
436		DataField = 'DEPT_PATH'
#	Line 448 | Line 443 | object Form1: TForm1
443		end
444		object IBLookupComboEditBox2: TIBLookupComboEditBox
445		Left = 600
446	<	Height = 25
446	>	Height = 23
447		Top = 0
448		Width = 172
449		Anchors = [akTop, akLeft, akRight]
#	Line 468 | Line 463 | object Form1: TForm1
463		end
464		object IBLookupComboEditBox1: TIBLookupComboEditBox
465		Left = 600
466	<	Height = 25
466	>	Height = 23
467		Top = 24
468		Width = 172
469		Anchors = [akTop, akLeft, akRight]
#	Line 490 | Line 485 | object Form1: TForm1
485		end
486		object Label13: TLabel
487		Left = 456
488	<	Height = 15
488	>	Height = 17
489		Top = 14
490	<	Width = 79
490	>	Width = 73
491		Caption = 'Salary Range'
492		ParentColor = False
493		end
494		object SalaryRange: TComboBox
495		Left = 544
496	<	Height = 25
496	>	Height = 27
497		Top = 8
498		Width = 272
499		ItemHeight = 0
#	Line 516 | Line 511 | object Form1: TForm1
511		end
512		object IBDatabase1: TIBDatabase
513		Connected = False
514	+	CreateIfNotExists = False
515		AllowStreamedConnected = False
516	<	DatabaseName = 'employee'
516	>	DatabaseName = 'localhost:employee'
517		Params.Strings = (
518		'user_name=SYSDBA'
519	<	'lc_ctype=UTF-8'
519	>	'lc_ctype=UTF8'
520		)
521		DefaultTransaction = IBTransaction1
522		IdleTimer = 0
523		TraceFlags = []
524	+	UseDefaultSystemCodePage = False
525		left = 832
526		top = 168
527		end
#	Line 582 | Line 579 | object Form1: TForm1
579		top = 296
580		end
581		object TotalsQuery: TIBQuery
582	+	AllowAutoActivateTransaction = False
583		Database = IBDatabase1
584		Transaction = IBTransaction1
585		BeforeOpen = EmployeesBeforeOpen
#	Line 594 | Line 592 | object Form1: TForm1
592		'From EMPLOYEE'
593		)
594		Params = <>
595	+	DataSetCloseAction = dcDiscardChanges
596		left = 872
597		top = 376
598		object TotalsQueryTOTALSALARIES: TIBBCDField
#	Line 619 | Line 618 | object Form1: TForm1
618		top = 376
619		end
620		object Employees: TIBDataSet
621	+	AllowAutoActivateTransaction = False
622		Database = IBDatabase1
623		Transaction = IBTransaction1
624		AfterDelete = EmployeesAfterDelete
#	Line 629 | Line 629 | object Form1: TForm1
629		AfterScroll = EmployeesAfterScroll
630		BeforeClose = EmployeesBeforeClose
631		BeforeOpen = EmployeesBeforeOpen
632	<	BufferChunks = 1000
632	>	BufferChunks = 5000
633		CachedUpdates = False
634		DeleteSQL.Strings = (
635		'Delete From EMPLOYEE A'
#	Line 645 | Line 645 | object Form1: TForm1
645		'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
646		'From DEPARTMENT Where HEAD_DEPT is NULL '
647		'UNION ALL'
648	<	'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || DEPARTMENT as DEPT_PATH,'
649	<	'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH'
650	<	'From DEPARTMENT  '
651	<	'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO'
648	>	'Select D.DEPT_NO, D.DEPARTMENT, D.HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || D.DEPARTMENT as DEPT_PATH,'
649	>	'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH'
650	>	'From DEPARTMENT  D'
651	>	'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO'
652		')'
653		''
654		'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
655		'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH'
656		'From EMPLOYEE A'
657		'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
658	+	''
659		'Where A.EMP_NO = :EMP_NO'
660		)
661		SelectSQL.Strings = (
#	Line 663 | Line 664 | object Form1: TForm1
664		'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
665		'From DEPARTMENT Where HEAD_DEPT is NULL '
666		'UNION ALL'
667	<	'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || DEPARTMENT as DEPT_PATH,'
668	<	'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH'
669	<	'From DEPARTMENT  '
670	<	'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO'
667	>	'Select D.DEPT_NO, D.DEPARTMENT, D.HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || D.DEPARTMENT as DEPT_PATH,'
668	>	'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH'
669	>	'From DEPARTMENT  D'
670	>	'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO'
671		')'
672		''
673	<	'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
673	>	'Select distinct A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
674		'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH'
675		'From EMPLOYEE A'
676		'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
#	Line 682 | Line 683 | object Form1: TForm1
683		GeneratorField.Field = 'EMP_NO'
684		GeneratorField.ApplyOnEvent = gaeOnNewRecord
685		GenerateParamNames = False
686	+	DataSetCloseAction = dcSaveChanges
687		AfterTransactionEnd = EmployeesAfterTransactionEnd
688	+	OnValidatePost = EmployeesValidatePost
689		left = 872
690		top = 336
691		object EmployeesEMP_NO: TSmallintField
#	Line 834 | Line 837 | object Form1: TForm1
837		end
838		end
839		object Countries: TIBQuery
840	+	AllowAutoActivateTransaction = False
841		Database = IBDatabase1
842		Transaction = IBTransaction1
843		BeforeOpen = CountriesBeforeOpen
#	Line 858 | Line 862 | object Form1: TForm1
862		Name = 'JOB_GRADE'
863		ParamType = ptInput
864		end>
865	+	DataSetCloseAction = dcDiscardChanges
866		left = 872
867		top = 296
868		ParamData = <
#	Line 878 | Line 883 | object Form1: TForm1
883		top = 256
884		end
885		object JobCodes: TIBQuery
886	+	AllowAutoActivateTransaction = False
887		Database = IBDatabase1
888		Transaction = IBTransaction1
889		BeforeOpen = JobCodesBeforeOpen
#	Line 901 | Line 907 | object Form1: TForm1
907		Name = 'JOB_GRADE'
908		ParamType = ptInput
909		end>
910	+	DataSetCloseAction = dcDiscardChanges
911		left = 872
912		top = 256
913		ParamData = <
#	Line 916 | Line 923 | object Form1: TForm1
923		end>
924		end
925		object Depts: TIBQuery
926	+	AllowAutoActivateTransaction = False
927		Database = IBDatabase1
928		Transaction = IBTransaction1
929		BufferChunks = 1000
#	Line 928 | Line 936 | object Form1: TForm1
936		'Order by Upper(Department)'
937		)
938		Params = <>
939	+	DataSetCloseAction = dcDiscardChanges
940		left = 872
941		top = 210
942		end
#	Line 936 | Line 945 | object Form1: TForm1
945		left = 832
946		top = 208
947		end
948	+	object JobGradeChangeTimer: TTimer
949	+	Interval = 0
950	+	OnTimer = JobGradeChangeTimerTimer
951	+	left = 777
952	+	top = 304
953	+	end
954	+	object JobCodeChangeTimer: TTimer
955	+	Interval = 0
956	+	OnTimer = JobCodeChangeTimerTimer
957	+	left = 776
958	+	top = 353
959	+	end
960		end

Diff Legend

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