Home

Example Application: Payroll Processing II

 

Description

 

The month calendar control is used to assist the user with selecting a range of dates, from one starting of a month to another day of either the same month or another month. As such, it can be valuable in implementing a time sheet. In this application, we use it in a payroll example.

Windows Controls:

     

Practical LearningPractical Learning: Creating the Application

  1. Start a new Windows Application named PayrollProcessing2
  2. In the Solution Explorer, right-click Form1.vb and click Rename
  3. Type PayrollProcessing.vb and press Enter
  4. Design the form as follows:
     
    Payroll Processing
    Control Name Text Other Properties
    GroupBox GroupBox   Employee Identification  
    Label Label   &Employee Name:  
    TextBox TextBox txtEmployeeName   AutoCompleteCustomSource Micheline Hammond
    Paul Bertrand Yamaguchi
    Gertrude Monay
    Ernestine Ngaleu
    Andy Barang
    Christophe Yuen
    Jean Michel Kankan

    AutoCompleteSource: CustomSource

    AutoCompleteMode: Accept

     

    Label Label   Hourly &Salary:  
    TextBox TextBox txtHourlySalary    
    GroupBox GroupBox Payroll Time Frame
    MonthCalendar MonthCalendar calTimeFrame Cursor: Hand
    MaxSelectionCount: 14
    GroupBox GroupBox   Time Values  
    Label Label   Monday  
    Label Label   Tuesday  
    Label Label   Wednesday  
    Label Label   Thursday  
    Label Label   Friday  
    Label Label   Saturday  
    Label Label   Sunday  
    Label Label   First Week:  
    TextBox TextBox txtMonday1 0.00 TextAlign: Right
    TextBox TextBox txtTuesday1 0.00 TextAlign: Right
    TextBox TextBox txtWednesday1 0.00 TextAlign: Right
    TextBox TextBox txtThursday1 0.00 TextAlign: Right
    TextBox TextBox txtFriday1 0.00 TextAlign: Right
    TextBox TextBox txtSaturday1 0.00 TextAlign: Right
    TextBox TextBox txtSunday1 0.00 TextAlign: Right
    Label Label   Second Week:  
    TextBox TextBox txtMonday2 0.00 TextAlign: Right
    TextBox TextBox txtTuesday2 0.00 TextAlign: Right
    TextBox TextBox txtWednesday2 0.00 TextAlign: Right
    TextBox TextBox txtThursday2 0.00 TextAlign: Right
    TextBox TextBox txtFriday2 0.00 TextAlign: Right
    TextBox TextBox txtSaturday2 0.00 TextAlign: Right
    TextBox TextBox txtSunday2 0.00 TextAlign: Right
    GroupBox GroupBox   Payroll Processing  
    Label Label   Hours  
    Label Label   Amount  
    Button Button btnCalculate Calculate  
    Label Label   Regular  
    TextBox TextBox txtRegularTime 0.00 TextAlign: Right
    TextBox TextBox txtRegularAmount 0.00 TextAlign: Right
    Label Label   Net Pay:  
    TextBox TextBox txtNetPay 0.00 TextAlign: Right
    Label Label   Overtime  
    TextBox TextBox txtOvertime 0.00 TextAlign: Right
    TextBox TextBox txtOvertimeAmount 0.00 TextAlign: Right
    Button Button btnClose    
  5. On the form, double-click the Calculate button and implement its event as follows:
     
    Private Sub btnCalculateClick(ByVal sender As System.Object, 
                                       ByVal e As System.EventArgs) 
                                       Handles btnCalculate.Click
            Dim Monday1 As Double, Monday2 As Double
            Dim Tuesday1 As Double, Tuesday2 As Double
            Dim Wednesday1 As Double, Wednesday2 As Double
            Dim Thursday1 As Double, Thursday2 As Double
            Dim Friday1 As Double, Friday2 As Double
            Dim Saturday1 As Double, Saturday2 As Double
            Dim Sunday1 As Double, Sunday2 As Double
            
            Dim TotalHoursWeek1 As Double, TotalHoursWeek2 As Double
            Dim RegularHours1 As Double, RegularHours2 As Double
            Dim OvertimeHours1 As Double, OvertimeHours2 As Double
            Dim RegularAmount1 As Double, RegularAmount2 As Double
            Dim OvertimeAmount1 As Double, OvertimeAmount2 As Double
            Dim RegularHours As Double, OvertimeHours As Double
            Dim RegularAmount As Double, OvertimeAmount As Double
            Dim TotalEarnings As Double
    
            Dim HourlySalary As Double
            Dim OvertimeSalary As Double
    
            ' Retrieve the hourly salary
            Try
                HourlySalary = CDbl(txtHourlySalary.Text)
            Catch ex As Exception
                MsgBox("The value you typed for the salary is invalid \n" & 
                    "Please try again")
                txtHourlySalary.Focus()
            End Try
    
            ' Retrieve the value of each day worked
            Try
                Monday1 = CDbl(txtMonday1.Text)
            Catch ex As Exception
                MsgBox("You typed an invalid value\n" & 
                         "Please try again")
                txtMonday1.Focus()
            End Try
    
            Try
                Tuesday1 = CDbl(txtTuesday1.Text)
            Catch ex As Exception
                MsgBox("You typed an invalid value\n" & 
                    "Please try again")
                txtTuesday1.Focus()
            End Try
    
            Try
                Wednesday1 = CDbl(txtWednesday1.Text)
            Catch ex As Exception
                MsgBox("You typed an invalid value\n" & 
                    "Please try again")
                txtWednesday1.Focus()
            End Try
    
            Try
                Thursday1 = CDbl(txtThursday1.Text)
            Catch ex As Exception
                MsgBox("You typed an invalid value\n" & 
                    "Please try again")
                txtThursday1.Focus()
            End Try
    
            Try
                Friday1 = CDbl(txtFriday1.Text)
            Catch ex As FormatException
                MsgBox("You typed an invalid value\n" & 
                    "Please try again")
                txtFriday1.Focus()
            End Try
    
            Try
                Saturday1 = CDbl(txtSaturday1.Text)
            Catch ex As Exception
                MsgBox("You typed an invalid value\n" & 
                    "Please try again")
                txtSaturday1.Focus()
            End Try
    
            Try
                Sunday1 = CDbl(txtSunday1.Text)
            Catch ex As Exception
                MsgBox("You typed an invalid value\n" & 
                    "Please try again")
                txtSunday1.Focus()
            End Try
    
            Try
                Monday2 = CDbl(txtMonday2.Text)
            Catch ex As Exception
                MsgBox("You typed an invalid value\n" & 
                    "Please try again")
                txtMonday2.Focus()
            End Try
    
            Try
                Tuesday2 = CDbl(txtTuesday2.Text)
            Catch ex As Exception
                MsgBox("You typed an invalid value\n" & 
                    "Please try again")
                txtTuesday2.Focus()
            End Try
    
            Try
                Wednesday2 = CDbl(txtWednesday2.Text)
            Catch ex As Exception
                MsgBox("You typed an invalid value\n" & 
                    "Please try again")
                txtWednesday2.Focus()
            End Try
    
            Try
                Thursday2 = CDbl(txtThursday2.Text)
            Catch ex As Exception
                MsgBox("You typed an invalid value\n" & 
                    "Please try again")
                txtThursday2.Focus()
            End Try
    
            Try
                Friday2 = CDbl(txtFriday2.Text)
            Catch ex As Exception
                MsgBox("You typed an invalid value\n" & 
                    "Please try again")
                txtFriday2.Focus()
            End Try
    
            Try
                Saturday2 = CDbl(txtSaturday2.Text)
            Catch ex As Exception
                MsgBox("You typed an invalid value\n" & 
                    "Please try again")
                txtSaturday2.Focus()
            End Try
    
            Try
                Sunday2 = CDbl(txtSunday2.Text)
            Catch ex As Exception
                MsgBox("You typed an invalid value\n" & 
                    "Please try again")
                txtSunday2.Focus()
            End Try
    
            ' Calculate the total number of hours for each week
            TotalHoursWeek1 = Monday1 + Tuesday1 + Wednesday1 + 
                  Thursday1 + Friday1 + Saturday1 + Sunday1
            TotalHoursWeek2 = Monday2 + Tuesday2 + Wednesday2 + 
                Thursday2 + Friday2 + Saturday2 + Sunday2
    
            ' The overtime is paid time and half
            OvertimeSalary = HourlySalary * 1.5
    
            ' If the employee worked under 40 hours, there is no overtime
            If TotalHoursWeek1 < 40 Then
                RegularHours1 = TotalHoursWeek1
                RegularAmount1 = HourlySalary * RegularHours1
                OvertimeHours1 = 0.0
                OvertimeAmount1 = 0.0
                ' If the employee worked over 40 hours, calculate the overtime
            ElseIf TotalHoursWeek1 >= 40 Then
                RegularHours1 = 40
                RegularAmount1 = HourlySalary * 40
                OvertimeHours1 = TotalHoursWeek1 - 40
                OvertimeAmount1 = OvertimeHours1 * OvertimeSalary
            End If
    
            If TotalHoursWeek2 < 40 Then
                RegularHours2 = TotalHoursWeek2
                RegularAmount2 = HourlySalary * RegularHours2
                OvertimeHours2 = 0.0
                OvertimeAmount2 = 0.0
            ElseIf TotalHoursWeek2 >= 40 Then
                RegularHours2 = 40
                RegularAmount2 = HourlySalary * 40
                OvertimeHours2 = TotalHoursWeek2 - 40
                OvertimeAmount2 = OvertimeHours2 * OvertimeSalary
            End If
    
            RegularHours = RegularHours1 + RegularHours2
            OvertimeHours = OvertimeHours1 + OvertimeHours2
            RegularAmount = RegularAmount1 + RegularAmount2
            OvertimeAmount = OvertimeAmount1 + OvertimeAmount2
            TotalEarnings = RegularAmount + OvertimeAmount
    
            txtRegularTime.Text = FormatNumber(RegularHours)
            txtOvertime.Text = FormatNumber(OvertimeHours)
            txtRegularAmount.Text = FormatNumber(RegularAmount)
            txtOvertimeAmount.Text = FormatNumber(OvertimeAmount)
    
            txtNetPay.Text = FormatNumber(TotalEarnings)
    End Sub
  6. In the Class Name combo box, select calTimeFrame
  7. In the Method Name combo box, select DateSelected and implement the event as follows:
     
    Private Sub calTimeFrameDateSelected(ByVal sender As Object, 
                            ByVal e As System.Windows.Forms.DateRangeEventArgs) 
                            Handles calTimeFrame.DateSelected
            Dim DateStart As DateTime = e.Start
    
            If DateStart.DayOfWeek <> DayOfWeek.Monday Then
                MsgBox("The first day of your time frame must be a Monday")
            End If
    End Sub
  8. Execute the application and try selecting a range of dates
  9. Close the form and return to your programming environment
  10. Display the form
  11. On the form, click the calendar control and drag its right border so it can display two months:
     
  12. Right-click the form and click View Code
  13. Under the previous End Sub line, create the following procedure:
     
    Private Sub EnableForInvalidDate(ByVal Enable As Boolean)
            If Enable = True Then
                txtMonday1.Enabled = True
                txtMonday2.Enabled = True
                txtTuesday1.Enabled = True
                txtTuesday2.Enabled = True
                txtWednesday1.Enabled = True
                txtWednesday2.Enabled = True
                txtThursday1.Enabled = True
                txtThursday2.Enabled = True
                txtFriday1.Enabled = True
                txtFriday2.Enabled = True
                txtSaturday1.Enabled = True
                txtSaturday2.Enabled = True
                txtSunday1.Enabled = True
                txtSunday2.Enabled = True
                txtRegularTime.Enabled = True
                txtRegularAmount.Enabled = True
                txtOvertime.Enabled = True
                txtOvertimeAmount.Enabled = True
                txtNetPay.Enabled = True
                btnCalculate.Enabled = True
            ElseIf Enable = False Then
                txtMonday1.Enabled = False
                txtMonday2.Enabled = False
                txtTuesday1.Enabled = False
                txtTuesday2.Enabled = False
                txtWednesday1.Enabled = False
                txtWednesday2.Enabled = False
                txtThursday1.Enabled = False
                txtThursday2.Enabled = False
                txtFriday1.Enabled = False
                txtFriday2.Enabled = False
                txtSaturday1.Enabled = False
                txtSaturday2.Enabled = False
                txtSunday1.Enabled = False
                txtSunday2.Enabled = False
                txtRegularTime.Enabled = False
                txtRegularAmount.Enabled = False
                txtOvertime.Enabled = False
                txtOvertimeAmount.Enabled = False
                txtNetPay.Enabled = False
                btnCalculate.Enabled = False
            End If
    End Sub
  14. In the Class Name combo box, select calTimeFrame
  15. Change the DateSelected event as follows:
     
    Private Sub calTimeFrameDateSelected(ByVal sender As Object, 
                  ByVal e As System.Windows.Forms.DateRangeEventArgs) 
                            Handles calTimeFrame.DateSelected
            Dim DateStart As DateTime = e.Start
    
            ' Each payroll will cover 2 weeks
            ' This application assumes that the company started 
            ' implementing the time sheet on January 1st, 2007
            ' Our week day will go from Monday of the first week
            ' to Sunday of the following week
            ' The first date of the time frame must be a Monday
            If DateStart.DayOfWeek <> DayOfWeek.Monday Then
             MsgBox("The first day of your time frame must be a Monday")
                EnableForInvalidDate(False)
                Exit Sub
            Else
                EnableForInvalidDate(True)
            End If
    
          ' Now that the user has selected a date that starts on Monday,
            ' We will check that it corresponds to 
            ' 2 weeks by 2 weeks after January 1st, 2007
            ' To start, we must get the difference of days between 
            ' the selected starting date and January 1st, 2007
            Dim tmDifference As TimeSpan = 
    	    DateStart.Subtract(New DateTime(2007, 1, 1))
            Dim days As Integer = tmDifference.Days
    
            ' Now that we have the number of days,
            ' this number must be divisible by 14 (2 weeks)
            If (days Mod 14) <> 0 Then
                MsgBox("Invalid starting period - Please try again")
                EnableForInvalidDate(False)
                Exit Sub
            Else
                EnableForInvalidDate(True)
            End If
    
            ' Now that we have a valid starting period, 
            ' let's help the user and select the time period
            Dim range As DateTime = e.Start.AddDays(-1)
            calTimeFrame.SelectionEnd = range.AddDays(14)
    End Sub
  16. In the Class Name combo box, select btnClose
  17. In the Method Name combo box, select Click and implement the event as follows:
     
    Private Sub btnCloseClick(ByVal sender As Object, 
                                   ByVal e As System.EventArgs) 
                                   Handles btnClose.Click
            End
    End Sub
  18. Execute the application and try selecting a range of dates
  19. Close the form and return to your programming environment
  20. On the form, click the calendar control
  21. In the Properties window, change the following values:
    BackColor: 255, 192, 128
    ForeColor: Maroon
    TitleBackColor: 192, 64, 0
    TitleForeColor: Yellow
    TrailingForeColor: 255, 255, 192
  22. Save the form
  23. On the form, click the calendar control and, in the Properties window, double-click ShowToday to set its value to False
  24. Execute the application to test it
     
    Payroll Processing
  25. Close the form and return to your programming environment

 

 

Home Copyright © 2008-2012 FunctionX