酒店管理系統—免費畢業設計(留存版)

　　

【正文】 80 .Columns(1). = 5 .Columns(1). = 標準間 .Columns(1). = 豪華間 .Columns(1). = 未知 .Columns(1).AllowSizing = False 39。顯示在主窗體的中央 = ( ) / 2 = ( ) / 4 dtgRoomRefresh End Sub 3. 刪除客房信息 在客房記錄列表中選擇記錄，然后選擇菜單中的“產出房間信息”，將刪除當前記錄， Option Explicit Private Sub dtgRoomRefresh() With 39。默認班級類型為第一項 If . = 0 Then . = 1 Else . = 0 End If 39。豪華間 . = 1 End If If !RoomType Then 39。表頭寬度設為兩行 .HeadLines = 2 39。清空班級編號并設為可修改 . = False . = 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. 刪除客房標準 選擇 “客房信息管理 |設置客房標準 |刪除客房標準”菜單，將出現記錄列表。退出窗體 Unload Me End Sub Private Sub Form_Load() 39。第一列標題和寬度 .Columns(0).Caption = 房間編號 .Columns(0).Width = 60 .Columns(0).AllowSizing = False 39。 amp。退出整個程序 End If 39。 39。 創建酒店客房管理信息系統的主窗 體 這個項目我們使用多文檔界面，單擊工具欄中的 ADD MDI Form 按鈕 ，生成一個窗體。 標準標準 客房位置 客房編號 …… 結算信息實體 顧客信息 客房信息 結算時間 結算金額 …… 客房標準信息 客房登記 圖 實體之間關系 ER 圖 3． 5． 3 數據庫邏輯結構設計 現在需要將上面的數據庫概念結構化為 MS Access 2021 數據庫系統所支持的實 際數據模型，也就是數據庫的邏輯結構。 數據庫需求分析 用戶的需求具體體現在各種信息的提供、保存 、更新和查詢等方面，這就要求數據庫結構能充分滿足各種信息的輸出和輸入。優化邏輯設計與物理設計，使系統運行效率高，反映速度快。這 4 種開發方式各有優點和不足，需要根據使用單位的技術力量、資金情況、外部環境等各種因素進行綜合考慮和選擇。計算與打印分開設計，雖然消耗時間，但易于整個 MIS 系統的維護。 管理信息系統的特點 管理信息系統的組成 管理信息系統在企業中的應用存在三個要素，這就是人、計算機和數據。本課題數據庫采用的是 SQL Server2021，通 過建立數據源， VB與后臺的數據庫連接來運行。 傳統手工的客房信息管理，管理過程繁瑣而復雜，執行效率低，并且易于出錯。 管理信息系統的界面特點 在計算機軟件技術中，人機界面已經發展成為一個重要的分支。使用方便 多數 MIS 軟件的數據輸入量較大。客戶信息包括對信客戶進行登記，登記內容包括房號、姓名、性別、年齡、國籍、客房級別、住房天數、住店日期、離店日期等。 6. 安全保密性。 數據概念結構設計 得到上面的數據項和數據結構以后，就可以設計出能夠滿足用戶需求的各種實體，以及他們之間的關系，為以后的邏輯結構設計打下基礎。 4. 客房基本信息的查詢、修改，包括客房編號、客房類型、客房位置、客房單價、備注等。 Option Explicit Private Sub cmdCancel_Click() 39。沒找到記錄 strUserName = strPassword = End If If strUserName = And strPassword = Then 39。 amp。 添加客房標準窗體 在窗體上放置多個文本框，用來輸入客房標準基本信息，多個下拉式文本框選擇不同的硬件設施；兩個按鈕用來確定是否添加客房標準信息；多個標簽用來提示文本框中需要輸入的內容。顯示為模式窗體 .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。第二列標題和寬度 .Columns(1).Caption = 房間級別 .Columns(1).Width = 80 .Columns(1). = 5 .Columns(1). = 標準間 .Columns(1). = 豪華間 .Columns(1). = 未知 .Columns(1).AllowSizing = False 39。不允許修改（設為只讀） .AllowAddNew = False .AllowDelete = False .AllowUpdate = False 39。雙人間 . = 1 End If .txtRoomRate = !RoomRate .Show vbModal End With End If End Sub Private Sub cmdExit_Click() 39。清空班級編號并設為可修改 . = False . = 39。第一列標題和寬度 .Columns(0).Caption = 房間編號 .Columns(0).Width = 60 .Columns(0).AllowSizing = False 39。第三列標題和寬度 .Columns(2).Caption = 房間類型 .Columns(2).Width = 80 .Columns(2). = 5 .Columns(2). = 單人間 .Columns(2). = 雙人間 .Columns(2). = 未知 .Columns(2).AllowSizing = False 39。默認教師為第一項 If . = 0 Then . = 1 Else . = 0 End If .txtRoomRate = 39。顯示在主窗體的中央 = ( ) / 2 = ( ) / 4 dtgRoomRefresh End Sub 2. 修改客房信息 選擇“客房信息管理 |設置客房信息 |修改客房信息”菜單，將出現如圖所示的體。第二列標題和寬度 .Columns(1).Caption = 房間級別 .Columns(1).Width = 80 .Columns(1). = 5 .Columns(1). = 標準間 .Columns(1). = 豪華間 .Columns(1). = 未知 .Columns(1).AllowSizing = False 39。第四列標題和寬度 .Columns(3).Caption = 房間價格 (元 ) .Columns(3).Width = 80 .Columns(3).AllowSizing = False .Columns(4).Caption = 狀態 .Colum