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 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 1 | Line 1
1		object Form1: TForm1
2	<	Left = 439
2	>	Left = 453
3		Height = 482
4	<	Top = 350
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.3'
11	>	LCLVersion = '1.6.0.4'
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 86 | Line 86 | object Form1: TForm1
86		Left = 12
87		Height = 434
88		Top = 42
89	<	Width = 880
89	>	Width = 810
90		Anchors = [akTop, akLeft, akRight, akBottom]
91		BevelOuter = bvNone
92		ClientHeight = 434
93	<	ClientWidth = 880
93	>	ClientWidth = 810
94		Color = clBackground
95		ParentColor = False
96		TabOrder = 5
#	Line 98 | Line 98 | object Form1: TForm1
98		Left = 0
99		Height = 384
100		Top = 0
101	<	Width = 880
101	>	Width = 810
102		Align = alClient
103		Color = clWindow
104		Columns = <
#	Line 200 | Line 200 | object Form1: TForm1
200		Left = 0
201		Height = 50
202		Top = 384
203	<	Width = 880
203	>	Width = 810
204		Align = alBottom
205		BevelOuter = bvNone
206		ClientHeight = 50
207	<	ClientWidth = 880
207	>	ClientWidth = 810
208		ParentColor = False
209		TabOrder = 1
210		object Button5: TButton
#	Line 320 | Line 320 | object Form1: TForm1
320		Left = 300
321		Height = 25
322		Top = 2
323	<	Width = 80
323	>	Width = 104
324		CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
325		OKCaption = 'OK'
326		CancelCaption = 'Cancel'
#	Line 391 | Line 391 | object Form1: TForm1
391		end
392		object JobGradeDBComboBox: TDBComboBox
393		Left = 480
394	<	Height = 25
394	>	Height = 23
395		Top = 2
396		Width = 48
397		AutoSize = False
#	Line 449 | Line 449 | object Form1: TForm1
449		end
450		object IBLookupComboEditBox2: TIBLookupComboEditBox
451		Left = 600
452	<	Height = 25
452	>	Height = 23
453		Top = 0
454		Width = 172
455		Anchors = [akTop, akLeft, akRight]
#	Line 469 | Line 469 | object Form1: TForm1
469		end
470		object IBLookupComboEditBox1: TIBLookupComboEditBox
471		Left = 600
472	<	Height = 25
472	>	Height = 23
473		Top = 24
474		Width = 172
475		Anchors = [akTop, akLeft, akRight]
#	Line 517 | Line 517 | object Form1: TForm1
517		end
518		object IBDatabase1: TIBDatabase
519		Connected = False
520	+	CreateIfNotExists = False
521		AllowStreamedConnected = False
522		DatabaseName = 'localhost:employee'
523		Params.Strings = (
524		'user_name=SYSDBA'
525	<	'lc_ctype=UTF-8'
525	>	'lc_ctype=UTF8'
526		)
527		DefaultTransaction = IBTransaction1
528		IdleTimer = 0
529		TraceFlags = []
530	+	UseDefaultSystemCodePage = False
531		left = 832
532		top = 168
533		end
#	Line 583 | Line 585 | object Form1: TForm1
585		top = 296
586		end
587		object TotalsQuery: TIBQuery
588	+	AllowAutoActivateTransaction = False
589		Database = IBDatabase1
590		Transaction = IBTransaction1
591		BeforeOpen = EmployeesBeforeOpen
#	Line 621 | Line 624 | object Form1: TForm1
624		top = 376
625		end
626		object Employees: TIBDataSet
627	+	AllowAutoActivateTransaction = False
628		Database = IBDatabase1
629		Transaction = IBTransaction1
630		AfterDelete = EmployeesAfterDelete
#	Line 631 | Line 635 | object Form1: TForm1
635		AfterScroll = EmployeesAfterScroll
636		BeforeClose = EmployeesBeforeClose
637		BeforeOpen = EmployeesBeforeOpen
638	<	BufferChunks = 1000
638	>	BufferChunks = 5000
639		CachedUpdates = False
640		DeleteSQL.Strings = (
641		'Delete From EMPLOYEE A'
#	Line 647 | Line 651 | object Form1: TForm1
651		'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
652		'From DEPARTMENT Where HEAD_DEPT is NULL '
653		'UNION ALL'
654	<	'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || DEPARTMENT as DEPT_PATH,'
655	<	'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH'
656	<	'From DEPARTMENT  '
657	<	'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO'
654	>	'Select D.DEPT_NO, D.DEPARTMENT, D.HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || D.DEPARTMENT as DEPT_PATH,'
655	>	'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH'
656	>	'From DEPARTMENT  D'
657	>	'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO'
658		')'
659		''
660		'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
661		'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH'
662		'From EMPLOYEE A'
663		'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
664	+	''
665		'Where A.EMP_NO = :EMP_NO'
666		)
667		SelectSQL.Strings = (
#	Line 665 | Line 670 | object Form1: TForm1
670		'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
671		'From DEPARTMENT Where HEAD_DEPT is NULL '
672		'UNION ALL'
673	<	'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || DEPARTMENT as DEPT_PATH,'
674	<	'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH'
675	<	'From DEPARTMENT  '
676	<	'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO'
673	>	'Select D.DEPT_NO, D.DEPARTMENT, D.HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || D.DEPARTMENT as DEPT_PATH,'
674	>	'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH'
675	>	'From DEPARTMENT  D'
676	>	'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO'
677		')'
678		''
679	<	'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
679	>	'Select distinct A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
680		'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH'
681		'From EMPLOYEE A'
682		'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
#	Line 838 | Line 843 | object Form1: TForm1
843		end
844		end
845		object Countries: TIBQuery
846	+	AllowAutoActivateTransaction = False
847		Database = IBDatabase1
848		Transaction = IBTransaction1
849		BeforeOpen = CountriesBeforeOpen
#	Line 883 | Line 889 | object Form1: TForm1
889		top = 256
890		end
891		object JobCodes: TIBQuery
892	+	AllowAutoActivateTransaction = False
893		Database = IBDatabase1
894		Transaction = IBTransaction1
895		BeforeOpen = JobCodesBeforeOpen
#	Line 922 | Line 929 | object Form1: TForm1
929		end>
930		end
931		object Depts: TIBQuery
932	+	AllowAutoActivateTransaction = False
933		Database = IBDatabase1
934		Transaction = IBTransaction1
935		BufferChunks = 1000
#	Line 943 | Line 951 | object Form1: TForm1
951		left = 832
952		top = 208
953		end
954	+	object JobGradeChangeTimer: TTimer
955	+	Interval = 0
956	+	OnTimer = JobGradeChangeTimerTimer
957	+	left = 777
958	+	top = 304
959	+	end
960	+	object JobCodeChangeTimer: TTimer
961	+	Interval = 0
962	+	OnTimer = JobCodeChangeTimerTimer
963	+	left = 776
964	+	top = 353
965	+	end
966		end

Diff Legend

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