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

　　

【正文】 olumns(0).AllowSizing = False 39。默認教師為第一項 If . = 0 Then . = 1 Else . = 0 End If .txtRoomRate = 39。退出窗體 Unload Me End Sub Private Sub Form_Load() 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。第一列標題和寬度 .Columns(0).Caption = 房間編號 .Columns(0).Width = 60 .Columns(0).AllowSizing = False 39。單人間 . = 0 Else 39。清空班級編號并設為可修改 . = False . = 39。選擇方式為整行選中 .MarqueeStyle = dbgHighlightRow 39。雙人間 . = 1 End If .txtRoomRate = !RoomRate .Show vbModal End With End If End Sub Private Sub cmdExit_Click() 39。默認班級類型為第一項 If . = 0 Then . = 1 Else . = 0 End If 39。不允許修改（設為只讀） .AllowAddNew = False .AllowDelete = False .AllowUpdate = False 39。選擇相應記錄，單擊鼠標 右鍵，選擇彈出式菜單，將刪除當前記錄， 客房信息管理模塊主要實現功能： 添加客房信息； 修改客房信息 ； 刪除客房信息 ； 查詢客房信息。第二列標題和寬度 .Columns(1).Caption = 房間級別 .Columns(1).Width = 80 .Columns(1). = 5 .Columns(1). = 標準間 .Columns(1). = 豪華間 .Columns(1). = 未知 .Columns(1).AllowSizing = False 39。顯示在主窗體的中央 = ( ) / 2 = ( ) / 4 dtgRoomRefresh End Sub 2. 修改客房標準窗體的創建 選擇“客房信息管理 |設置客房標準 |修改客房標準”菜單，將出現如圖所示的窗體，窗體中放置一個表格控件。顯示為模式窗體 .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。 添加客房標準窗體 在窗體上放置多個文本框，用來輸入客房標準基本信息，多個下拉式文本框選擇不同的硬件設施；兩個按鈕用來確定是否添加客房標準信息；多個標簽用來提示文本框中需要輸入的內容。 39。 amp。重新輸入密碼 SendKeys {HOME}+{END} End If End Sub Private Sub Form_Load() 39。沒找到記錄 strUserName = strPassword = End If If strUserName = And strPassword = Then 39。, , adSearchForward, 1 39。 Option Explicit Private Sub cmdCancel_Click() 39。在這個窗體上添加所需的控件，創建好的窗體如圖所示。 4. 客房基本信息的查詢、修改，包括客房編號、客房類型、客房位置、客房單價、備注等。酒店客房管理信息系統數據庫中各個表格的設計結果如下面表格所示。 數據概念結構設計 得到上面的數據項和數據結構以后，就可以設計出能夠滿足用戶需求的各種實體，以及他們之間的關系，為以后的邏輯結構設計打下基礎。收集基本數據、數據結構以及數據處理的流程。 6. 安全保密性。 系統主界面 住房登記 客房管理 客戶登記 客戶登記 客戶編輯 客戶刪除 客房增加 客房編輯 客房刪除 客房查詢 按國籍查詢 按離店日期查詢 按房號查詢 按姓名查詢 按住店日期查詢 2. 可靠性。客戶信息包括對信客戶進行登記，登記內容包括房號、姓名、性別、年齡、國籍、客房級別、住房天數、住店日期、離店日期等。不論哪種開放方式都需要有單位的領導和業務人員參加，并在管理信息系統的整個開發過程中培養、鍛 煉、壯大該系統的維護隊伍。使用方便 多數 MIS 軟件的數據輸入量較大。 2. 界面必須始終一致 統一的人機界面不至于會增加用戶的負擔，讓用戶始終用同一種方式思考與操作。 管理信息系統的界面特點 在計算機軟件技術中，人機界面已經發展成為一個重要的分支。 人是指企業領導者、管理人員、技術人員，以及 MIS 建設的領導機構和實施機構，他們在系統中起主導作用。 傳統手工的客房信息管理，管理過程繁瑣而復雜，執行效率低，并且易于出錯。 本文從符合操作簡單、界面友好、靈活、實用、安全的要求出發，它所完成的主要功能 有以下幾個方面： 1）系統部分：主要完成安全權限。本課題數據庫采用的是 SQL Server2021，通 過建立數據源， VB與后臺的數據庫連接來運行。面對龐大的信息量，就需要有 酒店收費管理系統 來提高客房管理工作的效率。 管理信息系統的特點 管理信息系統的組成 管理信息系統在企業中的應用存在三個要素，這就是人、計算機和數據。試想要計算一臺機床的成本，需要按時輸入每個部件、每個零件以及每個螺釘螺帽的費用，涉及企業的生產車間、采購、庫房、工藝設計和財務等多個部門，必須有一整套管理制度作保證。計算與打印分開設計，雖然消耗時間，但易于整個 MIS 系統的維護。 4. 界面友好。這 4 種開發方式各有優點和不足，需要根據使用單位的技術力量、資金情況、外部環境等各種因素進行綜合考慮和選擇。該功能可以對客戶信息進行增加、刪除和修改。優化邏輯設計與物理設計，使系統運行效率高，反映速度快。目標系統功能齊全，能夠完全滿足業務需求。 數據庫需求分析 用戶的需求具體體現在各種信息的提供、保存 、更新和查詢等方面，這就要求數據庫結構能充分滿足各種信息的輸出和輸入。 訂房信 息輸入 訂房信息管理 結算信息輸入 結算信息管理 基本信息返回 客房標準信息管理 基本信息錄入 客房登記 客房信息管理 顧客登記 有了上面的數據結構、數據項和數據流程，我們就能進行下面的數據庫設計。 標準標準 客房位置 客房編號 …… 結算信息實體 顧客信息 客房信息 結算時間 結算金額 …… 客房標準信息 客房登記 圖 實體之間關系 ER 圖 3． 5． 3 數據庫邏輯結構設計 現在需要將上面的數據庫概念結構化為 MS Access 2021 數據庫系統所支持的實 際數據模型，也就是數據庫的邏輯結構。 3. 客房基本信息的輸入，包括客房編號、客房類型、客房設置、客房單價、備注等。 創建酒店客房管理信息系統的主窗 體 這個項目我們使用多文檔界面，單擊工具欄中的 ADD MDI Form 按鈕 ，生成一個窗體。打開表 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”命令，創建如圖所示的菜單結構： 主窗體中的菜單結構 用戶管理模塊主要實現： 。 39。找到記錄 strUserName = !Name strPassword = !Password