Imports System.IO

Imports File = System.IO.File

Public Class myAppointment
Private Sub myStaff_Load(sender As Object, e As EventArgs) Handles MyBase.Load
fillGrid(dgv_appointment, fileLoc_Appointment)
' fills the grid when the user loadths form

' StartPosition = FormStartPosition.CenterScreen
' centering of screen occurs in design code


' sets the colours for the textbox using the values from my design
txt_appID.BackColor = gray
txt_staffID.BackColor = gray
txt_cusID.BackColor = gray
txt_cusName.BackColor = gray
txt_staffIDApp.BackColor = gray
txt_staffNameApp.BackColor = gray
DTP_Appointment.BackColor = gray
DTP_booking.BackColor = gray
txt_tOA.BackColor = gray
txt_treatmentID.BackColor = gray
txt_service1.BackColor = gray
txt_service2.BackColor = gray
txt_service3.BackColor = gray
txt_serviceName1.BackColor = gray
txt_serviceName2.BackColor = gray
txt_serviceName3.BackColor = gray
End Sub

Private Sub fillText(ByVal rowIndex As Integer)
txt_appID.Text = dgv_appointment.Rows(rowIndex).Cells(0).Value
txt_staffID.Text = dgv_appointment.Rows(rowIndex).Cells(1).Value
txt_cusID.Text = dgv_appointment.Rows(rowIndex).Cells(2).Value
' taking the value from current row

txt_cusName.Text = Decryption(FindField(fileLoc_Customer, txt_cusID.Text, 1)) + " " + Decryption(FindField(fileLoc_Customer, txt_cusID.Text, 2))
' combines the forename and surname from the customer file for the customer ID

txt_staffIDApp.Text = dgv_appointment.Rows(rowIndex).Cells(3).Value
' taking the value from current row

txt_staffNameApp.Text = Decryption(FindField(fileLoc_Staff, txt_staffIDApp.Text, 1)) + " " + Decryption(FindField(fileLoc_Staff, txt_staffIDApp.Text, 2))
' combines the forename and surname from the Staff file from the staff ID

' error handling for the MinValue if a date wasn't assigned, avoids crashes
If Not dgv_appointment.Rows(rowIndex).Cells(4).Value = Date.MinValue Then
DTP_booking.Value = dgv_appointment.Rows(rowIndex).Cells(4).Value
DTP_Appointment.Value = dgv_appointment.Rows(rowIndex).Cells(5).Value
' taking the value from current row
End If
txt_tOA.Text = dgv_appointment.Rows(rowIndex).Cells(6).Value
txt_treatmentID.Text = dgv_appointment.Rows(rowIndex).Cells(7).Value
' taking the value from current row


txt_treatmentName.Text = FindField(fileLoc_Appointment, txt_treatmentID.Text, 2)
' finds the name of the treatment from the file by taking the ID and searching, avoids memorising the names of the treatments

Dim ServiceUse As Integer = FindField(fileLoc_Appointment, txt_appID.Text, 8)
' Finds the service use from the appointment record, does it this way as it doesn't appear on the table
txt_service1.Text = FindField(FileLoc_ServiceUse, ServiceUse, 2)
txt_service2.Text = FindField(FileLoc_ServiceUse, ServiceUse, 3)
txt_service3.Text = FindField(FileLoc_ServiceUse, ServiceUse, 4)
' Searches the service use file with the found ID to find the appropriate service IDs

txt_serviceName1.Text = FindField(FileLoc_Service, txt_service1.Text, 2)
txt_serviceName2.Text = FindField(FileLoc_Service, txt_service2.Text, 2)
txt_serviceName3.Text = FindField(FileLoc_Service, txt_service3.Text, 2)
' Takes the name from the service file by using the ID found in the above code
End Sub




Private Sub clearText()
txt_appID.Text = ""
txt_staffID.Text = ""
txt_cusID.Text = ""
txt_cusName.Text = ""
txt_staffIDApp.Text = ""
txt_staffNameApp.Text = ""
DTP_booking.Text = ""
DTP_Appointment.Text = ""
txt_tOA.Text = ""
txt_treatmentID.Text = ""
txt_service1.Text = ""
txt_service2.Text = ""
txt_service3.Text = ""
txt_serviceName1.Text = ""
txt_serviceName2.Text = ""
txt_serviceName3.Text = ""
' Subroutine to clear all the text boxes on screen, can be called anywhere in the form
End Sub



'Navigation
Private dgvNavigator As New DataGridViewNavigator()
' Allows the form to have access to the subroutines in the class
Private Sub btn_first_Click(sender As Object, e As EventArgs) Handles btn_first.Click
dgvNavigator.SelectFirst(dgv_appointment)
fillText(dgvNavigator.CurrentIndex) ' Fills boxes with information from currently viewed record
End Sub

Private Sub btn_previous_Click(sender As Object, e As EventArgs) Handles btn_previous.Click
dgvNavigator.SelectPrevious(dgv_appointment)
fillText(dgvNavigator.CurrentIndex) ' Fills boxes with information from currently viewed record
End Sub

Private Sub btn_next_Click(sender As Object, e As EventArgs) Handles btn_next.Click
dgvNavigator.SelectNext(dgv_appointment)
fillText(dgvNavigator.CurrentIndex) ' Fills boxes with information from currently viewed record
End Sub

Private Sub btn_last_Click(sender As Object, e As EventArgs) Handles btn_last.Click
dgvNavigator.SelectLast(dgv_appointment)
fillText(dgvNavigator.CurrentIndex) ' Fills boxes with information from currently viewed record
End Sub
'----------------------------------------------------------------------------------------------'
Private Sub btn_add_Click(sender As Object, e As EventArgs) Handles btn_add.Click
clearText()
Dim newID As Integer = AddRecord(fileLoc_Appointment)
txt_appID.Text = newID
txt_staffID.Text = userID
End Sub

Private Sub btn_save_Click(sender As Object, e As EventArgs) Handles btn_save.Click
' Compiles the data to create a string that is passed onto the SaveRecord subroutine in the module

If Check() = False Then
' Runs check
Return
End If


Dim appointmentID As String = txt_appID.Text

' Services are optional additions to appointments, below creates the ServiceUse which is the way the program keeps referential integrity
Dim service1ID As String = txt_service1.Text
Dim service2ID As String = txt_service2.Text
Dim service3ID As String = txt_service3.Text

Dim serviceUserID As Integer = ServiceUseCreate(appointmentID, service1ID, service2ID, service3ID)



If UniqueCheck(appointmentID, fileLoc_Appointment) Then
' If the appointmentID is unique to the file, it will go ahead with adding the new appointment

Dim newAppointment As String = txt_appID.Text & "," & txt_staffID.Text & "," & txt_cusID.Text & "," & txt_staffIDApp.Text & "," & DTP_booking.Value.Date & "," & DTP_Appointment.Value.Date & "," & txt_tOA.Text & "," & txt_treatmentID.Text & "," & serviceUserID
' Compiles the data into a String
MsgBox(newAppointment)
' Displays the new record to the user in a MsgBox
SaveRecord(fileLoc_Appointment, newAppointment)
' Passes on new Record to SaveRecord subroutine in the module
fillGrid(dgv_appointment, fileLoc_Appointment)
' Refreshes dataGrid to show new record
Else
MsgBox("ID is not unique.")
End If

End Sub

Private Function ServiceUseCreate(ByVal AppointmentID As String, Optional Service1 As String = "-1", Optional Service2 As String = "-1", Optional Service3 As String = "-1")
Dim newID As String = AddRecord(FileLoc_ServiceUse)
'-1 representing a null answer.

Dim serviceValid As Boolean = True

serviceValid = ServiceCheck(serviceValid, Service1, Service2, Service3)
If serviceValid = True Then
' Service valid checks to see if a non null input was made into a service ID. if an attempt of adding a service was made, and it doesn't exist, it wont create the ServiceUse
Dim newServiceUse As String = newID & "," & AppointmentID & "," & Service1 & "," & Service2 & "," & Service3
SaveRecord(FileLoc_ServiceUse, newServiceUse)
Return newID
End If
Return True
End Function

Private Function ServiceCheck(ByRef ServiceValid As Boolean, Optional Service1 As String = "-1", Optional Service2 As String = "-1", Optional Service3 As String = "-1")

' Checks the validity of any Services

If Not (Service1 = "-1" Or Service1 = "") Then
If BinSearch(Service1, FileLoc_Service, 0) = False Then
serviceValid = False

End If
End If


If Not (Service2 = "-1" Or Service2 = "") Then
If BinSearch(Service2, FileLoc_Service, 0) = False Then
serviceValid = False
End If
End If

If Not (Service3 = "-1" Or Service3 = "") Then
If BinSearch(Service3, FileLoc_Service, 0) = False Then
serviceValid = False
End If
End If

Return ServiceValid

End Function

Private Function Check()

' Check is a function that changes on the form and checks each field in the forms given record
' If it can make it to the end of the function without returning a false, it is treated as valid data
If txt_appID.Text = "" Then
' Runs a presence check on the Appointment ID
MsgBox("please enter an appointment ID")
Return False
End If

If Not IntCheck(txt_appID.Text) Then
' Int checks the appointment ID
Return False
End If

Dim staffId As Integer = txt_staffID.Text
If BinSearch(staffId, fileLoc_Staff, 0) = False Then
' Checks that the staff ID exists in the text file
MsgBox("invalid Staff ID")
Return False
End If

Dim staffIdApp As Integer = txt_staffIDApp.Text
If BinSearch(staffIdApp, fileLoc_Staff, 0) = False Then
' Validates the existence of the staff ID appointed
MsgBox("invalid Appointed Staff ID")
Return False
End If

' Below looks to see if there exists a timetable on the date that the appointment is scheduled to be on

Dim index As Integer = 0
' An integer that will be incremented to go through the timetable ID's

Dim timetableTrue As Boolean = False
' Initially set as false, iterative algorithm below will have to prove that there does exist a Timetable to flip this


For Each line As String In fileLoc_timetable





Dim indString As String = CStr(index)
Dim timetableDate As Date = FindFieldButDate(fileLoc_timetable, indString, 1)
' Uses the FindFieldButDate function to return the date of the given timetable
If timetableDate = DTP_Appointment.Value.Date Then
' Compares the timetableDate to the date of the appointment, if they match, the boolean value is set to true
timetableTrue = True
Exit For
Else

index = index + 1
' Increments by 1
End If


Next

If timetableTrue = False Then
Return False
End If






Dim shift1 As Integer = FindField(fileLoc_timetable, index, 2)
Dim shift2 As Integer = FindField(fileLoc_timetable, index, 3)
Dim shift3 As Integer = FindField(fileLoc_timetable, index, 4)
Dim shift4 As Integer = FindField(fileLoc_timetable, index, 5)
Dim shift5 As Integer = FindField(fileLoc_timetable, index, 6)


Dim StaffShift As Integer = 0

' When it is established that there is a timetable on the date, the code below checks each of 5 shifts on the timetable to see if the staff is assigned to one of them
' If the staff member is, the integer staff shift will hold the shift ID that contains the start and finish time of the shift
If txt_staffIDApp.Text = FindField(fileLoc_Shift, shift1, 2) Then
StaffShift = shift1
End If

If txt_staffIDApp.Text = FindField(fileLoc_Shift, shift2, 2) Then
StaffShift = shift2
End If

If txt_staffIDApp.Text = FindField(fileLoc_Shift, shift3, 2) Then
StaffShift = shift3
End If

If txt_staffIDApp.Text = FindField(fileLoc_Shift, shift4, 2) Then
StaffShift = shift4
End If

If txt_staffIDApp.Text = FindField(fileLoc_Shift, shift5, 2) Then
StaffShift = shift5
End If

If StaffShift = 0 Then
' this will happen if the staff ID is not associated with any of the shifts
Return False
End If

'if this point is reached, there is a timetable that is on the day of the appointment, and the staff id appointed is on a shift during that time,
'below is checking that the time of the appointment is within the bounds of the shift

Dim part() As String = txt_tOA.Text.Split(":")
IntCheck(part(0))
IntCheck(part(1))
Dim hour As Integer = CInt(part(0))
Dim minute As Integer = CInt(part(1))
If hour < 0 Or hour > 24 Then
' Format Checking of the time
MsgBox("invalid Hour")
Return False
End If

If minute < 0 Or minute > 60 Then
' Format Checking of the time
MsgBox("invalid minute")
Return False
End If


Dim shiftStart As String = FindField(fileLoc_Shift, StaffShift, 3)
Dim shiftEnd As String = FindField(fileLoc_Shift, StaffShift, 4)


Dim partStart() As String = shiftStart.Split(":")
' Splits the time into two spots in an array, 0 being the hour and 1 being the minutes
Dim partEnd() As String = shiftEnd.Split(":")


If Not (part(0) > partStart(0) AndAlso part(0) < partEnd(0)) Then
' Not logic applied on top of a check if the time is within the bounds of the shift
MsgBox("Time of appointment is outside the shift bounds")
Return False
End If

If part(0) < partStart(0) OrElse (part(0) = partStart(0) AndAlso part(1) < partStart(1)) Then
' Checks to see if the appointment hour is before the start of the shift, or if it the same hour, but the minute is before the shift
Return False
End If


Dim CusId As Integer = txt_cusID.Text
If BinSearch(CusId, fileLoc_Customer, 0) = False Then
' Validates the existence of the customer id
MsgBox("invalid Customer ID")
Return False
End If

Dim treatmentID As Integer = txt_treatmentID.Text
If BinSearch(treatmentID, fileLoc_treatment, 0) = False Then
MsgBox("invalid Treatment ID")
Return False
End If

Dim booking As String = DTP_booking.Value.Date
Dim Appointment As String = DTP_Appointment.Value.Date

Dim BookingParts As String() = booking.Split("/")
Dim AppointmentParts As String() = Appointment.Split("/")
'part 0 is day, 1 is month, 2 is year

If CInt(BookingParts(2)) > CInt(AppointmentParts(2)) Then
MsgBox("Year of booking is later than year of appointment")
Return False
End If

If CInt(BookingParts(2)) < CInt(AppointmentParts(2)) Then
' If the year of the appointment is after the year of the booking, the month and day are irrelevant, hence making checking them unnecessary
GoTo postdate
End If

If CInt(BookingParts(1)) > CInt(AppointmentParts(1)) Then
MsgBox("Month of booking is later than month of appointment")
Return False
End If

If CInt(BookingParts(1)) < CInt(AppointmentParts(1)) Then
' If the month of the appointment is after the month of booking, then checking the day is irrelevant
GoTo postdate
End If

If CInt(BookingParts(0)) > CInt(AppointmentParts(0)) Then
MsgBox("Day of booking is later than day of appointment")
Return False
End If

If txt_tOA.Text.Length > 5 Then
MsgBox("Invalid time of appointment")
Return False
End If
postdate: ' Is reached if the year is greater or the month is greater
' The Idea is that if the year or month is greater, the date is irrelevent.



Return True




End Function




Private Sub btn_edit_Click(sender As Object, e As EventArgs) Handles btn_edit.Click

If Check() = False Then
' Checks the new information
Return
End If



Dim ID As Integer = txt_appID.Text
Dim ServiceUse As Integer = FindField(fileLoc_Appointment, txt_appID.Text, 8)
Dim newValues As String = txt_appID.Text & "," & txt_staffID.Text & "," & txt_cusID.Text & "," & txt_staffIDApp.Text & "," & DTP_booking.Value.Date & "," & DTP_Appointment.Value.Date & "," & txt_tOA.Text & "," & txt_treatmentID.Text & "," & ServiceUse
' Compiles the TextBox inputs as a string called newValues, that is passed onto the EditRecord along with the primary key ID that is used to find the record that is being edited
EditRecord(ID, newValues, fileLoc_Appointment)
fillGrid(dgv_appointment, fileLoc_Appointment)
' Grid is refreshed to show new changed


Dim service1 As String = txt_service1.Text
Dim service2 As String = txt_service2.Text
Dim service3 As String = txt_service3.Text

Dim IDString As String = CStr(ID)
' Converts the ID of the appoint to a string to be treated as a string in the editing of a record
Dim serviceValid As Boolean = True
serviceValid = ServiceCheck(serviceValid, service1, service2, service3)
' Checks the validity of any services added to the appointment

If serviceValid = True Then
' Edits the ServiceUse to reflect and additions and removals of services to the file
Dim newServiceUse As String = ServiceUse & "," & IDString & "," & service1 & "," & service2 & "," & service3
EditRecord(ServiceUse, newServiceUse, FileLoc_ServiceUse)
End If

End Sub
Private Sub btn_delete_Click(sender As Object, e As EventArgs) Handles btn_delete.Click
If txt_appID.Text = "" Then
' Avoids a crash if a blank ID is input
Return
End If
Dim appID As Integer = txt_appID.Text
' Gives an integer value for the record that the user is trying to delete

DeleteRecord(dgv_appointment, fileLoc_Appointment, appID)

fillGrid(dgv_appointment, fileLoc_Appointment)
' Refreshes grid
End Sub

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

'' Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

'' Dim Customername As String = InputBox("please enter the customer name to search for appointments under that name")
'gets the name that is being searched

'' Dim customerIDs As List(Of String) = LikeSearch(Customername, fileLoc_Customer, 1)
'Searches for the name, if it matches (LIKE Logic) then it will store it in the string

''Dim AppointmentIDs As List(Of String) = LikeSearch2(customerIDs, fileLoc_Appointment, 2)
'' Console.WriteLine(AppointmentIDs)
'' Console.WriteLine(customerIDs)
'' ShowOnGrid(AppointmentIDs, dgv_appointment)


'' End Sub


''Public Function LikeSearch(Field As Object, fileloc As String, part As Int16)


'' Dim sr As New StreamReader(fileloc)
'sets up a variable to read the wanted file
'' Dim lines As String() = File.ReadAllLines(fileloc)
'stores all the lines in the file
'' Dim searchedIDs As New List(Of String)
'creates a new list the stores all the IDs

''For Each line As String In lines
'' Dim parts As String() = line.Split(","c)
'splits each record by the commas
''If Field Like parts(part) Then
'' searchedIDs.Add(parts(0))
'adds the ID to the list
' ' End If


' ' Next

'' sr.Close()

'' Return searchedIDs

'' End Function


'
'' Public Sub ShowOnGrid(Ids As Object, dgv As DataGridView)

' ' For Each row As DataGridViewRow In dgv.Rows
''If Not row.IsNewRow Then

''Dim ID As String = row.Cells(0).Value.ToString()
'splits each record by the commas
''If Ids.contains(ID) Then
'' row.Visible = True
'adds the ID to the list
''Else
' ' row.Visible = False

' 'End If

''End If
' 'Next

''End Sub



Private Sub Button6_Click(sender As Object, e As EventArgs)
'Brings up the help tab
myHelp.Visible = True
End Sub

Private Sub txt_cusID_TextChanged(sender As Object, e As EventArgs) Handles txt_cusID.TextChanged
' When an ID is put in the appointed customer, the name is automatically placed
txt_cusName.Text = Decryption(FindField(fileLoc_Customer, txt_cusID.Text, 1)) + " " + Decryption(FindField(fileLoc_Customer, txt_cusID.Text, 2))
End Sub

Private Sub txt_staffIDApp_TextChanged(sender As Object, e As EventArgs) Handles txt_staffIDApp.TextChanged
' When an ID is put in the appointed staff, the name is automatically placed
txt_staffNameApp.Text = Decryption(FindField(fileLoc_Staff, txt_staffIDApp.Text, 1)) + " " + Decryption(FindField(fileLoc_Staff, txt_staffIDApp.Text, 2))
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btn_AppIDAsc.Click
' Sorts appointments by ID ascending
AscSort(fileLoc_Appointment, 0)
fillGrid(dgv_appointment, fileLoc_Appointment)
End Sub

Private Sub btn_appIDDesc_Click(sender As Object, e As EventArgs) Handles btn_appIDDesc.Click
' Sorts appointments by ID Descending
DescSort(fileLoc_Appointment, 0)
fillGrid(dgv_appointment, fileLoc_Appointment)
End Sub
End Class