酒店管理系統—免費畢業設計(編輯修改稿)

　

【文章內容簡介】 ub mnuQuerySelect_Click() End Sub Private Sub mnuRoomInfo_Click() End Sub Private Sub mnuExit_Click() Unload Me End Sub Private Sub mnuHor_Click() vbTileHorizontal End Sub Private Sub mnuIcon_Click() vbArrangeIcons End Sub Private Sub mnuUser_Click() End Sub Private Sub mnuVer_Click() vbTileVertical End Sub 創建主窗體菜單 在主窗體重，單擊鼠標右鍵，選擇彈出式菜單重的“ Menu Editor”命令，創建如圖所示的菜單結構： 主窗體中的菜單結構 用戶管理模塊主要實現： 。 Option Explicit Private Sub cmdCancel_Click() 39。結束程序 End End Sub Private Sub cmdOk_Click() Static intLoginTimes As Integer If Trim() = Then 39。如果用戶名為空 MsgBox 用戶名不能為空！ , vbOKOnly + vbCritical, 錯誤 Exit Sub End If 39。打開數據庫中的 Users 表 39。查找用戶名 Name=39。 amp。 amp。 39。, , adSearchForward, 1 39。也可以用下面的過濾方式 39。 = Name=39。 amp。 amp。 39。 If Not Then 39。找到記錄 strUserName = !Name strPassword = !Password Else 39。沒找到記錄 strUserName = strPassword = End If If strUserName = And strPassword = Then 39。關閉數據庫中的 Users 表 Unload Me 39。關閉窗體 39。顯示主窗體 Else 39。用戶名或密碼不對 MsgBox 用 戶 名 或 密 碼 不 對 ！ , vbOKOnly + vbInformation, 提示 intLoginTimes = intLoginTimes + 1 If intLoginTimes = 3 Then 39。超過三次 39。 關閉數據庫中的 Users 表 End 39。退出整個程序 End If 39。重新輸入密碼 SendKeys {HOME}+{END} End If End Sub Private Sub Form_Load() 39。打開用戶 表 OpenTable adoUsers, Users End Sub 。 酒店 在運營中需要設置不同的客房標準來適應不同消費水平顧客的需要。對于每個客房標準，有不同的硬件設施和服務。 Option Explicit Private Sub cmdCancel_Click() 39。結束程序 Unload Me End Sub Private Sub cmdOk_Click() 39。打開數據庫中的 Users 表 39。查找用戶名 Name=39。 amp。 strUserName amp。 39。, , adSearchForward, 1 39。也可以用下面的過濾方式 39。 = Name=39。 amp。 amp。 39。 If Not Then 39。找到記錄 strUserName = !Name strPassword = !Password Else 39。沒找到記錄 strUserName = strPassword = End If If strPassword = And = Then !Name = strUserName !Password = NewPassword 39。關閉數據庫中的 Users 表 Unload Me 39。關閉窗體 End If End Sub Private Sub Form_Load() 39。打開用戶表 OpenTable adoUsers, Users End Sub 客房標準管理模塊主要實現功能： 添加客房標準；修改客房標準； 刪除戶客房標準。 1. 添加客房標準窗體的創建 選擇“客房信息管理設置客房標準添加客房標準”菜單，將出現如圖所示的窗體。 添加客房標準窗體 在窗體上放置多個文本框，用來輸入客房標準基本信息，多個下拉式文本框選擇不同的硬件設施；兩個按鈕用來確定是否添加客房標準信息；多個標簽用來提示文本框中需要輸入的內容。這些控件的屬性見表，添加客房窗體中各個控件的屬性設置。 Option Explicit Private Sub dtgRoomRefresh() With 39。綁定 Set .DataSource = .AllowRowSizing = False 39。表頭寬度設為兩行 .HeadLines = 2 39。選擇方式為整行選中 .MarqueeStyle = dbgHighlightRow 39。不允許修改（設為只讀） .AllowAddNew = False .AllowDelete = False .AllowUpdate = False 39。第一列標題和寬度 .Columns(0).Caption = 房間編號 .Columns(0).Width = 60 .Columns(0).AllowSizing = False 39。第二列標題和寬度 .Columns(1).Caption = 房間級別 .Columns(1).Width = 80 .Columns(1). = 5 .Columns(1). = 標準間 .Columns(1). = 豪華間 .Columns(1). = 未知 .Columns(1).AllowSizing = False 39。第三列標題和寬度 .Columns(2).Caption = 房間類型 .Columns(2).Width = 80 .Columns(2). = 5 .Columns(2). = 單人間 .Columns(2). = 雙人間 .Columns(2). = 未知 .Columns(2).AllowSizing = False 39。第四列標題和寬度 .Columns(3).Caption = 房間價格 (元 ) .Columns(3).Width = 80 .Columns(3).AllowSizing = False 39。.Columns(4).Visible = False .Columns(4).Caption = 狀態 .Columns(4).Width = 40 .Columns(4). = 5 .Columns(4). = 在住 .Columns(4). = 空房 .Columns(4). = 未知 .Columns(4).AllowSizing = False End With End Sub Private Sub cmdAddNew_Click() With frmRoomInfoEdit 39。窗體標題 .Caption = 添加新客房 39。清空班級編號并設為可修改 . = False . = 39。默認班級類型為第 一項 If . = 0 Then . = 1 Else . = 0 End If 39。默認教師為第一項 If . = 0 Then . = 1 Else . = 0 End If .txtRoomRate = 39。顯示為模式窗體 .Show vbModal End With End Sub Private Sub cmdDelete_Click() With If .EOF True And .BOF True Then If !RoomStatus Then MsgBox 當前房間有客人居住，您不能刪除該房間！ , vbOKOnly + vbInformation, 提示 Exit Sub End If If MsgBox(確認要刪除當前記錄嗎？ , vbYesNo + vbQuestion + vbDefaultButton2, 確認框 ) = vbYes Then .Delete End If End If End With Exit Sub End Sub Private Sub cmdEdit_Click() If True And True Then With frmRoomInfoEdit 39。窗體標題 .Caption = 修改客房信息 39。學員編號，設為不可修改 . = !RoomNo . = True If !RoomGrade Then 39。標準間 . = 0 Else 39。豪華間 . = 1 End If If !RoomType Then 39。單人間 . = 0 Else 39。雙人間 . = 1 End If .txtRoomRate = !RoomRate .Show vbModal End With End If End Sub Private Sub cmdExit_Click() 39。退出窗體 Unload Me End Sub Private Sub Form_Load() 39。顯示在主窗體的中央 = ( )