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 208 by tony, Thu Jan 18 14:37:40 2018 UTC vs.
Revision 209 by tony, Wed Mar 14 12:48:51 2018 UTC

#	Line 11 | Line 11 | object Form1: TForm1
11		OnClose = FormClose
12		OnShow = FormShow
13		Position = poScreenCenter
14	<	LCLVersion = '1.8.1.0'
14	>	LCLVersion = '1.8.0.6'
15		object Button1: TButton
16		Left = 956
17		Height = 25
#	Line 41 | Line 41 | object Form1: TForm1
41		end
42		object Label1: TLabel
43		Left = 17
44	<	Height = 14
44	>	Height = 15
45		Top = 14
46	<	Width = 87
46	>	Width = 74
47		Caption = 'Started Before'
48		ParentColor = False
49		end
50		object BeforeDate: TDateEdit
51		Left = 112
52	<	Height = 24
52	>	Height = 23
53		Top = 8
54		Width = 80
55		CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
#	Line 62 | Line 62 | object Form1: TForm1
62		end
63		object Label2: TLabel
64		Left = 241
65	<	Height = 14
65	>	Height = 15
66		Top = 14
67	<	Width = 78
67	>	Width = 66
68		Caption = 'Started After'
69		ParentColor = False
70		end
71		object AfterDate: TDateEdit
72		Left = 333
73	<	Height = 24
73	>	Height = 23
74		Top = 8
75		Width = 80
76		CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
#	Line 228 | Line 228 | object Form1: TForm1
228		Left = 688
229		Height = 27
230		Top = 16
231	<	Width = 49
231	>	Width = 43
232		Alignment = taRightJustify
233		Anchors = [akTop, akLeft, akBottom]
234		DataField = 'TOTALSALARIES'
#	Line 244 | Line 244 | object Form1: TForm1
244		BevelOuter = bvNone
245		BorderWidth = 2
246		BorderStyle = bsSingle
247	<	ClientHeight = 78
248	<	ClientWidth = 830
247	>	ClientHeight = 76
248	>	ClientWidth = 828
249		Color = clWindow
250		ParentColor = False
251		TabOrder = 2
252		Visible = False
253		object Label3: TLabel
254		Left = 0
255	<	Height = 14
255	>	Height = 15
256		Top = 7
257	<	Width = 83
257	>	Width = 74
258		Caption = 'Employee No.'
259		ParentColor = False
260		end
261		object DBEdit1: TDBEdit
262		Left = 90
263	<	Height = 24
263	>	Height = 23
264		Top = 2
265		Width = 120
266		DataField = 'EMP_NO'
#	Line 271 | Line 271 | object Form1: TForm1
271		end
272		object Label4: TLabel
273		Left = 12
274	<	Height = 14
274	>	Height = 15
275		Top = 32
276	<	Width = 64
276	>	Width = 57
277		Caption = 'First Name'
278		ParentColor = False
279		end
280		object DBEdit2: TDBEdit
281		Left = 90
282	<	Height = 24
282	>	Height = 23
283		Top = 24
284		Width = 120
285		DataField = 'FIRST_NAME'
#	Line 290 | Line 290 | object Form1: TForm1
290		end
291		object Label5: TLabel
292		Left = 12
293	<	Height = 14
293	>	Height = 15
294		Top = 56
295	<	Width = 64
295	>	Width = 56
296		Caption = 'Last Name'
297		ParentColor = False
298		end
299		object DBEdit3: TDBEdit
300		Left = 90
301	<	Height = 24
301	>	Height = 23
302		Top = 46
303		Width = 120
304		DataField = 'LAST_NAME'
#	Line 309 | Line 309 | object Form1: TForm1
309		end
310		object Label6: TLabel
311		Left = 216
312	<	Height = 14
312	>	Height = 15
313		Top = 7
314	<	Width = 77
314	>	Width = 64
315		Caption = 'Date Started'
316		ParentColor = False
317		end
318		object IBDateEdit1: TDBDateEdit
319		Left = 300
320	<	Height = 24
320	>	Height = 23
321		Top = 2
322		Width = 80
323		CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
#	Line 332 | Line 332 | object Form1: TForm1
332		end
333		object Label7: TLabel
334		Left = 252
335	<	Height = 14
335	>	Height = 15
336		Top = 32
337	<	Width = 37
337	>	Width = 31
338		Caption = 'Salary'
339		ParentColor = False
340		end
341		object DBEdit4: TDBEdit
342		Left = 300
343	<	Height = 24
343	>	Height = 23
344		Top = 24
345		Width = 104
346		DataField = 'SALARY'
#	Line 350 | Line 350 | object Form1: TForm1
350		TabOrder = 5
351		end
352		object Label8: TLabel
353	<	Left = 696
354	<	Height = 14
353	>	Left = 700
354	>	Height = 15
355		Top = 54
356	<	Width = 24
356	>	Width = 18
357		Anchors = [akTop, akRight]
358		Caption = 'Ext.'
359		ParentColor = False
360		end
361		object DBEdit5: TDBEdit
362	<	Left = 720
363	<	Height = 24
362	>	Left = 718
363	>	Height = 23
364		Top = 48
365		Width = 40
366		DataField = 'PHONE_EXT'
#	Line 372 | Line 372 | object Form1: TForm1
372		end
373		object Label9: TLabel
374		Left = 536
375	<	Height = 14
375	>	Height = 15
376		Top = 7
377	<	Width = 51
377	>	Width = 46
378		Caption = 'Location'
379		ParentColor = False
380		end
381		object Label10: TLabel
382		Left = 413
383	<	Height = 14
383	>	Height = 15
384		Top = 9
385	<	Width = 59
385	>	Width = 52
386		Caption = 'Job Grade'
387		ParentColor = False
388		end
#	Line 394 | Line 394 | object Form1: TForm1
394		AutoSize = False
395		DataField = 'JOB_GRADE'
396		DataSource = EmployeeSource
397	<	ItemHeight = 0
397	>	ItemHeight = 15
398		Items.Strings = (
399		'1'
400		'2'
#	Line 409 | Line 409 | object Form1: TForm1
409		end
410		object Label11: TLabel
411		Left = 536
412	<	Height = 14
412	>	Height = 15
413		Top = 32
414	<	Width = 48
414	>	Width = 44
415		Caption = 'Job Title'
416		ParentColor = False
417		end
418		object Label12: TLabel
419		Left = 256
420	<	Height = 14
420	>	Height = 15
421		Top = 54
422	<	Width = 33
422	>	Width = 28
423		Caption = 'Dept.'
424		ParentColor = False
425		end
426		object SpeedButton1: TSpeedButton
427	<	Left = 664
427	>	Left = 662
428		Height = 25
429		Top = 48
430		Width = 23
#	Line 433 | Line 433 | object Form1: TForm1
433		end
434		object DBEdit6: TDBEdit
435		Left = 300
436	<	Height = 24
436	>	Height = 23
437		Top = 48
438	<	Width = 356
438	>	Width = 354
439		DataField = 'DEPT_PATH'
440		DataSource = EmployeeSource
441		ReadOnly = True
#	Line 448 | Line 448 | object Form1: TForm1
448		Left = 600
449		Height = 23
450		Top = 0
451	<	Width = 160
451	>	Width = 158
452		Anchors = [akTop, akLeft, akRight]
453		AutoSize = False
454		DataField = 'JOB_COUNTRY'
#	Line 462 | Line 462 | object Form1: TForm1
462		TabOrder = 8
463		AutoInsert = False
464		AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
465	<	ItemHeight = 0
465	>	ItemHeight = 15
466		end
467		object IBLookupComboEditBox1: TIBLookupComboEditBox
468		Left = 600
469		Height = 23
470		Top = 24
471	<	Width = 160
471	>	Width = 158
472		Anchors = [akTop, akLeft, akRight]
473		AutoSize = False
474		DataField = 'JOB_CODE'
#	Line 482 | Line 482 | object Form1: TForm1
482		TabOrder = 9
483		AutoInsert = False
484		AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
485	<	ItemHeight = 0
485	>	ItemHeight = 15
486		end
487		object Panel3: TPanel
488	<	Left = 768
488	>	Left = 766
489		Height = 67
490		Top = 3
491		Width = 56
#	Line 513 | Line 513 | object Form1: TForm1
513		end
514		object Label13: TLabel
515		Left = 456
516	<	Height = 14
516	>	Height = 15
517		Top = 14
518	<	Width = 79
518	>	Width = 67
519		Caption = 'Salary Range'
520		ParentColor = False
521		end
522		object SalaryRange: TComboBox
523		Left = 544
524	<	Height = 25
524	>	Height = 23
525		Top = 8
526		Width = 272
527	<	ItemHeight = 0
527	>	ItemHeight = 15
528		ItemIndex = 0
529		Items.Strings = (
530		'None Specified'
#	Line 545 | Line 545 | object Form1: TForm1
545		AllowStreamedConnected = False
546		DatabaseName = 'employee'
547		Params.Strings = (
548	–	'user_name=SYSDBA'
548		'lc_ctype=UTF8'
549	+	'user_name=SYSDBA'
550		)
551		DefaultTransaction = IBTransaction1
552		IdleTimer = 0

Diff Legend

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