ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/examples/local-employeedb/unit1.lfm

Comparing ibx/trunk/examples/local-employeedb/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 = 406
2	>	Left = 453
3		Height = 482
4	<	Top = 314
4	>	Top = 355
5		Width = 1043
6		Caption = 'Employee List'
7	<	ClientHeight = 461
7	>	ClientHeight = 459
8		ClientWidth = 1043
9		Menu = MainMenu1
10		OnClose = FormClose
11		OnShow = FormShow
12	<	LCLVersion = '1.4.4.0'
12	>	LCLVersion = '1.6.4.0'
13		object Button1: TButton
14		Left = 956
15		Height = 25
#	Line 39 | Line 39 | object Form1: TForm1
39		end
40		object Label1: TLabel
41		Left = 17
42	<	Height = 15
42	>	Height = 17
43		Top = 14
44	<	Width = 87
44	>	Width = 82
45		Caption = 'Started Before'
46		ParentColor = False
47		end
48		object BeforeDate: TDateEdit
49		Left = 112
50	<	Height = 25
50	>	Height = 27
51		Top = 8
52		Width = 80
53		CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
54	–	OKCaption = 'OK'
55	–	CancelCaption = 'Cancel'
54		DateOrder = doNone
55		ButtonWidth = 23
56		NumGlyphs = 1
#	Line 62 | Line 60 | object Form1: TForm1
60		end
61		object Label2: TLabel
62		Left = 241
63	<	Height = 15
63	>	Height = 17
64		Top = 14
65	<	Width = 78
65	>	Width = 72
66		Caption = 'Started After'
67		ParentColor = False
68		end
69		object AfterDate: TDateEdit
70		Left = 333
71	<	Height = 25
71	>	Height = 27
72		Top = 8
73		Width = 80
74		CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
77	–	OKCaption = 'OK'
78	–	CancelCaption = 'Cancel'
75		DateOrder = doNone
76		ButtonWidth = 23
77		NumGlyphs = 1
#	Line 85 | Line 81 | object Form1: TForm1
81		end
82		object Panel1: TPanel
83		Left = 0
84	<	Height = 413
84	>	Height = 411
85		Top = 42
86		Width = 921
87		Anchors = [akTop, akLeft, akRight, akBottom]
88		BevelOuter = bvNone
89	<	ClientHeight = 413
89	>	ClientHeight = 411
90		ClientWidth = 921
91		Color = clBackground
92		ParentColor = False
93		TabOrder = 5
94		object IBDynamicGrid1: TIBDynamicGrid
95		Left = 0
96	<	Height = 363
96	>	Height = 361
97		Top = 0
98		Width = 921
99		Align = alClient
#	Line 200 | Line 196 | object Form1: TForm1
196		object Panel2: TPanel
197		Left = 0
198		Height = 50
199	<	Top = 363
199	>	Top = 361
200		Width = 921
201		Align = alBottom
202		BevelOuter = bvNone
#	Line 230 | Line 226 | object Form1: TForm1
226		Left = 688
227		Height = 27
228		Top = 16
229	<	Width = 49
229	>	Width = 48
230		Alignment = taRightJustify
231		Anchors = [akTop, akLeft, akBottom]
232		DataField = 'TOTALSALARIES'
#	Line 254 | Line 250 | object Form1: TForm1
250		Visible = False
251		object Label3: TLabel
252		Left = 0
253	<	Height = 15
253	>	Height = 17
254		Top = 7
255	<	Width = 83
255	>	Width = 77
256		Caption = 'Employee No.'
257		ParentColor = False
258		end
259		object DBEdit1: TDBEdit
260		Left = 90
261	<	Height = 25
261	>	Height = 27
262		Top = 2
263		Width = 120
264		DataField = 'EMP_NO'
#	Line 273 | Line 269 | object Form1: TForm1
269		end
270		object Label4: TLabel
271		Left = 12
272	<	Height = 15
272	>	Height = 17
273		Top = 32
274	<	Width = 64
274	>	Width = 61
275		Caption = 'First Name'
276		ParentColor = False
277		end
278		object DBEdit2: TDBEdit
279		Left = 90
280	<	Height = 25
280	>	Height = 27
281		Top = 24
282		Width = 120
283		DataField = 'FIRST_NAME'
#	Line 292 | Line 288 | object Form1: TForm1
288		end
289		object Label5: TLabel
290		Left = 12
291	<	Height = 15
291	>	Height = 17
292		Top = 56
293	<	Width = 64
293	>	Width = 60
294		Caption = 'Last Name'
295		ParentColor = False
296		end
297		object DBEdit3: TDBEdit
298		Left = 90
299	<	Height = 25
299	>	Height = 27
300		Top = 46
301		Width = 120
302		DataField = 'LAST_NAME'
#	Line 311 | Line 307 | object Form1: TForm1
307		end
308		object Label6: TLabel
309		Left = 216
310	<	Height = 15
310	>	Height = 17
311		Top = 7
312	<	Width = 77
312	>	Width = 71
313		Caption = 'Date Started'
314		ParentColor = False
315		end
316		object IBDateEdit1: TDBDateEdit
317		Left = 300
318	<	Height = 25
318	>	Height = 27
319		Top = 2
320		Width = 80
321		CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
326	–	OKCaption = 'OK'
327	–	CancelCaption = 'Cancel'
322		DateOrder = doNone
323		ButtonWidth = 23
324		AutoSelect = False
#	Line 336 | Line 330 | object Form1: TForm1
330		end
331		object Label7: TLabel
332		Left = 252
333	<	Height = 15
333	>	Height = 17
334		Top = 32
335	<	Width = 37
335	>	Width = 35
336		Caption = 'Salary'
337		ParentColor = False
338		end
339		object DBEdit4: TDBEdit
340		Left = 300
341	<	Height = 25
341	>	Height = 27
342		Top = 24
343		Width = 104
344		DataField = 'SALARY'
#	Line 354 | Line 348 | object Form1: TForm1
348		TabOrder = 5
349		end
350		object Label8: TLabel
351	<	Left = 696
352	<	Height = 15
351	>	Left = 700
352	>	Height = 17
353		Top = 54
354	<	Width = 24
354	>	Width = 20
355		Anchors = [akTop, akRight]
356		Caption = 'Ext.'
357		ParentColor = False
358		end
359		object DBEdit5: TDBEdit
360		Left = 720
361	<	Height = 25
361	>	Height = 27
362		Top = 48
363		Width = 40
364		DataField = 'PHONE_EXT'
#	Line 376 | Line 370 | object Form1: TForm1
370		end
371		object Label9: TLabel
372		Left = 536
373	<	Height = 15
373	>	Height = 17
374		Top = 7
375	<	Width = 51
375	>	Width = 47
376		Caption = 'Location'
377		ParentColor = False
378		end
379		object Label10: TLabel
380		Left = 413
381	<	Height = 15
381	>	Height = 17
382		Top = 9
383	<	Width = 59
383	>	Width = 55
384		Caption = 'Job Grade'
385		ParentColor = False
386		end
#	Line 413 | Line 407 | object Form1: TForm1
407		end
408		object Label11: TLabel
409		Left = 536
410	<	Height = 15
410	>	Height = 17
411		Top = 32
412	<	Width = 48
412	>	Width = 44
413		Caption = 'Job Title'
414		ParentColor = False
415		end
416		object Label12: TLabel
417		Left = 256
418	<	Height = 15
418	>	Height = 17
419		Top = 54
420	<	Width = 33
420	>	Width = 30
421		Caption = 'Dept.'
422		ParentColor = False
423		end
#	Line 437 | Line 431 | object Form1: TForm1
431		end
432		object DBEdit6: TDBEdit
433		Left = 300
434	<	Height = 25
434	>	Height = 27
435		Top = 48
436		Width = 356
437		DataField = 'DEPT_PATH'
#	Line 517 | Line 511 | object Form1: TForm1
511		end
512		object Label13: TLabel
513		Left = 456
514	<	Height = 15
514	>	Height = 17
515		Top = 14
516	<	Width = 79
516	>	Width = 73
517		Caption = 'Salary Range'
518		ParentColor = False
519		end
520		object SalaryRange: TComboBox
521		Left = 544
522	<	Height = 25
522	>	Height = 27
523		Top = 8
524		Width = 272
525		ItemHeight = 0
#	Line 542 | Line 536 | object Form1: TForm1
536		Text = 'None Specified'
537		end
538		object IBDatabase1: TIBDatabase
539	<	Connected = True
539	>	Connected = False
540		LoginPrompt = False
541		AfterConnect = IBDatabase1AfterConnect
542	+	CreateIfNotExists = False
543		AllowStreamedConnected = False
544		DatabaseName = 'employee'
545		Params.Strings = (
#	Line 554 | Line 549 | object Form1: TForm1
549		DefaultTransaction = IBTransaction1
550		IdleTimer = 0
551		TraceFlags = []
552	+	UseDefaultSystemCodePage = False
553		left = 832
554		top = 168
555		end
#	Line 630 | Line 626 | object Form1: TForm1
626		top = 296
627		end
628		object TotalsQuery: TIBQuery
629	+	AllowAutoActivateTransaction = False
630		Database = IBDatabase1
631		Transaction = IBTransaction1
632		BeforeOpen = EmployeesBeforeOpen
#	Line 668 | Line 665 | object Form1: TForm1
665		top = 376
666		end
667		object Employees: TIBDataSet
668	+	AllowAutoActivateTransaction = False
669		Database = IBDatabase1
670		Transaction = IBTransaction1
671		AfterDelete = EmployeesAfterDelete
#	Line 869 | Line 867 | object Form1: TForm1
867		ProviderFlags = [pfInUpdate, pfInWhere]
868		ReadOnly = False
869		Required = False
872	–	BlobType = ftBlob
870		end
871		end
872		object Countries: TIBQuery
873	+	AllowAutoActivateTransaction = False
874		Database = IBDatabase1
875		Transaction = IBTransaction1
876		BeforeOpen = CountriesBeforeOpen
#	Line 918 | Line 916 | object Form1: TForm1
916		top = 256
917		end
918		object JobCodes: TIBQuery
919	+	AllowAutoActivateTransaction = False
920		Database = IBDatabase1
921		Transaction = IBTransaction1
922		BeforeOpen = JobCodesBeforeOpen
#	Line 957 | Line 956 | object Form1: TForm1
956		end>
957		end
958		object Depts: TIBQuery
959	+	AllowAutoActivateTransaction = False
960		Database = IBDatabase1
961		Transaction = IBTransaction1
962		BufferChunks = 1000

Diff Legend

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