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 39 by tony, Tue May 17 08:14:52 2016 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
4	>	Top = 336
5		Width = 932
6		Caption = 'Employee List'
7		ClientHeight = 482
#	Line 517 | Line 517 | object Form1: TForm1
517		end
518		object IBDatabase1: TIBDatabase
519		Connected = False
520	+	CreateIfNotExists = False
521		AllowStreamedConnected = False
522	<	DatabaseName = 'employee'
522	>	DatabaseName = 'localhost:employee'
523		Params.Strings = (
524		'user_name=SYSDBA'
525		'lc_ctype=UTF8'
#	Line 526 | Line 527 | object Form1: TForm1
527		DefaultTransaction = IBTransaction1
528		IdleTimer = 0
529		TraceFlags = []
530	<	UseDefaultSystemCodePage = True
530	>	UseDefaultSystemCodePage = False
531		left = 832
532		top = 168
533		end
#	Line 584 | 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 622 | 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 632 | 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 648 | 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 666 | 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 839 | 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 884 | 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 923 | 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

Diff Legend

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