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 37 by tony, Mon Feb 15 14:44:25 2016 UTC vs.
Revision 62 by tony, Wed Apr 12 09:19:59 2017 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.4.0'
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 = 74
43	>	Width = 82
44		Caption = 'Started Before'
45		ParentColor = False
46		end
47		object BeforeDate: TDateEdit
48		Left = 112
49	<	Height = 23
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 = 66
64	>	Width = 72
65		Caption = 'Started After'
66		ParentColor = False
67		end
68		object AfterDate: TDateEdit
69		Left = 333
70	<	Height = 23
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 = 43
228	>	Width = 48
229		Alignment = taRightJustify
230		Anchors = [akTop, akLeft, akBottom]
231		DataField = 'TOTALSALARIES'
#	Line 245 | Line 241 | object Form1: TForm1
241		BevelOuter = bvNone
242		BorderWidth = 2
243		BorderStyle = bsSingle
244	<	ClientHeight = 76
245	<	ClientWidth = 780
244	>	ClientHeight = 78
245	>	ClientWidth = 782
246		Color = clWindow
247		ParentColor = False
248		TabOrder = 2
249		Visible = False
250		object Label3: TLabel
251		Left = 0
252	<	Height = 15
252	>	Height = 17
253		Top = 7
254	<	Width = 74
254	>	Width = 77
255		Caption = 'Employee No.'
256		ParentColor = False
257		end
258		object DBEdit1: TDBEdit
259		Left = 90
260	<	Height = 23
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 = 57
273	>	Width = 61
274		Caption = 'First Name'
275		ParentColor = False
276		end
277		object DBEdit2: TDBEdit
278		Left = 90
279	<	Height = 23
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 = 56
292	>	Width = 60
293		Caption = 'Last Name'
294		ParentColor = False
295		end
296		object DBEdit3: TDBEdit
297		Left = 90
298	<	Height = 23
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 = 64
311	>	Width = 71
312		Caption = 'Date Started'
313		ParentColor = False
314		end
315		object IBDateEdit1: TDBDateEdit
316		Left = 300
317	<	Height = 23
317	>	Height = 27
318		Top = 2
319		Width = 104
320		CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
325	–	OKCaption = 'OK'
326	–	CancelCaption = 'Cancel'
321		DateOrder = doNone
322		ButtonWidth = 23
323		AutoSelect = False
#	Line 335 | 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 = 31
334	>	Width = 35
335		Caption = 'Salary'
336		ParentColor = False
337		end
338		object DBEdit4: TDBEdit
339		Left = 300
340	<	Height = 23
340	>	Height = 27
341		Top = 24
342		Width = 104
343		DataField = 'SALARY'
#	Line 354 | Line 348 | object Form1: TForm1
348		end
349		object Label8: TLabel
350		Left = 712
351	<	Height = 15
351	>	Height = 17
352		Top = 54
353	<	Width = 18
353	>	Width = 20
354		Anchors = [akTop, akRight]
355		Caption = 'Ext.'
356		ParentColor = False
357		end
358		object DBEdit5: TDBEdit
359	<	Left = 730
360	<	Height = 23
359	>	Left = 732
360	>	Height = 27
361		Top = 48
362		Width = 40
363		DataField = 'PHONE_EXT'
#	Line 375 | 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 = 46
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 = 52
382	>	Width = 55
383		Caption = 'Job Grade'
384		ParentColor = False
385		end
#	Line 397 | Line 391 | object Form1: TForm1
391		AutoSize = False
392		DataField = 'JOB_GRADE'
393		DataSource = EmployeeSource
394	<	ItemHeight = 15
394	>	ItemHeight = 0
395		Items.Strings = (
396		'1'
397		'2'
#	Line 412 | 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 = 44
412		Caption = 'Job Title'
#	Line 420 | Line 414 | object Form1: TForm1
414		end
415		object Label12: TLabel
416		Left = 256
417	<	Height = 15
417	>	Height = 17
418		Top = 54
419	<	Width = 28
419	>	Width = 30
420		Caption = 'Dept.'
421		ParentColor = False
422		end
423		object SpeedButton1: TSpeedButton
424	<	Left = 678
424	>	Left = 680
425		Height = 25
426		Top = 48
427		Width = 23
#	Line 436 | Line 430 | object Form1: TForm1
430		end
431		object DBEdit6: TDBEdit
432		Left = 300
433	<	Height = 23
433	>	Height = 27
434		Top = 48
435	<	Width = 370
435	>	Width = 372
436		DataField = 'DEPT_PATH'
437		DataSource = EmployeeSource
438		ReadOnly = True
#	Line 451 | Line 445 | object Form1: TForm1
445		Left = 600
446		Height = 23
447		Top = 0
448	<	Width = 170
448	>	Width = 172
449		Anchors = [akTop, akLeft, akRight]
450		AutoSize = False
451		DataField = 'JOB_COUNTRY'
#	Line 465 | Line 459 | object Form1: TForm1
459		TabOrder = 8
460		AutoInsert = False
461		AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
462	<	ItemHeight = 15
462	>	ItemHeight = 0
463		end
464		object IBLookupComboEditBox1: TIBLookupComboEditBox
465		Left = 600
466		Height = 23
467		Top = 24
468	<	Width = 170
468	>	Width = 172
469		Anchors = [akTop, akLeft, akRight]
470		AutoSize = False
471		DataField = 'JOB_CODE'
#	Line 485 | Line 479 | object Form1: TForm1
479		TabOrder = 9
480		AutoInsert = False
481		AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
482	<	ItemHeight = 15
482	>	ItemHeight = 0
483		end
484		end
485		end
486		object Label13: TLabel
487		Left = 456
488	<	Height = 15
488	>	Height = 17
489		Top = 14
490	<	Width = 67
490	>	Width = 73
491		Caption = 'Salary Range'
492		ParentColor = False
493		end
494		object SalaryRange: TComboBox
495		Left = 544
496	<	Height = 23
496	>	Height = 27
497		Top = 8
498		Width = 272
499	<	ItemHeight = 15
499	>	ItemHeight = 0
500		ItemIndex = 0
501		Items.Strings = (
502		'None Specified'
#	Line 517 | 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=UTF8'
#	Line 526 | Line 521 | object Form1: TForm1
521		DefaultTransaction = IBTransaction1
522		IdleTimer = 0
523		TraceFlags = []
524	+	UseDefaultSystemCodePage = False
525		left = 832
526		top = 168
527		end
#	Line 583 | 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 621 | 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 631 | 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 647 | 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 665 | 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 838 | 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 883 | 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 922 | 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 946 | Line 948 | object Form1: TForm1
948		object JobGradeChangeTimer: TTimer
949		Interval = 0
950		OnTimer = JobGradeChangeTimerTimer
951	<	left = 928
952	<	top = 175
951	>	left = 777
952	>	top = 304
953		end
954		object JobCodeChangeTimer: TTimer
955		Interval = 0
956		OnTimer = JobCodeChangeTimerTimer
957	<	left = 927
958	<	top = 224
957	>	left = 776
958	>	top = 353
959		end
960		end

Diff Legend

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