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

#	Line 1 | Line 1
1		object Form1: TForm1
2	<	Left = 406
2	>	Left = 231
3		Height = 482
4	<	Top = 314
4	>	Top = 355
5		Width = 1043
6		Caption = 'Employee List'
7	<	ClientHeight = 461
7	>	ClientHeight = 462
8		ClientWidth = 1043
9	+	DefaultMonitor = dmPrimary
10		Menu = MainMenu1
11		OnClose = FormClose
12		OnShow = FormShow
13	<	LCLVersion = '1.4.4.0'
13	>	Position = poScreenCenter
14	>	LCLVersion = '1.8.0.4'
15		object Button1: TButton
16		Left = 956
17		Height = 25
#	Line 39 | Line 41 | object Form1: TForm1
41		end
42		object Label1: TLabel
43		Left = 17
44	<	Height = 15
44	>	Height = 14
45		Top = 14
46		Width = 87
47		Caption = 'Started Before'
#	Line 47 | Line 49 | object Form1: TForm1
49		end
50		object BeforeDate: TDateEdit
51		Left = 112
52	<	Height = 25
52	>	Height = 24
53		Top = 8
54		Width = 80
55		CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
54	–	OKCaption = 'OK'
55	–	CancelCaption = 'Cancel'
56		DateOrder = doNone
57		ButtonWidth = 23
58		NumGlyphs = 1
#	Line 62 | Line 62 | object Form1: TForm1
62		end
63		object Label2: TLabel
64		Left = 241
65	<	Height = 15
65	>	Height = 14
66		Top = 14
67		Width = 78
68		Caption = 'Started After'
#	Line 70 | Line 70 | object Form1: TForm1
70		end
71		object AfterDate: TDateEdit
72		Left = 333
73	<	Height = 25
73	>	Height = 24
74		Top = 8
75		Width = 80
76		CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
77	–	OKCaption = 'OK'
78	–	CancelCaption = 'Cancel'
77		DateOrder = doNone
78		ButtonWidth = 23
79		NumGlyphs = 1
#	Line 85 | Line 83 | object Form1: TForm1
83		end
84		object Panel1: TPanel
85		Left = 0
86	<	Height = 413
86	>	Height = 414
87		Top = 42
88		Width = 921
89		Anchors = [akTop, akLeft, akRight, akBottom]
90		BevelOuter = bvNone
91	<	ClientHeight = 413
91	>	ClientHeight = 414
92		ClientWidth = 921
93		Color = clBackground
94		ParentColor = False
95		TabOrder = 5
96		object IBDynamicGrid1: TIBDynamicGrid
97		Left = 0
98	<	Height = 363
98	>	Height = 364
99		Top = 0
100		Width = 921
101		Align = alClient
#	Line 200 | Line 198 | object Form1: TForm1
198		object Panel2: TPanel
199		Left = 0
200		Height = 50
201	<	Top = 363
201	>	Top = 364
202		Width = 921
203		Align = alBottom
204		BevelOuter = bvNone
#	Line 254 | Line 252 | object Form1: TForm1
252		Visible = False
253		object Label3: TLabel
254		Left = 0
255	<	Height = 15
255	>	Height = 14
256		Top = 7
257		Width = 83
258		Caption = 'Employee No.'
#	Line 262 | Line 260 | object Form1: TForm1
260		end
261		object DBEdit1: TDBEdit
262		Left = 90
263	<	Height = 25
263	>	Height = 24
264		Top = 2
265		Width = 120
266		DataField = 'EMP_NO'
#	Line 273 | Line 271 | object Form1: TForm1
271		end
272		object Label4: TLabel
273		Left = 12
274	<	Height = 15
274	>	Height = 14
275		Top = 32
276		Width = 64
277		Caption = 'First Name'
#	Line 281 | Line 279 | object Form1: TForm1
279		end
280		object DBEdit2: TDBEdit
281		Left = 90
282	<	Height = 25
282	>	Height = 24
283		Top = 24
284		Width = 120
285		DataField = 'FIRST_NAME'
#	Line 292 | Line 290 | object Form1: TForm1
290		end
291		object Label5: TLabel
292		Left = 12
293	<	Height = 15
293	>	Height = 14
294		Top = 56
295		Width = 64
296		Caption = 'Last Name'
#	Line 300 | Line 298 | object Form1: TForm1
298		end
299		object DBEdit3: TDBEdit
300		Left = 90
301	<	Height = 25
301	>	Height = 24
302		Top = 46
303		Width = 120
304		DataField = 'LAST_NAME'
#	Line 311 | Line 309 | object Form1: TForm1
309		end
310		object Label6: TLabel
311		Left = 216
312	<	Height = 15
312	>	Height = 14
313		Top = 7
314		Width = 77
315		Caption = 'Date Started'
#	Line 319 | Line 317 | object Form1: TForm1
317		end
318		object IBDateEdit1: TDBDateEdit
319		Left = 300
320	<	Height = 25
320	>	Height = 24
321		Top = 2
322		Width = 80
323		CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
326	–	OKCaption = 'OK'
327	–	CancelCaption = 'Cancel'
324		DateOrder = doNone
325		ButtonWidth = 23
326		AutoSelect = False
#	Line 336 | Line 332 | object Form1: TForm1
332		end
333		object Label7: TLabel
334		Left = 252
335	<	Height = 15
335	>	Height = 14
336		Top = 32
337		Width = 37
338		Caption = 'Salary'
#	Line 344 | Line 340 | object Form1: TForm1
340		end
341		object DBEdit4: TDBEdit
342		Left = 300
343	<	Height = 25
343	>	Height = 24
344		Top = 24
345		Width = 104
346		DataField = 'SALARY'
#	Line 355 | Line 351 | object Form1: TForm1
351		end
352		object Label8: TLabel
353		Left = 696
354	<	Height = 15
354	>	Height = 14
355		Top = 54
356		Width = 24
357		Anchors = [akTop, akRight]
#	Line 364 | Line 360 | object Form1: TForm1
360		end
361		object DBEdit5: TDBEdit
362		Left = 720
363	<	Height = 25
363	>	Height = 24
364		Top = 48
365		Width = 40
366		DataField = 'PHONE_EXT'
#	Line 376 | Line 372 | object Form1: TForm1
372		end
373		object Label9: TLabel
374		Left = 536
375	<	Height = 15
375	>	Height = 14
376		Top = 7
377		Width = 51
378		Caption = 'Location'
#	Line 384 | Line 380 | object Form1: TForm1
380		end
381		object Label10: TLabel
382		Left = 413
383	<	Height = 15
383	>	Height = 14
384		Top = 9
385		Width = 59
386		Caption = 'Job Grade'
#	Line 413 | Line 409 | object Form1: TForm1
409		end
410		object Label11: TLabel
411		Left = 536
412	<	Height = 15
412	>	Height = 14
413		Top = 32
414		Width = 48
415		Caption = 'Job Title'
#	Line 421 | Line 417 | object Form1: TForm1
417		end
418		object Label12: TLabel
419		Left = 256
420	<	Height = 15
420	>	Height = 14
421		Top = 54
422		Width = 33
423		Caption = 'Dept.'
#	Line 437 | Line 433 | object Form1: TForm1
433		end
434		object DBEdit6: TDBEdit
435		Left = 300
436	<	Height = 25
436	>	Height = 24
437		Top = 48
438		Width = 356
439		DataField = 'DEPT_PATH'
#	Line 517 | Line 513 | object Form1: TForm1
513		end
514		object Label13: TLabel
515		Left = 456
516	<	Height = 15
516	>	Height = 14
517		Top = 14
518		Width = 79
519		Caption = 'Salary Range'
#	Line 542 | Line 538 | object Form1: TForm1
538		Text = 'None Specified'
539		end
540		object IBDatabase1: TIBDatabase
541	<	Connected = True
541	>	Connected = False
542		LoginPrompt = False
543		AfterConnect = IBDatabase1AfterConnect
544	+	CreateIfNotExists = False
545		AllowStreamedConnected = False
546		DatabaseName = 'employee'
547		Params.Strings = (
#	Line 554 | Line 551 | object Form1: TForm1
551		DefaultTransaction = IBTransaction1
552		IdleTimer = 0
553		TraceFlags = []
554	+	UseDefaultSystemCodePage = False
555		left = 832
556		top = 168
557		end
#	Line 630 | Line 628 | object Form1: TForm1
628		top = 296
629		end
630		object TotalsQuery: TIBQuery
631	+	AllowAutoActivateTransaction = False
632		Database = IBDatabase1
633		Transaction = IBTransaction1
634		BeforeOpen = EmployeesBeforeOpen
#	Line 668 | Line 667 | object Form1: TForm1
667		top = 376
668		end
669		object Employees: TIBDataSet
670	+	AllowAutoActivateTransaction = False
671		Database = IBDatabase1
672		Transaction = IBTransaction1
673		AfterDelete = EmployeesAfterDelete
#	Line 869 | Line 869 | object Form1: TForm1
869		ProviderFlags = [pfInUpdate, pfInWhere]
870		ReadOnly = False
871		Required = False
872	–	BlobType = ftBlob
872		end
873		end
874		object Countries: TIBQuery
875	+	AllowAutoActivateTransaction = False
876		Database = IBDatabase1
877		Transaction = IBTransaction1
878		BeforeOpen = CountriesBeforeOpen
#	Line 918 | Line 918 | object Form1: TForm1
918		top = 256
919		end
920		object JobCodes: TIBQuery
921	+	AllowAutoActivateTransaction = False
922		Database = IBDatabase1
923		Transaction = IBTransaction1
924		BeforeOpen = JobCodesBeforeOpen
#	Line 957 | Line 958 | object Form1: TForm1
958		end>
959		end
960		object Depts: TIBQuery
961	+	AllowAutoActivateTransaction = False
962		Database = IBDatabase1
963		Transaction = IBTransaction1
964		BufferChunks = 1000

Diff Legend

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