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