Untitled

Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Runtime.Serialization

Public Class mjrCheckIn
    Dim mjrReservation As CReservation
    Dim input As FileStream
    Dim reader As BinaryFormatter
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
        mjrMainSwitchBoard.Show()
    End Sub

    Private Sub mjrCheckIn_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        reader = New BinaryFormatter()
        input = New FileStream("Reservation", FileMode.Open, FileAccess.Read)
        ' Dim mjrReservation As CReservation
        Try
            ' If cmbConfirmationNum.Text = mjrReservation.ConfirmationNumber Then
            While True
                mjrReservation = CType(reader.Deserialize(input), CReservation)
                cmbConfirmationNum.Items.Add(mjrReservation.ConfirmationNumber)
            End While
            ' End If
        Catch serializableException As SerializationException
            input.Close()


            txtGuestName.Clear()
            txtGuestPhone.Clear()
            txtNumberGuests.Clear()
            txtRoomAssigned.Clear()
            calAriving.Clear()
            calAriving.Clear()
            calDeparting.Clear()

            MessageBox.Show("No more records in file", "", _
            MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Private Sub cmbConfirmationNum_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbConfirmationNum.SelectedIndexChanged
        If cmbConfirmationNum.SelectedIndex = mjrReservation.ConfirmationNumber Then
            txtGuestName.Text = mjrReservation.GuestName
            txtGuestPhone.Text = mjrReservation.Phone
            txtNumberGuests.Text = mjrReservation.NumberOfGuests
            txtRoomAssigned.Text = mjrReservation.RoomAssigned
            txtDailyRate.Text = mjrReservation.DailyRate
            calAriving.Text = mjrReservation.DateArriving
            calDeparting.Text = mjrReservation.DateDeparting
            txtConNum.Text = mjrReservation.ConfirmationNumber
        End If
    End Sub
End Class