Revise paste ac8f55d3f6bd5

Imports System.IO
Public Class mySupplier
    Private Sub mySupplier_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        fillGrid(dgv_supplier, fileLoc_Supplier)
        StartPosition = FormStartPosition.CenterScreen

txt_supplierID.BackColor = gray
        txt_supplierName.BackColor = gray
        txt_nOPS.BackColor = gray
    End Sub

Private Sub fillText(ByVal rowIndex As Integer)
        If dgv_supplier.Rows.Count = 0 Then
            Return
        End If
        txt_supplierID.Text = dgv_supplier.Rows(rowIndex).Cells(0).Value
        txt_supplierName.Text = dgv_supplier.Rows(rowIndex).Cells(1).Value
        txt_nOPS.Text = dgv_supplier.Rows(rowIndex).Cells(2).Value
    End Sub

Private Sub clearText()
        txt_supplierID.Text = ""
        txt_supplierName.Text = ""
        txt_nOPS.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_supplier)
        fillText(dgvNavigator.CurrentIndex)
    End Sub

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

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

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

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

Dim supplierID As Integer = txt_supplierID.Text

If UniqueCheck(supplierID, fileLoc_Supplier) Then
            Dim newSupplier As String = (txt_supplierID.Text + "," + txt_supplierName.Text + "," + txt_nOPS.Text)
            SaveRecord(fileLoc_Supplier, newSupplier)
            fillGrid(dgv_supplier, fileLoc_Supplier)
        Else
            MsgBox("ID is not unique.")
        End If

End Sub

Private Function Check()

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

' Integer check on the ID
        If Not IntCheck(txt_supplierID.Text) Then
            Return False
        End If

' Length check (and presence) on the length of the supplier
        If txt_supplierName.Text.Length < 3 Or txt_supplierName.Text.Length > 20 Then
            MsgBox("Invalid Supplier name, must be between 3 and 20 characters")
            Return False
        End If

' Number of products supplied can either be blank or an integer
        If Not txt_nOPS.Text = "" Then
            If Not IntCheck(txt_nOPS.Text) 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
        ' Checks data to ensure validity
        Dim ID As Integer = txt_supplierID.Text
        Dim newValues As String = (txt_supplierID.Text + "," + txt_supplierName.Text + "," + txt_nOPS.Text)
        EditRecord(ID, newValues, fileLoc_Supplier)
        fillGrid(dgv_supplier, fileLoc_Supplier)

End Sub

Private Sub btn_delete_Click(sender As Object, e As EventArgs) Handles btn_delete.Click

Dim supplierID As Integer = txt_supplierID.Text

'Declares an array called lines, which contains every line of from the text file
        Dim lines As String() = File.ReadAllLines(fileLoc_Product)
        Dim productIDs As New List(Of String)

Dim NOPS As Integer = 0

' Does not allow a supplier to be deleted if they supply products in the system
        ' Does this by

' Splits product records by the comma
        ' Checks part 1 (supplier ID)
        ' if exists and is integer, compares to the supplier that is attempting to be deleted
        ' IF MATCH
        ' Increment Number of products supplied
        ' Add product ID to a list
        ' IF NOT MATCH
        ' Check next product
        '
        ' Done until checked every product

' THEN
        ' either no products are supplied, the supplier is deleted
        ' OR 
        ' error message telling user how many products are supplied, which ID's are supplied by the supplier
        For Each line As String In lines
            Dim parts As String() = line.Split(","c)
            If Integer.TryParse(parts(1), Nothing) AndAlso Integer.Parse(parts(1)) = supplierID Then
                NOPS = NOPS + 1
                productIDs.Add(parts(0))
            End If
        Next

If NOPS = 0 Then
            DeleteRecord(dgv_supplier, fileLoc_Supplier, supplierID)
            fillGrid(dgv_supplier, fileLoc_Supplier)
        Else
            MsgBox("This supplier supplies " & NOPS & " products, you must remove these products before deleting the supplier:" & String.Join(", ", productIDs))
        End If

End Sub

Private Sub btn_nOPS_Click(sender As Object, e As EventArgs) Handles btn_nOPS.Click
        Check()
        Dim supplierID As Integer = txt_supplierID.Text

'Declares an array called lines, which contains every line of from the text file
        Dim lines As String() = File.ReadAllLines(fileLoc_Product)

Dim NOPS As Integer = 0

' Checks each product in product file
        ' Splits by ,
        ' If supplier ID field corresponds to the queried supplier
        ' Increment Number of Products Supplied (NOPS)
        ' Edit record to display the NOPS

For Each line As String In lines
            Dim parts As String() = line.Split(","c)
            If Integer.TryParse(parts(1), Nothing) AndAlso Integer.Parse(parts(1)) = supplierID Then
                NOPS = NOPS + 1
            End If
        Next

txt_nOPS.Text = NOPS

Dim ID As Integer = txt_supplierID.Text
        Dim newValues As String = (txt_supplierID.Text + "," + txt_supplierName.Text + "," + txt_nOPS.Text)
        EditRecord(ID, newValues, fileLoc_Supplier)
        fillGrid(dgv_supplier, fileLoc_Supplier)

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

'Sorts

' Supplier ID Ascending
    ' Supplier ID Descending

' Number of products supplied Ascending
    ' Number of products supplied Descending

Private Sub btn_suppIdAsc_Click(sender As Object, e As EventArgs) Handles btn_suppIdAsc.Click
        AscSort(fileLoc_Supplier, 0)
        fillGrid(dgv_supplier, fileLoc_Supplier)
    End Sub

Private Sub btn_suppIdDesc_Click(sender As Object, e As EventArgs) Handles btn_suppIdDesc.Click
        DescSort(fileLoc_Supplier, 0)
        fillGrid(dgv_supplier, fileLoc_Supplier)
    End Sub

Private Sub btn_NopsAsc_Click(sender As Object, e As EventArgs) Handles btn_NopsAsc.Click
        AscSort(fileLoc_Supplier, 2)
        fillGrid(dgv_supplier, fileLoc_Supplier)
    End Sub

Private Sub btn_NopsDesc_Click(sender As Object, e As EventArgs) Handles btn_NopsDesc.Click
        DescSort(fileLoc_Supplier, 2)
        fillGrid(dgv_supplier, fileLoc_Supplier)
    End Sub

End Class