ViewVC Help

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

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

Comparing ibx/trunk/examples/employee/unit1.lfm (file contents):
Revision 19 by tony, Mon Jul 7 13:00:15 2014 UTC vs.
Revision 21 by tony, Thu Feb 26 10:33:34 2015 UTC

#	Line 1 | Line 1
1		object Form1: TForm1
2	<	Left = 461
3	<	Height = 454
4	<	Top = 312
5	<	Width = 743
6	<	Caption = 'Form1'
7	<	ClientHeight = 454
8	<	ClientWidth = 743
2	>	Left = 311
3	>	Height = 482
4	>	Top = 328
5	>	Width = 1002
6	>	Caption = 'Employee List'
7	>	ClientHeight = 482
8	>	ClientWidth = 1002
9		OnClose = FormClose
10		OnShow = FormShow
11	<	LCLVersion = '1.2.2.0'
12	<	object DBGrid1: TDBGrid
13	<	Left = 8
14	<	Height = 375
15	<	Top = 24
16	<	Width = 632
17	<	Color = clWindow
18	<	Columns = <
19	<	item
20	<	Title.Alignment = taCenter
21	<	Title.Caption = 'Last Name'
22	<	Width = 150
23	<	FieldName = 'LAST_NAME'
24	<	end
25	<	item
26	<	Title.Alignment = taCenter
27	<	Title.Caption = 'First Name'
28	<	Width = 150
29	<	FieldName = 'FIRST_NAME'
30	<	end
31	<	item
32	<	Title.Alignment = taCenter
33	<	Title.Caption = 'Employee No.'
34	<	Width = 100
35	<	FieldName = 'EMP_NO'
36	<	end
37	<	item
38	<	Alignment = taCenter
39	<	Title.Alignment = taCenter
40	<	Title.Caption = 'Started'
41	<	Width = 80
42	<	FieldName = 'HIRE_DATE'
43	<	end
44	<	item
45	<	Title.Alignment = taCenter
46	<	Title.Caption = 'Salary'
47	<	Width = 100
48	<	FieldName = 'SALARY'
49	<	end>
50	<	DataSource = Datasource1
51	<	TabOrder = 0
52	<	OnDblClick = DBGrid1DblClick
53	<	end
11	>	LCLVersion = '1.4.0.1'
12		object Button1: TButton
13	<	Left = 656
13	>	Left = 915
14		Height = 25
15	<	Top = 24
15	>	Top = 48
16		Width = 75
17		Action = AddEmployee
18	<	TabOrder = 1
18	>	Anchors = [akTop, akRight]
19	>	TabOrder = 0
20		end
21		object Button2: TButton
22	<	Left = 656
22	>	Left = 915
23		Height = 25
24	<	Top = 62
24	>	Top = 86
25		Width = 75
26		Action = EditEmployee
27	<	TabOrder = 2
27	>	Anchors = [akTop, akRight]
28	>	TabOrder = 1
29		end
30		object Button3: TButton
31	<	Left = 656
31	>	Left = 915
32		Height = 25
33	<	Top = 101
33	>	Top = 125
34		Width = 75
35		Action = DeleteEmployee
36	+	Anchors = [akTop, akRight]
37	+	TabOrder = 2
38	+	end
39	+	object Label1: TLabel
40	+	Left = 17
41	+	Height = 15
42	+	Top = 14
43	+	Width = 87
44	+	Caption = 'Started Before'
45	+	ParentColor = False
46	+	end
47	+	object BeforeDate: TDateEdit
48	+	Left = 112
49	+	Height = 25
50	+	Top = 8
51	+	Width = 80
52	+	CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
53	+	OKCaption = 'OK'
54	+	CancelCaption = 'Cancel'
55	+	DateOrder = doNone
56	+	ButtonWidth = 23
57	+	NumGlyphs = 1
58	+	MaxLength = 0
59	+	OnChange = BeforeDateChange
60		TabOrder = 3
61		end
62	<	object Button4: TButton
63	<	Left = 488
62	>	object Label2: TLabel
63	>	Left = 241
64	>	Height = 15
65	>	Top = 14
66	>	Width = 78
67	>	Caption = 'Started After'
68	>	ParentColor = False
69	>	end
70	>	object AfterDate: TDateEdit
71	>	Left = 333
72		Height = 25
73	<	Top = 416
74	<	Width = 75
75	<	Action = SaveChanges
73	>	Top = 8
74	>	Width = 80
75	>	CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
76	>	OKCaption = 'OK'
77	>	CancelCaption = 'Cancel'
78	>	DateOrder = doNone
79	>	ButtonWidth = 23
80	>	NumGlyphs = 1
81	>	MaxLength = 0
82	>	OnChange = BeforeDateChange
83		TabOrder = 4
84		end
85	<	object Button5: TButton
86	<	Left = 568
87	<	Height = 25
88	<	Top = 416
89	<	Width = 75
90	<	Action = CancelChanges
85	>	object Panel1: TPanel
86	>	Left = 12
87	>	Height = 434
88	>	Top = 42
89	>	Width = 880
90	>	Anchors = [akTop, akLeft, akRight, akBottom]
91	>	BevelOuter = bvNone
92	>	ClientHeight = 434
93	>	ClientWidth = 880
94	>	Color = clBackground
95	>	ParentColor = False
96		TabOrder = 5
97	+	object IBDynamicGrid1: TIBDynamicGrid
98	+	Left = 0
99	+	Height = 384
100	+	Top = 0
101	+	Width = 880
102	+	Align = alClient
103	+	Color = clWindow
104	+	Columns = <
105	+	item
106	+	Title.Alignment = taCenter
107	+	Title.Caption = 'Last Name'
108	+	Width = 100
109	+	FieldName = 'LAST_NAME'
110	+	AutoSizeColumn = False
111	+	InitialSortColumn = False
112	+	DBLookupProperties.ItemHeight = 0
113	+	DBLookupProperties.ItemWidth = 0
114	+	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
115	+	end
116	+	item
117	+	Title.Alignment = taCenter
118	+	Title.Caption = 'First Name'
119	+	Width = 100
120	+	FieldName = 'FIRST_NAME'
121	+	AutoSizeColumn = False
122	+	InitialSortColumn = False
123	+	DBLookupProperties.ItemHeight = 0
124	+	DBLookupProperties.ItemWidth = 0
125	+	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
126	+	end
127	+	item
128	+	Alignment = taCenter
129	+	Title.Alignment = taCenter
130	+	Title.Caption = 'Emp No.'
131	+	Width = 60
132	+	FieldName = 'EMP_NO'
133	+	AutoSizeColumn = False
134	+	InitialSortColumn = False
135	+	DBLookupProperties.ItemHeight = 0
136	+	DBLookupProperties.ItemWidth = 0
137	+	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
138	+	end
139	+	item
140	+	ReadOnly = True
141	+	Title.Alignment = taCenter
142	+	Title.Caption = 'Dept'
143	+	Width = 200
144	+	FieldName = 'DEPT_PATH'
145	+	AutoSizeColumn = True
146	+	InitialSortColumn = False
147	+	DBLookupProperties.ItemHeight = 0
148	+	DBLookupProperties.ItemWidth = 0
149	+	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
150	+	end
151	+	item
152	+	ButtonStyle = cbsPickList
153	+	Title.Alignment = taCenter
154	+	Title.Caption = 'Located'
155	+	Width = 100
156	+	FieldName = 'JOB_COUNTRY'
157	+	AutoSizeColumn = False
158	+	InitialSortColumn = False
159	+	DBLookupProperties.ItemHeight = 0
160	+	DBLookupProperties.ItemWidth = 0
161	+	DBLookupProperties.ListSource = CountrySource
162	+	DBLookupProperties.ListField = 'COUNTRY'
163	+	DBLookupProperties.AutoInsert = False
164	+	DBLookupProperties.AutoComplete = False
165	+	end
166	+	item
167	+	Title.Alignment = taCenter
168	+	Title.Caption = 'Started'
169	+	Width = 80
170	+	FieldName = 'HIRE_DATE'
171	+	AutoSizeColumn = False
172	+	InitialSortColumn = False
173	+	DBLookupProperties.ItemHeight = 0
174	+	DBLookupProperties.ItemWidth = 0
175	+	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
176	+	end
177	+	item
178	+	Title.Alignment = taCenter
179	+	Title.Caption = 'Salary'
180	+	Width = 120
181	+	FieldName = 'SALARY'
182	+	ColumnTotalsControl = DBText1
183	+	AutoSizeColumn = False
184	+	InitialSortColumn = False
185	+	DBLookupProperties.ItemHeight = 0
186	+	DBLookupProperties.ItemWidth = 0
187	+	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
188	+	end>
189	+	DataSource = EmployeeSource
190	+	Scrollbars = ssAutoBoth
191	+	TabOrder = 0
192	+	EditorPanel = EmployeeEditorPanel
193	+	ExpandEditorPanelBelowRow = False
194	+	Descending = False
195	+	EditorBorderStyle = bsSingle
196	+	DefaultPositionAtEnd = False
197	+	IndexFieldNames = 'EMP_NO'
198	+	end
199	+	object Panel2: TPanel
200	+	Left = 0
201	+	Height = 50
202	+	Top = 384
203	+	Width = 880
204	+	Align = alBottom
205	+	BevelOuter = bvNone
206	+	ClientHeight = 50
207	+	ClientWidth = 880
208	+	ParentColor = False
209	+	TabOrder = 1
210	+	object Button5: TButton
211	+	Left = 80
212	+	Height = 25
213	+	Top = 16
214	+	Width = 75
215	+	Action = CancelChanges
216	+	Anchors = [akLeft, akBottom]
217	+	TabOrder = 0
218	+	end
219	+	object Button4: TButton
220	+	Left = 1
221	+	Height = 25
222	+	Top = 16
223	+	Width = 75
224	+	Action = SaveChanges
225	+	Anchors = [akLeft, akBottom]
226	+	TabOrder = 1
227	+	end
228	+	object DBText1: TDBText
229	+	Left = 688
230	+	Height = 27
231	+	Top = 16
232	+	Width = 49
233	+	Alignment = taRightJustify
234	+	Anchors = [akTop, akLeft, akBottom]
235	+	DataField = 'TOTALSALARIES'
236	+	DataSource = TotalsSource
237	+	ParentColor = False
238	+	end
239	+	end
240	+	object EmployeeEditorPanel: TPanel
241	+	Left = 8
242	+	Height = 80
243	+	Top = 112
244	+	Width = 784
245	+	BevelOuter = bvNone
246	+	BorderWidth = 2
247	+	BorderStyle = bsSingle
248	+	ClientHeight = 78
249	+	ClientWidth = 782
250	+	Color = clWindow
251	+	ParentColor = False
252	+	TabOrder = 2
253	+	Visible = False
254	+	object Label3: TLabel
255	+	Left = 0
256	+	Height = 15
257	+	Top = 7
258	+	Width = 83
259	+	Caption = 'Employee No.'
260	+	ParentColor = False
261	+	end
262	+	object DBEdit1: TDBEdit
263	+	Left = 90
264	+	Height = 25
265	+	Top = 2
266	+	Width = 120
267	+	DataField = 'EMP_NO'
268	+	DataSource = EmployeeSource
269	+	CharCase = ecNormal
270	+	MaxLength = 0
271	+	TabOrder = 0
272	+	end
273	+	object Label4: TLabel
274	+	Left = 12
275	+	Height = 15
276	+	Top = 32
277	+	Width = 64
278	+	Caption = 'First Name'
279	+	ParentColor = False
280	+	end
281	+	object DBEdit2: TDBEdit
282	+	Left = 90
283	+	Height = 25
284	+	Top = 24
285	+	Width = 120
286	+	DataField = 'FIRST_NAME'
287	+	DataSource = EmployeeSource
288	+	CharCase = ecNormal
289	+	MaxLength = 0
290	+	TabOrder = 1
291	+	end
292	+	object Label5: TLabel
293	+	Left = 12
294	+	Height = 15
295	+	Top = 56
296	+	Width = 64
297	+	Caption = 'Last Name'
298	+	ParentColor = False
299	+	end
300	+	object DBEdit3: TDBEdit
301	+	Left = 90
302	+	Height = 25
303	+	Top = 46
304	+	Width = 120
305	+	DataField = 'LAST_NAME'
306	+	DataSource = EmployeeSource
307	+	CharCase = ecNormal
308	+	MaxLength = 0
309	+	TabOrder = 2
310	+	end
311	+	object Label6: TLabel
312	+	Left = 216
313	+	Height = 15
314	+	Top = 7
315	+	Width = 77
316	+	Caption = 'Date Started'
317	+	ParentColor = False
318	+	end
319	+	object IBDateEdit1: TDBDateEdit
320	+	Left = 300
321	+	Height = 25
322	+	Top = 2
323	+	Width = 80
324	+	CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
325	+	OKCaption = 'OK'
326	+	CancelCaption = 'Cancel'
327	+	DateOrder = doNone
328	+	ButtonWidth = 23
329	+	NumGlyphs = 1
330	+	MaxLength = 0
331	+	TabOrder = 3
332	+	DataField = 'HIRE_DATE'
333	+	DataSource = EmployeeSource
334	+	end
335	+	object Label7: TLabel
336	+	Left = 252
337	+	Height = 15
338	+	Top = 32
339	+	Width = 37
340	+	Caption = 'Salary'
341	+	ParentColor = False
342	+	end
343	+	object DBEdit4: TDBEdit
344	+	Left = 300
345	+	Height = 25
346	+	Top = 24
347	+	Width = 104
348	+	DataField = 'SALARY'
349	+	DataSource = EmployeeSource
350	+	CharCase = ecNormal
351	+	MaxLength = 0
352	+	TabOrder = 5
353	+	end
354	+	object Label8: TLabel
355	+	Left = 708
356	+	Height = 15
357	+	Top = 54
358	+	Width = 24
359	+	Anchors = [akTop, akRight]
360	+	Caption = 'Ext.'
361	+	ParentColor = False
362	+	end
363	+	object DBEdit5: TDBEdit
364	+	Left = 732
365	+	Height = 25
366	+	Top = 48
367	+	Width = 40
368	+	DataField = 'PHONE_EXT'
369	+	DataSource = EmployeeSource
370	+	Anchors = [akTop, akRight]
371	+	CharCase = ecNormal
372	+	MaxLength = 0
373	+	TabOrder = 4
374	+	end
375	+	object Label9: TLabel
376	+	Left = 536
377	+	Height = 15
378	+	Top = 7
379	+	Width = 51
380	+	Caption = 'Location'
381	+	ParentColor = False
382	+	end
383	+	object Label10: TLabel
384	+	Left = 413
385	+	Height = 15
386	+	Top = 9
387	+	Width = 59
388	+	Caption = 'Job Grade'
389	+	ParentColor = False
390	+	end
391	+	object JobGradeDBComboBox: TDBComboBox
392	+	Left = 480
393	+	Height = 25
394	+	Top = 2
395	+	Width = 48
396	+	AutoSize = False
397	+	DataField = 'JOB_GRADE'
398	+	DataSource = EmployeeSource
399	+	ItemHeight = 0
400	+	Items.Strings = (
401	+	'1'
402	+	'2'
403	+	'3'
404	+	'4'
405	+	'5'
406	+	)
407	+	MaxLength = 0
408	+	OnCloseUp = JobGradeDBComboBoxCloseUp
409	+	Style = csDropDownList
410	+	TabOrder = 6
411	+	end
412	+	object Label11: TLabel
413	+	Left = 536
414	+	Height = 15
415	+	Top = 32
416	+	Width = 48
417	+	Caption = 'Job Title'
418	+	ParentColor = False
419	+	end
420	+	object Label12: TLabel
421	+	Left = 256
422	+	Height = 15
423	+	Top = 54
424	+	Width = 33
425	+	Caption = 'Dept.'
426	+	ParentColor = False
427	+	end
428	+	object SpeedButton1: TSpeedButton
429	+	Left = 680
430	+	Height = 25
431	+	Top = 48
432	+	Width = 23
433	+	Action = SelectDept
434	+	Anchors = [akTop, akRight]
435	+	end
436	+	object DBEdit6: TDBEdit
437	+	Left = 300
438	+	Height = 25
439	+	Top = 48
440	+	Width = 372
441	+	DataField = 'DEPT_PATH'
442	+	DataSource = EmployeeSource
443	+	ReadOnly = True
444	+	Anchors = [akTop, akLeft, akRight]
445	+	CharCase = ecNormal
446	+	MaxLength = 0
447	+	TabOrder = 7
448	+	end
449	+	object IBLookupComboEditBox2: TIBLookupComboEditBox
450	+	Left = 600
451	+	Height = 25
452	+	Top = 0
453	+	Width = 172
454	+	Anchors = [akTop, akLeft, akRight]
455	+	AutoSize = False
456	+	DataField = 'JOB_COUNTRY'
457	+	DataSource = EmployeeSource
458	+	KeyField = 'COUNTRY'
459	+	ListField = 'COUNTRY'
460	+	ListFieldIndex = 0
461	+	ListSource = CountrySource
462	+	LookupCache = False
463	+	Style = csDropDownList
464	+	TabOrder = 8
465	+	AutoInsert = False
466	+	AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
467	+	ItemHeight = 0
468	+	end
469	+	object IBLookupComboEditBox1: TIBLookupComboEditBox
470	+	Left = 600
471	+	Height = 25
472	+	Top = 24
473	+	Width = 172
474	+	Anchors = [akTop, akLeft, akRight]
475	+	AutoSize = False
476	+	DataField = 'JOB_CODE'
477	+	DataSource = EmployeeSource
478	+	KeyField = 'JOB_CODE'
479	+	ListField = 'JOB_TITLE'
480	+	ListFieldIndex = 0
481	+	ListSource = JobCodeSource
482	+	LookupCache = False
483	+	Style = csDropDownList
484	+	TabOrder = 9
485	+	AutoInsert = False
486	+	AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
487	+	ItemHeight = 0
488	+	end
489	+	end
490	+	end
491	+	object Label13: TLabel
492	+	Left = 456
493	+	Height = 15
494	+	Top = 14
495	+	Width = 79
496	+	Caption = 'Salary Range'
497	+	ParentColor = False
498	+	end
499	+	object SalaryRange: TComboBox
500	+	Left = 544
501	+	Height = 25
502	+	Top = 8
503	+	Width = 272
504	+	ItemHeight = 0
505	+	ItemIndex = 0
506	+	Items.Strings = (
507	+	'None Specified'
508	+	'Below $40,000'
509	+	'Between $40,000 and $100,000'
510	+	'Above $100,000'
511	+	)
512	+	OnCloseUp = BeforeDateChange
513	+	Style = csDropDownList
514	+	TabOrder = 6
515	+	Text = 'None Specified'
516		end
517		object IBDatabase1: TIBDatabase
518	<	Connected = True
96	<	AfterConnect = IBDatabase1AfterConnect
97	<	BeforeDisconnect = IBDatabase1BeforeDisconnect
518	>	Connected = False
519		AllowStreamedConnected = False
520		DatabaseName = 'employee'
521		Params.Strings = (
#	Line 104 | Line 525 | object Form1: TForm1
525		DefaultTransaction = IBTransaction1
526		IdleTimer = 0
527		TraceFlags = []
528	<	left = 672
529	<	top = 224
528	>	left = 832
529	>	top = 168
530		end
531		object IBTransaction1: TIBTransaction
532		Active = False
#	Line 115 | Line 536 | object Form1: TForm1
536		'rec_version'
537		'nowait'
538		)
539	<	left = 672
540	<	top = 256
539	>	left = 872
540	>	top = 168
541	>	end
542	>	object EmployeeSource: TDataSource
543	>	DataSet = Employees
544	>	left = 832
545	>	top = 336
546	>	end
547	>	object ActionList1: TActionList
548	>	left = 832
549	>	top = 416
550	>	object AddEmployee: TAction
551	>	Caption = 'Add'
552	>	OnExecute = AddEmployeeExecute
553	>	end
554	>	object EditEmployee: TAction
555	>	Caption = 'Edit'
556	>	OnExecute = EditEmployeeExecute
557	>	OnUpdate = EditEmployeeUpdate
558	>	end
559	>	object DeleteEmployee: TAction
560	>	Caption = 'Delete'
561	>	OnExecute = DeleteEmployeeExecute
562	>	OnUpdate = EditEmployeeUpdate
563	>	end
564	>	object SaveChanges: TAction
565	>	Caption = 'Save'
566	>	OnExecute = SaveChangesExecute
567	>	OnUpdate = SaveChangesUpdate
568	>	end
569	>	object CancelChanges: TAction
570	>	Caption = 'Cancel'
571	>	OnExecute = CancelChangesExecute
572	>	OnUpdate = SaveChangesUpdate
573	>	end
574	>	object SelectDept: TAction
575	>	Caption = '...'
576	>	OnExecute = SelectDeptExecute
577	>	end
578	>	end
579	>	object CountrySource: TDataSource
580	>	DataSet = Countries
581	>	left = 832
582	>	top = 296
583		end
584	<	object IBQuery1: TIBQuery
584	>	object TotalsQuery: TIBQuery
585		Database = IBDatabase1
586		Transaction = IBTransaction1
587	<	AfterDelete = IBQuery1AfterDelete
125	<	AfterOpen = IBQuery1AfterOpen
126	<	BeforeClose = IBQuery1BeforeClose
127	<	OnDeleteError = IBQuery1PostError
128	<	OnPostError = IBQuery1PostError
587	>	BeforeOpen = EmployeesBeforeOpen
588		BufferChunks = 1000
589		CachedUpdates = False
590		GenerateParamNames = False
591		GeneratorField.ApplyOnEvent = gaeOnNewRecord
592		SQL.Strings = (
593	<	'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME From EMPLOYEE A'
594	<	'Order by LAST_NAME'
593	>	'Select sum(Salary) as TotalSalaries'
594	>	'From EMPLOYEE'
595		)
596		Params = <>
597	<	UpdateObject = IBUpdateSQL1
598	<	AfterTransactionEnd = IBQuery1AfterTransactionEnd
599	<	left = 672
597	>	left = 872
598	>	top = 376
599	>	object TotalsQueryTOTALSALARIES: TIBBCDField
600	>	DisplayWidth = 18
601	>	FieldKind = fkData
602	>	FieldName = 'TOTALSALARIES'
603	>	Index = 0
604	>	LookupCache = False
605	>	ProviderFlags = [pfInUpdate, pfInWhere]
606	>	ReadOnly = False
607	>	Required = False
608	>	OnGetText = EmployeesSALARYGetText
609	>	Precision = 18
610	>	Currency = False
611	>	MaxValue = 0
612	>	MinValue = 0
613	>	Size = 2
614	>	end
615	>	end
616	>	object TotalsSource: TDataSource
617	>	DataSet = TotalsQuery
618	>	left = 832
619	>	top = 376
620	>	end
621	>	object Employees: TIBDataSet
622	>	Database = IBDatabase1
623	>	Transaction = IBTransaction1
624	>	AfterDelete = EmployeesAfterDelete
625	>	AfterEdit = EmployeesAfterDelete
626	>	AfterInsert = EmployeesAfterInsert
627	>	AfterOpen = EmployeesAfterOpen
628	>	AfterPost = EmployeesAfterPost
629	>	AfterScroll = EmployeesAfterScroll
630	>	BeforeClose = EmployeesBeforeClose
631	>	BeforeOpen = EmployeesBeforeOpen
632	>	BufferChunks = 1000
633	>	CachedUpdates = False
634	>	DeleteSQL.Strings = (
635	>	'Delete From EMPLOYEE A'
636	>	'Where A.EMP_NO = :EMP_NO'
637	>	)
638	>	InsertSQL.Strings = (
639	>	'Insert Into EMPLOYEE(EMP_NO, FIRST_NAME, LAST_NAME, PHONE_EXT, HIRE_DATE, DEPT_NO, JOB_CODE, JOB_GRADE, JOB_COUNTRY, SALARY)'
640	>	'Values(:EMP_NO, :FIRST_NAME, :LAST_NAME, :PHONE_EXT, :HIRE_DATE, :DEPT_NO, :JOB_CODE, :JOB_GRADE, :JOB_COUNTRY, :SALARY)'
641	>	)
642	>	RefreshSQL.Strings = (
643	>	'with recursive Depts As ('
644	>	'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT  as VarChar(256)) as DEPT_PATH,'
645	>	'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
646	>	'From DEPARTMENT Where HEAD_DEPT is NULL '
647	>	'UNION ALL'
648	>	'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || DEPARTMENT as DEPT_PATH,'
649	>	'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH'
650	>	'From DEPARTMENT  '
651	>	'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO'
652	>	')'
653	>	''
654	>	'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
655	>	'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH'
656	>	'From EMPLOYEE A'
657	>	'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
658	>	'Where A.EMP_NO = :EMP_NO'
659	>	)
660	>	SelectSQL.Strings = (
661	>	'with recursive Depts As ('
662	>	'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT  as VarChar(256)) as DEPT_PATH,'
663	>	'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
664	>	'From DEPARTMENT Where HEAD_DEPT is NULL '
665	>	'UNION ALL'
666	>	'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || DEPARTMENT as DEPT_PATH,'
667	>	'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH'
668	>	'From DEPARTMENT  '
669	>	'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO'
670	>	')'
671	>	''
672	>	'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
673	>	'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH'
674	>	'From EMPLOYEE A'
675	>	'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
676	>	)
677	>	ModifySQL.Strings = (
678	>	'Update EMPLOYEE A Set '#13#10'  A.DEPT_NO = :DEPT_NO,'#13#10'  A.FIRST_NAME = :FIRST_NAME,'#13#10'  A.HIRE_DATE = :HIRE_DATE,'#13#10'  A.JOB_CODE = :JOB_CODE,'#13#10'  A.JOB_COUNTRY = :JOB_COUNTRY,'#13#10'  A.JOB_GRADE = :JOB_GRADE,'#13#10'  A.LAST_NAME = :LAST_NAME,'#13#10'  A.PHONE_EXT = :PHONE_EXT,'#13#10'  A.SALARY = :SALARY'
679	>	'Where A.EMP_NO = :OLD_EMP_NO'
680	>	)
681	>	GeneratorField.Generator = 'EMP_NO_GEN'
682	>	GeneratorField.Field = 'EMP_NO'
683	>	GeneratorField.ApplyOnEvent = gaeOnNewRecord
684	>	GenerateParamNames = False
685	>	AfterTransactionEnd = EmployeesAfterTransactionEnd
686	>	left = 872
687		top = 336
688	<	object IBQuery1EMP_NO: TSmallintField
688	>	object EmployeesEMP_NO: TSmallintField
689		DisplayWidth = 10
690		FieldKind = fkData
691		FieldName = 'EMP_NO'
#	Line 149 | Line 695 | object Form1: TForm1
695		ReadOnly = False
696		Required = True
697		end
698	<	object IBQuery1FIRST_NAME: TIBStringField
698	>	object EmployeesFIRST_NAME: TIBStringField
699		DisplayWidth = 15
700		FieldKind = fkData
701		FieldName = 'FIRST_NAME'
#	Line 160 | Line 706 | object Form1: TForm1
706		Required = True
707		Size = 15
708		end
709	<	object IBQuery1LAST_NAME: TIBStringField
709	>	object EmployeesLAST_NAME: TIBStringField
710		DisplayWidth = 20
711		FieldKind = fkData
712		FieldName = 'LAST_NAME'
#	Line 170 | Line 716 | object Form1: TForm1
716		ReadOnly = False
717		Required = True
718		end
719	<	object IBQuery1PHONE_EXT: TIBStringField
719	>	object EmployeesPHONE_EXT: TIBStringField
720	>	Alignment = taRightJustify
721		DisplayWidth = 4
722		FieldKind = fkData
723		FieldName = 'PHONE_EXT'
#	Line 181 | Line 728 | object Form1: TForm1
728		Required = False
729		Size = 4
730		end
731	<	object IBQuery1HIRE_DATE: TDateTimeField
731	>	object EmployeesHIRE_DATE: TDateTimeField
732		DisplayWidth = 10
733		FieldKind = fkData
734		FieldName = 'HIRE_DATE'
#	Line 191 | Line 738 | object Form1: TForm1
738		ReadOnly = False
739		Required = True
740		end
741	<	object IBQuery1DEPT_NO: TIBStringField
741	>	object EmployeesDEPT_NO: TIBStringField
742		DisplayWidth = 3
743		FieldKind = fkData
744		FieldName = 'DEPT_NO'
#	Line 202 | Line 749 | object Form1: TForm1
749		Required = True
750		Size = 3
751		end
752	<	object IBQuery1JOB_CODE: TIBStringField
752	>	object EmployeesJOB_CODE: TIBStringField
753		DisplayWidth = 5
754		FieldKind = fkData
755		FieldName = 'JOB_CODE'
#	Line 211 | Line 758 | object Form1: TForm1
758		ProviderFlags = [pfInUpdate, pfInWhere]
759		ReadOnly = False
760		Required = True
761	+	OnChange = EmployeesJOB_CODEChange
762		Size = 5
763		end
764	<	object IBQuery1JOB_GRADE: TSmallintField
764	>	object EmployeesJOB_GRADE: TSmallintField
765		DisplayWidth = 10
766		FieldKind = fkData
767		FieldName = 'JOB_GRADE'
#	Line 222 | Line 770 | object Form1: TForm1
770		ProviderFlags = [pfInUpdate, pfInWhere]
771		ReadOnly = False
772		Required = True
773	+	OnChange = EmployeesJOB_GRADEChange
774		end
775	<	object IBQuery1JOB_COUNTRY: TIBStringField
775	>	object EmployeesJOB_COUNTRY: TIBStringField
776		DisplayWidth = 15
777		FieldKind = fkData
778		FieldName = 'JOB_COUNTRY'
#	Line 234 | Line 783 | object Form1: TForm1
783		Required = True
784		Size = 15
785		end
786	<	object IBQuery1FULL_NAME: TIBStringField
786	>	object EmployeesSALARY: TIBBCDField
787	>	DisplayWidth = 18
788	>	FieldKind = fkData
789	>	FieldName = 'SALARY'
790	>	Index = 9
791	>	LookupCache = False
792	>	ProviderFlags = [pfInUpdate, pfInWhere]
793	>	ReadOnly = False
794	>	Required = True
795	>	OnGetText = EmployeesSALARYGetText
796	>	Precision = 18
797	>	Currency = False
798	>	MaxValue = 0
799	>	MinValue = 0
800	>	Size = 2
801	>	end
802	>	object EmployeesFULL_NAME: TIBStringField
803		DisplayWidth = 37
804		FieldKind = fkData
805		FieldName = 'FULL_NAME'
806	<	Index = 9
806	>	Index = 10
807		LookupCache = False
808		ProviderFlags = [pfInUpdate, pfInWhere]
809		ReadOnly = True
810		Required = False
811		Size = 37
812		end
813	<	object IBQuery1SALARY: TIBBCDField
814	<	DisplayWidth = 18
813	>	object EmployeesDEPT_PATH: TIBStringField
814	>	DisplayWidth = 256
815		FieldKind = fkData
816	<	FieldName = 'SALARY'
817	<	Index = 10
816	>	FieldName = 'DEPT_PATH'
817	>	Index = 11
818		LookupCache = False
819		ProviderFlags = [pfInUpdate, pfInWhere]
820		ReadOnly = False
821		Required = True
822	<	Precision = 18
823	<	Currency = False
824	<	MaxValue = 0
825	<	MinValue = 0
826	<	Size = 2
822	>	Size = 256
823	>	end
824	>	object EmployeesDEPT_KEY_PATH: TIBStringField
825	>	DisplayWidth = 64
826	>	FieldKind = fkData
827	>	FieldName = 'DEPT_KEY_PATH'
828	>	Index = 12
829	>	LookupCache = False
830	>	ProviderFlags = [pfInUpdate, pfInWhere]
831	>	ReadOnly = False
832	>	Required = True
833	>	Size = 64
834		end
835		end
836	<	object Datasource1: TDataSource
837	<	DataSet = IBQuery1
838	<	left = 672
836	>	object Countries: TIBQuery
837	>	Database = IBDatabase1
838	>	Transaction = IBTransaction1
839	>	BeforeOpen = CountriesBeforeOpen
840	>	BufferChunks = 1000
841	>	CachedUpdates = False
842	>	GenerateParamNames = False
843	>	GeneratorField.ApplyOnEvent = gaeOnNewRecord
844	>	SQL.Strings = (
845	>	'Select A.COUNTRY, A.CURRENCY From COUNTRY A'
846	>	'JOIN JOB J On J.JOB_COUNTRY = A.COUNTRY'
847	>	'Where J.JOB_CODE = :JOB_CODE and J.JOB_GRADE = :JOB_GRADE'
848	>	'Order by 1'
849	>	)
850	>	Params = <
851	>	item
852	>	DataType = ftUnknown
853	>	Name = 'JOB_CODE'
854	>	ParamType = ptInput
855	>	end
856	>	item
857	>	DataType = ftUnknown
858	>	Name = 'JOB_GRADE'
859	>	ParamType = ptInput
860	>	end>
861	>	left = 872
862		top = 296
863	+	ParamData = <
864	+	item
865	+	DataType = ftUnknown
866	+	Name = 'JOB_CODE'
867	+	ParamType = ptInput
868	+	end
869	+	item
870	+	DataType = ftUnknown
871	+	Name = 'JOB_GRADE'
872	+	ParamType = ptInput
873	+	end>
874		end
875	<	object ActionList1: TActionList
876	<	left = 672
877	<	top = 376
878	<	object AddEmployee: TAction
273	<	Caption = 'Add'
274	<	OnExecute = AddEmployeeExecute
275	<	end
276	<	object EditEmployee: TAction
277	<	Caption = 'Edit'
278	<	OnExecute = EditEmployeeExecute
279	<	OnUpdate = EditEmployeeUpdate
280	<	end
281	<	object DeleteEmployee: TAction
282	<	Caption = 'Delete'
283	<	OnExecute = DeleteEmployeeExecute
284	<	OnUpdate = EditEmployeeUpdate
285	<	end
286	<	object SaveChanges: TAction
287	<	Caption = 'Save'
288	<	OnExecute = SaveChangesExecute
289	<	OnUpdate = SaveChangesUpdate
290	<	end
291	<	object CancelChanges: TAction
292	<	Caption = 'Cancel'
293	<	OnExecute = CancelChangesExecute
294	<	OnUpdate = SaveChangesUpdate
295	<	end
875	>	object JobCodeSource: TDataSource
876	>	DataSet = JobCodes
877	>	left = 832
878	>	top = 256
879		end
880	<	object IBUpdateSQL1: TIBUpdateSQL
881	<	RefreshSQL.Strings = (
882	<	'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME From EMPLOYEE A'
883	<	'Where A.EMP_NO = :EMP_NO'
880	>	object JobCodes: TIBQuery
881	>	Database = IBDatabase1
882	>	Transaction = IBTransaction1
883	>	BeforeOpen = JobCodesBeforeOpen
884	>	BufferChunks = 1000
885	>	CachedUpdates = False
886	>	GenerateParamNames = False
887	>	GeneratorField.ApplyOnEvent = gaeOnNewRecord
888	>	SQL.Strings = (
889	>	'Select A.JOB_CODE, A.JOB_TITLE From JOB A'
890	>	'Where JOB_COUNTRY = :JOB_COUNTRY and JOB_GRADE = :JOB_GRADE'
891	>	'Order by Upper(JOB_TITLE)'
892		)
893	<	DeleteSQL.Strings = (
894	<	'Delete From EMPLOYEE A'
895	<	'Where A.EMP_NO = :EMP_NO'
893	>	Params = <
894	>	item
895	>	DataType = ftUnknown
896	>	Name = 'JOB_COUNTRY'
897	>	ParamType = ptInput
898	>	end
899	>	item
900	>	DataType = ftUnknown
901	>	Name = 'JOB_GRADE'
902	>	ParamType = ptInput
903	>	end>
904	>	left = 872
905	>	top = 256
906	>	ParamData = <
907	>	item
908	>	DataType = ftUnknown
909	>	Name = 'JOB_COUNTRY'
910	>	ParamType = ptInput
911	>	end
912	>	item
913	>	DataType = ftUnknown
914	>	Name = 'JOB_GRADE'
915	>	ParamType = ptInput
916	>	end>
917	>	end
918	>	object Depts: TIBQuery
919	>	Database = IBDatabase1
920	>	Transaction = IBTransaction1
921	>	BufferChunks = 1000
922	>	CachedUpdates = False
923	>	GenerateParamNames = False
924	>	GeneratorField.ApplyOnEvent = gaeOnNewRecord
925	>	SQL.Strings = (
926	>	'Select A.DEPT_NO, A.DEPARTMENT From DEPARTMENT A'
927	>	''
928	>	'Order by Upper(Department)'
929		)
930	<	left = 712
931	<	top = 336
930	>	Params = <>
931	>	left = 872
932	>	top = 210
933	>	end
934	>	object DeptsSource: TDataSource
935	>	DataSet = Depts
936	>	left = 832
937	>	top = 208
938		end
939		end

Diff Legend

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