In this step you will add another copy of the iiiTotalSalary field to the form and a push button. Clicking a push button will read through the List View EMPLOYS using a SELECTLIST/ENDSELECT command and total the currently selected entries into the new total field.
1. Drop a Group Box onto the right hand side of your form. Adjust its size as shown in the image below.
a. On the Layout ribbon give it an Alignment of Bottom Center and a Flow of Up
Note: With a component selected on the Design view, the Layout ribbon is showing both table settings and Item settings:
b. Give it a Size of Fit to Width
c. Change its margin Bottom to 10
d. On the Details tab, change its Caption to Compute Selected.
2. Drag and drop field iiiTotalSalary into the group box. Note that it will be renamed to iiiTotalSalary1.
a. Change its LabelPosition to Top.
b. Change its Width to 120 pixels.
3. Drag a push button into the group box.
a. Change its Name to Compute and Caption to Calc. Total Salary.
b. Adjust the Width of the button.
c. Create a Compute.Click event routine.
Your design should look like the following:
4. In this step you will complete the Compute button Click event logic. SELECTLIST/ENDSELECT should read all entries in the list component.
a. The selected entries can be identified by using their CurrentItem property. Entries in a list are themselves a component. CurrentItem has a Selected property (true or false).
b. Press F2 on a component to discover all its events, properties and methods and then double click on any one to locate the detailed help associated with each of these.
c. Expand CurrentItem and expand PRIM_LVIT to see the events, properties and methods of a list Item:
d. Expand the list Item properties. Double click the Selected property to see its help in the browser:
The following code will accumulate SALARY into iiiTotalSalary1 for selected items:
Evtroutine Handling(#Compute.Click)
#iiiTotalSalary1 := *zeroes
Selectlist Named(#Employs)
If (#Employs.CurrentItem.Selected = true)
#iiiTotalSalary1 += #xEmployeeSalary
Endif
Endselect
Endroutine
5. Add code to the Employs.ItemGotSelection and Employs.ItemLostSelection event routines to set iiiTotalSalary1 to zero.
6. Compile and test your form:
