酒店管理系統—免費畢業設計-wenkub.com

　 　

【正文】 默認班級類型為第一項 If . = 0 Then . = 1 Else . = 0 End If 39。第四列標題和寬度 .Columns(3).Caption = 房間價格 (元 ) .Columns(3).Width = 80 .Columns(3).AllowSizing = False 39。不允許修改（設為只讀） .AllowAddNew = False .AllowDelete = False .AllowUpdate = False 39。顯示在主窗體的中央 = ( ) / 2 = ( ) / 4 dtgRoomRefresh End Sub 3. 刪除客房信息 在客房記錄列表中選擇記錄，然后選擇菜單中的“產出房間信息”，將刪除當前記錄， Option Explicit Private Sub dtgRoomRefresh() With 39。豪華間 . = 1 End If If !RoomType Then 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。第二列標題和寬度 .Columns(1).Caption = 房間級別 .Columns(1).Width = 80 .Columns(1). = 5 .Columns(1). = 標準間 .Columns(1). = 豪華間 .Columns(1). = 未知 .Columns(1).AllowSizing = False 39。表頭寬度設為兩行 .HeadLines = 2 39。 修改客房信息窗體 窗體中放置了一個表格控件，所有客房記錄都顯示在里面。單人間 . = 0 Else 39。窗體標題 .Caption = 修改客房信息 39。清空班級編號并設為可修改 . = False . = 39。第三列標題和寬度 .Columns(2).Caption = 房間類型 .Columns(2).Width = 80 .Columns(2). = 5 .Columns(2). = 單人間 .Columns(2). = 雙人間 .Columns(2). = 未知 .Columns(2).AllowSizing = False 39。選擇方式為整行選中 .MarqueeStyle = dbgHighlightRow 39。將各種文本框放在窗體的框架中，組成“客房信息”欄。)) dtgRoomQueryRefresh End Sub Private Sub txtRoomNo_KeyPress(KeyAscii As Integer) If (KeyAscii 48 Or KeyAscii 57) And KeyAscii 8 Then KeyAscii = 0 End If End Sub Private Sub Form_Load() = ( ) / 2 = ( ) / 2 OpenTable , select * from Room order by RoomNo,RoomRate dtgRoomQueryRefresh = False = False = False = False = False = False = False End Sub Private Sub Option5_Click() If Then OpenTable , SELECT * From Room where ((()=1)) ElseIf Then OpenTable , SELECT * From Room where ((()=1)) ElseIf Then OpenTable , SELECT * From Room where ((()=1)) End If dtgRoomQueryRefresh End Sub Private Sub Option6_Click() If Then OpenTable , SELECT * From Room where ((()=0)) ElseIf Then OpenTable , SELECT * From Room where ((()=0)) ElseIf Then OpenTable , SELECT * From Room where ((()=0)) End If dtgRoomQueryRefresh End Sub Private Sub optRoomStatus_Click() = False = False = True = 房間狀態 = 在住 = 空房 = False = False End Sub Private Sub optRoomType_Click() = False = False = True = 房間類型 = 單人間 = 雙人間 = False = False End Sub Private Sub optRoomGrade_Click() = False = False = True = 房間級別 = 標準間 = 豪華間 = False = False End Sub Private Sub optRoomNo_Click() = = True = True = False SendKeys {TAB} End Sub 3. 刪除客房標準 選擇 “客房信息管理 |設置客房標準 |刪除客房標準”菜單，將出現記錄列表。 amp。第一列標題和寬度 .Columns(0).Caption = 房間編號 .Columns(0).Width = 75 .Columns(0).AllowSizing = False 39。實施綁定 .AllowRowSizing = False 39。退出窗體 Unload Me End Sub Private Sub Form_Load() 39。標準間 . = 0 Else 39。默認教師為第一項 If . = 0 Then . = 1 Else . = 0 End If .txtRoomRate = 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。第一列標題和寬度 .Columns(0).Caption = 房間編號 .Columns(0).Width = 60 .Columns(0).AllowSizing = False 39。綁定 Set .DataSource = .AllowRowSizing = False 39。 1. 添加客房標準窗體的創建 選擇“客房信息管理設置客房標準添加客房標準”菜單，將出現如圖所示的窗體。沒找到記錄 strUserName = strPassword = End If If strPassword = And = Then !Name = strUserName !Password = NewPassword 39。 amp。, , adSearchForward, 1 39。查找用戶名 Name=39。對于每個客房標準，有不同的硬件設施和服務。退出整個程序 End If 39。顯示主窗體 Else 39。找到記錄 strUserName = !Name strPassword = !Password Else 39。 amp。 39。打開數據庫中的 Users 表 39。打開表 OpenTable adoCancel, Cancel End Sub Private Sub mnuAbout_Click() End Sub Private Sub mnuCancel_Click() End Sub Private Sub mnuCascade_Click() vbCascade End Sub Private Sub mnuGuest_Click() End Sub Private Sub 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”命