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 68 by tony, Tue Oct 17 10:07:58 2017 UTC

#	Line 1 | Line 1
1		object Form1: TForm1
2	<	Left = 439
2	>	Left = 1736
3		Height = 482
4	<	Top = 350
4	>	Top = 445
5		Width = 932
6		Caption = 'Employee List'
7		ClientHeight = 482
8		ClientWidth = 932
9	+	DefaultMonitor = dmPrimary
10		OnClose = FormClose
11		OnShow = FormShow
12	<	LCLVersion = '1.6.0.4'
12	>	LCLVersion = '1.8.0.4'
13		object Button1: TButton
14		Left = 845
15		Height = 25
#	Line 38 | Line 39 | object Form1: TForm1
39		end
40		object Label1: TLabel
41		Left = 17
42	<	Height = 15
42	>	Height = 14
43		Top = 14
44		Width = 87
45		Caption = 'Started Before'
#	Line 46 | Line 47 | object Form1: TForm1
47		end
48		object BeforeDate: TDateEdit
49		Left = 112
50	<	Height = 25
50	>	Height = 24
51		Top = 8
52		Width = 80
53		CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
53	–	OKCaption = 'OK'
54	–	CancelCaption = 'Cancel'
54		DateOrder = doNone
55		ButtonWidth = 23
56		NumGlyphs = 1
#	Line 61 | Line 60 | object Form1: TForm1
60		end
61		object Label2: TLabel
62		Left = 241
63	<	Height = 15
63	>	Height = 14
64		Top = 14
65		Width = 78
66		Caption = 'Started After'
#	Line 69 | Line 68 | object Form1: TForm1
68		end
69		object AfterDate: TDateEdit
70		Left = 333
71	<	Height = 25
71	>	Height = 24
72		Top = 8
73		Width = 80
74		CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
76	–	OKCaption = 'OK'
77	–	CancelCaption = 'Cancel'
75		DateOrder = doNone
76		ButtonWidth = 23
77		NumGlyphs = 1
#	Line 253 | Line 250 | object Form1: TForm1
250		Visible = False
251		object Label3: TLabel
252		Left = 0
253	<	Height = 15
253	>	Height = 14
254		Top = 7
255		Width = 83
256		Caption = 'Employee No.'
#	Line 261 | Line 258 | object Form1: TForm1
258		end
259		object DBEdit1: TDBEdit
260		Left = 90
261	<	Height = 25
261	>	Height = 24
262		Top = 2
263		Width = 120
264		DataField = 'EMP_NO'
#	Line 272 | Line 269 | object Form1: TForm1
269		end
270		object Label4: TLabel
271		Left = 12
272	<	Height = 15
272	>	Height = 14
273		Top = 32
274		Width = 64
275		Caption = 'First Name'
#	Line 280 | Line 277 | object Form1: TForm1
277		end
278		object DBEdit2: TDBEdit
279		Left = 90
280	<	Height = 25
280	>	Height = 24
281		Top = 24
282		Width = 120
283		DataField = 'FIRST_NAME'
#	Line 291 | Line 288 | object Form1: TForm1
288		end
289		object Label5: TLabel
290		Left = 12
291	<	Height = 15
291	>	Height = 14
292		Top = 56
293		Width = 64
294		Caption = 'Last Name'
#	Line 299 | Line 296 | object Form1: TForm1
296		end
297		object DBEdit3: TDBEdit
298		Left = 90
299	<	Height = 25
299	>	Height = 24
300		Top = 46
301		Width = 120
302		DataField = 'LAST_NAME'
#	Line 310 | Line 307 | object Form1: TForm1
307		end
308		object Label6: TLabel
309		Left = 216
310	<	Height = 15
310	>	Height = 14
311		Top = 7
312		Width = 77
313		Caption = 'Date Started'
#	Line 318 | Line 315 | object Form1: TForm1
315		end
316		object IBDateEdit1: TDBDateEdit
317		Left = 300
318	<	Height = 25
318	>	Height = 24
319		Top = 2
320		Width = 104
321		CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
325	–	OKCaption = 'OK'
326	–	CancelCaption = 'Cancel'
322		DateOrder = doNone
323		ButtonWidth = 23
324		AutoSelect = False
#	Line 335 | Line 330 | object Form1: TForm1
330		end
331		object Label7: TLabel
332		Left = 252
333	<	Height = 15
333	>	Height = 14
334		Top = 32
335		Width = 37
336		Caption = 'Salary'
#	Line 343 | Line 338 | object Form1: TForm1
338		end
339		object DBEdit4: TDBEdit
340		Left = 300
341	<	Height = 25
341	>	Height = 24
342		Top = 24
343		Width = 104
344		DataField = 'SALARY'
#	Line 354 | Line 349 | object Form1: TForm1
349		end
350		object Label8: TLabel
351		Left = 708
352	<	Height = 15
352	>	Height = 14
353		Top = 54
354		Width = 24
355		Anchors = [akTop, akRight]
#	Line 363 | Line 358 | object Form1: TForm1
358		end
359		object DBEdit5: TDBEdit
360		Left = 732
361	<	Height = 25
361	>	Height = 24
362		Top = 48
363		Width = 40
364		DataField = 'PHONE_EXT'
#	Line 375 | Line 370 | object Form1: TForm1
370		end
371		object Label9: TLabel
372		Left = 536
373	<	Height = 15
373	>	Height = 14
374		Top = 7
375		Width = 51
376		Caption = 'Location'
#	Line 383 | Line 378 | object Form1: TForm1
378		end
379		object Label10: TLabel
380		Left = 413
381	<	Height = 15
381	>	Height = 14
382		Top = 9
383		Width = 59
384		Caption = 'Job Grade'
#	Line 412 | Line 407 | object Form1: TForm1
407		end
408		object Label11: TLabel
409		Left = 536
410	<	Height = 15
410	>	Height = 14
411		Top = 32
412		Width = 48
413		Caption = 'Job Title'
#	Line 420 | Line 415 | object Form1: TForm1
415		end
416		object Label12: TLabel
417		Left = 256
418	<	Height = 15
418	>	Height = 14
419		Top = 54
420		Width = 33
421		Caption = 'Dept.'
#	Line 436 | Line 431 | object Form1: TForm1
431		end
432		object DBEdit6: TDBEdit
433		Left = 300
434	<	Height = 25
434	>	Height = 24
435		Top = 48
436		Width = 372
437		DataField = 'DEPT_PATH'
#	Line 491 | Line 486 | object Form1: TForm1
486		end
487		object Label13: TLabel
488		Left = 456
489	<	Height = 15
489	>	Height = 14
490		Top = 14
491		Width = 79
492		Caption = 'Salary Range'
#	Line 517 | Line 512 | object Form1: TForm1
512		end
513		object IBDatabase1: TIBDatabase
514		Connected = False
515	+	CreateIfNotExists = False
516		AllowStreamedConnected = False
517	<	DatabaseName = 'employee'
517	>	DatabaseName = 'localhost:employee'
518		Params.Strings = (
519		'user_name=SYSDBA'
520		'lc_ctype=UTF8'
#	Line 526 | Line 522 | object Form1: TForm1
522		DefaultTransaction = IBTransaction1
523		IdleTimer = 0
524		TraceFlags = []
525	<	UseDefaultSystemCodePage = True
525	>	UseDefaultSystemCodePage = False
526		left = 832
527		top = 168
528		end
#	Line 584 | Line 580 | object Form1: TForm1
580		top = 296
581		end
582		object TotalsQuery: TIBQuery
583	+	AllowAutoActivateTransaction = False
584		Database = IBDatabase1
585		Transaction = IBTransaction1
586		BeforeOpen = EmployeesBeforeOpen
#	Line 622 | Line 619 | object Form1: TForm1
619		top = 376
620		end
621		object Employees: TIBDataSet
622	+	AllowAutoActivateTransaction = False
623		Database = IBDatabase1
624		Transaction = IBTransaction1
625		AfterDelete = EmployeesAfterDelete
#	Line 632 | Line 630 | object Form1: TForm1
630		AfterScroll = EmployeesAfterScroll
631		BeforeClose = EmployeesBeforeClose
632		BeforeOpen = EmployeesBeforeOpen
633	<	BufferChunks = 1000
633	>	BufferChunks = 5000
634		CachedUpdates = False
635		DeleteSQL.Strings = (
636		'Delete From EMPLOYEE A'
#	Line 648 | Line 646 | object Form1: TForm1
646		'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
647		'From DEPARTMENT Where HEAD_DEPT is NULL '
648		'UNION ALL'
649	<	'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || DEPARTMENT as DEPT_PATH,'
650	<	'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH'
651	<	'From DEPARTMENT  '
652	<	'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO'
649	>	'Select D.DEPT_NO, D.DEPARTMENT, D.HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || D.DEPARTMENT as DEPT_PATH,'
650	>	'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH'
651	>	'From DEPARTMENT  D'
652	>	'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO'
653		')'
654		''
655		'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
656		'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH'
657		'From EMPLOYEE A'
658		'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
659	+	''
660		'Where A.EMP_NO = :EMP_NO'
661		)
662		SelectSQL.Strings = (
#	Line 666 | Line 665 | object Form1: TForm1
665		'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
666		'From DEPARTMENT Where HEAD_DEPT is NULL '
667		'UNION ALL'
668	<	'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || DEPARTMENT as DEPT_PATH,'
669	<	'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH'
670	<	'From DEPARTMENT  '
671	<	'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO'
668	>	'Select D.DEPT_NO, D.DEPARTMENT, D.HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || D.DEPARTMENT as DEPT_PATH,'
669	>	'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH'
670	>	'From DEPARTMENT  D'
671	>	'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO'
672		')'
673		''
674	<	'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
674	>	'Select distinct A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
675		'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH'
676		'From EMPLOYEE A'
677		'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
#	Line 839 | Line 838 | object Form1: TForm1
838		end
839		end
840		object Countries: TIBQuery
841	+	AllowAutoActivateTransaction = False
842		Database = IBDatabase1
843		Transaction = IBTransaction1
844		BeforeOpen = CountriesBeforeOpen
#	Line 884 | Line 884 | object Form1: TForm1
884		top = 256
885		end
886		object JobCodes: TIBQuery
887	+	AllowAutoActivateTransaction = False
888		Database = IBDatabase1
889		Transaction = IBTransaction1
890		BeforeOpen = JobCodesBeforeOpen
#	Line 923 | Line 924 | object Form1: TForm1
924		end>
925		end
926		object Depts: TIBQuery
927	+	AllowAutoActivateTransaction = False
928		Database = IBDatabase1
929		Transaction = IBTransaction1
930		BufferChunks = 1000

Diff Legend

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