Visual Studio 2010旗舰版的VB.NET版本酒店管理系统的窗体应用程序

Public Class Form1

' 定义客房类
Class Room
    Public RoomNumber As Integer
    Public RoomType As String
    Public IsOccupied As Boolean
    Public GuestName As String
End Class

' 客房列表
Private rooms As New List(Of Room)

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' 初始化一些客房数据
    rooms.Add(New Room With {.RoomNumber = 101,.RoomType = "单人间",.IsOccupied = False,.GuestName = ""})
    rooms.Add(New Room With {.RoomNumber = 102,.RoomType = "双人间",.IsOccupied = False,.GuestName = ""})
    rooms.Add(New Room With {.RoomNumber = 103,.RoomType = "套房",.IsOccupied = False,.GuestName = ""})

    ' 初始化界面元素
    Button1.Text = "办理入住"
    Button2.Text = "办理退房"
    Button3.Text = "查看客房状态"
    Button4.Text = "继续"
    Button5.Text = "退出"
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    ' 办理入住的逻辑
    Dim roomNumber As Integer = CInt(InputBox("请输入要入住的房间号码"))

    Dim foundRoom As Room = Nothing
    For Each room In rooms
        If room.RoomNumber = roomNumber Then
            foundRoom = room
            Exit For
        End If
    Next

    If foundRoom IsNot Nothing AndAlso Not foundRoom.IsOccupied Then
        foundRoom.IsOccupied = True
        foundRoom.GuestName = InputBox("请输入客人姓名")
        MessageBox.Show("入住办理成功！")
    ElseIf foundRoom IsNot Nothing And foundRoom.IsOccupied Then
        MessageBox.Show("该房间已被占用。")
    Else
        MessageBox.Show("未找到该房间。")
    End If
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    ' 办理退房的逻辑
    Dim roomNumber As Integer = CInt(InputBox("请输入要退房的房间号码"))

    Dim foundRoom As Room = Nothing
    For Each room In rooms
        If room.RoomNumber = roomNumber Then
            foundRoom = room
            Exit For
        End If
    Next

    If foundRoom IsNot Nothing And foundRoom.IsOccupied Then
        foundRoom.IsOccupied = False
        foundRoom.GuestName = ""
        MessageBox.Show("退房办理成功！")
    ElseIf foundRoom IsNot Nothing And Not foundRoom.IsOccupied Then
        MessageBox.Show("该房间未被占用，无需退房。")
    Else
        MessageBox.Show("未找到该房间。")
    End If
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    ' 查看客房状态的逻辑
    Dim statusText As String = "客房状态：" & vbCrLf
    For Each room In rooms
        statusText &= $"房间号：{room.RoomNumber}，类型：{room.RoomType}，是否被占用：{room.IsOccupied}，客人姓名：{room.GuestName}" & vbCrLf
    Next
    MessageBox.Show(statusText)
End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    ' 继续（返回主菜单）的逻辑
    MessageBox.Show("返回主菜单")
End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    ' 退出的逻辑
    Me.Close()
End Sub

End Class