📄 frmmain.frm
字号:
VERSION 5.00
Begin VB.Form frmMain
Caption = "客房管理系统"
ClientHeight = 4995
ClientLeft = 4365
ClientTop = 3180
ClientWidth = 7680
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 4995
ScaleWidth = 7680
StartUpPosition = 2 'CenterScreen
Begin VB.Timer Timer1
Interval = 1000
Left = 600
Top = 4440
End
Begin VB.CommandButton cmdCustReserve
Caption = "预定房间"
Height = 495
Left = 4320
TabIndex = 9
Top = 1560
Width = 1215
End
Begin VB.CommandButton cmdBeginToUse
Caption = "入住房间"
Height = 495
Left = 4320
TabIndex = 8
Top = 2920
Width = 1215
End
Begin VB.CommandButton cmdBreakfast
Caption = "使用早餐"
Height = 495
Left = 4320
TabIndex = 7
Top = 3600
Width = 1215
End
Begin VB.CommandButton frmPayOff
Caption = "顾客结帐"
Height = 495
Left = 6120
TabIndex = 6
Top = 2920
Width = 1215
End
Begin VB.CommandButton cmdExit
Caption = "退出系统"
Height = 495
Left = 6120
TabIndex = 5
Top = 3600
Width = 1215
End
Begin VB.CommandButton cmdSearchRoom
Caption = "房间查询"
Height = 495
Left = 6120
TabIndex = 4
Top = 2240
Width = 1215
End
Begin VB.CommandButton cmdSearchCust
Caption = "顾客查询"
Height = 495
Left = 6120
TabIndex = 3
Top = 1560
Width = 1215
End
Begin VB.CommandButton cmdCancelReserve
Caption = "取消预定"
Height = 495
Left = 4320
TabIndex = 2
Top = 2240
Width = 1215
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 2805
Left = 120
Picture = "frmMain.frx":0000
ScaleHeight = 2805
ScaleWidth = 3750
TabIndex = 0
Top = 1440
Width = 3750
End
Begin VB.Label labDate
AutoSize = -1 'True
ForeColor = &H000040C0&
Height = 195
Left = 600
TabIndex = 11
Top = 960
Width = 45
End
Begin VB.Label labTime
AutoSize = -1 'True
ForeColor = &H000040C0&
Height = 195
Left = 1320
TabIndex = 10
Top = 960
Width = 45
End
Begin VB.Line Line3
BorderWidth = 2
X1 = 0
X2 = 7680
Y1 = 1320
Y2 = 1320
End
Begin VB.Line Line2
BorderWidth = 2
X1 = 3960
X2 = 3960
Y1 = 4320
Y2 = 1320
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "客房管理系统"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 315
Left = 2640
TabIndex = 1
Top = 360
Width = 2070
End
Begin VB.Line Line1
BorderWidth = 2
X1 = 0
X2 = 7680
Y1 = 4320
Y2 = 4320
End
Begin VB.Menu mnuFile
Caption = "文件(&F)"
Begin VB.Menu mnuNewCustReserveInfo
Caption = "输入新顾客预定信息(&N)..."
Shortcut = ^N
End
Begin VB.Menu mnuCancelCustReserve
Caption = "取消顾客预定房间(&A)..."
Shortcut = ^A
End
Begin VB.Menu mnuBeginToUseRoom
Caption = "顾客入住房间(&B)..."
Shortcut = ^B
End
Begin VB.Menu mnuUseBreakFast
Caption = "顾客使用早餐(&H)..."
Shortcut = ^H
End
Begin VB.Menu mnuCustPayOff
Caption = "顾客结帐(&L)..."
Shortcut = ^P
End
Begin VB.Menu mnuExit
Caption = "退出系统(&E)"
Shortcut = ^E
End
End
Begin VB.Menu mnuQuery
Caption = "查询(&Q)"
Begin VB.Menu mnuReservationInfo
Caption = "房间信息(&R)..."
Shortcut = ^R
End
Begin VB.Menu mnuCustomersInfo
Caption = "顾客信息(&C)..."
Shortcut = ^C
End
End
Begin VB.Menu mnuHelp
Caption = "帮助(&H)"
Begin VB.Menu mnuAbout
Caption = "关于(&O)..."
Shortcut = ^O
End
End
End
Attribute VB_Name = "frmMain"
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 cmdBeginToUse_Click()
frmCustClass.Show 1
End Sub
Private Sub cmdBreakfast_Click()
frmBreakFast.Show 1
End Sub
Private Sub cmdCancelReserve_Click()
cnnHotel.Provider = "Microsoft.Jet.OLEDB.3.51"
cnnHotel.Open "User ID=admin;Data Source=" & GetDBPath() '建立与数据库的连接
rsCustReserveInfo.Open "SELECT * FROM CustReserveInfo", cnnHotel, adOpenKeyset, adLockOptimistic '打开记录集
If rsCustReserveInfo.BOF And rsCustReserveInfo.EOF Then '如果当前没有顾客预定房间
MsgBox "目前没有顾客预定房间!", vbInformation, "没有顾客预定房间"
Else
frmCancelReserve.Show 1
End If
cnnHotel.Close
End Sub
Private Sub cmdCustReserve_Click()
frmNewCustReserveInfo.Show 1
End Sub
Private Sub cmdExit_Click()
Dim msg
msg = MsgBox("确定要退出旅店管理系统吗?", vbQuestion + vbOKCancel, "退出系统")
If msg = vbOK Then
Unload frmMain
End If
End Sub
Private Sub cmdSearchCust_Click()
frmCustInfo.Show 1
End Sub
Private Sub cmdSearchRoom_Click()
frmRoomInfo.Show 1
End Sub
Private Sub Form_Load()
Dim picPathStr As String 'picPathStr 用来保存图片Pic的路径
picPathStr = App.Path
If Right(App.Path, 1) <> "\" Then picPathStr = App.Path & "\"
picPathStr = picPathStr & "Pic.jpg"
Picture1.Picture = LoadPicture(picPathStr)
labDate.Caption = Month(Date) & "月" & Day(Date) & "日" '显示日期
labTime.Caption = Time '显示当前时间
End Sub
Private Sub frmPayOff_Click()
frmCustPayOff.Show 1
End Sub
Private Sub mnuAbout_Click()
frmAbout.Show 1
End Sub
Private Sub mnuBeginToUseRoom_Click()
frmCustClass.Show 1 '显示顾客入住房间窗体
End Sub
Private Sub mnuCancelCustReserve_Click()
cnnHotel.Provider = "Microsoft.Jet.OLEDB.3.51"
cnnHotel.Open "User ID=admin;Data Source=" & GetDBPath() '建立与数据库的连接
rsCustReserveInfo.Open "SELECT * FROM CustReserveInfo", cnnHotel, adOpenKeyset, adLockOptimistic '打开记录集
If rsCustReserveInfo.BOF And rsCustReserveInfo.EOF Then '如果当前没有顾客预定房间
MsgBox "目前没有顾客预定房间!", vbInformation, "没有顾客预定房间"
Else
frmCancelReserve.Show 1
End If
cnnHotel.Close
End Sub
Private Sub mnuCustomersInfo_Click()
frmCustInfo.Show 1
End Sub
Private Sub mnuCustPayOff_Click()
frmCustPayOff.Show 1 '显示顾客退房结帐窗体
End Sub
Private Sub mnuExit_Click()
Unload frmMain '退出
End Sub
Private Sub mnuNewCustReserveInfo_Click()
frmNewCustReserveInfo.Show 1 '显示模式窗体 frmNewCustReserveInfo
End Sub
Private Sub mnuReservationInfo_Click()
frmRoomInfo.Show 1
End Sub
Private Sub mnuUseBreakFast_Click()
frmBreakFast.Show 1
End Sub
Private Sub Timer1_Timer() '在窗体上显示时间
labDate.Caption = Month(Date) & "月" & Day(Date) & "日" '显示日期
labTime.Caption = Time '显示当前时间
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -