【導(dǎo)讀】對(duì)于賓館酒店等服務(wù)性行業(yè)，服務(wù)質(zhì)量是吸引客戶、提高經(jīng)濟(jì)效益的關(guān)鍵因素。的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。因此，開(kāi)發(fā)這樣一套管理軟件主要全面的。各類信息的瀏覽、查詢、添加、刪除、修改等功能。本文以VisualBasic作為開(kāi)發(fā)工。系統(tǒng)運(yùn)行結(jié)果證明，本文所設(shè)計(jì)的賓館管理系統(tǒng)可以滿足顧客、賓館工作人員和高。級(jí)管理員三方面的需要。賓館酒店采用管理信息系統(tǒng)來(lái)管理日常工作，合理配置資源，提升。管理水平，從而在市場(chǎng)競(jìng)爭(zhēng)中取得優(yōu)勢(shì)。開(kāi)發(fā)系統(tǒng)所需的實(shí)用技術(shù)?????????隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能已成為。便之處，浪費(fèi)了時(shí)間，降低了工作效率，而且極大地影響了酒店的服務(wù)質(zhì)量和經(jīng)濟(jì)效益。應(yīng)用此管理系統(tǒng)后，該酒店對(duì)每位客人的具體情況便可以。然而占著絕大多數(shù)的中小型酒店、賓館由于資金、人員等多方面。店、賓館根本用不上。軟件市場(chǎng)急需一套低廉的價(jià)格、完善的服務(wù)，齊全的功能為基礎(chǔ)，

　　

【正文】 入有效的其他費(fèi)用 Exit Sub End If If Val(txtFirstPay) 0 Then MsgBox 請(qǐng)錄入有效的押金 Exit Sub End If 39。將此入住記錄保存 With MyReg .CustId = lblCid .RoomNo = lblRoomNo .InDate = MakeStr(txtInDate) .LeaveDate = MakeStr(txtLeaveDate) .Days = Val(txtDays) .Price = Val(txtPrice) .Rate = Val(ComboRate) .OtherFee = Val(txtOtherFee) .FirstPay = Val(txtFirstPay) .Memo = MakeStr(txtMemo) .UserName = .Update (TmpId) End With Unload Me End Sub 退房登記編輯和管理 Private Sub ComboStatus_Click() Refresh_Reg 39。如果是已退房記錄，則不能再執(zhí)行退房操作 If = 0 Then = True Else = False End If End Sub Private Sub DataGrid1_Click() End Sub 退房登記管理 收銀統(tǒng)計(jì)管理模塊設(shè)計(jì) 收銀統(tǒng)計(jì)管理模塊可以實(shí)現(xiàn)以下功能： 實(shí)收房款管理 客戶消費(fèi)統(tǒng)計(jì)表 實(shí)收款統(tǒng)計(jì)表 實(shí)收房款信息編輯窗體的名稱為 FrmFRoomEdit,其布局如下圖所示。 實(shí)收房款信息管理名稱為 FrmPayFRoomMan，窗體布局如下圖所示。 在窗體 FrmPayFRoomMan 中，可以分別查看到“已退房”和“已結(jié)款”。對(duì)于已結(jié)款記錄可以取消結(jié)款。 客戶消費(fèi)統(tǒng)計(jì)表 客戶消費(fèi)統(tǒng)計(jì)表窗體名稱為 FrmPayFRoomMan 窗體布局如下圖所示。 Private Sub Refresh_Customer() Dim strSearch As String 39。查詢條件 If Trim(txtCid) Then strSearch = And LIKE 39。% + Trim(txtCid) + %39。 End If 39。設(shè)置數(shù)據(jù)源 = Conn = SELECT as 客戶編號(hào) , as 客戶姓名 , Sum() As 消費(fèi)總金額 _ + FROM Customer c, Registration r, PayforRoom p WHERE = And = _ + strSearch + GROUP BY , ORDER BY Set = Adodc1 End Sub 在 SELECT 語(yǔ)句中涉及到 3 個(gè)表：表 Customer、表 Registration 和表 PayforRoom。表Customer 可以提供客戶的基本信息，表 Registration 可以提供客戶的登記入住信息，表PayforRoom 可以提供客戶實(shí)結(jié)房款 的信息。 實(shí)收款統(tǒng)計(jì)表 實(shí)收款統(tǒng)計(jì)表窗體名稱為 FrmStatusPay,窗體界面布局如下圖所示。 Private Sub Refresh_Pay() Dim strSearch As String 39。查詢條件 Select Case Case 0 39。全部 strSearch = Case 1 39。大于 strSearch = WHERE OptTime39。 + Trim() + 39。 Case 2 39。小于 strSearch = WHERE OptTime39。 + Trim() + 39。 Case 3 39。等于 strSearch = WHERE OptTime=39。 + Trim() + 39。 End Select 39。設(shè)置記錄源 = Conn = SELECT OptTime As 收費(fèi)日期 , Sum(Amount) As 收費(fèi)總金額 _ + FROM PayforRoom + strSearch + GROUP BY OptTime Set = Adodc1 (0).Width = 3200 (1).Width = 3300 End Sub 用戶信息管理模塊設(shè)計(jì) 根據(jù)用戶的不同，用戶管理模塊的功能也不相同。 本系統(tǒng)以下情形： （ 1） Admin 用戶可以創(chuàng)建普通用戶，對(duì)普通用戶的用戶名和密碼進(jìn)行修改，刪除普通用戶“ （ 2） Admin 用戶也可以修改自身的密碼 （ 3）普通用戶只能修改自身的用戶名和密碼； 用戶管理窗體的創(chuàng)建 本窗體的名稱為 FrmUserMan，布局如下： （ 1）當(dāng)用戶單擊用啟名列表時(shí)觸發(fā) DataList_list 事件，代碼如下： Private Sub DataList1_Click() 39。如果沒(méi)有選擇用戶名，則返回 If = Then Exit Sub End If 39。讀取當(dāng)前用戶數(shù)據(jù) () 39。設(shè)置用戶名 lblUserName = 39。設(shè)置用戶類型 If Format(, ) = admin Then lblUserType = 系 統(tǒng)管理員 Else lblUserType = 普通用戶 End If End Sub 程序?qū)?dāng)前選擇用戶的信息讀取到 MyUser 對(duì)象中。 （ 1） 當(dāng)用戶單擊“修改”按鈕時(shí)觸發(fā) Cmd_modi_click 事件。 （ 2） 當(dāng)用戶單擊“刪除”按鈕時(shí)觸發(fā) Cmd_del_click 事件。 10． 1． 3 在主界面中增加用戶管理代碼 （ 1）在主界面中單擊“系統(tǒng)用戶管理” /“用戶管理”菜單，將打開(kāi)用戶管理窗體，代碼如下： Private Sub m_Uers_Click() 39。如果當(dāng)前用戶為 Admin，則打開(kāi) 用戶管理窗體 If Format(, ) = admin Then 1 Else MsgBox 沒(méi)有權(quán)限 End If End Sub （ 2）只有用戶才能進(jìn)入“用戶管理”窗口。在主界面中單擊“系統(tǒng)用戶管理” /“修改密碼”菜單項(xiàng)，將打開(kāi)修改密碼窗體，代碼如下： Private Sub m_Pwd_Click() 39。如果當(dāng)前用戶是普通用戶，則打開(kāi)用戶編輯窗體，編輯自己的用戶信息 With FrmUserEdit .OriUser = .txtUserName = .txtPass = .txtPass2 = .Modify = True .Show 1 End With End Sub 用戶只能修改自己的密碼，當(dāng)前用戶的信息在登錄時(shí)被保存在 CurUser 對(duì)象中。 2．用戶信息編輯窗體 本窗體可以用來(lái)添加和修改用戶信息，窗休名稱為 FrmUserEdit，窗體布局如下： 用戶單擊“確定”按鈕觸發(fā) Cmd_ok_click 事件，代碼如下： Private Sub Cmd_OK_Click() If Len(txtPass) 6 Then MsgBox 密碼不能小于 6 Exit Sub End If If txtPass txtPass2 Then MsgBox 密碼和確認(rèn)密碼不相同，請(qǐng)重新確認(rèn) Exit Sub End If 39。更改用戶密碼 With MyUser .UserPwd = MakeStr(txtPass) .UpdatePwd (MakeStr(txtUserName)) MsgBox 修改完成 End With Unload Me End Sub 程序?qū)⑴袛嘤脩裘欠褚呀?jīng)存在，密碼和確認(rèn)密碼是否相同、以及密碼長(zhǎng)度是否大于等于６等，如果輸入的數(shù)據(jù)完全滿足條件，則保存到數(shù)據(jù)庫(kù)中。如果改變了當(dāng)前 的用戶，則必須更新 CurUser 對(duì)象。 第六章 結(jié)束語(yǔ) 本章以開(kāi)發(fā)一個(gè)實(shí)例的方式，詳細(xì)講解了酒店客房管理系統(tǒng)的開(kāi)發(fā)過(guò)程，并給出了部分源代碼，主要內(nèi)容包括： 1． 酒店客房管理系統(tǒng)的需求分析 2． 酒店客房管理系統(tǒng)的 UML 建模 3． 酒店客房管理系統(tǒng)的系統(tǒng)配置 4． 酒店客房管理系統(tǒng)的數(shù)據(jù)庫(kù)分析和設(shè)計(jì) 參考文獻(xiàn) [1].Dianne Basic 開(kāi)發(fā)指南 — SQL Server 篇 .北京 :電子工業(yè)出版社 . [2].李春葆 曾慧 SQL Server 2021 應(yīng)用系統(tǒng)開(kāi)發(fā)教程 . 北京 :清華大學(xué)出版社 . [3].薩師煊 ,王珊 .數(shù)據(jù)庫(kù)系統(tǒng)概論 (第三版 ). 北京 :高等教育出版社 . 頁(yè) [4].劉炳文 ,楊明福 ,陳定中 .VISUAL BASIC 程序設(shè)計(jì) .北京 :高等教育出版社 .頁(yè) [5].王穎 ,李敏業(yè) .VISUAL BASIC +SQL 2021 應(yīng)用實(shí)例 北京 :人民郵電出版社 .頁(yè) [6].芳蕓 , 柴躍廷 . CIMS環(huán)境下 —— 集成化管理信息系統(tǒng)的分析、設(shè)計(jì)與實(shí)施 .北京 :清華大學(xué)出版社 . [7].玉琳 趙保華 . 軟件工程 —— 方法 .工具和實(shí)現(xiàn) .北京 : [8]. 張海潘 .軟件工程導(dǎo)論（第四版） 北京 清華大學(xué)出版社 2021 11頁(yè) [9].陳和平 ,邵平凡 .可視化編程技術(shù)及應(yīng)用 (普通高等學(xué)校計(jì)算機(jī)科學(xué)與技術(shù)專業(yè)新編系列教材 ). 武漢 。武漢理工大學(xué)出版社 . [10].趙增敏 .SQL SERVER 2021 實(shí)用教程 .北京 :電子工業(yè)出版社 .