酒店管理系統(tǒng)課程設(shè)計(jì)

1、目錄 TOC o 1-5 h z HYPERLINK l bookmark6 o Current Document 第1章需求分析1 HYPERLINK l bookmark9 o Current Document 1.1系統(tǒng)概述1 HYPERLINK l bookmark12 o Current Document 1.2系統(tǒng)功能需求分析 1 HYPERLINK l bookmark18 o Current Document 第2章 管理系統(tǒng)平臺(tái)的選用2 HYPERLINK l bookmark21 o Current Document 2.1數(shù)據(jù)庫系統(tǒng)的選擇原則2 HYPERLINK l b

2、ookmark30 o Current Document 2.2系統(tǒng)開發(fā)工具的選擇2 HYPERLINK l bookmark37 o Current Document 第3章酒店管理概述3 HYPERLINK l bookmark40 o Current Document 3.1系統(tǒng)數(shù)據(jù)需求3 HYPERLINK l bookmark46 o Current Document 3.2系統(tǒng)業(yè)務(wù)功能的需求3 HYPERLINK l bookmark55 o Current Document 3.3系統(tǒng)性能需求：3 HYPERLINK l bookmark62 o Current Document

3、 第4章 系統(tǒng)總體設(shè)計(jì)5 HYPERLINK l bookmark65 o Current Document 4.1系統(tǒng)功能模塊設(shè)計(jì)5 HYPERLINK l bookmark76 o Current Document 4.2系統(tǒng)結(jié)構(gòu)設(shè)計(jì)7 HYPERLINK l bookmark79 o Current Document 4.3系統(tǒng)數(shù)據(jù)流程圖 8 HYPERLINK l bookmark82 o Current Document E-R 圖9 HYPERLINK l bookmark85 o Current Document 系統(tǒng)的運(yùn)行要求9 HYPERLINK l bookmark88 o

4、 Current Document 第5章詳細(xì)設(shè)計(jì)與實(shí)現(xiàn)10 HYPERLINK l bookmark91 o Current Document 5.1數(shù)據(jù)庫設(shè)計(jì)10 HYPERLINK l bookmark102 o Current Document 5.2創(chuàng)建主窗體以及主要窗體 135.3代碼設(shè)計(jì)錯(cuò)誤！未定義書簽。 HYPERLINK l bookmark119 o Current Document 第6章系統(tǒng)評(píng)價(jià)28 HYPERLINK l bookmark122 o Current Document 6.1系統(tǒng)的測(cè)試28 HYPERLINK l bookmark128 o Curren

5、t Document 6.2要注意到的問題29 HYPERLINK l bookmark131 o Current Document 6.3將來可能提出的要求29結(jié)論30參考文獻(xiàn)31第1章需求分析1.1系統(tǒng)概述隨著社會(huì)經(jīng)濟(jì)的發(fā)展，酒店、賓館在服務(wù)行業(yè)扮演著越來越重要的角色。酒 店行業(yè)的競(jìng)爭(zhēng)表現(xiàn)在管理和服務(wù)水平的競(jìng)爭(zhēng)，它影響到酒店的形象和聲譽(yù)。這就 要求通過先進(jìn)的管理來提高服務(wù)質(zhì)量，盡可能做到讓客戶滿意。因此，非常需要 一套酒店管理系統(tǒng)來對(duì)客房信息，經(jīng)營情況以及客戶信息進(jìn)行管理。酒店管理系 統(tǒng)為管理者制定決策判斷提供了可行依據(jù)。判斷提供迅速高效的、系統(tǒng)化的服務(wù)， 避免手工處理的繁瑣與誤差，成為酒

6、店、賓館經(jīng)營的重中之重。但是目前商業(yè)性 的酒店管理軟件大多數(shù)是舍用于大、中型酒店，其操作復(fù)雜，收費(fèi)昂貴，還需專 業(yè)維護(hù)。這就造成了很多小型酒店以及小型賓沒有客房的管理軟件，對(duì)于其賓館 的經(jīng)營造成管理的繁瑣與混亂。所以開發(fā)一款社用于小型酒店或小型賓館的客房 管理軟件時(shí)必須的。1.2系統(tǒng)功能需求分析該系統(tǒng)的功能需求有如下幾個(gè)方面：客房管理。主要用于對(duì)客房信息進(jìn)行維護(hù)。功能包括對(duì)客房信息的添加、 修改和刪除已有的客戶信息，對(duì)客房信息進(jìn)行查詢。住宿管理。主要用于對(duì)入住信息進(jìn)行維護(hù)。功能包括對(duì)入住信息的添加、 修改和查詢。結(jié)算管理。主要用于對(duì)客房結(jié)賬和對(duì)結(jié)算歷史信息的查詢。功能包括結(jié) 賬(計(jì)算費(fèi)用、記錄

7、結(jié)賬信息)和結(jié)算查詢。第2章管理系統(tǒng)平臺(tái)的選用2.1數(shù)據(jù)庫系統(tǒng)的選擇原則1、數(shù)據(jù)庫系統(tǒng)采用易于集成的，開放的技術(shù)。2、產(chǎn)品質(zhì)量優(yōu)異，可靠性高，適于長期運(yùn)行，能支持關(guān)鍵應(yīng)用。3、數(shù)據(jù)安全，保安型高。4、能提供分布式數(shù)據(jù)庫功能。5、支持多種開發(fā)環(huán)境，軟件開發(fā)容易。6、擴(kuò)充性和升級(jí)能力強(qiáng)。2.2系統(tǒng)開發(fā)工具的選擇本次系統(tǒng)設(shè)計(jì)選用的是Visual Basic作為開發(fā)工具，因?yàn)閂isual Basic具 有以下優(yōu)越的功能：簡(jiǎn)單，易學(xué)，易用快速完成應(yīng)用任務(wù)使用方便的工具欄支持中英文輸入法用項(xiàng)目管理器統(tǒng)一界面第3章酒店管理概述3.1系統(tǒng)數(shù)據(jù)需求數(shù)據(jù)錄入和處理的準(zhǔn)確性和實(shí)時(shí)性。數(shù)據(jù)的一致性與完整性。數(shù)據(jù)的共享

8、與獨(dú)立性。3.2系統(tǒng)業(yè)務(wù)功能的需求實(shí)現(xiàn)客房信息管理功能實(shí)現(xiàn)客戶信息管理功能實(shí)現(xiàn)預(yù)定管理功能實(shí)現(xiàn)入住管理功能實(shí)現(xiàn)消費(fèi)記賬功能實(shí)現(xiàn)收銀退房功能綜上，我們將系統(tǒng)的功能大體劃分為三大模塊：權(quán)限管理：包括管理員的登錄前臺(tái)管理：包括客戶信息的錄入、客戶預(yù)訂和入住登記以及結(jié)算 的管理等。后臺(tái)報(bào)表管理：包括報(bào)表的打印3.3系統(tǒng)性能需求：為了保證系統(tǒng)能夠長期、安全、穩(wěn)定、可靠、高效的運(yùn)行，系統(tǒng)應(yīng)該滿足以 下的性能需求：系統(tǒng)處理的準(zhǔn)確性和及時(shí)性系統(tǒng)處理的準(zhǔn)確性和及時(shí)性是系統(tǒng)的必要性能。在系統(tǒng)設(shè)計(jì)和開發(fā)過程中， 要充分考慮系統(tǒng)當(dāng)前和將來可能承受的工作量，使系統(tǒng)的處理能力和響應(yīng)時(shí)間能 夠滿足用戶對(duì)信息的處理。系統(tǒng)的開

9、放性和系統(tǒng)的可擴(kuò)充性系統(tǒng)在開發(fā)過程中，應(yīng)該充分考慮以后的可擴(kuò)充性。例如系統(tǒng)權(quán)限和客房信 息設(shè)置等模塊也會(huì)不斷的更新和完善。所有這些都要求系統(tǒng)提供足夠的手段進(jìn)行 功能的調(diào)整和擴(kuò)充。而要實(shí)現(xiàn)這一點(diǎn)，應(yīng)通過系統(tǒng)的開放性來完成，既系統(tǒng)應(yīng)是 一個(gè)開放系統(tǒng)，只要符合一定的規(guī)范，可以簡(jiǎn)單的加入和減少系統(tǒng)的模塊，配置 系統(tǒng)的硬件。（3）系統(tǒng)的易用性本酒店客房管理系統(tǒng)面向的用戶是酒店內(nèi)工作人員，而有些使用人員往往對(duì) 計(jì)算機(jī)并不是非常熟悉，所以系統(tǒng)操作上要求簡(jiǎn)單、方便、快捷，便于用戶使用。 這就要求系統(tǒng)能夠提供良好的用戶接口，易用的人機(jī)交互界面。（4）系統(tǒng)的響應(yīng)速度系統(tǒng)設(shè)計(jì)中摒棄大量數(shù)據(jù)冗余，提出了優(yōu)化數(shù)據(jù)庫的解

10、決方案，大量使用存 儲(chǔ)過程，大大提高系統(tǒng)響應(yīng)時(shí)間和速度。第4章系統(tǒng)總體設(shè)計(jì)本部分主要介紹系統(tǒng)要實(shí)現(xiàn)的功能，搭好設(shè)計(jì)的總體框架，使我們對(duì)要開發(fā) 的系統(tǒng)有一個(gè)系統(tǒng)、全面、確切的認(rèn)識(shí)。4.1系統(tǒng)功能模塊設(shè)計(jì)結(jié)合前面需求分析階段的結(jié)果進(jìn)行綜合處理，確定了客房管理系統(tǒng)需要完成 的功能，主要?jiǎng)澐譃橐韵履K：結(jié)算管理結(jié)賬(2)結(jié)賬查詢客房信息管理設(shè)置客房標(biāo)準(zhǔn)添加客房標(biāo)準(zhǔn)修改客房標(biāo)準(zhǔn)刪除客房標(biāo)準(zhǔn)設(shè)置客房信息添加客房信息修改客房信息添加客房類型查詢客房信息住宿信息管理(1)添加入住信息(2)修改入住信息查詢?nèi)胱⌒畔⒛K設(shè)計(jì)圖如下:圖4-1系統(tǒng)功能模塊圖4.2系統(tǒng)結(jié)構(gòu)設(shè)計(jì)系統(tǒng)的主要結(jié)構(gòu)：系統(tǒng)的封面以表單開始，要求

11、用戶輸入登錄，若密碼錯(cuò)誤，則自動(dòng)退出，否 則出現(xiàn)系統(tǒng)主菜單，接受用戶的操作，操作完畢后用戶可以從系統(tǒng)菜單中退出系 統(tǒng)，系統(tǒng)運(yùn)行的步驟如圖：4.3系統(tǒng)數(shù)據(jù)流程圖圖4-3系統(tǒng)數(shù)據(jù)流程圖4.4 E-R 圖住宿登N客房入住 信息表備注信息是否結(jié)賬顧客姓名入住登記日期住宿登N客房入住 信息表備注信息是否結(jié)賬顧客姓名入住登記日期4.5系統(tǒng)的運(yùn)行要求軟、硬件環(huán)境：硬件:客戶機(jī)（CPU P200以上，內(nèi)存：32M以上）、數(shù)據(jù)庫服務(wù)器（CPU PIII800 以上，內(nèi)存：256M或以上。以Microsoft windows操作系統(tǒng)為工作平臺(tái)。以 Microsoft Visual Basic 6.0 為開發(fā)工具。

12、數(shù)據(jù)庫環(huán)境是 Microsoft Office Access 2003。第5章詳細(xì)設(shè)計(jì)與實(shí)現(xiàn)5.1數(shù)據(jù)庫設(shè)計(jì)（1）數(shù)據(jù)庫需求分析設(shè)計(jì)的數(shù)據(jù)庫系統(tǒng)應(yīng)用于酒店管理系統(tǒng)，所以必須充分滿足酒店客房管理系 統(tǒng)的各種要求。此系統(tǒng)要求記錄每一次酒店客戶的住宿登記、調(diào)房登記和退宿結(jié) 賬的操作信息，并允許系統(tǒng)用戶對(duì)這些信息進(jìn)行查詢。另外，必須建立一些輔助 項(xiàng)目表為這些操作信息提供數(shù)據(jù)來源。通過以上的分析，數(shù)據(jù)庫設(shè)計(jì)必須滿足以 下幾點(diǎn)：（1）記錄酒店客戶住宿登記操作的信息。（2）記錄酒店客戶退房結(jié)賬操作的信息。（3）記錄酒店客房的相關(guān)信息。（4）記錄酒店客戶的客房預(yù)訂信息。（5）記錄系統(tǒng)用戶的用戶名、密碼和操作權(quán)

13、限。（2）建立Access數(shù)據(jù)庫及表在一個(gè)酒店管理系統(tǒng)中，數(shù)據(jù)庫的地位是非常重要的，是一個(gè)系統(tǒng)正常運(yùn) 行的基礎(chǔ)。本系統(tǒng)的數(shù)據(jù)庫是采用Microsoft公司的Access 2003設(shè)計(jì)的。在數(shù) 據(jù)庫的設(shè)計(jì)過程中，首先是收集、分析需求；再從需求抽象出一般的實(shí)體、關(guān) 系和他們的屬性；再將這些實(shí)體、關(guān)系和屬性按照一定的規(guī)則轉(zhuǎn)化為二元表結(jié) 構(gòu)。本系統(tǒng)中共有4數(shù)據(jù)表表3-1為Usersinfo管理員資料數(shù)據(jù)表。管理員資料數(shù)據(jù)表記錄了所有管理 的基本資料，管理員可添加、刪除和查詢?cè)摫?。該表包括管理員ID、姓名、密 碼和權(quán)限等資料。表3-1為Usersinfo管理員資料數(shù)據(jù)表字段名類型大小說明姓名Text20

14、管理人員帳號(hào)（主鍵）密碼Text20管理人員密碼（主鍵）權(quán)限Text1管理人員權(quán)限如下圖所示：JIFV J I|I-=_l-nj1丘Usersirirv慕X界 quit、姓名 一碼 , 權(quán)限-單志,嗣， TOC o 1-5 h z 何苗123456Y王五14貶貿(mào)Y張三4567S9YI表3-2為add旅客入住登記表。add日主登記表記錄了入住旅客的基本個(gè)人 信息、房間號(hào)、登記號(hào)等。表3-2旅客信息表為旅客的個(gè)人信息加入住客房信息數(shù)據(jù)結(jié)構(gòu)表字段名類型大小說明登記號(hào)Text8旅客入住號(hào)（主鍵）姓名Text8旅客姓名（不為空）身份證號(hào)碼Text18旅客身份證號(hào)（不為空）房間號(hào)Text3入住房間號(hào)（不為

15、空）登記日期Text日期/時(shí)間旅客入住時(shí)間（不為空）性別Text3旅客性別籍貫Text8旅客籍貫如下所示:| 含 Usersinfo j 蕓 add 1 翌 roo登記號(hào)-姓名 -身僚證號(hào)箕房間號(hào)7登記日期-性別 “藉貫 -1001王蒙衛(wèi)45266219760101M7/11X21男湖北100243365219970501017?ril/18 男河南1003陳柏霖42365519891402臺(tái)渣100445266219970403?2017/11/6：女湖北*表3-3為room資料數(shù)據(jù)表。room料數(shù)據(jù)表記錄了 room基本資料，可供查 詢。該表主要包括了房間號(hào)、客房等級(jí)、客房類型、客房價(jià)格、

16、客房狀態(tài)、客房 備注信息等基本資料。表3-2room資料數(shù)據(jù)表字段名類型大小說明房間號(hào)Text3房間號(hào)（主鍵）客房等級(jí)Text8客房等級(jí)客房類型Text8客房類型（不為空）客房價(jià)格數(shù)字單精度型客房價(jià)格（不為空）客房狀態(tài)Text3客房狀態(tài)（不為空）客房備注信息備注8客房備注信息如下所示:西 Usersinfo ! W 西 Usersinfo ! W add | room 藝 quit房間號(hào)客房等級(jí)T著房類型客房價(jià)乎eT客房狀態(tài) 101 如_20212 Q 4206301客房備注信，卓苦寂赫：2,401幡4必404501S展5Q3504來般般 華華華華牧華統(tǒng)統(tǒng)華華-好好好豪豪豪豪薈豪總總豪豪房房

17、間間間間間房房房房房房套套房房 AI.人AI.A卷床床務(wù)fiss統(tǒng)統(tǒng)務(wù)務(wù) 單單單單單大-大商商會(huì)商總總商商空空有有空空空空空空空空空空有 .QIo o Qai，o.，Qi，Q 5 5 8 8 -H- o- o 4 4 -o A- 8 00 4# 1-1-11-12 2 2- 23 2-7 7 2 2表3-4為quit資料數(shù)據(jù)表。quit資料數(shù)據(jù)表記錄了所有退房的基本資料，管 理員可添加、刪除和查詢?cè)摫?。類型的基本資料，包括登記號(hào)、登記日期、退房 日期、付款金額、退房備注信息。字段名類型大小說明登記號(hào)Text8旅客入住號(hào)（主鍵）登記日期日期/時(shí)間旅客登記時(shí)間（不為空）退房時(shí)間日期/時(shí)間旅客退房時(shí)

18、間（不為空）付款金額Text單精度型付費(fèi)金額（不為空）退房備注信息Text8退房備注信息表3-4為quit資料數(shù)據(jù)表如下所示:iruu x uuu ; ;J uurri |登記號(hào) ,I登記日期，|退房時(shí)間，|付款金額，|退房備注信-單擊以添花h *10012017/11M2017/11/22150 |1002-2017/11/182017/11/201S過1003.2017/11/192G17/11/2719S010042017/11/262017/11/27380米0連接數(shù)據(jù)庫：由于本系統(tǒng)是采用ADO對(duì)象訪問數(shù)據(jù)庫的技術(shù)，所以在VB中需要添加 ADO庫。添加的方法是在VB中選擇“工程”一“引

19、用”命令，在對(duì)話框中選擇 Microdoft ActiveX Data Objects 2.0 Library，單擊“確定按鈕。在程序設(shè)計(jì)的公共模塊中，先定義ADO連接對(duì)象。語句如下：Public conn As New ADODB.connection標(biāo)記連接對(duì)象Dim connection As StringConnectionString = provider=microsoft.jet.oledb.4.0; & data source=carshale.mdb”conn.Open ConnectionString5.2創(chuàng)建主窗體以及主要窗體建立主窗體：?jiǎn)螕簟惫こ獭?”添加MDI窗體”菜

20、單，在彈出的對(duì)話框中單 擊”打開”按鈕則為當(dāng)前項(xiàng)目添加了一個(gè)MDI窗體。設(shè)置好MDI窗體屬性后，設(shè) 置此項(xiàng)目的屬性。單擊”工程”-”工程1屬性”菜單，進(jìn)入項(xiàng)目屬性設(shè)置窗體。在此項(xiàng)目屬性窗體中通用選項(xiàng)卡的啟動(dòng)對(duì)象中選擇MDIfrmMain項(xiàng)，將這一多文 檔窗體作為程序的啟動(dòng)窗體。備工程 1 - Microsoft Visual Basic t+ - I程 1 - MDIfrmMian (MDIForm)、文件(B編輯舊 視囹GD工程 格式(2)調(diào)試(0)運(yùn)行 查詢囹表(D TMCD夕圈程序 &Ge標(biāo)題(P)：醵畫匚名稱(M):|xt索引倆廠幫助上下文ID(H):Ge標(biāo)題(P)：醵畫匚名稱(M):

21、|xt索引倆廠幫助上下文ID(H):r復(fù)選(c)P有效(E)取消快W(S): 國舫 3 協(xié)調(diào)位置(。):|0 - Bone | p可見(V) r顯示窗口列表(W)0.1圖41菜單結(jié)構(gòu)(1)登錄模塊的設(shè)計(jì)：此模塊的功能是檢查管理員是否有進(jìn)入系統(tǒng)的權(quán)限。用到的主要控件為二個(gè)text、兩個(gè)label和兩個(gè)Button按鈕。窗體界面如圖4-2 所示。M 0登靈歡迎使用酒店管理系統(tǒng)用戶名何苗膏碼:*I 確定取消Iruer圖4-2登錄窗體的界面在此模塊中管理員可以選擇相應(yīng)的管理員帳號(hào)進(jìn)行登錄，減去了忘記帳號(hào)或 帳號(hào)名輸入不方便的煩惱。（2）主頁面模塊的設(shè)計(jì)：此模塊是系統(tǒng)服務(wù)器端的主要控制界面，通過菜單 的

22、選擇，可以控制系統(tǒng)的所有功能，窗體界面如圖4-3,4-4所示。主界面的設(shè)計(jì)步驟：1）設(shè)計(jì)主界面控件布局：在主界面的布局中使用了工具欄（ToolBar）、時(shí)鐘 控件（timer）和圖象列表（ImageList）等非Vb標(biāo)準(zhǔn)控件。2）工具欄的設(shè)置：給工具欄添加按鈕3）添加菜單：菜單的使用是為了更好的給用戶提供功能指引。工具欄列表系統(tǒng)通過Timer控件在狀態(tài)欄中顯示系統(tǒng)的當(dāng)前時(shí)間，Timer控件的時(shí)間間隔是 1000，也就是1秒鐘，這樣狀態(tài)欄中的時(shí)間每秒鐘都會(huì)變化，達(dá)到顯示系統(tǒng)時(shí)鐘 的目的，具體實(shí)現(xiàn)代碼為：Private Sub Timer1_Timer（）StatusBar1.Panels（2）.

23、Text = Date & & TimeEnd Sub（4）創(chuàng)建系統(tǒng)主界面當(dāng)系統(tǒng)運(yùn)行時(shí)，首先進(jìn)入登錄界面，當(dāng)輸入帳號(hào)，密碼合法時(shí)，則啟動(dòng)系統(tǒng)主界 面。奈統(tǒng)玫能 基本信息髀 悟息查詢 窗口布局才睞轅出 幫助信息客房信息 入客房信息 入住情況 運(yùn)房記錄 信息查詢 報(bào)表打印退昌圖4-4圖4-4系統(tǒng)主窗體的界面5）用戶進(jìn)入客房需要必要的登記來完成如圖:房e- ! - IkxT.n嘲猝- 房e- ! - IkxT.n嘲猝- X性別女霜貫湖北圖4-6已經(jīng)登記的用戶(6)退房信息：當(dāng)旅客離開賓館時(shí)，需要為其辦理退房手續(xù)，在這過程中需要 在旅客退房信息表中添加記錄信息，以及修改客房信息表，改變客房狀態(tài)。旅客退

24、房信息窗體，工作界面設(shè)計(jì)情況如圖：圖4-7圖4-7退房登記表查詢住戶信息：此界面用于查詢房間狀態(tài)如是否有所需的類型或是否為空 房或滿房，可以全部瀏覽，也可以按照查詢條件來查找，如圖：奇看類別奇看81028103 8202 8301 81028103 8202 8301 6102840T S1LHBJ司司司司司可 AIArAr種軻AIAI 早算京蕾善四nr.卷住住定房房房齋AA預(yù)空屋室圖4-8客房狀態(tài)界面入住.3 我定：L 空闈.3 使用率42 65T1拿出查詢客房：客查詢窗體主要功能是實(shí)現(xiàn)客房信息查詢顯示，查詢方式可以是 按旅客姓名，登記號(hào)也可以按房間號(hào)查詢。工作界面如圖：圖4-9查詢住戶登記

25、表客房情況打印表:5.3代碼設(shè)計(jì)一、酒店管理信息系統(tǒng)程序代碼：Private Sub CmdOK_Click()Dim s1 As StringDim i As IntegerDim j As IntegerDim a(18) As Stringj = Len(txtUserName.Text)si = txtUserName.TextDim c As Integerc = 1For i = 1 To ja(i) = Mid(s1, i, 1)逐一判斷字符的合格化If a(i) = ThenMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = T

26、henMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = = ThenMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = ThenMsgBox Error, vbOKOnly, ErrorExit SubMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = , ThenMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = ThenMsgBox Error, vbOKOnly, ErrorExit Su

27、bEnd Ifc = c + 1txtUserName.SetFocusNext iDim strusername As StringDim strpassword As StringStatic intlogintimes As IntegerIf Trim(txtUserName.Text) = ThenMsgBox ”用戶名不能為空！ ”, vbOKOnly + vbCritical,錯(cuò)誤”Exit SubEnd Ifopentable adousers, usersinfoadousers.Refreshadousers.Recordset.Find 姓名=& & txtUserNam

28、e.Text & , , adSearchForward, 1If Not adousers.Recordset.EOF Thenstrusername = adousers.Recordset!姓名strpassword = adousers.Recordset!密碼Elsestrusername =strpassword =End IfIf strusername = txtUserName.Text And strpassword = txtPassword.Text Thenadousers.Recordset.CloseUnload Me frmmdi.ShowElseMsgBox

29、用戶名或密碼不對(duì)！, vbOKOnly + vbInformation,提示intlogintimes = intlogintimes + 1If intlogintimes = 3 Thenadousers.Recordset.CloseEndEnd IftxtPassword.SetFocusSendKeys HOME+ENDEnd IfEnd SubPrivate Sub cmdcancel_click()Unload MeEnd SubOption ExplicitPrivate Sub Command1_Click()With frmmdi.adoroom.RecordsetIf N

30、ot txtroomno.Locked ThenIf Trim(txtroomno.Text) = ThenMsgBox 房間號(hào)不能為空！ ，vbOKOnly + vbInformation,提示txtroomno.SetFocusExit SubEnd IfEnd If!房間號(hào) = Trim(txtroomno.Text)!客房等級(jí)=Trim(txtroomgrade.Text)!客房類型=Trim(txtroomtype.Text)!客房價(jià)格=Trim(txtroomprice.Text)!客房狀態(tài)=Trim(txtroomstatus.Text) !客房備注信息=txtroominfo.

31、TextUpdateUnload MeEnd WithEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub退房登記實(shí)現(xiàn)代碼：Private Sub CmdOK_Click()With frmmdi.adoquit.RecordsetIf Not txtbookno.Locked ThenIf Trim(txtbookno.Text) = ThenMsgBox 登記號(hào)不能為空!, vbOKOnly + vbInformation,提示txtbookno.SetFocusExit SubEnd Iffrmmdi.adoguest.Recordset

32、.Find 登記號(hào)=& Trim(txtbookno.Text) &,adSearchForward, 1If frmmdi.adoguest.Recordset.EOF ThenMsgBox 非法登記號(hào)!，vbOKOnly + vbInformation,提示txtbookno.SetFocusSendKeys HOME+ENDtxtpaymoney.Text =Exit SubEnd Iffrmmdi.adoquit.Recordset.Find 登記號(hào)=& Trim(txtbookno.Text) & , , adSearchForward, 1If Not frmmdi.adoquit

33、.Recordset.EOF Then有就提示，然后退出MsgBox 已經(jīng)有相同登記號(hào)!, vbOKOnly + vbInformation,提示” txtbookno.SetFocusSendKeys HOME+ENDtxtpaymoney.Text =Exit SubEnd If.AddNew!登記號(hào)=Trim(txtbookno.Text)End If!付款金額=Val(Trim(txtpaymoney.Text)!登記日期=Trim(txtbookdate.Text)!退房時(shí)間=dtpquitdate.TextUpdateIf Trim(txtinfo.Text) = ThenMsgB

34、ox 備注不能為空!, vbOKOnly + vbInformation,提示txtinfo.SetFocusEnd If!退房備注信息=txtinfo.TextUpdateUnload Mefrmmdi.adoroom.Recordset!客房狀態(tài)=空With frmmdi.adoguest.RecordsetDeleteEnd WithEnd WithEnd SubPrivate Sub Command1_Click()If optroom Thenopentable frmmdi.Adoroom1, select * from room where (room.房間號(hào))like & Tr

35、im(txtvalue.Text)& % & )opentable frmmdi.Adorooml, select * from room where (room,客房等級(jí))like &Trim(txtvalue.Text) & % & )Elself opttype Thenopentable frmmdi.Adorooml, select * from room where (room,客房類型)like &Trim(txtvalue.Text) & % & )End IfdtgroomqueryinforefreshEnd SubPrivate Sub CmdOK_Click()Dim

36、sl As StringDim i As IntegerDim j As IntegerDim a(18) As Stringj = Len(txtUserName.Text)sl = txtUserName.TextDim c As Integerc = 1For i = 1 To ja(i) = Mid(s1, i, 1)If a(i) = ThenMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = ThenMsgBox Error, vbOKOnly, ErrorMsgBox Error, vbOKOnly, ErrorExit SubM

37、sgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = ThenMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = ThenMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = , ThenMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = ThenMsgBox Error, vbOKOnly, ErrorExit SubEnd Ifc = c + 1txtUserName.SetFocusNext iD

38、im strusername As StringDim strpassword As StringStatic intlogintimes As IntegerIf Trim(txtUserName.Text) = ThenMsgBox ”用戶名不能為空！ ”, vbOKOnly + vbCritical,錯(cuò)誤”Exit SubEnd Ifopentable adousers, usersinfoadousers.Refreshadousers.Recordset.Find 姓名=& & txtUserName.Text & , , adSearchForward, 1If Not adous

39、ers.Recordset.EOF Thenstrusername = adousers.Recordset!姓名 strpassword = adousers.Recordset!密碼Elsestrusername =strpassword =End IfIf strusername = txtUserName.Text And strpassword = txtPassword.Text Thenadousers.Recordset.CloseUnload Mefrmmdi.ShowElseMsgBox ”用戶名或密碼不對(duì)！”, vbOKOnly + vbInformation,提示”in

40、tlogintimes = intlogintimes + 1If intlogintimes = 3 Thenadousers.Recordset.CloseEndEnd IftxtPassword.SetFocusSendKeys HOME+ENDEnd IfEnd SubPrivate Sub cmdcancel_click()Unload MeEnd Sub二、主控制窗體代碼：Option ExplicitPrivate Sub MDIForm_Load()App.Title =賓館客房管理系統(tǒng)”opentable adoroom, roomopentable Adorooml, ro

41、omopentable adoguest, guestopentable Adoguestl, guestopentable adoquit, quitStatusBarl.Panels.Text =”歡迎登陸賓館管理系統(tǒng)”StatusBar1.Panels(2).Text = Date & & TimeEnd SubPrivate Sub mnuCascade_Click()frmmdi.Arrange vbCascadeEnd SubPrivate Sub mnudenglu_Click()frmLogin.ShowEnd SubPrivate Sub mnuExit_Click()Unl

42、oad MeEnd SubPrivate Sub mnuGuest_Click()frmGuestInfo.ShowEnd SubPrivate Sub mnuHor_Click()frmmdi.Arrange vbTileHorizontalEnd SubPrivate Sub mnuin_Click()frmusers.ShowEnd SubPrivate Sub mnuqueryguest_Click()frmqueryinfo.ShowEnd SubPrivate Sub mnuqueryroom_Click()frmqueryroom.ShowEnd SubPrivate Sub mnuQuit_Click()frmquitinfo.ShowEnd upPrivate Sub mnuver_Click()frmmdi.Arrange vbTileVe