Imports System.IO

Public Class staff
    Private Sub refreshdata()

        Dim filePath As String = "staff.txt"
        Dim oneuser As String
        Dim stafffields() As String

        ' Check if the file exists
        If File.Exists(filePath) Then
            DGV_staff.Rows.Clear()
            Dim sr As New StreamReader(stafffile)

            While sr.Peek() >= 0

                oneuser = sr.ReadLine
                stafffields = oneuser.Split(",")

                DGV_staff.Rows.Add(decryption(stafffields(0)), decryption(LCase(stafffields(1))), decryption(stafffields(2)), decryption(stafffields(3)), decryption(stafffields(4)), decryption(stafffields(5)), decryption(stafffields(6)), decryption(stafffields(7)), decryption(stafffields(8)))

            End While
            sr.Close()

        Else
            MessageBox.Show("File not found.")
        End If

        first()

    End Sub
    Private Sub saveStaff()

        Dim name As String = UCase(txt_name.Text)
        Dim surname As String = txt_surname.Text
        Dim address As String = txt_address.Text
        Dim Email As String = txt_email.Text
        Dim staffnum As Integer
        Dim telNum As String
        Dim DOB As String
        Dim safetosave As Boolean = False
        Dim salary As String = txt_salary.Text
        Dim parttime As String
        If UCase(txt_parttime.Text) = "Y" Or UCase(txt_parttime.Text) = "N" Then

            parttime = txt_parttime.Text
            safetosave = True

        Else

            safetosave = False
            MsgBox("input a part time status as either Y or N")

        End If
        If txt_StaffID.Text <> "StaffID" Then

            staffnum = CInt(txt_StaffID.Text)
            safetosave = True

        Else

            MsgBox("no staff ID input")
            safetosave = False

        End If
        If txt_telNum.Text.Length = 11 And txt_telNum.Text.Contains("07") = True Then

            telNum = txt_telNum.Text
            safetosave = True

        Else

            MsgBox("invalid phone number")
            safetosave = False

        End If
        If txt_DOB.Text.Contains("/") = True And txt_DOB.Text.Length = 10 Then

            DOB = txt_DOB.Text
            safetosave = True

        Else

            safetosave = False
            MsgBox("invalid date of birth, make sure it is in the format dd/mm/yyyy")

        End If

        Dim oneuser As String
        Dim stafffields() As String
        Dim swap As Boolean = False

        Dim sr As New StreamReader(stafffile)
        While sr.Peek() >= 0
            oneuser = sr.ReadLine
            stafffields = oneuser.Split(",")
            If CInt(decryption(stafffields(0))) = staffnum Then

                swap = True

            End If

        End While
        sr.Close()

        If safetosave = True And swap = False Then

            Dim stafffile As String = "staff.txt"

            Dim sw As New StreamWriter(stafffile, True) ' The True parameter appends to the file if it exists

            ' Write the new credentials in CSV format
            sw.WriteLine(encryption(staffnum) & "," & encryption(surname) & "," & encryption(name) & "," & encryption(telNum) & "," & encryption(DOB) & "," & encryption(address) & "," & encryption(Email) & "," & encryption(salary) & "," & encryption(Parttime))

            ' Close the StreamWriter
            sw.Close()

            ' Display a message or perform any other action as needed
            MsgBox("New details successfully and saved to the staff file.")
            refreshdata()

        ElseIf safetosave = True And swap = True Then

            Dim lines() As String = File.ReadAllLines(stafffile)


            For i As Integer = 0 To lines.Length - 1
                Dim editstafffields() As String = lines(i).Split(",")


                If editstafffields.Length > 0 AndAlso decryption(editstafffields(0)) = staffnum Then
                    ' Edit the information for the matched staff
                    editstafffields(1) = encryption(surname)
                    editstafffields(2) = encryption(name)
                    editstafffields(3) = encryption(telNum)
                    editstafffields(4) = encryption(DOB)
                    editstafffields(5) = encryption(address)
                    editstafffields(6) = encryption(Email)
                    editstafffields(7) = encryption(salary)
                    editstafffields(8) = encryption(parttime)

                    ' Join the fields back together with commas
                    lines(i) = String.Join(",", editstafffields)
                    MsgBox("staff edit saved")
                End If
            Next

            ' Write the modified lines back to the file
            File.WriteAllLines(stafffile, lines)
            refreshdata()

        End If

    End Sub
    Private Sub add()
        Dim staffnum As Integer = 0
        Dim oneuser As String
        Dim stafffields() As String


        Dim sr As New StreamReader(stafffile)
        While sr.Peek() >= 0
            oneuser = sr.ReadLine
            stafffields = oneuser.Split(",")
            If CInt(decryption(stafffields(0))) >= staffnum Then
                ' Increment the staff number if the current line has a valid staff id number
                staffnum = 1 + CInt(decryption(stafffields(0)))

            End If

        End While
        txt_StaffID.Text = staffnum
        txt_DOB.Text = ("DOB")
        txt_surname.Text = ("Surname")
        txt_name.Text = ("Name")
        txt_telNum.Text = ("Tel num")
        txt_address.Text = ("Address")
        txt_email.Text = ("Email")
        txt_salary.Text = ("Salary")
        txt_parttime.Text = ("Part time?")

        sr.Close()

        Console.WriteLine()

    End Sub
    Private Sub edit()

        ' Check if there is a selected row
        If DGV_staff.SelectedRows.Count > 0 Then
            ' Get the value of the first cell (column) in the selected row
            Dim selectedstaffID As Object = DGV_staff.SelectedRows(0).Cells(0).Value
            Dim selectedsurname As Object = DGV_staff.SelectedRows(0).Cells(1).Value
            Dim selectedname As Object = DGV_staff.SelectedRows(0).Cells(2).Value
            Dim selectedtelnum As Object = DGV_staff.SelectedRows(0).Cells(3).Value
            Dim selectedDOB As Object = DGV_staff.SelectedRows(0).Cells(4).Value
            Dim selectedaddress As Object = DGV_staff.SelectedRows(0).Cells(5).Value
            Dim selectedemail As Object = DGV_staff.SelectedRows(0).Cells(6).Value
            Dim selectedsalary As Object = DGV_staff.SelectedRows(0).Cells(7).Value
            Dim selectedParttime As Object = DGV_staff.SelectedRows(0).Cells(8).Value

            ' Set the text of the TextBox
            txt_StaffID.Text = If(selectedstaffID IsNot Nothing, selectedstaffID.ToString(), String.Empty)
            txt_surname.Text = If(selectedsurname IsNot Nothing, selectedsurname.ToString(), String.Empty)
            txt_name.Text = If(selectedname IsNot Nothing, selectedname.ToString(), String.Empty)
            txt_telNum.Text = If(selectedtelnum IsNot Nothing, selectedtelnum.ToString(), String.Empty)
            txt_DOB.Text = If(selectedDOB IsNot Nothing, selectedDOB.ToString(), String.Empty)
            txt_address.Text = If(selectedaddress IsNot Nothing, selectedaddress.ToString(), String.Empty)
            txt_email.Text = If(selectedemail IsNot Nothing, selectedemail.ToString(), String.Empty)
            txt_salary.Text = If(selectedsalary IsNot Nothing, selectedsalary.ToString(), String.Empty)
            txt_parttime.Text = If(selectedParttime IsNot Nothing, selectedParttime.ToString(), String.Empty)

        End If
        refreshdata()
    End Sub
    Private Sub search()
        Dim emailtosearch As String = UCase(txt_email.Text)
        Dim telnumtosearch As String = UCase(txt_telNum.Text)
        Dim array() As String = File.ReadAllLines(stafffile)


        If emailtosearch = "Email" Or emailtosearch = "" Or telnumtosearch = "tel num" Or telnumtosearch = "" Then

            MsgBox("input an email or telephone number to search")
        Else

            Dim foundrow As Integer
            Dim row As Integer
            Dim found As Boolean = False

            For Each line As String In array

                Dim stafffields() As String = line.Split(",")


                If decryption(stafffields(6)) = emailtosearch Then

                    foundrow = row
                    found = True

                End If
                If decryption(stafffields(3)) = telnumtosearch Then

                    foundrow = row
                    found = True

                End If
                row = row + 1

            Next
            If found = True Then

                DGV_staff.ClearSelection()
                DGV_staff.Rows(foundrow).Selected = True

            End If


        End If
    End Sub
    Private Sub delete()

        MsgBox("are you sure you want to delete this staff member", MsgBoxStyle.YesNo)
        If MsgBoxResult.Yes Then

            Dim lines() As String = File.ReadAllLines(stafffile)

            ' Create a list to store modified lines
            Dim modifiedLines As New List(Of String)

            ' Iterate through the lines and exclude the line to delete
            For Each line As String In lines
                Dim stafffields() As String = line.Split(",")


                If stafffields.Length > 0 AndAlso decryption(stafffields(0)) <> DGV_staff.SelectedRows(0).Cells(0).Value Then
                    ' Add the line to the modifiedLines list
                    modifiedLines.Add(line)

                End If
            Next

            ' Write the modified lines back to the file
            File.WriteAllLines(stafffile, modifiedLines.ToArray())
            refreshdata()
        End If

    End Sub
    Private Sub first()

        DGV_staff.ClearSelection()

        ' Check if there are any rows in the DataGridView
        If DGV_staff.Rows.Count > 0 Then

            ' highlight the entire row
            DGV_staff.Rows(0).Selected = True

        End If

    End Sub
    Private Sub last()


        DGV_staff.ClearSelection()
        ' Check if there are any rows in the DataGridView
        If DGV_staff.Rows.Count > 0 Then

            Dim lastIndex As Integer = DGV_staff.Rows.Count - 1
            'highlight the entire row
            DGV_staff.Rows(lastIndex).Selected = True

        End If

    End Sub
    Private Sub back()

        If DGV_staff.SelectedRows.Count > 0 And DGV_staff.SelectedRows(0).Index <> 0 Then
            ' Get the index of the first selected row
            Dim nexindex As Integer = DGV_staff.SelectedRows(0).Index - 1
            DGV_staff.ClearSelection()
            DGV_staff.Rows(nexindex).Selected = True
        ElseIf DGV_staff.SelectedRows(0).Index = 0 Then

            MsgBox("already reached the top of the list")

        Else

            MsgBox("No row selected.")

        End If

    End Sub
    Private Sub forward()

        Dim lastIndex As Integer = DGV_staff.Rows.Count - 1
        If DGV_staff.SelectedRows.Count > 0 And DGV_staff.SelectedRows(0).Index <> lastIndex Then
            ' Get the index of the first selected row
            Dim nexindex As Integer = DGV_staff.SelectedRows(0).Index + 1
            DGV_staff.ClearSelection()
            DGV_staff.Rows(nexindex).Selected = True
        ElseIf DGV_staff.SelectedRows(0).Index = lastIndex Then

            MsgBox("already reached the bottom of the list")

        Else

            MsgBox("No row selected.")

        End If

    End Sub
    Private Sub txt_DOB_TextChanged(sender As Object, e As EventArgs) Handles txt_DOB.TextChanged
        Dim myString As String = txt_DOB.Text

        Dim wordToFind As String = "DOB"
        Dim cursorPosition As Integer = txt_DOB.SelectionStart
        If txt_DOB.Text <> "DOB" Then


            Dim containsWord As Boolean = myString.Contains(wordToFind)


            If containsWord = True Then

                myString = myString.Replace(wordToFind, "")
                txt_DOB.Text = myString
                txt_DOB.SelectionStart = cursorPosition + (txt_DOB.Text.Length - cursorPosition)

            End If

        End If
    End Sub

    Private Sub txt_address_TextChanged(sender As Object, e As EventArgs) Handles txt_address.TextChanged
        Dim myString As String = txt_address.Text

        Dim wordToFind As String = "Address"
        Dim cursorPosition As Integer = txt_address.SelectionStart
        If txt_address.Text <> "Address" Then


            Dim containsWord As Boolean = myString.Contains(wordToFind)


            If containsWord = True Then

                myString = myString.Replace(wordToFind, "")
                txt_address.Text = myString
                txt_address.SelectionStart = cursorPosition + (txt_address.Text.Length - cursorPosition)

            End If

        End If
    End Sub

    Private Sub txt_surname_TextChanged(sender As Object, e As EventArgs) Handles txt_surname.TextChanged
        Dim myString As String = txt_surname.Text

        Dim wordToFind As String = "Surname"
        Dim cursorPosition As Integer = txt_surname.SelectionStart
        If txt_surname.Text <> "Surname" Then


            Dim containsWord As Boolean = myString.Contains(wordToFind)


            If containsWord = True Then

                myString = myString.Replace(wordToFind, "")
                txt_surname.Text = myString
                txt_surname.SelectionStart = cursorPosition + (txt_surname.Text.Length - cursorPosition)

            End If

        End If
    End Sub

    Private Sub txt_email_TextChanged(sender As Object, e As EventArgs) Handles txt_email.TextChanged
        Dim myString As String = txt_email.Text

        Dim wordToFind As String = "Email"
        Dim cursorPosition As Integer = txt_email.SelectionStart
        If txt_email.Text <> "Email" Then


            Dim containsWord As Boolean = myString.Contains(wordToFind)


            If containsWord = True Then

                myString = myString.Replace(wordToFind, "")
                txt_email.Text = myString
                txt_email.SelectionStart = cursorPosition + (txt_email.Text.Length - cursorPosition)

            End If

        End If
    End Sub

    Private Sub txt_name_TextChanged(sender As Object, e As EventArgs) Handles txt_name.TextChanged
        Dim myString As String = txt_name.Text

        Dim wordToFind As String = "Name"
        Dim cursorPosition As Integer = txt_name.SelectionStart
        If txt_name.Text <> "Name" Then


            Dim containsWord As Boolean = myString.Contains(wordToFind)


            If containsWord = True Then

                myString = myString.Replace(wordToFind, "")
                txt_name.Text = myString
                txt_name.SelectionStart = cursorPosition + (txt_name.Text.Length - cursorPosition)

            End If

        End If
    End Sub

    Private Sub txt_telNum_TextChanged(sender As Object, e As EventArgs) Handles txt_telNum.TextChanged
        Dim myString As String = txt_telNum.Text

        Dim wordToFind As String = "Tel num"
        Dim cursorPosition As Integer = txt_telNum.SelectionStart
        If txt_telNum.Text <> "Tel num" Then


            Dim containsWord As Boolean = myString.Contains(wordToFind)


            If containsWord = True Then

                myString = myString.Replace(wordToFind, "")
                txt_telNum.Text = myString
                txt_telNum.SelectionStart = cursorPosition + (txt_telNum.Text.Length - cursorPosition)

            End If

        End If
    End Sub

    Private Sub txt_salary_TextChanged(sender As Object, e As EventArgs) Handles txt_salary.TextChanged
        Dim myString As String = txt_salary.Text

        Dim wordToFind As String = "Salary"
        Dim cursorPosition As Integer = txt_salary.SelectionStart
        If txt_salary.Text <> "Salary" Then


            Dim containsWord As Boolean = myString.Contains(wordToFind)


            If containsWord = True Then

                myString = myString.Replace(wordToFind, "")
                txt_salary.Text = myString
                txt_salary.SelectionStart = cursorPosition + (txt_salary.Text.Length - cursorPosition)

            End If

        End If
    End Sub
    Private Sub txt_parttime_TextChanged(sender As Object, e As EventArgs) Handles txt_parttime.TextChanged
        Dim myString As String = txt_parttime.Text

        Dim wordToFind As String = "Part time?"
        Dim cursorPosition As Integer = txt_parttime.SelectionStart
        If txt_parttime.Text <> "Part time?" Then


            Dim containsWord As Boolean = myString.Contains(wordToFind)


            If containsWord = True Then

                myString = myString.Replace(wordToFind, "")
                txt_parttime.Text = myString
                txt_parttime.SelectionStart = cursorPosition + (txt_parttime.Text.Length - cursorPosition)

            End If

        End If
    End Sub
    Private Sub txt_DOB_MouseLeave(sender As Object, e As EventArgs) Handles txt_DOB.MouseLeave
        If txt_DOB.Text = "" Then

            txt_DOB.Text = "DOB"

        End If
    End Sub

    Private Sub txt_DOB_MouseEnter(sender As Object, e As EventArgs) Handles txt_DOB.MouseEnter
        If txt_DOB.Text = "DOB" Then

            txt_DOB.Text = ""

        End If
    End Sub

    Private Sub pbx_DOB_MouseEnter(sender As Object, e As EventArgs) Handles pbx_DOB.MouseEnter
        If txt_DOB.Text = "DOB" Then

            txt_DOB.Text = ""

        End If
    End Sub

    Private Sub pbx_DOB_MouseLeave(sender As Object, e As EventArgs) Handles pbx_DOB.MouseLeave
        If txt_DOB.Text = "" Then

            txt_DOB.Text = "DOB"

        End If
    End Sub

    Private Sub txt_surname_MouseEnter(sender As Object, e As EventArgs) Handles txt_surname.MouseEnter
        If txt_surname.Text = "Surname" Then

            txt_surname.Text = ""

        End If
    End Sub

    Private Sub txt_surname_MouseLeave(sender As Object, e As EventArgs) Handles txt_surname.MouseLeave
        If txt_surname.Text = "" Then

            txt_surname.Text = "Surname"

        End If
    End Sub

    Private Sub PBX_surname_MouseEnter(sender As Object, e As EventArgs) Handles PBX_surname.MouseEnter
        If txt_surname.Text = "Surname" Then

            txt_surname.Text = ""

        End If
    End Sub

    Private Sub PBX_surname_MouseLeave(sender As Object, e As EventArgs) Handles PBX_surname.MouseLeave
        If txt_surname.Text = "" Then

            txt_surname.Text = "Surname"

        End If
    End Sub

    Private Sub txt_address_MouseEnter(sender As Object, e As EventArgs) Handles txt_address.MouseEnter
        If txt_address.Text = "Address" Then

            txt_address.Text = ""

        End If
    End Sub

    Private Sub txt_address_MouseLeave(sender As Object, e As EventArgs) Handles txt_address.MouseLeave
        If txt_address.Text = "" Then

            txt_address.Text = "Address"

        End If
    End Sub

    Private Sub PBX_address_MouseEnter(sender As Object, e As EventArgs) Handles PBX_address.MouseEnter
        If txt_address.Text = "Address" Then

            txt_address.Text = ""

        End If
    End Sub

    Private Sub PBX_address_MouseLeave(sender As Object, e As EventArgs) Handles PBX_address.MouseLeave
        If txt_address.Text = "" Then

            txt_address.Text = "Address"

        End If
    End Sub

    Private Sub txt_email_MouseEnter(sender As Object, e As EventArgs) Handles txt_email.MouseEnter
        If txt_email.Text = "Email" Then

            txt_email.Text = ""

        End If
    End Sub
    Private Sub PBX_Email_MouseEnter(sender As Object, e As EventArgs) Handles PBX_Email.MouseEnter
        If txt_email.Text = "Email" Then

            txt_email.Text = ""

        End If
    End Sub

    Private Sub PBX_Email_MouseLeave(sender As Object, e As EventArgs) Handles PBX_Email.MouseLeave
        If txt_email.Text = "" Then

            txt_email.Text = "Email"

        End If
    End Sub

    Private Sub txt_email_MouseLeave(sender As Object, e As EventArgs) Handles txt_email.MouseLeave
        If txt_email.Text = "" Then

            txt_email.Text = "Email"

        End If
    End Sub

    Private Sub txt_telNum_MouseEnter(sender As Object, e As EventArgs) Handles txt_telNum.MouseEnter
        If txt_telNum.Text = "Tel num" Then

            txt_telNum.Text = ""

        End If
    End Sub

    Private Sub txt_telNum_MouseLeave(sender As Object, e As EventArgs) Handles txt_telNum.MouseLeave
        If txt_telNum.Text = "" Then

            txt_telNum.Text = "Tel num"

        End If
    End Sub

    Private Sub PBX_telNum_MouseEnter(sender As Object, e As EventArgs) Handles PBX_telNum.MouseEnter
        If txt_telNum.Text = "Tel num" Then

            txt_telNum.Text = ""

        End If
    End Sub

    Private Sub PBX_telNum_MouseLeave(sender As Object, e As EventArgs) Handles PBX_telNum.MouseLeave
        If txt_telNum.Text = "" Then

            txt_telNum.Text = "Tel num"

        End If
    End Sub

    Private Sub txt_name_MouseEnter(sender As Object, e As EventArgs) Handles txt_name.MouseEnter
        If txt_name.Text = "Name" Then

            txt_name.Text = ""

        End If
    End Sub

    Private Sub txt_name_MouseLeave(sender As Object, e As EventArgs) Handles txt_name.MouseLeave
        If txt_name.Text = "" Then

            txt_name.Text = "Name"

        End If
    End Sub

    Private Sub PBX_Name_MouseEnter(sender As Object, e As EventArgs) Handles PBX_Name.MouseEnter
        If txt_name.Text = "Name" Then

            txt_name.Text = ""

        End If
    End Sub

    Private Sub PBX_Name_MouseLeave(sender As Object, e As EventArgs) Handles PBX_Name.MouseLeave
        If txt_name.Text = "" Then

            txt_name.Text = "Name"

        End If
    End Sub

    Private Sub txt_salary_MouseEnter(sender As Object, e As EventArgs) Handles txt_salary.MouseEnter
        If txt_salary.Text = "Salary" Then

            txt_salary.Text = ""

        End If
    End Sub

    Private Sub txt_salary_MouseLeave(sender As Object, e As EventArgs) Handles txt_salary.MouseLeave
        If txt_salary.Text = "" Then

            txt_salary.Text = "Salary"

        End If
    End Sub

    Private Sub pbx_salary_MouseEnter(sender As Object, e As EventArgs) Handles pbx_salary.MouseEnter
        If txt_salary.Text = "Salary" Then

            txt_salary.Text = ""

        End If
    End Sub

    Private Sub pbx_salary_MouseLeave(sender As Object, e As EventArgs) Handles pbx_salary.MouseLeave
        If txt_salary.Text = "" Then

            txt_salary.Text = "Salary"

        End If
    End Sub

    Private Sub pbx_parttime_MouseEnter(sender As Object, e As EventArgs) Handles pbx_parttime.MouseEnter
        If txt_parttime.Text = "Part time?" Then

            txt_parttime.Text = ""

        End If
    End Sub

    Private Sub pbx_parttime_MouseLeave(sender As Object, e As EventArgs) Handles pbx_parttime.MouseLeave
        If txt_parttime.Text = "" Then

            txt_parttime.Text = "Part time?"

        End If
    End Sub

    Private Sub txt_parttime_MouseEnter(sender As Object, e As EventArgs) Handles txt_parttime.MouseEnter
        If txt_parttime.Text = "Part time?" Then

            txt_parttime.Text = ""

        End If
    End Sub

    Private Sub txt_parttime_MouseLeave(sender As Object, e As EventArgs) Handles txt_parttime.MouseLeave
        If txt_parttime.Text = "" Then

            txt_parttime.Text = "Part time?"

        End If
    End Sub

    Private Sub staff_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If access = 2 Then

            txt_salary.ReadOnly = True
            txt_parttime.ReadOnly = True

        End If
        If access > 2 Then

            txt_salary.ReadOnly = False
            txt_parttime.ReadOnly = False

        End If
        getstafffilelocations()
        refreshdata()
    End Sub

    Private Sub lbl_start_Click(sender As Object, e As EventArgs) Handles lbl_start.Click
        first()
    End Sub

    Private Sub pbx_start_Click(sender As Object, e As EventArgs) Handles pbx_start.Click
        first()
    End Sub

    Private Sub lbl_forwardData_Click(sender As Object, e As EventArgs) Handles lbl_forwardData.Click
        forward()
    End Sub

    Private Sub pbx_forwardData_Click(sender As Object, e As EventArgs) Handles pbx_forwardData.Click
        forward()
    End Sub

    Private Sub lbl_backData_Click(sender As Object, e As EventArgs) Handles lbl_backData.Click
        back()
    End Sub

    Private Sub pbx_backdata_Click(sender As Object, e As EventArgs) Handles pbx_backdata.Click
        back()
    End Sub

    Private Sub lbl_end_Click(sender As Object, e As EventArgs) Handles lbl_end.Click
        last()
    End Sub

    Private Sub pbx_end_Click(sender As Object, e As EventArgs) Handles pbx_end.Click
        last()
    End Sub

    Private Sub PBX_back_Click(sender As Object, e As EventArgs) Handles PBX_back.Click
        'opens next form, closes current form
        Dim nextform As New MainMenu()
        nextform.Show()
        Me.Hide()
    End Sub

    Private Sub lbl_back_Click(sender As Object, e As EventArgs) Handles lbl_back.Click
        'opens next form, closes current form
        Dim nextform As New MainMenu()
        nextform.Show()
        Me.Hide()
    End Sub

    Private Sub pbx_addUser_Click(sender As Object, e As EventArgs) Handles pbx_addUser.Click
        add()
    End Sub

    Private Sub lbl_add_Click(sender As Object, e As EventArgs) Handles lbl_add.Click
        add()
    End Sub

    Private Sub lbl_delete_Click(sender As Object, e As EventArgs) Handles lbl_delete.Click
        delete()
    End Sub

    Private Sub PBX_deleteUser_Click(sender As Object, e As EventArgs) Handles PBX_deleteUser.Click
        delete()
    End Sub

    Private Sub pbx_editUser_Click(sender As Object, e As EventArgs) Handles pbx_editUser.Click
        edit()
    End Sub

    Private Sub lbl_edit_Click(sender As Object, e As EventArgs) Handles lbl_edit.Click
        edit()
    End Sub

    Private Sub lbl_search_Click(sender As Object, e As EventArgs) Handles lbl_search.Click
        search()
    End Sub

    Private Sub pbx_searchUser_Click(sender As Object, e As EventArgs) Handles pbx_searchUser.Click
        search()
    End Sub

    Private Sub lbl_save_Click(sender As Object, e As EventArgs) Handles lbl_save.Click
        saveStaff()
    End Sub

    Private Sub pbx_saveUser_Click(sender As Object, e As EventArgs) Handles pbx_saveUser.Click
        saveStaff()
    End Sub
End Class