ViewVC Help

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

root/public/ibx/trunk/examples/isqlmonitor/MainForm.lfm

Comparing ibx/trunk/examples/isqlmonitor/MainForm.lfm (file contents):
Revision 67 by tony, Tue Dec 6 10:33:46 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 = 472
2	>	Left = 272
3		Height = 482
4		Top = 372
5		Width = 1002
6		Caption = 'Employee List'
7		ClientHeight = 482
8		ClientWidth = 1002
9	+	DefaultMonitor = dmPrimary
10		OnClose = FormClose
11		OnShow = FormShow
12	<	LCLVersion = '1.6.0.4'
12	>	Position = poScreenCenter
13	>	LCLVersion = '1.8.0.4'
14		object Button1: TButton
15		Left = 915
16		Height = 25
#	Line 38 | Line 40 | object Form1: TForm1
40		end
41		object Label1: TLabel
42		Left = 17
43	<	Height = 15
43	>	Height = 14
44		Top = 14
45	<	Width = 74
45	>	Width = 87
46		Caption = 'Started Before'
47		ParentColor = False
48		end
49		object BeforeDate: TDateEdit
50		Left = 112
51	<	Height = 23
51	>	Height = 24
52		Top = 8
53		Width = 80
54		CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
53	–	OKCaption = 'OK'
54	–	CancelCaption = 'Cancel'
55		DateOrder = doNone
56		ButtonWidth = 23
57		NumGlyphs = 1
#	Line 61 | Line 61 | object Form1: TForm1
61		end
62		object Label2: TLabel
63		Left = 241
64	<	Height = 15
64	>	Height = 14
65		Top = 14
66	<	Width = 66
66	>	Width = 78
67		Caption = 'Started After'
68		ParentColor = False
69		end
70		object AfterDate: TDateEdit
71		Left = 333
72	<	Height = 23
72	>	Height = 24
73		Top = 8
74		Width = 80
75		CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
76	–	OKCaption = 'OK'
77	–	CancelCaption = 'Cancel'
76		DateOrder = doNone
77		ButtonWidth = 23
78		NumGlyphs = 1
#	Line 229 | Line 227 | object Form1: TForm1
227		Left = 688
228		Height = 27
229		Top = 16
230	<	Width = 43
230	>	Width = 49
231		Alignment = taRightJustify
232		Anchors = [akTop, akLeft, akBottom]
233		DataField = 'TOTALSALARIES'
#	Line 245 | Line 243 | object Form1: TForm1
243		BevelOuter = bvNone
244		BorderWidth = 2
245		BorderStyle = bsSingle
246	<	ClientHeight = 76
247	<	ClientWidth = 780
246	>	ClientHeight = 78
247	>	ClientWidth = 782
248		Color = clWindow
249		ParentColor = False
250		TabOrder = 2
251		Visible = False
252		object Label3: TLabel
253		Left = 0
254	<	Height = 15
254	>	Height = 14
255		Top = 7
256	<	Width = 74
256	>	Width = 83
257		Caption = 'Employee No.'
258		ParentColor = False
259		end
260		object DBEdit1: TDBEdit
261		Left = 90
262	<	Height = 23
262	>	Height = 24
263		Top = 2
264		Width = 120
265		DataField = 'EMP_NO'
#	Line 272 | Line 270 | object Form1: TForm1
270		end
271		object Label4: TLabel
272		Left = 12
273	<	Height = 15
273	>	Height = 14
274		Top = 32
275	<	Width = 57
275	>	Width = 64
276		Caption = 'First Name'
277		ParentColor = False
278		end
279		object DBEdit2: TDBEdit
280		Left = 90
281	<	Height = 23
281	>	Height = 24
282		Top = 24
283		Width = 120
284		DataField = 'FIRST_NAME'
#	Line 291 | Line 289 | object Form1: TForm1
289		end
290		object Label5: TLabel
291		Left = 12
292	<	Height = 15
292	>	Height = 14
293		Top = 56
294	<	Width = 56
294	>	Width = 64
295		Caption = 'Last Name'
296		ParentColor = False
297		end
298		object DBEdit3: TDBEdit
299		Left = 90
300	<	Height = 23
300	>	Height = 24
301		Top = 46
302		Width = 120
303		DataField = 'LAST_NAME'
#	Line 310 | Line 308 | object Form1: TForm1
308		end
309		object Label6: TLabel
310		Left = 216
311	<	Height = 15
311	>	Height = 14
312		Top = 7
313	<	Width = 64
313	>	Width = 77
314		Caption = 'Date Started'
315		ParentColor = False
316		end
317		object IBDateEdit1: TDBDateEdit
318		Left = 300
319	<	Height = 23
319	>	Height = 24
320		Top = 2
321		Width = 80
322		CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
325	–	OKCaption = 'OK'
326	–	CancelCaption = 'Cancel'
323		DateOrder = doNone
324		ButtonWidth = 23
325		AutoSelect = False
#	Line 335 | Line 331 | object Form1: TForm1
331		end
332		object Label7: TLabel
333		Left = 252
334	<	Height = 15
334	>	Height = 14
335		Top = 32
336	<	Width = 31
336	>	Width = 37
337		Caption = 'Salary'
338		ParentColor = False
339		end
340		object DBEdit4: TDBEdit
341		Left = 300
342	<	Height = 23
342	>	Height = 24
343		Top = 24
344		Width = 104
345		DataField = 'SALARY'
#	Line 353 | Line 349 | object Form1: TForm1
349		TabOrder = 5
350		end
351		object Label8: TLabel
352	<	Left = 712
353	<	Height = 15
352	>	Left = 708
353	>	Height = 14
354		Top = 54
355	<	Width = 18
355	>	Width = 24
356		Anchors = [akTop, akRight]
357		Caption = 'Ext.'
358		ParentColor = False
359		end
360		object DBEdit5: TDBEdit
361	<	Left = 730
362	<	Height = 23
361	>	Left = 732
362	>	Height = 24
363		Top = 48
364		Width = 40
365		DataField = 'PHONE_EXT'
#	Line 375 | Line 371 | object Form1: TForm1
371		end
372		object Label9: TLabel
373		Left = 536
374	<	Height = 15
374	>	Height = 14
375		Top = 7
376	<	Width = 46
376	>	Width = 51
377		Caption = 'Location'
378		ParentColor = False
379		end
380		object Label10: TLabel
381		Left = 413
382	<	Height = 15
382	>	Height = 14
383		Top = 9
384	<	Width = 52
384	>	Width = 59
385		Caption = 'Job Grade'
386		ParentColor = False
387		end
#	Line 397 | Line 393 | object Form1: TForm1
393		AutoSize = False
394		DataField = 'JOB_GRADE'
395		DataSource = EmployeeSource
396	<	ItemHeight = 15
396	>	ItemHeight = 0
397		Items.Strings = (
398		'1'
399		'2'
#	Line 412 | Line 408 | object Form1: TForm1
408		end
409		object Label11: TLabel
410		Left = 536
411	<	Height = 15
411	>	Height = 14
412		Top = 32
413	<	Width = 44
413	>	Width = 48
414		Caption = 'Job Title'
415		ParentColor = False
416		end
417		object Label12: TLabel
418		Left = 256
419	<	Height = 15
419	>	Height = 14
420		Top = 54
421	<	Width = 28
421	>	Width = 33
422		Caption = 'Dept.'
423		ParentColor = False
424		end
425		object SpeedButton1: TSpeedButton
426	<	Left = 678
426	>	Left = 680
427		Height = 25
428		Top = 48
429		Width = 23
#	Line 436 | Line 432 | object Form1: TForm1
432		end
433		object DBEdit6: TDBEdit
434		Left = 300
435	<	Height = 23
435	>	Height = 24
436		Top = 48
437	<	Width = 370
437	>	Width = 372
438		DataField = 'DEPT_PATH'
439		DataSource = EmployeeSource
440		ReadOnly = True
#	Line 451 | Line 447 | object Form1: TForm1
447		Left = 600
448		Height = 23
449		Top = 0
450	<	Width = 170
450	>	Width = 172
451		Anchors = [akTop, akLeft, akRight]
452		AutoSize = False
453		DataField = 'JOB_COUNTRY'
#	Line 465 | Line 461 | object Form1: TForm1
461		TabOrder = 8
462		AutoInsert = False
463		AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
464	<	ItemHeight = 15
464	>	ItemHeight = 0
465		end
466		object IBLookupComboEditBox1: TIBLookupComboEditBox
467		Left = 600
468		Height = 23
469		Top = 24
470	<	Width = 170
470	>	Width = 172
471		Anchors = [akTop, akLeft, akRight]
472		AutoSize = False
473		DataField = 'JOB_CODE'
#	Line 485 | Line 481 | object Form1: TForm1
481		TabOrder = 9
482		AutoInsert = False
483		AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
484	<	ItemHeight = 15
484	>	ItemHeight = 0
485		end
486		end
487		end
488		object Label13: TLabel
489		Left = 456
490	<	Height = 15
490	>	Height = 14
491		Top = 14
492	<	Width = 67
492	>	Width = 79
493		Caption = 'Salary Range'
494		ParentColor = False
495		end
496		object SalaryRange: TComboBox
497		Left = 544
498	<	Height = 23
498	>	Height = 25
499		Top = 8
500		Width = 272
501	<	ItemHeight = 15
501	>	ItemHeight = 0
502		ItemIndex = 0
503		Items.Strings = (
504		'None Specified'
#	Line 516 | Line 512 | object Form1: TForm1
512		Text = 'None Specified'
513		end
514		object IBDatabase1: TIBDatabase
515	<	Connected = True
515	>	Connected = False
516	>	CreateIfNotExists = False
517		AllowStreamedConnected = False
518		DatabaseName = 'localhost:employee'
519		Params.Strings = (
#	Line 585 | Line 582 | object Form1: TForm1
582		top = 296
583		end
584		object TotalsQuery: TIBQuery
585	+	AllowAutoActivateTransaction = False
586		Database = IBDatabase1
587		Transaction = IBTransaction1
588		BeforeOpen = EmployeesBeforeOpen
#	Line 623 | Line 621 | object Form1: TForm1
621		top = 376
622		end
623		object Employees: TIBDataSet
624	+	AllowAutoActivateTransaction = False
625		Database = IBDatabase1
626		Transaction = IBTransaction1
627		AfterDelete = EmployeesAfterDelete
#	Line 849 | Line 848 | object Form1: TForm1
848		end
849		end
850		object Countries: TIBQuery
851	+	AllowAutoActivateTransaction = False
852		Database = IBDatabase1
853		Transaction = IBTransaction1
854		BeforeOpen = CountriesBeforeOpen
#	Line 894 | Line 894 | object Form1: TForm1
894		top = 256
895		end
896		object JobCodes: TIBQuery
897	+	AllowAutoActivateTransaction = False
898		Database = IBDatabase1
899		Transaction = IBTransaction1
900		BeforeOpen = JobCodesBeforeOpen
#	Line 933 | Line 934 | object Form1: TForm1
934		end>
935		end
936		object Depts: TIBQuery
937	+	AllowAutoActivateTransaction = False
938		Database = IBDatabase1
939		Transaction = IBTransaction1
940		BufferChunks = 1000

Diff Legend

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