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 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
5	<	Width = 1002
4	>	Top = 445
5	>	Width = 932
6		Caption = 'Employee List'
7		ClientHeight = 482
8	<	ClientWidth = 1002
8	>	ClientWidth = 932
9	>	DefaultMonitor = dmPrimary
10		OnClose = FormClose
11		OnShow = FormShow
12	<	LCLVersion = '1.4.0.3'
12	>	LCLVersion = '1.8.0.4'
13		object Button1: TButton
14	<	Left = 915
14	>	Left = 845
15		Height = 25
16		Top = 48
17		Width = 75
#	Line 19 | Line 20 | object Form1: TForm1
20		TabOrder = 0
21		end
22		object Button2: TButton
23	<	Left = 915
23	>	Left = 845
24		Height = 25
25		Top = 86
26		Width = 75
#	Line 28 | Line 29 | object Form1: TForm1
29		TabOrder = 1
30		end
31		object Button3: TButton
32	<	Left = 915
32	>	Left = 845
33		Height = 25
34		Top = 125
35		Width = 75
#	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 86 | Line 83 | object Form1: TForm1
83		Left = 12
84		Height = 434
85		Top = 42
86	<	Width = 880
86	>	Width = 810
87		Anchors = [akTop, akLeft, akRight, akBottom]
88		BevelOuter = bvNone
89		ClientHeight = 434
90	<	ClientWidth = 880
90	>	ClientWidth = 810
91		Color = clBackground
92		ParentColor = False
93		TabOrder = 5
#	Line 98 | Line 95 | object Form1: TForm1
95		Left = 0
96		Height = 384
97		Top = 0
98	<	Width = 880
98	>	Width = 810
99		Align = alClient
100		Color = clWindow
101		Columns = <
#	Line 200 | Line 197 | object Form1: TForm1
197		Left = 0
198		Height = 50
199		Top = 384
200	<	Width = 880
200	>	Width = 810
201		Align = alBottom
202		BevelOuter = bvNone
203		ClientHeight = 50
204	<	ClientWidth = 880
204	>	ClientWidth = 810
205		ParentColor = False
206		TabOrder = 1
207		object Button5: TButton
#	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 = 80
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 391 | Line 386 | object Form1: TForm1
386		end
387		object JobGradeDBComboBox: TDBComboBox
388		Left = 480
389	<	Height = 25
389	>	Height = 23
390		Top = 2
391		Width = 48
392		AutoSize = False
#	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 449 | Line 444 | object Form1: TForm1
444		end
445		object IBLookupComboEditBox2: TIBLookupComboEditBox
446		Left = 600
447	<	Height = 25
447	>	Height = 23
448		Top = 0
449		Width = 172
450		Anchors = [akTop, akLeft, akRight]
#	Line 469 | Line 464 | object Form1: TForm1
464		end
465		object IBLookupComboEditBox1: TIBLookupComboEditBox
466		Left = 600
467	<	Height = 25
467	>	Height = 23
468		Top = 24
469		Width = 172
470		Anchors = [akTop, akLeft, akRight]
#	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 = 'localhost:employee'
518		Params.Strings = (
519		'user_name=SYSDBA'
520	<	'lc_ctype=UTF-8'
520	>	'lc_ctype=UTF8'
521		)
522		DefaultTransaction = IBTransaction1
523		IdleTimer = 0
524		TraceFlags = []
525	+	UseDefaultSystemCodePage = False
526		left = 832
527		top = 168
528		end
#	Line 583 | 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 621 | 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 631 | 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 647 | 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 665 | 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 838 | 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 883 | 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 922 | 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
#	Line 943 | Line 946 | object Form1: TForm1
946		left = 832
947		top = 208
948		end
949	+	object JobGradeChangeTimer: TTimer
950	+	Interval = 0
951	+	OnTimer = JobGradeChangeTimerTimer
952	+	left = 777
953	+	top = 304
954	+	end
955	+	object JobCodeChangeTimer: TTimer
956	+	Interval = 0
957	+	OnTimer = JobCodeChangeTimerTimer
958	+	left = 776
959	+	top = 353
960	+	end
961		end

Diff Legend

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