Imports System.IO
Imports System.Runtime.Remoting

Public Class myService
Private Sub myService_Load(sender As Object, e As EventArgs) Handles MyBase.Load
fillGrid(dgv_service, FileLoc_Service)
StartPosition = FormStartPosition.CenterScreen

txt_serviceID.BackColor = gray
txt_productID.BackColor = gray
txt_serviceName.BackColor = gray
txt_price.BackColor = gray
txt_product.BackColor = gray
txt_time.BackColor = gray
txt_serviceDesc.BackColor = gray

End Sub

Private Sub fillText(ByVal rowIndex As Integer)
txt_serviceID.Text = dgv_service.Rows(rowIndex).Cells(0).Value
txt_serviceName.Text = dgv_service.Rows(rowIndex).Cells(2).Value
txt_productID.Text = dgv_service.Rows(rowIndex).Cells(1).Value
txt_price.Text = dgv_service.Rows(rowIndex).Cells(3).Value
txt_product.Text = FindField(fileLoc_Product, txt_productID.Text, 2)
txt_time.Text = dgv_service.Rows(rowIndex).Cells(4).Value
txt_serviceDesc.Text = dgv_service.Rows(rowIndex).Cells(5).Value
End Sub

Private Sub clearText()
txt_serviceID.Text = ""
txt_productID.Text = ""
txt_serviceName.Text = ""
txt_price.Text = ""
txt_product.Text = ""
txt_time.Text = ""
txt_serviceDesc.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_service)
fillText(dgvNavigator.CurrentIndex)
End Sub

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

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

Private Sub btn_last_Click(sender As Object, e As EventArgs) Handles btn_last.Click
dgvNavigator.SelectLast(dgv_service)
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_Service)
txt_serviceID.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 serviceID As Integer = txt_serviceID.Text

If UniqueCheck(serviceID, FileLoc_Service) Then
Dim newservice As String = (txt_serviceID.Text + "," + txt_productID.Text + "," + txt_serviceName.Text + "," + txt_price.Text + "," + txt_time.Text + "," + txt_serviceDesc.Text)
SaveRecord(FileLoc_Service, newservice)
fillGrid(dgv_service, FileLoc_Service)
Else
MsgBox("ID is not unique.")
End If
'check presence of supplier ID in Supplier ID file
End Sub

Private Function Check()

' Presence check on the service ID textbox
If txt_serviceID.Text = "" Then
MsgBox("Please enter a service ID")
Return False
End If

' Checks that the ID entered is an integer
If Not IntCheck(txt_serviceID.Text) Then
MsgBox("Please enter a valid service ID")
Return False
End If

' Checks that the product ID is an integer
If Not IntCheck(txt_productID.Text) Then
MsgBox("Please enter a valid Product ID")
Return False
End If

' After checking that it is an integer, it is converted to a variable that is an integer, checking first avoids crashes
Dim productID As Integer = txt_productID.Text
If BinSearch(productID, fileLoc_Product, 0) = False Then
MsgBox("invalid Product ID")
Return False
End If

' Checks the legnth of the services name, must be within the boundaries
If txt_serviceName.Text.Length < 3 Or txt_serviceName.Text.Length > 20 Then
MsgBox("Service name invalid, must be between 3 and 20 characters")
Return False
End If

' Checks that the price is an integer before attempting to convert
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

' Checks that the time is an integer before attempting to convert
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

' Sets a boundary for the lengths of service description
If txt_serviceDesc.Text.Length < 0 Or txt_serviceDesc.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
If Check() = False Then
Return
End If
' Checks new data before making adjustments
Dim ID As Integer = txt_serviceID.Text
Dim newValues As String = (txt_serviceID.Text + "," + txt_productID.Text + "," + txt_serviceName.Text + "," + txt_price.Text + "," + txt_time.Text + "," + txt_serviceDesc.Text)
EditRecord(ID, newValues, FileLoc_Service)
fillGrid(dgv_service, FileLoc_Service)
End Sub

Private Sub btn_delete_Click(sender As Object, e As EventArgs) Handles btn_delete.Click
If IntCheck(txt_serviceID.Text) = False Then
Return

End If
Dim serviceID As Integer = txt_serviceID.Text
DeleteRecord(dgv_service, FileLoc_Service, serviceID)
fillGrid(dgv_service, FileLoc_Service)
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 btn_SerIdAsc_Click(sender As Object, e As EventArgs) Handles btn_SerIdAsc.Click
AscSort(FileLoc_Service, 0)
fillGrid(dgv_service, FileLoc_Service)
End Sub

Private Sub btn_SerIdDesc_Click(sender As Object, e As EventArgs) Handles btn_SerIdDesc.Click
DescSort(FileLoc_Service, 0)
fillGrid(dgv_service, FileLoc_Service)
End Sub

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

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

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

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

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

Private Sub btn_timeDesc_Click(sender As Object, e As EventArgs) Handles btn_timeDesc.Click
DescSort(FileLoc_Service, 4)
fillGrid(dgv_service, FileLoc_Service)
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
End Class