ViewVC Help

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

root/public/ibx/trunk/examples/dbcontrolgrid/unit1.lfm

Comparing ibx/trunk/examples/dbcontrolgrid/unit1.lfm (file contents):
Revision 317 by tony, Thu Dec 6 15:55:01 2018 UTC vs.
Revision 318 by tony, Thu Feb 25 12:03:26 2021 UTC

#	Line 10 | Line 10 | object Form1: TForm1
10		OnClose = FormClose
11		OnShow = FormShow
12		Position = poDefault
13	<	LCLVersion = '2.0.0.2'
13	>	LCLVersion = '2.0.11.0'
14		object Button1: TButton
15		Left = 947
16		Height = 25
#	Line 31 | Line 31 | object Form1: TForm1
31		end
32		object Label1: TLabel
33		Left = 17
34	<	Height = 14
34	>	Height = 13
35		Top = 14
36		Width = 87
37		Caption = 'Started Before'
#	Line 52 | Line 52 | object Form1: TForm1
52		end
53		object Label2: TLabel
54		Left = 241
55	<	Height = 14
55	>	Height = 13
56		Top = 14
57		Width = 78
58		Caption = 'Started After'
#	Line 117 | Line 117 | object Form1: TForm1
117		Visible = False
118		object Label3: TLabel
119		Left = 0
120	<	Height = 14
120	>	Height = 13
121		Top = 7
122		Width = 83
123		Caption = 'Employee No.'
#	Line 136 | Line 136 | object Form1: TForm1
136		end
137		object Label4: TLabel
138		Left = 12
139	<	Height = 14
139	>	Height = 13
140		Top = 32
141		Width = 64
142		Caption = 'First Name'
#	Line 155 | Line 155 | object Form1: TForm1
155		end
156		object Label5: TLabel
157		Left = 12
158	<	Height = 14
158	>	Height = 13
159		Top = 56
160		Width = 64
161		Caption = 'Last Name'
#	Line 174 | Line 174 | object Form1: TForm1
174		end
175		object Label6: TLabel
176		Left = 216
177	<	Height = 14
177	>	Height = 13
178		Top = 7
179		Width = 77
180		Caption = 'Date Started'
#	Line 197 | Line 197 | object Form1: TForm1
197		end
198		object Label7: TLabel
199		Left = 252
200	<	Height = 14
200	>	Height = 13
201		Top = 32
202		Width = 37
203		Caption = 'Salary'
#	Line 216 | Line 216 | object Form1: TForm1
216		end
217		object Label8: TLabel
218		Left = 822
219	<	Height = 14
219	>	Height = 13
220		Top = 58
221		Width = 24
222		Anchors = [akTop, akRight]
#	Line 237 | Line 237 | object Form1: TForm1
237		end
238		object Label9: TLabel
239		Left = 536
240	<	Height = 14
240	>	Height = 13
241		Top = 7
242	<	Width = 51
242	>	Width = 50
243		Caption = 'Location'
244		ParentColor = False
245		end
246		object Label10: TLabel
247		Left = 413
248	<	Height = 14
248	>	Height = 13
249		Top = 9
250		Width = 59
251		Caption = 'Job Grade'
#	Line 274 | Line 274 | object Form1: TForm1
274		end
275		object Label11: TLabel
276		Left = 536
277	<	Height = 14
277	>	Height = 13
278		Top = 32
279		Width = 48
280		Caption = 'Job Title'
#	Line 282 | Line 282 | object Form1: TForm1
282		end
283		object Label12: TLabel
284		Left = 256
285	<	Height = 14
285	>	Height = 13
286		Top = 58
287		Width = 33
288		Caption = 'Dept.'
#	Line 392 | Line 392 | object Form1: TForm1
392		end
393		object Label13: TLabel
394		Left = 456
395	<	Height = 14
395	>	Height = 13
396		Top = 14
397		Width = 79
398		Caption = 'Salary Range'
#	Line 420 | Line 420 | object Form1: TForm1
420		Connected = False
421		CreateIfNotExists = False
422		AllowStreamedConnected = False
423	<	DatabaseName = 'employee'
423	>	DatabaseName = 'localhost:employee'
424		Params.Strings = (
425		'user_name=SYSDBA'
426		'lc_ctype=UTF8'
#	Line 431 | Line 431 | object Form1: TForm1
431		IdleTimer = 0
432		TraceFlags = []
433		UseDefaultSystemCodePage = False
434	<	left = 832
435	<	top = 168
434	>	Left = 832
435	>	Top = 168
436		end
437		object IBTransaction1: TIBTransaction
438		Active = False
#	Line 442 | Line 442 | object Form1: TForm1
442		'rec_version'
443		'nowait'
444		)
445	<	left = 872
446	<	top = 168
445	>	Left = 872
446	>	Top = 168
447		end
448		object EmployeeSource: TDataSource
449		DataSet = Employees
450	<	left = 832
451	<	top = 336
450	>	Left = 832
451	>	Top = 336
452		end
453		object ActionList1: TActionList
454	<	left = 832
455	<	top = 416
454	>	Left = 832
455	>	Top = 416
456		object AddEmployee: TAction
457		Caption = 'Add'
458		OnExecute = AddEmployeeExecute
#	Line 498 | Line 498 | object Form1: TForm1
498		BeforeOpen = EmployeesBeforeOpen
499		BufferChunks = 1000
500		CachedUpdates = False
501	+	CaseSensitiveParameterNames = False
502		EnableStatistics = False
503		GenerateParamNames = False
504		GeneratorField.ApplyOnEvent = gaeOnNewRecord
505		MasterDetailDelay = 0
506		SQL.Strings = (
507	<	'Select sum(Salary) as TotalSalaries'
507	>	'Select cast(sum(Salary) as Numeric(12,2)) as TotalSalaries'
508		'From EMPLOYEE'
509		)
510		Params = <>
511	+	SQLFiltered = False
512		DataSetCloseAction = dcDiscardChanges
513	<	left = 872
514	<	top = 376
513	>	TZTextOption = tzOffset
514	>	DefaultTZDate = 43831
515	>	Left = 872
516	>	Top = 376
517		object TotalsQueryTOTALSALARIES: TIBBCDField
518		DisplayWidth = 18
519		FieldKind = fkData
#	Line 529 | Line 533 | object Form1: TForm1
533		end
534		object TotalsSource: TDataSource
535		DataSet = TotalsQuery
536	<	left = 832
537	<	top = 376
536	>	Left = 832
537	>	Top = 376
538		end
539		object Employees: TIBDataSet
540		AllowAutoActivateTransaction = False
#	Line 546 | Line 550 | object Form1: TForm1
550		BeforeOpen = EmployeesBeforeOpen
551		BufferChunks = 1000
552		CachedUpdates = False
553	+	CaseSensitiveParameterNames = False
554		EnableStatistics = False
555		DeleteSQL.Strings = (
556		'Delete From EMPLOYEE A'
#	Line 613 | Line 618 | object Form1: TForm1
618		GenerateParamNames = False
619		MasterDetailDelay = 0
620		DataSetCloseAction = dcSaveChanges
621	+	TZTextOption = tzOffset
622	+	DefaultTZDate = 43831
623	+	SQLFiltered = False
624		AfterTransactionEnd = EmployeesAfterTransactionEnd
625	<	left = 872
626	<	top = 336
625	>	Left = 872
626	>	Top = 336
627		object EmployeesEMP_NO: TSmallintField
628		DisplayWidth = 10
629		FieldKind = fkData

Diff Legend

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