【正文】 提供等，從 而影響出租率，使的管理人員不得不集中精力規(guī)劃管理運(yùn)行策略和進(jìn)行決策。隨著它的深入，將帶動(dòng)企業(yè)的運(yùn)做，為管理和決策提供支持。 ：能有效的提高房率，增加營業(yè)收入。 。 綜上所述，開發(fā) 酒店客房管理 系統(tǒng)在技術(shù)上、經(jīng)濟(jì)上、都是可行的。使用這種方式訪問數(shù)據(jù)，可以使用任何一種 ODBC 數(shù)據(jù)源，即不止適合于 SQL Server、 Oracle、 Access等數(shù)據(jù)庫應(yīng)用程序，也適合與 Excel 表格、文本文件、圖形文件和無格式的數(shù)據(jù)文件。由于本系統(tǒng)是一個(gè)小型的 MIS 管理系統(tǒng)，因此對計(jì)算機(jī)硬件的要求不高，比較經(jīng)濟(jì)，只要配備有 PII300 處理器（或以上）、 64M 內(nèi)存（或以上）、 20G硬（或以上）的普通微機(jī)即可順利運(yùn)行。 數(shù)據(jù)庫采用 MICROSOFT ACCESS，由于我們的系統(tǒng)要求，采用它完全可以適合我們的工作需求，并且它所支持的數(shù)據(jù)類型十分豐富，維護(hù)簡便，費(fèi)用較低，容易升級?？紤]到我這個(gè)系統(tǒng)針對的用戶，已經(jīng)價(jià) 格方面的考慮，完全可以使用 Access 來進(jìn)行開發(fā)，而且我在使用 Visual Basic的時(shí)候，操作數(shù)據(jù)庫方面使用的是微軟提供的數(shù)據(jù)訪問接口，先我們來了介紹一下 Visual Basic 以及微軟提供了哪些數(shù)據(jù)庫訪問方法，并且各自都有什么特點(diǎn)。如果已使用過諸如 Paint 之類的繪圖程序，則實(shí)際上已掌握了創(chuàng)建用戶界面的必要技巧。 Visual Basic 不僅是 Visual Basic 編程語言。 接著，我們再從 Visual Basic 的發(fā)展歷史來進(jìn)一步地認(rèn)識一下它。在微軟的其它應(yīng)用程序，如 WORD 字處理軟件、 EXCEL 電子報(bào)表軟件、 ACCESS 數(shù)據(jù)庫軟件中都做了改變，使得它們可以與 Visual Basic 一致工作。 Visual Basic 的完美之處在于它能使程序員獲得一塊數(shù)據(jù) —— 如報(bào)表，并將它看作是 Visual Basic 的對象。除了一般應(yīng)用程序外，程序員還能創(chuàng)建文檔、 DLLs、 OLE服務(wù)器和 ActiveX控件。我們現(xiàn)在所使用的 Visual 被看著是 Visual Basic 的網(wǎng)絡(luò)版本。換句話說，程序員在很大程度上可以與數(shù)據(jù)庫交互作用，而不用擔(dān)心網(wǎng)絡(luò)上由誰來提供服務(wù)。目前的Access 2021是 Microsoft強(qiáng)大的桌面數(shù)據(jù)庫平臺(tái)的第六代產(chǎn)品，是 3 2位 Access的第三個(gè)版本。每一行稱為一個(gè)“記錄”，包含與單個(gè)實(shí)體有關(guān)的所有信息，如某個(gè)員工的姓名、性別、所在部門、學(xué)歷等。例如，可以設(shè)計(jì)一個(gè)查詢來告知在公 司中工作超過 1年的職員有多少。 （ 5）報(bào)表是一個(gè) Access 對象，設(shè)計(jì)來顯示數(shù)據(jù)，其作用類似于窗體，但主要是用于數(shù)據(jù)打印，不能輸入數(shù)據(jù)。 （ 8）模塊是用 Visual Basic for Applications(VBA) 編寫的過程， VBA是Access 的基礎(chǔ)程序設(shè)計(jì)語言。系統(tǒng)還設(shè)計(jì)了限制消費(fèi)的功能。 前臺(tái)收銀系統(tǒng)的埋單又與其他營業(yè)場所不同，前臺(tái)的埋單允許客人一帳多單，分期埋單，分類別埋單，退房時(shí)能自動(dòng)檢測：客人的帳務(wù)余額為零；客人帳號的帳項(xiàng)為空；保險(xiǎn)箱鑰匙以歸還，否則系統(tǒng)拒絕退房。 4．帳務(wù)系統(tǒng) 除具有收銀系統(tǒng)的功能外，還具有糾錯(cuò)、報(bào)表輸出等功能，能將損失降至最低 5．管家系統(tǒng) 設(shè)置凈房、臟房、壞房、及取消壞房 設(shè)置 SKIP 房、 SLEEP 房 查詢凈房表、臟房表、壞房表 房間狀態(tài) 新入住查詢 6．電話系統(tǒng) 自動(dòng)計(jì)費(fèi) 夜審系統(tǒng) 夜間稽核應(yīng)該是控制酒店經(jīng)營的一個(gè)核心部分 ,每天的經(jīng)營情況都必須經(jīng)由夜間審核 .本系統(tǒng)提供的功能有 :過房租 .每天一次地將在住客的帳目加上當(dāng)天的房租費(fèi)用日營業(yè)報(bào)表 .將當(dāng)天的收入分類統(tǒng)計(jì) .產(chǎn)生客人余額表 .客人明細(xì)帳查詢 .便于夜審人員核對明細(xì)帳 . 客人信息查詢 動(dòng)態(tài)房態(tài)查詢 房間明細(xì)帳查詢 收銀員報(bào)表 當(dāng)日入住客人報(bào)表 7．客歷系統(tǒng) 客人資料手工、自動(dòng)輸入 客人資料查詢與修改 黑名單 入住客人自動(dòng)查詢客歷 入住客人自動(dòng)歸入客歷 客歷合并 8．合約系統(tǒng) 可將酒店簽約的單位或個(gè)人的資料輸入電腦，并可隨時(shí)查詢、修改和刪除。 組 成：預(yù)訂 +接待 +取消預(yù)訂 +離店 數(shù)據(jù)處理名：后臺(tái)加工 簡 述：在酒店中不直接與客人發(fā)生關(guān)系的活動(dòng)，包括間接為客 人提供的服 務(wù)，以及酒店的內(nèi)部管理體系，主要是庫房管理， IC卡管理，總理 查詢等。 備注 ： 按照客人從住店、離店的過程將系統(tǒng)劃分為預(yù)訂、接待、取消預(yù)訂和離店四個(gè)處理過程。 個(gè)人預(yù)訂 ： 個(gè)人預(yù)訂數(shù)據(jù)字典 數(shù)據(jù)處理名：房間查詢 簡 述：根據(jù)客人的預(yù)訂要求，查詢客房預(yù)訂信息表，確定是否有空房 輸 入：客戶信息，來源：外部實(shí)體 “ 客人 ” 輸 出： [1] 無客房，去處：外部實(shí)體 “ 客人 ” [2] 有客房，預(yù)訂登記表，去處 ： “ 客人信息 ” 數(shù)據(jù)流名稱：預(yù)訂登記表 簡 述：在房間查詢有房時(shí)所填的表，用于記載客人信息 組 成：身份證號 +姓名 +性別 +年齡 +民族 +國籍 +家庭住址 +VIP+電話 數(shù)據(jù)處理名：訂房 簡 述：根據(jù)客人的預(yù)訂要求，確定客人訂什么房，哪類房，多少間房，是否 確定具體房間。預(yù)訂完成。 （ 3）取消預(yù)訂 表 5：取消預(yù)訂數(shù)據(jù)字典 數(shù)據(jù)處理名：預(yù)訂查詢 簡 述：核對客人的 “ 預(yù)訂證明表 ” 。 （ 6）接待團(tuán)體（已預(yù)訂） 表 7：接待預(yù)訂團(tuán)體數(shù)據(jù)字典 數(shù)據(jù)處理名：查詢驗(yàn)證預(yù)訂表 簡 述：核對客人的預(yù)訂表是否與數(shù)據(jù)庫中的相符 輸 入：預(yù)訂證明表，來源：外部實(shí)體 “ 客人 ” 輸 出：登記表，去處：查詢客房 接待團(tuán)隊(duì)（已預(yù)定）的過程與接待未預(yù)訂的相似，只是開始要驗(yàn)證 “ 預(yù)訂表 ” ，同時(shí)不必進(jìn)行客人查詢而可 直接入住。 （ 8）離店 表 8：離店收銀數(shù)據(jù)字典 數(shù)據(jù)處理名：退房 簡 述：在客人離店的時(shí)候，核實(shí)房間的物件等，同時(shí)更改 “ 客房占用信息表 ” 輸 入：有客人 ID的 IC卡，來源：外部實(shí)體 “ 客人 ” 輸 出： [1] 有問題，去處：外部實(shí)體 “ 客人 ” [2] 無問題，退房憑證，去處： 收銀 數(shù)據(jù)流名稱：退房憑證 簡 述：在房間核實(shí)無誤后開給客人的允許結(jié)帳憑證 組 成：身份證號 +姓名 +性別 +IC卡 ID號 +客房核實(shí)結(jié)果 數(shù)據(jù)處理名：收銀 簡 述：根據(jù)客人的消費(fèi)進(jìn)行收取費(fèi)用、退還押金。同時(shí)通過登陸信息輸入來確認(rèn)使用權(quán)限， 管理員通過登陸系統(tǒng)后，便可 進(jìn)行管理和維護(hù)。查找用戶名 Name=39。, , adSearchForward, 1 39。 amp。沒找到記錄 strUserName = strPassword = End If If strUserName = And strPassword = Then 39。用戶名或密碼不對 MsgBox 用戶名或密碼不對！ , vbOKOnly + vbInformation, 提示 intLoginTimes = intLoginTimes + 1 If intLoginTimes = 3 Then 39。重新輸入密碼 SendKeys {HOME}+{END} End If End Sub 系統(tǒng)主界面 當(dāng)輸入用戶名和密碼正確則進(jìn)入系統(tǒng)主界面，如圖 所示。 主要代碼如下所示： Private Sub cmdAddNew_Click() With frmRoomInfoEdit 39。默認(rèn)教師為第一項(xiàng) If . = 0 Then . = 1 Else . = 0 End If .txtRoomRate = 39。標(biāo)準(zhǔn)間 . = 0 Else 39。 主要代碼如下所示： Private Sub cmdAddNew_Click() With frmGuestInfoEdit 39。 !RoomNo amp。窗體標(biāo)題 .Caption = 修改客人信息 . = !BookNo . = True . = !GuestName . = !CardID .txtRoomNo = !RoomNo . = !BookDate 39。實(shí)施綁定 .AllowRowSizing = False 39。第一列標(biāo)題和寬度 .Columns(0).Caption = 登記號 .Columns(0).Width = 80 .Columns(0).AllowSizing = False 39。Private Sub mnuQueryRoomInfo_Click() 39。先查詢出結(jié)果 OpenTable , select * from Room order by RoomNo,RoomRate With drpRoomRequired Set .DataSource = 39。顯示報(bào)表預(yù)覽 .Show End With End Sub 系統(tǒng)為用戶提供了很多的功能。因此，該系統(tǒng)必然會(huì)存在一些缺陷和不足。相信該酒店客房管理系統(tǒng)將是一套酒店客房管理員必不可少的管理軟件。在這里我要感謝所有曾給予我指導(dǎo)和幫助的學(xué)院的老師們，沒有你們不厭其煩的教誨，就沒有我的今天。d go find some action, women, or cards, usually. A nd that was it for the rest of the night. Damn Eric, anywayl That reminds me again . . . He once accused me of cheating at cards, did you know that? And that39。m also luc ky. Eric was neither. The trouble with him was that he was good at so many things he woul dn39。m here, I said. What39。t be sure. It was far from Amber, somewhere where the shadows go mad. Farther than I like to go. Star k, w ith shifting colors. Fiery. Day without a sun in the sky. Rocks that glided like sailboats across the land.。t make out. Where? I a sked. He shook his head at that. Can39。s gliding and not much sleep the night before. I decided later that it must be our mental quir k associated w ith the Trumps that made me see it that way when someone was trying to reach me and I had cards in my handany cards. Ordinarily, of course, we get the message empty handed, unless we are doing the calling. It could have been that my subconsciouswhich was kind of footloose at the timejust seized on the available props out of habit Later, though, I had cau