Imports System.IO
Public Class myTreatment
    Private Sub mytreatment_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        StartPosition = FormStartPosition.CenterScreen
        fillGrid(dgv_treatment, fileLoc_treatment)

        txt_treatmentID.BackColor = gray
        txt_productID.BackColor = gray
        txt_treatmentName.BackColor = gray
        txt_price.BackColor = gray
        txt_product.BackColor = gray
        txt_time.BackColor = gray
        txt_treatmentDesc.BackColor = gray
    End Sub

    Private Sub fillText(ByVal rowIndex As Integer)

        txt_treatmentID.Text = dgv_treatment.Rows(rowIndex).Cells(0).Value
        txt_productID.Text = dgv_treatment.Rows(rowIndex).Cells(1).Value
        txt_treatmentName.Text = dgv_treatment.Rows(rowIndex).Cells(2).Value
        txt_price.Text = dgv_treatment.Rows(rowIndex).Cells(3).Value
        txt_product.Text = FindField(fileLoc_Product, txt_productID.Text, 2)
        txt_time.Text = dgv_treatment.Rows(rowIndex).Cells(4).Value
        txt_treatmentDesc.Text = dgv_treatment.Rows(rowIndex).Cells(5).Value
    End Sub

    Private Sub clearText()
        txt_treatmentID.Text = ""
        txt_productID.Text = ""
        txt_treatmentName.Text = ""
        txt_price.Text = ""
        txt_product.Text = ""
        txt_time.Text = ""
        txt_treatmentDesc.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_treatment)
        fillText(dgvNavigator.CurrentIndex)
    End Sub

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

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

    Private Sub btn_last_Click(sender As Object, e As EventArgs) Handles btn_last.Click
        dgvNavigator.SelectLast(dgv_treatment)
        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_treatment)
        txt_treatmentID.Text = newID
    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 treatmentID As Integer = txt_treatmentID.Text


        If UniqueCheck(treatmentID, fileLoc_treatment) Then
            Dim newValus As String = (txt_treatmentID.Text + "," + txt_productID.Text + "," + txt_treatmentName.Text + "," + txt_price.Text + "," + txt_time.Text + "," + txt_treatmentDesc.Text)
            SaveRecord(fileLoc_treatment, newValus)
            fillGrid(dgv_treatment, fileLoc_treatment)
        Else
            MsgBox("ID is not unique.")
        End If
        'check presence of supplier ID in Supplier ID file
    End Sub

    Private Function Check()

        ' Presence check for the treatment ID
        If txt_treatmentID.Text = "" Then
            MsgBox("Please enter a treatment ID")
            Return False
        End If

        ' Integer check on the treatment ID
        If Not IntCheck(txt_treatmentID.Text) Then
            MsgBox("Please enter a valid treatment ID")
            Return False
        End If

        ' Integer check on the product ID
        If Not IntCheck(txt_productID.Text) Then
            MsgBox("Please enter a valid Product ID")
            Return False
        End If

        ' Verifying the product ID
        Dim productID As Integer = txt_productID.Text
        If BinSearch(productID, fileLoc_Product, 0) = False Then
            MsgBox("invalid Product ID")
            Return False
        End If

        ' Length (and presence) check on the treatment name
        If txt_treatmentName.Text.Length < 2 Or txt_treatmentName.Text.Length > 20 Then
            MsgBox("treatment name invalid, must be between 3 and 19 characters")
            Return False
        End If

        ' Integer check on the price to avoid crash when converting
        IntCheck(txt_price.Text)
        Dim Price As Integer = txt_price.Text
        If Price < 0 Or Price > 200 Then
            MsgBox("Invalid Price, must be between 0 and 200 (pounds)")
            Return False
        End If

        ' Integer time on the price to avoid crash when converting
        IntCheck(txt_time.Text)
        Dim Time As Integer = txt_time.Text
        If Time < 0 Or Time > 200 Then
            MsgBox("Service time invalid, must be between 0 and 200 (minutes)")
            Return False
        End If

        ' Length (and presence) check on the treatment description
        If txt_treatmentDesc.Text.Length < 10 Or txt_treatmentDesc.Text.Length > 200 Then
            MsgBox("Invalid service description, must be between 0 and 200 characters")
            Return False
        End If

        Return True

    End Function

    Private Sub btn_edit_Click(sender As Object, e As EventArgs) Handles btn_edit.Click
        ' Checks data to ensure validity
        If Check() = False Then
            Return
        End If
        Dim ID As Integer = txt_treatmentID.Text
        Dim newValues As String = (txt_treatmentID.Text + "," + txt_productID.Text + "," + txt_treatmentName.Text + "," + txt_price.Text + "," + txt_time.Text + "," + txt_treatmentDesc.Text)
        EditRecord(ID, newValues, fileLoc_treatment)
        fillGrid(dgv_treatment, fileLoc_treatment)

    End Sub

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

        If txt_treatmentID.Text = "" Then
            MsgBox("Please enter a treatment ID")
            Return
        End If

        Dim treatmentID As Integer = txt_treatmentID.Text
        DeleteRecord(dgv_treatment, fileLoc_treatment, treatmentID)
        fillGrid(dgv_treatment, fileLoc_treatment)

    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

    Private Sub txt_productID_TextChanged(sender As Object, e As EventArgs) Handles txt_productID.TextChanged
        txt_product.Text = FindField(fileLoc_Product, txt_productID.Text, 2)
    End Sub

    ' Sorts

    ' Treatment ID Ascending/Descending
    ' Product ID Ascending/Descending
    ' Price Ascending/Descending
    ' Time Ascending/Descending
    Private Sub btn_TreIdAsc_Click(sender As Object, e As EventArgs) Handles btn_TreIdAsc.Click
        AscSort(fileLoc_treatment, 0)
        fillGrid(dgv_treatment, fileLoc_treatment)
    End Sub

    Private Sub btn_TreIdDesc_Click(sender As Object, e As EventArgs) Handles btn_TreIdDesc.Click
        DescSort(fileLoc_treatment, 0)
        fillGrid(dgv_treatment, fileLoc_treatment)
    End Sub

    Private Sub btn_prodAsc_Click(sender As Object, e As EventArgs) Handles btn_prodAsc.Click
        AscSort(fileLoc_treatment, 1)
        fillGrid(dgv_treatment, fileLoc_treatment)
    End Sub

    Private Sub btn_prodDesc_Click(sender As Object, e As EventArgs) Handles btn_prodDesc.Click
        DescSort(fileLoc_treatment, 1)
        fillGrid(dgv_treatment, fileLoc_treatment)
    End Sub

    Private Sub btn_priAsc_Click(sender As Object, e As EventArgs) Handles btn_priAsc.Click
        AscSort(fileLoc_treatment, 3)
        fillGrid(dgv_treatment, fileLoc_treatment)
    End Sub

    Private Sub btn_priDesc_Click(sender As Object, e As EventArgs) Handles btn_priDesc.Click
        DescSort(fileLoc_treatment, 3)
        fillGrid(dgv_treatment, fileLoc_treatment)
    End Sub

    Private Sub btn_timeAsc_Click(sender As Object, e As EventArgs) Handles btn_timeAsc.Click
        AscSort(fileLoc_treatment, 4)
        fillGrid(dgv_treatment, fileLoc_treatment)
    End Sub

    Private Sub btn_timeDesc_Click(sender As Object, e As EventArgs) Handles btn_timeDesc.Click
        DescSort(fileLoc_treatment, 4)
        fillGrid(dgv_treatment, fileLoc_treatment)
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Visible = False
        myService.Visible = True
    End Sub
End Class