Revise paste 62593ec595d5a

Public Class myStaff

Private Sub myStaff_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        fillGrid(dgv_staff, fileLoc_Staff)
        StartPosition = FormStartPosition.CenterScreen

txt_staffID.BackColor = gray
        txt_forename.BackColor = gray
        txt_surname.BackColor = gray
        txt_password.BackColor = gray
        txt_accessLevel.BackColor = gray
        txt_phoneNumber.BackColor = gray
        txt_postcode.BackColor = gray
        txt_address.BackColor = gray
        DTP_DoB.BackColor = gray
    End Sub

Private Sub fillText(ByVal rowIndex As Integer)
        txt_staffID.Text = dgv_staff.Rows(rowIndex).Cells(0).Value
        txt_forename.Text = Decryption(dgv_staff.Rows(rowIndex).Cells(1).Value)
        txt_surname.Text = Decryption(dgv_staff.Rows(rowIndex).Cells(2).Value)
        txt_password.Text = Decryption(dgv_staff.Rows(rowIndex).Cells(3).Value)
        txt_accessLevel.Text = Decryption(dgv_staff.Rows(rowIndex).Cells(4).Value)
        txt_phoneNumber.Text = Decryption(dgv_staff.Rows(rowIndex).Cells(5).Value)
        txt_postcode.Text = Decryption(dgv_staff.Rows(rowIndex).Cells(6).Value)
        txt_address.Text = Decryption(dgv_staff.Rows(rowIndex).Cells(7).Value)
        DTP_DoB.Value = dgv_staff.Rows(rowIndex).Cells(8).Value
    End Sub

Private Sub clearText()
        txt_staffID.Text = ""
        txt_forename.Text = ""
        txt_surname.Text = ""
        txt_password.Text = ""
        txt_accessLevel.Text = ""
        txt_phoneNumber.Text = ""
        txt_postcode.Text = ""
        txt_address.Text = ""
        DTP_DoB.CustomFormat = " "
    End Sub

'Navigation
    Private dgvNavigator As New DataGridViewNavigator()
    Private Sub btn_first_Click(sender As Object, e As EventArgs) Handles btn_first.Click
        dgvNavigator.SelectFirst(dgv_staff)
        fillText(dgvNavigator.CurrentIndex)
    End Sub

Private Sub btn_previous_Click(sender As Object, e As EventArgs) Handles btn_previous.Click
        dgvNavigator.SelectPrevious(dgv_staff)
        fillText(dgvNavigator.CurrentIndex)
    End Sub

Private Sub btn_next_Click(sender As Object, e As EventArgs) Handles btn_next.Click
        dgvNavigator.SelectNext(dgv_staff)
        fillText(dgvNavigator.CurrentIndex)
    End Sub

Private Sub btn_last_Click(sender As Object, e As EventArgs) Handles btn_last.Click
        dgvNavigator.SelectLast(dgv_staff)
        fillText(dgvNavigator.CurrentIndex)
    End Sub
    '----------------------------------------------------------------------------------------------'
    Private Sub btn_add_Click(sender As Object, e As EventArgs) Handles btn_add.Click
        clearText()
        Dim newID As Integer = AddRecord(fileLoc_Staff)
        txt_staffID.Text = newID
    End Sub

Private Sub btn_save_Click(sender As Object, e As EventArgs) Handles btn_save.Click
        'Checks the data before attempting to save it to file
        If Check() = False Then
            Return
        End If

Dim staffID As Integer = txt_staffID.Text
        Dim password As String = Encryption(txt_password.Text)

If UniqueCheck(staffID, fileLoc_Staff) Then
            Dim newValues As String = txt_staffID.Text + "," + Encryption(txt_forename.Text) + "," + Encryption(txt_surname.Text) + "," + password + "," + Encryption(txt_accessLevel.Text) + "," + Encryption(txt_phoneNumber.Text) + "," + Encryption(txt_postcode.Text) + "," + Encryption(txt_address.Text) + "," + DTP_DoB.Value
            ' Adds the data from the text boxes, encrypting where possible
            SaveRecord(fileLoc_Staff, newValues)
            fillGrid(dgv_staff, fileLoc_Staff)
        Else
            MsgBox("ID is not unique.")
        End If

End Sub

Private Function Check()

' Presence check on staff ID
        If txt_staffID.Text = "" Then
            MsgBox("please enter a staff ID")
            Return False
        End If

' Integer check on staff ID
        If Not IntCheck(txt_staffID.Text) Then
            MsgBox("Non integer input in staff ID textbox")
            Return False
        End If

If txt_forename.Text.Length < 3 Or txt_forename.Text.Length > 20 Then
            'Length Check on forename also acts as a presence check
            MsgBox("Forename entered invalid, must be between 3 and 20 characters")
            Return False
        End If

If txt_surname.Text.Length < 3 Or txt_surname.Text.Length > 20 Then
            'Length Check on surname also acts as a presence check
            MsgBox("Surname entered invalid, must be between 3 and 20 characters")
            Return False
        End If

'password
        'want to contain. capital,lower case, number at least 7 letters

If txt_password.Text.Length < 7 Then
            MsgBox("password must be at least 7 characters")
            Return False
        End If

Dim passwordArray() As Char = txt_password.Text.ToCharArray
        Dim upper As Boolean = False
        Dim lower As Boolean = False
        Dim number As Boolean = False
        ' Each of the conditions  are set to false, only satisfied when a character ticks one off, all must be true when the character array is finished being searched
        For Each c As Char In passwordArray
            If Char.IsUpper(c) Then
                upper = True
            End If
            If Char.IsLower(c) Then
                lower = True
            End If
            If Char.IsNumber(c) Then
                number = True
            End If
        Next

If Not (upper = True AndAlso lower = True AndAlso number = True) Then
            MsgBox("invalid password, must contain, An upper case character, A lower case character and a number")
            Return False
        End If

If Not IntCheck(txt_accessLevel.Text) Then
            Return False
        End If

' Checks the access level is within the bounds of the system
        If txt_accessLevel.Text < 0 Or txt_accessLevel.Text > 4 Then
            MsgBox("invalid access level, must be between 0 and 4")
            Return False
        End If

' checks the phone number is an integer
        If Not IntCheck(txt_phoneNumber.Text) Then
            MsgBox("invalid phone number, must only contain numbers")
            Return False
        End If

' After checking its an integer, it checks the length of the number
        If txt_phoneNumber.Text.Length <> 11 Then
            MsgBox("invalid phone number, must be 11 digits long")
            Return False
        End If

'PostCode not checked

' Length check also acts as a presence check
        If txt_address.Text.Length < 2 Or txt_address.Text.Length > 255 Then
            MsgBox("Address entered invalid, must be between 3 and 255 characters")
            Return False
        End If

Return True

'Date of birth not checked
    End Function

Private Sub btn_edit_Click(sender As Object, e As EventArgs) Handles btn_edit.Click
        ' Checks new data to ensure valid data only
        If Check() = False Then
            Return
        End If
        ' Compiles a string of the new data, and edits the existing record with the corresponding ID
        Dim ID As Integer = txt_staffID.Text
        Dim newValues As String = txt_staffID.Text & "," & Encryption(txt_forename.Text) & "," & Encryption(txt_surname.Text) & "," & Encryption(txt_password.Text) & "," & Encryption(txt_accessLevel.Text) & "," & Encryption(txt_phoneNumber.Text) & "," & Encryption(txt_postcode.Text) & "," & Encryption(txt_address.Text) & "," & DTP_DoB.Value.ToString()
        EditRecord(ID, newValues, fileLoc_Staff)
        fillGrid(dgv_staff, fileLoc_Staff)
    End Sub

Private Sub btn_delete_Click(sender As Object, e As EventArgs) Handles btn_delete.Click
        ' Presence checks staff ID textbox to avoid crash
        If txt_staffID.Text = "" Then
            MsgBox("No staff ID given, please try again")
            Return
        End If
        Dim staffID As Integer = txt_staffID.Text
        DeleteRecord(dgv_staff, fileLoc_Staff, staffID)
        fillGrid(dgv_staff, fileLoc_Staff)
    End Sub

' Takes user back to main menu, doesn't delete non saved inputs
    Private Sub btn_menu_Click(sender As Object, e As EventArgs) Handles btn_menu.Click
        Me.Visible = False
        myMenu.Visible = True
    End Sub

' Sorts
    ' Staff ID Ascending
    ' Staff ID Descending
    Private Sub btn_staffIdAsc_Click(sender As Object, e As EventArgs) Handles btn_staffIdAsc.Click
        AscSort(fileLoc_Staff, 0)
        fillGrid(dgv_staff, fileLoc_Staff)
    End Sub

Private Sub btn_staffIdDesc_Click(sender As Object, e As EventArgs) Handles btn_staffIdDesc.Click
        DescSort(fileLoc_Staff, 0)
        fillGrid(dgv_staff, fileLoc_Staff)
    End Sub

End Class