📄 frmroominfo.frm
字号:
VERSION 5.00
Begin VB.Form frmRoomInfo
Caption = "查询房间信息"
ClientHeight = 5760
ClientLeft = 60
ClientTop = 450
ClientWidth = 5580
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 5760
ScaleWidth = 5580
StartUpPosition = 2 'CenterScreen
Begin VB.Frame Frame2
Height = 975
Left = 840
TabIndex = 9
Top = 2880
Width = 3855
Begin VB.CommandButton cmdAllRoominfo
Caption = "查看所有房间信息"
Height = 495
Left = 2040
TabIndex = 11
Top = 360
Width = 1695
End
Begin VB.CommandButton cmdExit
Caption = "退出"
Height = 495
Left = 120
TabIndex = 10
Top = 360
Width = 1695
End
End
Begin VB.Frame Frame1
Caption = "房间信息"
Height = 1455
Left = 840
TabIndex = 2
Top = 1440
Width = 3855
Begin VB.Label labName
AutoSize = -1 'True
Caption = "Label7"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 1560
TabIndex = 14
Top = 2280
Width = 705
End
Begin VB.Label labCustName
AutoSize = -1 'True
Caption = "labCustName"
Height = 195
Left = 240
TabIndex = 13
Top = 2280
Width = 945
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "元"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF00FF&
Height = 240
Left = 1440
TabIndex = 12
Top = 465
Visible = 0 'False
Width = 195
End
Begin VB.Label labDate
AutoSize = -1 'True
Caption = "日期"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 1200
TabIndex = 8
Top = 1680
Width = 390
End
Begin VB.Label labRoomStatus
AutoSize = -1 'True
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 1200
TabIndex = 7
Top = 1057
Width = 60
End
Begin VB.Label labCharge
AutoSize = -1 'True
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF00FF&
Height = 240
Left = 1200
TabIndex = 6
Top = 480
Width = 60
End
Begin VB.Label label4
AutoSize = -1 'True
Caption = "labdate"
Height = 195
Left = 240
TabIndex = 5
Top = 1680
Width = 525
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "房间状态:"
Height = 195
Left = 240
TabIndex = 4
Top = 1080
Width = 765
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "每晚价格:"
Height = 195
Left = 240
TabIndex = 3
Top = 480
Width = 765
End
End
Begin VB.ComboBox cboRoomNo
Height = 315
Left = 840
Style = 2 'Dropdown List
TabIndex = 0
Top = 960
Width = 3855
End
Begin VB.Label label1
AutoSize = -1 'True
Caption = "请选择要查询的房间号:"
Height = 195
Left = 840
TabIndex = 1
Top = 600
Width = 1845
End
End
Attribute VB_Name = "frmRoomInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private cnnHotel As New ADODB.Connection
Private rsCustReserveInfo As New ADODB.Recordset
Private rsRooms As New ADODB.Recordset
Private Sub cboRoomNo_Click()
Static change As Boolean 'change判断Frame1,Frame2 的大小是否改变
Frame1.Caption = cboRoomNo.Text & "信息"
rsRooms.Open "SELECT * FROM Rooms WHERE 房间号='" & cboRoomNo.Text & "'", cnnHotel, adOpenKeyset, adLockOptimistic '打开新记录集
Set labCharge.DataSource = rsRooms
labCharge.DataField = "房间每晚价格"
Label5.Visible = True
Set labRoomStatus.DataSource = rsRooms
labRoomStatus.DataField = "房间状态"
Set labName.DataSource = rsRooms
labName.DataField = "顾客姓名"
If labRoomStatus.Caption <> "空闲" And change = False Then '如果房间不是空闲状态
Frame1.Height = Frame1.Height + 1400
Frame2.Top = Frame2.Top + 1400
change = True 'change=True表示 Frame1,Frame2的大小别改变过
ElseIf labRoomStatus.Caption = "空闲" And change = True Then
Frame1.Height = Frame1.Height - 1400
Frame2.Top = Frame2.Top - 1400
change = False 'change=false表示 Frame1,Frame2的大小又改为原来的大小
End If
If labRoomStatus.Caption = "已预定" Then
Label4.Caption = "预定日期:"
labRoomStatus.ForeColor = RGB(255, 0, 0) '如果房间被预定，则用红色显示
Set labDate.DataSource = rsRooms
labDate.DataField = "房间预定日期"
labDate.ForeColor = RGB(255, 0, 0)
labCustName.Caption = "预定顾客姓名:"
labName.ForeColor = RGB(255, 0, 0)
ElseIf labRoomStatus.Caption = "已经入住" Then
Label4.Caption = "入住日期:"
labRoomStatus.ForeColor = RGB(0, 0, 255) '如果房间已经入住，则用蓝色显示
Set labDate.DataSource = rsRooms
labDate.DataField = "房间入住日期"
labDate.ForeColor = RGB(0, 0, 255)
labCustName.Caption = "入住顾客姓名:"
labName.ForeColor = RGB(0, 0, 255)
Else
labRoomStatus.ForeColor = RGB(70, 210, 100) '如果房间空闲，则用颜色RGB(70,210,100)显示
labDate.ForeColor = RGB(70, 210, 100)
End If
rsRooms.Close
End Sub
Private Sub cmdAllRoominfo_Click() '显示全部窗体信息
frmRoomInfo.Hide
AllRoomInfo.Show 1
End Sub
Private Sub cmdExit_Click()
Unload frmRoomInfo
End Sub
Private Sub Form_Load()
cnnHotel.Provider = "Microsoft.Jet.OLEDB.3.51"
cnnHotel.Open "User ID=admin;Data Source=" & GetDBPath() '建立与数据库的连接
rsRooms.Open "SELECT * FROM Rooms", cnnHotel, adOpenKeyset, adLockOptimistic '打开新记录集
Do While Not rsRooms.BOF And Not rsRooms.EOF '当rsRooms.BOF,rsRooms.EOF都为False 时
cboRoomNo.AddItem rsRooms.Fields("房间号") '在cboRoomNo 的下拉列表选项中加如当前的空闲房间号
rsRooms.MoveNext '移到下一条记录
Loop
rsRooms.Close
End Sub
Private Sub Form_Unload(Cancel As Integer)
cnnHotel.Close
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -