Anonymous

Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Runtime.Serialization
Public Class mjrCheckIn
    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 btnCheckIn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheckIn.Click
        input = New FileStream("Reservation", FileMode.Open, FileAccess.Read)
        Try
            Dim mjrReservation As CReservation = CType(reader.Deserialize(input), CReservation)
            If txtConNum.Text = 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

        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 mjrCheckIn_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        reader = New BinaryFormatter()
    End Sub

    Private Sub cmbConfirmationNum_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbConfirmationNum.SelectedIndexChanged
    End Sub
End Class