Revise paste 6599641dc94c6

Imports System.IO
Imports System.Net.Security
Imports System.Net.WebRequestMethods
Imports System.Runtime.Remoting
Imports System.Windows.Forms.LinkLabel
Imports File = System.IO.File

Public Class mytimetable
    Private Sub myStaff_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        StartPosition = FormStartPosition.CenterScreen
        fillGrid(dgv_timetable, fileLoc_timetable)

' Sets the colours of the items
        txt_timetableID.BackColor = gray
        DTP_timetableDate.BackColor = gray
        txt_shiftID1.BackColor = gray
        txt_shiftID2.BackColor = gray
        txt_shiftID3.BackColor = gray
        txt_shiftID4.BackColor = gray
        txt_shiftID5.BackColor = gray
        txt_staffID1.BackColor = gray
        txt_staffID2.BackColor = gray
        txt_staffID3.BackColor = gray
        txt_staffID4.BackColor = gray
        txt_staffID5.BackColor = gray
        txt_staffname1.BackColor = gray
        txt_staffname2.BackColor = gray
        txt_staffname3.BackColor = gray
        txt_staffname4.BackColor = gray
        txt_staffname5.BackColor = gray
        txt_start1.BackColor = gray
        txt_start2.BackColor = gray
        txt_start3.BackColor = gray
        txt_start4.BackColor = gray
        txt_start5.BackColor = gray
        txt_end1.BackColor = gray
        txt_end2.BackColor = gray
        txt_end3.BackColor = gray
        txt_end4.BackColor = gray
        txt_end5.BackColor = gray
    End Sub

Private Sub fillText(ByVal rowIndex As Integer)
        txt_timetableID.Text = dgv_timetable.Rows(rowIndex).Cells(0).Value
        If Not dgv_timetable.Rows(rowIndex).Cells(1).Value = DateTime.MinValue Then
            ' avoids crashes by not putting empty date into DateTimePicker
            DTP_timetableDate.Value = dgv_timetable.Rows(rowIndex).Cells(1).Value
        End If

' Fills the text boxes

txt_shiftID1.Text = dgv_timetable.Rows(rowIndex).Cells(2).Value
        txt_shiftID2.Text = dgv_timetable.Rows(rowIndex).Cells(3).Value
        txt_shiftID3.Text = dgv_timetable.Rows(rowIndex).Cells(4).Value
        txt_shiftID4.Text = dgv_timetable.Rows(rowIndex).Cells(5).Value
        txt_shiftID5.Text = dgv_timetable.Rows(rowIndex).Cells(6).Value
        txt_staffID1.Text = FindField(fileLoc_Shift, txt_shiftID1.Text, 2)
        txt_staffID2.Text = FindField(fileLoc_Shift, txt_shiftID2.Text, 2)
        txt_staffID3.Text = FindField(fileLoc_Shift, txt_shiftID3.Text, 2)
        txt_staffID4.Text = FindField(fileLoc_Shift, txt_shiftID4.Text, 2)
        txt_staffID5.Text = FindField(fileLoc_Shift, txt_shiftID5.Text, 2)
        txt_staffname1.Text = Decryption(FindField(fileLoc_Staff, txt_staffID1.Text, 1))
        txt_staffname2.Text = Decryption(FindField(fileLoc_Staff, txt_staffID2.Text, 1))
        txt_staffname3.Text = Decryption(FindField(fileLoc_Staff, txt_staffID3.Text, 1))
        txt_staffname4.Text = Decryption(FindField(fileLoc_Staff, txt_staffID4.Text, 1))
        txt_staffname5.Text = Decryption(FindField(fileLoc_Staff, txt_staffID5.Text, 1))
        txt_start1.Text = FindField(fileLoc_Shift, txt_shiftID1.Text, 3)
        txt_start2.Text = FindField(fileLoc_Shift, txt_shiftID2.Text, 3)
        txt_start3.Text = FindField(fileLoc_Shift, txt_shiftID3.Text, 3)
        txt_start4.Text = FindField(fileLoc_Shift, txt_shiftID4.Text, 3)
        txt_start5.Text = FindField(fileLoc_Shift, txt_shiftID5.Text, 3)
        txt_end1.Text = FindField(fileLoc_Shift, txt_shiftID1.Text, 4)
        txt_end2.Text = FindField(fileLoc_Shift, txt_shiftID2.Text, 4)
        txt_end3.Text = FindField(fileLoc_Shift, txt_shiftID3.Text, 4)
        txt_end4.Text = FindField(fileLoc_Shift, txt_shiftID4.Text, 4)
        txt_end5.Text = FindField(fileLoc_Shift, txt_shiftID5.Text, 4)

End Sub

Private Sub clearText()

' Clears text boxes

txt_timetableID.Text = ""
        DTP_timetableDate.CustomFormat = " "
        txt_shiftID1.Text = ""
        txt_shiftID2.Text = ""
        txt_shiftID3.Text = ""
        txt_shiftID4.Text = ""
        txt_shiftID5.Text = ""
        txt_staffID1.Text = ""
        txt_staffID2.Text = ""
        txt_staffID3.Text = ""
        txt_staffID4.Text = ""
        txt_staffID5.Text = ""
        txt_staffname1.Text = ""
        txt_staffname2.Text = ""
        txt_staffname3.Text = ""
        txt_staffname4.Text = ""
        txt_staffname5.Text = ""
        txt_start1.Text = ""
        txt_start2.Text = ""
        txt_start3.Text = ""
        txt_start4.Text = ""
        txt_start5.Text = ""
        txt_end1.Text = ""
        txt_end2.Text = ""
        txt_end3.Text = ""
        txt_end4.Text = ""
        txt_end5.Text = ""
    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_timetable)
        fillText(dgvNavigator.CurrentIndex)
    End Sub

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

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

Private Sub btn_last_Click(sender As Object, e As EventArgs) Handles btn_last.Click
        dgvNavigator.SelectLast(dgv_timetable)
        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_timetable)
        txt_timetableID.Text = newID

Dim newshiftID As Integer = AddRecord(fileLoc_Shift)
        txt_shiftID1.Text = newshiftID
        txt_shiftID2.Text = newshiftID + 1
        txt_shiftID3.Text = newshiftID + 2
        txt_shiftID4.Text = newshiftID + 3
        txt_shiftID5.Text = newshiftID + 4

End Sub

Private Sub btn_save_Click(sender As Object, e As EventArgs) Handles btn_save.Click
        If Check() = False Then
            Return
        End If

Dim timetableID As String = txt_timetableID.Text

Dim newShift1 As String = txt_shiftID1.Text
        Dim newShift2 As String = txt_shiftID2.Text
        Dim newShift3 As String = txt_shiftID3.Text
        Dim newShift4 As String = txt_shiftID4.Text
        Dim newShift5 As String = txt_shiftID5.Text

Dim StaffID1 As String = txt_staffID1.Text
        Dim StaffID2 As String = txt_staffID2.Text
        Dim StaffID3 As String = txt_staffID3.Text
        Dim StaffID4 As String = txt_staffID4.Text
        Dim StaffID5 As String = txt_staffID5.Text

Dim shiftID1 As String = shiftCreate(newShift1, timetableID, StaffID1, txt_start1.Text, txt_end1.Text)
        Dim shiftID2 As String = shiftCreate(newShift2, timetableID, StaffID2, txt_start2.Text, txt_end2.Text)
        Dim shiftID3 As String = shiftCreate(newShift3, timetableID, StaffID3, txt_start3.Text, txt_end3.Text)
        Dim shiftID4 As String = shiftCreate(newShift4, timetableID, StaffID4, txt_start4.Text, txt_end4.Text)
        Dim shiftID5 As String = shiftCreate(newShift5, timetableID, StaffID5, txt_start5.Text, txt_end5.Text)

If UniqueCheck(timetableID, fileLoc_timetable) Then
            Dim newtimetable As String = txt_timetableID.Text & "," & DTP_timetableDate.Value.Date & "," & newShift1 & "," & newShift2 & "," & newShift3 & "," & newShift4 & "," & newShift5
            SaveRecord(fileLoc_timetable, newtimetable)
            fillGrid(dgv_timetable, fileLoc_timetable)
        Else
            MsgBox("ID is not unique.")
        End If

End Sub

Private Function Check()
        If txt_timetableID.Text = "" Then
            MsgBox("please enter an timetable ID")
            Return False
        End If

If IntCheck(txt_timetableID.Text) Then
        Else
            Return False
        End If

If Not (IntCheck(txt_shiftID1.Text) AndAlso IntCheck(txt_shiftID2.Text) AndAlso IntCheck(txt_shiftID3.Text) AndAlso IntCheck(txt_shiftID4.Text) AndAlso IntCheck(txt_shiftID5.Text)) Then
            MsgBox("Please enter valid Shift IDs for all shifts")
            Return False
        End If

Return True
    End Function

Private Function shiftCreate(ByVal shiftID As String, ByVal timetableID As String, Optional staffID As String = "", Optional ShiftStart As String = "", Optional ShiftEnd As String = "")

If shiftCheck(shiftID, timetableID, staffID, ShiftStart, ShiftEnd) = False Then
            Return False
        End If

Dim newShift As String = shiftID & "," & timetableID & "," & staffID & "," & ShiftStart & "," & ShiftEnd
        SaveRecord(fileLoc_Shift, newShift)
        Return newShift

End Function

Private Function shiftCheck(ByVal shiftID As String, ByVal timetableID As String, Optional staffID As String = "", Optional ShiftStart As String = "", Optional ShiftEnd As String = "")

If Not IntCheck(shiftID) Then
            Return False
        End If

If Not IntCheck(timetableID) Then
            Return False
        End If

If Not staffID = "" Then
            BinSearch(staffID, fileLoc_Staff, 0)
        End If

If Not ShiftStart = "" AndAlso Not ShiftEnd = "" Then

Dim partStart() As String = ShiftStart.Split(":")
            Dim partEnd() As String = ShiftEnd.Split(":")

IntCheck(partStart(0))
            IntCheck(partStart(1))

IntCheck(partEnd(0))
            IntCheck(partEnd(1))

Dim hourStart As Integer = CInt(partStart(0))
            Dim minuteStart As Integer = CInt(partStart(1))
            If hourStart < 0 Or hourStart > 24 Then
                MsgBox("invalid Hour")
                Return False
            End If

If minuteStart < 0 Or minuteStart > 60 Then
                MsgBox("invalid minute")
                Return False
            End If

Dim hourEnd As Integer = CInt(partEnd(0))
            Dim minuteEnd As Integer = CInt(partEnd(1))
            If hourEnd < 0 Or hourEnd > 24 Then
                MsgBox("invalid Hour")
                Return False
            End If

If minuteEnd < 0 Or minuteEnd > 60 Then
                MsgBox("invalid minute")
                Return False
            End If

If hourStart > hourEnd Then
                Return False
            End If

If hourStart = hourEnd Then
                If minuteStart > minuteEnd Then
                    Return False
                End If
            End If

End If

If Not staffID = "" Then
            If BinSearch(staffID, fileLoc_Staff, 0) = False Then
                Return False

End If
        End If
        Return True
    End Function

Private Sub btn_edit_Click(sender As Object, e As EventArgs) Handles btn_edit.Click
        If Check() = False Then
            Return
        End If

Dim ID As Integer = txt_timetableID.Text
        Dim ServiceUse As Integer = FindField(fileLoc_timetable, txt_timetableID.Text, 8)
        Dim newValues As String = txt_timetableID.Text & "," & DTP_timetableDate.Value.Date & "," & txt_shiftID1.Text & "," & txt_shiftID2.Text & "," & txt_shiftID3.Text & "," & txt_shiftID4.Text & "," & txt_shiftID5.Text
        EditRecord(ID, newValues, fileLoc_timetable)
        fillGrid(dgv_timetable, fileLoc_timetable)

Dim Shift1 As String = txt_shiftID1.Text
        Dim Shift2 As String = txt_shiftID2.Text
        Dim Shift3 As String = txt_shiftID3.Text
        Dim Shift4 As String = txt_shiftID4.Text
        Dim Shift5 As String = txt_shiftID5.Text

shiftCheck(txt_shiftID1.Text, txt_timetableID.Text, StaffID1, txt_start1.Text, txt_end1.Text)
        Dim newShift1 As String = txt_shiftID1.Text & "," & txt_timetableID.Text & "," & StaffID1 & "," & txt_start1.Text & "," & txt_end1.Text
        EditRecord(txt_shiftID1.Text, newShift1, fileLoc_Shift)

shiftCheck(txt_shiftID2.Text, txt_timetableID.Text, StaffID2, txt_start2.Text, txt_end2.Text)
        Dim newShift2 As String = txt_shiftID2.Text & "," & txt_timetableID.Text & "," & StaffID2 & "," & txt_start2.Text & "," & txt_end2.Text
        EditRecord(txt_shiftID2.Text, newShift2, fileLoc_Shift)

shiftCheck(txt_shiftID3.Text, txt_timetableID.Text, StaffID3, txt_start3.Text, txt_end3.Text)
        Dim newShift3 As String = txt_shiftID3.Text & "," & txt_timetableID.Text & "," & StaffID3 & "," & txt_start3.Text & "," & txt_end3.Text
        EditRecord(txt_shiftID3.Text, newShift3, fileLoc_Shift)

shiftCheck(txt_shiftID4.Text, txt_timetableID.Text, StaffID4, txt_start4.Text, txt_end4.Text)
        Dim newShift4 As String = txt_shiftID4.Text & "," & txt_timetableID.Text & "," & StaffID4 & "," & txt_start4.Text & "," & txt_end4.Text
        EditRecord(txt_shiftID4.Text, newShift4, fileLoc_Shift)

shiftCheck(txt_shiftID5.Text, txt_timetableID.Text, StaffID5, txt_start5.Text, txt_end5.Text)
        Dim newShift5 As String = txt_shiftID5.Text & "," & txt_timetableID.Text & "," & StaffID5 & "," & txt_start5.Text & "," & txt_end5.Text
        EditRecord(txt_shiftID5.Text, newShift5, fileLoc_Shift)

End Sub
    Private Sub btn_delete_Click(sender As Object, e As EventArgs) Handles btn_delete.Click
        If txt_timetableID.Text = "" Then
            Return
        End If
        Dim appID As Integer = txt_timetableID.Text
        DeleteRecord(dgv_timetable, fileLoc_timetable, appID)

fillGrid(dgv_timetable, fileLoc_timetable)
    End Sub

Private Sub btn_menu_Click(sender As Object, e As EventArgs) Handles btn_menu.Click
        Me.Visible = False
        myMenu.Visible = True
    End Sub

' Takes the when a box is clicked or ID is placed to put the staff name from the staff text file
    Private Sub txt_staffname1_Click(sender As Object, e As EventArgs) Handles txt_staffname1.Click
        txt_staffname1.Text = Decryption(FindField(fileLoc_Staff, txt_staffID1.Text, 1))
    End Sub

Private Sub txt_staffname2_Click(sender As Object, e As EventArgs) Handles txt_staffname1.Click
        txt_staffname2.Text = Decryption(FindField(fileLoc_Staff, txt_staffID2.Text, 1))
    End Sub
    Private Sub txt_staffname3_Click(sender As Object, e As EventArgs) Handles txt_staffname1.Click
        txt_staffname3.Text = Decryption(FindField(fileLoc_Staff, txt_staffID3.Text, 1))
    End Sub
    Private Sub txt_staffname4_Click(sender As Object, e As EventArgs) Handles txt_staffname1.Click
        txt_staffname4.Text = Decryption(FindField(fileLoc_Staff, txt_staffID4.Text, 1))
    End Sub
    Private Sub txt_staffname5_Click(sender As Object, e As EventArgs) Handles txt_staffname1.Click
        txt_staffname5.Text = Decryption(FindField(fileLoc_Staff, txt_staffID5.Text, 1))
    End Sub

Private Sub txt_staffID1_TextChanged(sender As Object, e As EventArgs) Handles txt_staffID1.TextChanged
        txt_staffname1.Text = Decryption(FindField(fileLoc_Staff, txt_staffID1.Text, 1))
    End Sub

Private Sub txt_staffID2_TextChanged(sender As Object, e As EventArgs) Handles txt_staffID2.TextChanged
        txt_staffname2.Text = Decryption(FindField(fileLoc_Staff, txt_staffID2.Text, 1))
    End Sub

Private Sub txt_staffID3_TextChanged(sender As Object, e As EventArgs) Handles txt_staffID3.TextChanged
        txt_staffname3.Text = Decryption(FindField(fileLoc_Staff, txt_staffID3.Text, 1))
    End Sub

Private Sub txt_staffID4_TextChanged(sender As Object, e As EventArgs) Handles txt_staffID4.TextChanged
        txt_staffname4.Text = Decryption(FindField(fileLoc_Staff, txt_staffID4.Text, 1))
    End Sub

Private Sub txt_staffID5_TextChanged(sender As Object, e As EventArgs) Handles txt_staffID5.TextChanged
        txt_staffname5.Text = Decryption(FindField(fileLoc_Staff, txt_staffID5.Text, 1))
    End Sub
End Class