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

年4月19日酒店管理系統(tǒng)課程設(shè)計(jì)文檔僅供參考目錄TOC\o"1-5"\h\u6807第1章需求分析 1310401.1系統(tǒng)概述 198951.2系統(tǒng)功能需求分析 112990第2章管理系統(tǒng)平臺(tái)的選用 2164532.1數(shù)據(jù)庫(kù)系統(tǒng)的選擇原則 2302682.2系統(tǒng)開發(fā)工具的選擇 27396第3章酒店管理概述 3252653.1系統(tǒng)數(shù)據(jù)需求 3270513.2系統(tǒng)業(yè)務(wù)功能的需求 3313753.3系統(tǒng)性能需求: 32458第4章系統(tǒng)總體設(shè)計(jì) 5158124.1系統(tǒng)功能模塊設(shè)計(jì) 5189644.2系統(tǒng)結(jié)構(gòu)設(shè)計(jì) 711954.3系統(tǒng)數(shù)據(jù)流程圖 8267524.4E-R圖 9230674.5系統(tǒng)的運(yùn)行要求 923565第5章詳細(xì)設(shè)計(jì)與實(shí)現(xiàn) 1038925.1數(shù)據(jù)庫(kù)設(shè)計(jì) 10264275.2創(chuàng)立主窗體以及主要窗體 13300515.3代碼設(shè)計(jì) 192077第6章系統(tǒng)評(píng)價(jià) 28226656.1系統(tǒng)的測(cè)試 28196906.2要注意到的問(wèn)題 291376.3將來(lái)可能提出的要求 2911862結(jié)論 306690參考文獻(xiàn) 31第1章需求分析1.1系統(tǒng)概述隨著社會(huì)經(jīng)濟(jì)的發(fā)展,酒店、賓館在服務(wù)行業(yè)扮演著越來(lái)越重要的角色。酒店行業(yè)的競(jìng)爭(zhēng)表現(xiàn)在管理和服務(wù)水平的競(jìng)爭(zhēng),它影響到酒店的形象和聲譽(yù)。這就要求經(jīng)過(guò)先進(jìn)的管理來(lái)提高服務(wù)質(zhì)量,盡可能做到讓客戶滿意。因此,非常需要一套酒店管理系統(tǒng)來(lái)對(duì)客房信息,經(jīng)營(yíng)情況以及客戶信息進(jìn)行管理。酒店管理系統(tǒng)為管理者制定決策判斷提供了可行依據(jù)。判斷提供迅速高效的、系統(tǒng)化的服務(wù),避免手工處理的繁瑣與誤差,成為酒店、賓館經(jīng)營(yíng)的重中之重。可是當(dāng)前商業(yè)性的酒店管理軟件大多數(shù)是舍用于大、中型酒店,其操作復(fù)雜,收費(fèi)昂貴,還需專業(yè)維護(hù)。這就造成了很多小型酒店以及小型賓沒(méi)有客房的管理軟件,對(duì)于其賓館的經(jīng)營(yí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)用、記錄結(jié)賬信息)和結(jié)算查詢。第2章管理系統(tǒng)平臺(tái)的選用2.1數(shù)據(jù)庫(kù)系統(tǒng)的選擇原則1、數(shù)據(jù)庫(kù)系統(tǒng)采用易于集成的,開放的技術(shù)。2、產(chǎn)品質(zhì)量?jī)?yōu)異,可靠性高,適于長(zhǎng)期運(yùn)行,能支持關(guān)鍵應(yīng)用。3、數(shù)據(jù)安全,保安型高。4、能提供分布式數(shù)據(jù)庫(kù)功能。5、支持多種開發(fā)環(huán)境,軟件開發(fā)容易。6、擴(kuò)充性和升級(jí)能力強(qiáng)。2.2系統(tǒng)開發(fā)工具的選擇本次系統(tǒng)設(shè)計(jì)選用的是VisualBasic作為開發(fā)工具,因?yàn)閂isualBasic具有以下優(yōu)越的功能:簡(jiǎn)單,易學(xué),易用(1)快速完成應(yīng)用任務(wù)(2)使用方便的工具欄(3)支持中英文輸入法(4)用項(xiàng)目管理器統(tǒng)一界面

第3章酒店管理概述3.1系統(tǒng)數(shù)據(jù)需求數(shù)據(jù)錄入和處理的準(zhǔn)確性和實(shí)時(shí)性。數(shù)據(jù)的一致性與完整性。數(shù)據(jù)的共享與獨(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)能夠長(zhǎng)期、安全、穩(wěn)定、可靠、高效的運(yùn)行,系統(tǒng)應(yīng)該滿足以下的性能需求:(1)系統(tǒng)處理的準(zhǔn)確性和及時(shí)性系統(tǒng)處理的準(zhǔn)確性和及時(shí)性是系統(tǒng)的必要性能。在系統(tǒng)設(shè)計(jì)和開發(fā)過(guò)程中,要充分考慮系統(tǒng)當(dāng)前和將來(lái)可能承受的工作量,使系統(tǒng)的處理能力和響應(yīng)時(shí)間能夠滿足用戶對(duì)信息的處理。(2)系統(tǒng)的開放性和系統(tǒng)的可擴(kuò)充性系統(tǒng)在開發(fā)過(guò)程中,應(yīng)該充分考慮以后的可擴(kuò)充性。例如系統(tǒng)權(quán)限和客房信息設(shè)置等模塊也會(huì)不斷的更新和完善。所有這些都要求系統(tǒng)提供足夠的手段進(jìn)行功能的調(diào)整和擴(kuò)充。而要實(shí)現(xiàn)這一點(diǎn),應(yīng)經(jīng)過(guò)系統(tǒng)的開放性來(lái)完成,既系統(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ù)庫(kù)的解決方案,大量使用存儲(chǔ)過(guò)程,大大提高系統(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:1.結(jié)算管理(1)結(jié)賬(2)結(jié)賬查詢2.客房信息管理(1)設(shè)置客房標(biāo)準(zhǔn)①添加客房標(biāo)準(zhǔn)②修改客房標(biāo)準(zhǔn)③刪除客房標(biāo)準(zhǔn)(2)設(shè)置客房信息①添加客房信息②修改客房信息③添加客房類型④查詢客房信息3.住宿信息管理(1)添加入住信息(2)修改入住信息(3)查詢?nèi)胱⌒畔⒛K設(shè)計(jì)圖如下:酒店管理系統(tǒng)酒店管理系統(tǒng)酒店入住管理酒店客戶管理酒店管理員管塊數(shù)據(jù)統(tǒng)計(jì)模塊酒店退房管理客戶房號(hào)客戶姓名客戶性別客戶房費(fèi)酒店管理模塊查詢客戶信息添加客戶信息刪除客戶信息維護(hù)客戶信息客房信息管理客房類別管理添加客房信息查詢客房信息刪除客房信息維護(hù)客房信息添加類別信息查詢類別信息刪除類別信息維護(hù)類別信息添加管理員信息刪除管理員信息管理整個(gè)酒店信息管理管理員管理權(quán)限管理圖4-1系統(tǒng)功能模塊圖4.2系統(tǒng)結(jié)構(gòu)設(shè)計(jì)系統(tǒng)的主要結(jié)構(gòu):系統(tǒng)的封面以表單開始,要求用戶輸入登錄,若密碼錯(cuò)誤,則自動(dòng)退出,否則出現(xiàn)系統(tǒng)主菜單,接受用戶的操作,操作完畢后用戶能夠從系統(tǒng)菜單中退出系統(tǒng),系統(tǒng)運(yùn)行的步驟如圖:前臺(tái)管理員前臺(tái)管理員酒店客房管理系統(tǒng)客戶客戶信息登記表結(jié)帳單4.3系統(tǒng)數(shù)據(jù)流程圖查詢查詢客戶登記結(jié)算入住登記入住信息退房需求結(jié)算信息信息核查客戶信息查詢結(jié)果客戶需求描述入住信息表旅客信息表客房信息表客戶信息表消費(fèi)結(jié)算表圖4-3系統(tǒng)數(shù)據(jù)流程圖4.4E-R圖4.5系統(tǒng)的運(yùn)行要求軟、硬件環(huán)境:硬件:客戶機(jī)(CPUP200以上,內(nèi)存:32M以上)、數(shù)據(jù)庫(kù)服務(wù)器(CPUPIII800以上,內(nèi)存:256M或以上。以Microsoftwindows操作系統(tǒng)為工作平臺(tái)。以MicrosoftVisualBasic6.0為開發(fā)工具。數(shù)據(jù)庫(kù)環(huán)境是MicrosoftOfficeAccess。

第5章詳細(xì)設(shè)計(jì)與實(shí)現(xiàn)5.1數(shù)據(jù)庫(kù)設(shè)計(jì)(1)數(shù)據(jù)庫(kù)需求分析設(shè)計(jì)的數(shù)據(jù)庫(kù)系統(tǒng)應(yīng)用于酒店管理系統(tǒng),因此必須充分滿足酒店客房管理系統(tǒng)的各種要求。此系統(tǒng)要求記錄每一次酒店客戶的住宿登記、調(diào)房登記和退宿結(jié)賬的操作信息,并允許系統(tǒng)用戶對(duì)這些信息進(jìn)行查詢。另外,必須建立一些輔助項(xiàng)目表為這些操作信息提供數(shù)據(jù)來(lái)源。經(jīng)過(guò)以上的分析,數(shù)據(jù)庫(kù)設(shè)計(jì)必須滿足以下幾點(diǎn):(1)記錄酒店客戶住宿登記操作的信息。(2)記錄酒店客戶退房結(jié)賬操作的信息。(3)記錄酒店客房的相關(guān)信息。(4)記錄酒店客戶的客房預(yù)訂信息。(5)記錄系統(tǒng)用戶的用戶名、密碼和操作權(quán)限。(2)建立Access數(shù)據(jù)庫(kù)及表在一個(gè)酒店管理系統(tǒng)中,數(shù)據(jù)庫(kù)的地位是非常重要的,是一個(gè)系統(tǒng)正常運(yùn)行的基礎(chǔ)。本系統(tǒng)的數(shù)據(jù)庫(kù)是采用Microsoft公司的Access設(shè)計(jì)的。在數(shù)據(jù)庫(kù)的設(shè)計(jì)過(guò)程中,首先是收集、分析需求;再?gòu)男枨蟪橄蟪鲆话愕膶?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ù)表字段名類型大小說(shuō)明姓名Text20管理人員帳號(hào)(主鍵)密碼Text20管理人員密碼(主鍵)權(quán)限Text1管理人員權(quán)限如下圖所示:表3-2為add旅客入住登記表。add日主登記表記錄了入住旅客的基本個(gè)人信息、房間號(hào)、登記號(hào)等。表3-2旅客信息表為旅客的個(gè)人信息加入住客房信息數(shù)據(jù)結(jié)構(gòu)表字段名類型大小說(shuō)明登記號(hào)Text8旅客入住號(hào)(主鍵)姓名Text8旅客姓名(不為空)身份證號(hào)碼Text18旅客身份證號(hào)(不為空)房間號(hào)Text3入住房間號(hào)(不為空)登記日期Text日期/時(shí)間旅客入住時(shí)間(不為空)性別Text3旅客性別籍貫Text8旅客籍貫如下所示:表3-3為room資料數(shù)據(jù)表。room料數(shù)據(jù)表記錄了room基本資料,可供查詢。該表主要包括了房間號(hào)、客房等級(jí)、客房類型、客房?jī)r(jià)格、客房狀態(tài)、客房備注信息等基本資料。表3-2room資料數(shù)據(jù)表字段名類型大小說(shuō)明房間號(hào)Text3房間號(hào)(主鍵)客房等級(jí)Text8客房等級(jí)客房類型Text8客房類型(不為空)客房?jī)r(jià)格數(shù)字單精度型客房?jī)r(jià)格(不為空)客房狀態(tài)Text3客房狀態(tài)(不為空)客房備注信息備注8客房備注信息如下所示:表3-4為quit資料數(shù)據(jù)表。quit資料數(shù)據(jù)表記錄了所有退房的基本資料,管理員可添加、刪除和查詢?cè)摫?。類型的基本資料,包括登記號(hào)、登記日期、退房日期、付款金額、退房備注信息。表3-4為quit資料數(shù)據(jù)表字段名類型大小說(shuō)明登記號(hào)Text8旅客入住號(hào)(主鍵)登記日期日期/時(shí)間旅客登記時(shí)間(不為空)退房時(shí)間日期/時(shí)間旅客退房時(shí)間(不為空)付款金額Text單精度型付費(fèi)金額(不為空)退房備注信息Text8退房備注信息如下所示:連接數(shù)據(jù)庫(kù):由于本系統(tǒng)是采用ADO對(duì)象訪問(wèn)數(shù)據(jù)庫(kù)的技術(shù),因此在VB中需要添加ADO庫(kù)。添加的方法是在VB中選擇”工程”—>”引用”命令,在對(duì)話框中選擇MicrodoftActiveXDataObjects2.0Library,單擊”確定”按鈕。在程序設(shè)計(jì)的公共模塊中,先定義ADO連接對(duì)象。語(yǔ)句如下:PublicconnAsNewADODB.connection‘標(biāo)記連接對(duì)象’DimconnectionAsStringConnectionString="provider=microsoft.jet.oledb.4.0;"&"datasource=carshale.mdb"conn.OpenConnectionString5.2創(chuàng)立主窗體以及主要窗體建立主窗體:單擊”工程”->”添加MDI窗體”菜單,在彈出的對(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)窗體。圖4—1菜單結(jié)構(gòu)(1)登錄模塊的設(shè)計(jì):此模塊的功能是檢查管理員是否有進(jìn)入系統(tǒng)的權(quán)限。用到的主要控件為二個(gè)text、兩個(gè)label和兩個(gè)Button按鈕。窗體界面如圖4-2所示。圖4-2登錄窗體的界面在此模塊中管理員能夠選擇相應(yīng)的管理員帳號(hào)進(jìn)行登錄,減去了忘記帳號(hào)或帳號(hào)名輸入不方便的煩惱。(2)主頁(yè)面模塊的設(shè)計(jì):此模塊是系統(tǒng)服務(wù)器端的主要控制界面,經(jīng)過(guò)菜單的選擇,能夠控制系統(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)經(jīng)過(guò)Timer控件在狀態(tài)欄中顯示系統(tǒng)的當(dāng)前時(shí)間,Timer控件的時(shí)間間隔是1000,也就是1秒鐘,這樣狀態(tài)欄中的時(shí)間每秒鐘都會(huì)變化,達(dá)到顯示系統(tǒng)時(shí)鐘的目的,具體實(shí)現(xiàn)代碼為:PrivateSubTimer1_Timer()StatusBar1.Panels(2).Text=Date&""&TimeEndSub(4)創(chuàng)立系統(tǒng)主界面當(dāng)系統(tǒng)運(yùn)行時(shí),首先進(jìn)入登錄界面,當(dāng)輸入帳號(hào),密碼合法時(shí),則啟動(dòng)系統(tǒng)主界面。圖4-4系統(tǒng)主窗體的界面5)用戶進(jìn)入客房需要必要的登記來(lái)完成如圖:圖4-5用戶登記界面圖4-6已經(jīng)登記的用戶(6)退房信息:當(dāng)旅客離開賓館時(shí),需要為其辦理退房手續(xù),在這過(guò)程中需要在旅客退房信息表中添加記錄信息,以及修改客房信息表,改變客房狀態(tài)。旅客退房信息窗體,工作界面設(shè)計(jì)情況如圖:圖4-7退房登記表(7)查詢住戶信息:此界面用于查詢房間狀態(tài)如是否有所需的類型或是否為空房或滿房,能夠全部瀏覽,也能夠按照查詢條件來(lái)查找,如圖:圖4-8客房狀態(tài)界面(8)查詢客房:客查詢窗體主要功能是實(shí)現(xiàn)客房信息查詢顯示,查詢方式能夠是按旅客姓名,登記號(hào)也能夠按房間號(hào)查詢。工作界面如圖:圖4-9查詢住戶登記表(9)客房情況打印表:圖4-10客房情況打印表5.3代碼設(shè)計(jì)一、酒店管理信息系統(tǒng)程序代碼:PrivateSubCmdOK_Click()Dims1AsStringDimiAsIntegerDimjAsIntegerDima(18)AsStringj=Len(txtUserName.Text)s1=txtUserName.TextDimcAsIntegerc=1Fori=1Toja(i)=Mid(s1,i,1)'逐一判斷字符的合格化Ifa(i)=""ThenMsgBox"Error",vbOKOnly,"Error"ExitSubElseIfa(i)="<"ThenMsgBox"Error",vbOKOnly,"Error"ExitSubElseIfa(i)=">"ThenMsgBox"Error",vbOKOnly,"Error"ExitSubElseIfa(i)="="ThenMsgBox"Error",vbOKOnly,"Error"ExitSubElseIfa(i)=""ThenMsgBox"Error",vbOKOnly,"Error"ExitSubElseIfa(i)="~"ThenMsgBox"Error",vbOKOnly,"Error"ExitSubElseIfa(i)=","ThenMsgBox"Error",vbOKOnly,"Error"ExitSubElseIfa(i)="'"ThenMsgBox"Error",vbOKOnly,"Error"ExitSubEndIfc=c+1txtUserName.SetFocusNextiDimstrusernameAsStringDimstrpasswordAsStringStaticintlogintimesAsIntegerIfTrim(txtUserName.Text)=""ThenMsgBox"用戶名不能為空!",vbOKOnly+vbCritical,"錯(cuò)誤"ExitSubEndIfopentableadousers,"usersinfo"adousers.Refreshadousers.Recordset.Find"姓名="&"'"&txtUserName.Text&"'",,adSearchForward,1IfNotadousers.Recordset.EOFThenstrusername=adousers.Recordset!姓名strpassword=adousers.Recordset!密碼Elsestrusername=""strpassword=""EndIfIfstrusername=txtUserName.TextAndstrpassword=txtPassword.TextThenadousers.Recordset.CloseUnloadMefrmmdi.ShowElseMsgBox"用戶名或密碼不對(duì)!",vbOKOnly+vbInformation,"提示"intlogintimes=intlogintimes+1Ifintlogintimes>=3Thenadousers.Recordset.CloseEndEndIftxtPassword.SetFocusSendKeys"{HOME}+{END}"EndIfEndSubPrivateSubcmdcancel_click()UnloadMeEndSubOptionExplicitPrivateSubCommand1_Click()Withfrmmdi.adoroom.RecordsetIfNottxtroomno.LockedThenIfTrim(txtroomno.Text)=""ThenMsgBox"房間號(hào)不能為空!",vbOKOnly+vbInformation,"提示"txtroomno.SetFocusExitSubEndIfEndIf!房間號(hào)=Trim(txtroomno.Text)!客房等級(jí)=Trim(txtroomgrade.Text)!客房類型=Trim(txtroomtype.Text)!客房?jī)r(jià)格=Trim(txtroomprice.Text)!客房狀態(tài)=Trim(txtroomstatus.Text)!客房備注信息=txtroominfo.TextUpdateUnloadMeEndWithEndSubPrivateSubCommand2_Click()UnloadMeEndSub退房登記實(shí)現(xiàn)代碼:PrivateSubCmdOK_Click()Withfrmmdi.adoquit.RecordsetIfNottxtbookno.LockedThenIfTrim(txtbookno.Text)=""ThenMsgBox"登記號(hào)不能為空!",vbOKOnly+vbInformation,"提示"txtbookno.SetFocusExitSubEndIffrmmdi.adoguest.Recordset.Find"登記號(hào)='"&Trim(txtbookno.Text)&"'",,adSearchForward,1Iffrmmdi.adoguest.Recordset.EOFThenMsgBox"非法登記號(hào)!",vbOKOnly+vbInformation,"提示"txtbookno.SetFocusSendKeys"{HOME}+{END}"txtpaymoney.Text=""ExitSubEndIffrmmdi.adoquit.Recordset.Find"登記號(hào)='"&Trim(txtbookno.Text)&"'",,adSearchForward,1IfNotfrmmdi.adoquit.Recordset.EOFThen'有就提示,然后退出MsgBox"已經(jīng)有相同登記號(hào)!",vbOKOnly+vbInformation,"提示"txtbookno.SetFocusSendKeys"{HOME}+{END}"txtpaymoney.Text=""ExitSubEndIf.AddNew!登記號(hào)=Trim(txtbookno.Text)EndIf!付款金額=Val(Trim(txtpaymoney.Text))!登記日期=Trim(txtbookdate.Text)!退房時(shí)間=dtpquitdate.TextUpdateIfTrim(txtinfo.Text)=""ThenMsgBox"備注不能為空!",vbOKOnly+vbInformation,"提示"txtinfo.SetFocusEndIf!退房備注信息=txtinfo.TextUpdateUnloadMefrmmdi.adoroom.Recordset!客房狀態(tài)="空"Withfrmmdi.adoguest.RecordsetDeleteEndWithEndWithEndSubPrivateSubCommand1_Click()IfoptroomThenopentablefrmmdi.Adoroom1,"select*fromroomwhere(((room.房間號(hào))like'"&Trim(txtvalue.Text)&"%"&"'))"ElseIfoptgradeThenopentablefrmmdi.Adoroom1,"select*fromroomwhere(((room.客房等級(jí))like'"&Trim(txtvalue.Text)&"%"&"'))"'ElseIfopttypeThenopentablefrmmdi.Adoroom1,"select*fromroomwhere(((room.客房類型)like'"&Trim(txtvalue.Text)&"%"&"'))"EndIfdtgroomqueryinforefreshEndSubPrivateSubCmdOK_Click()Dims1AsStringDimiAsIntegerDimjAsIntegerDima(18)AsStringj=Len(txtUserName.Text)s1=txtUserName.TextDimcAsIntegerc=1Fori=1Toja(i)=Mid(s1,i,1)Ifa(i)=""ThenMsgBox"Error",vbOKOnly,"Error"ExitSubElseIfa(i)="<"ThenMsgBox"Error",vbOKOnly,"Error"ExitSubElseIfa(i)=">"ThenMsgBox"Error",vbOKOnly,"ErrorMsgBox"Error",vbOKOnly,"Error"ExitSubElseIfa(i)="="ThenMsgBox"Error",vbOKOnly,"Error"ExitSubElseIfa(i)=""ThenMsgBox"Error",vbOKOnly,"Error"ExitSubElseIfa(i)="~"ThenMsgBox"Error",vbOKOnly,"Error"ExitSubElseIfa(i)=","ThenMsgBox"Error",vbOKOnly,"Error"ExitSubElseIfa(i)="'"ThenMsgBox"Error",vbOKOnly,"Error"ExitSubEndIfc=c+1txtUserName.SetFocusNextiDimstrusernameAsStringDimstrpasswordAsStringStaticintlogintimesAsIntegerIfTrim(txtUserName.Text)=""ThenMsgBox"用戶名不能為空!",vbOKOnly+vbCritical,"錯(cuò)誤"ExitSubEndIfopentableadousers,"usersinfo"adousers.Refreshadousers.Recordset.Find"姓名="&"'"&txtUserName.Text&"'",,adSearchForward,1IfNotadousers.Recordset.EOFThenstrusername=adousers.Recordset!姓名strpassword=adousers.Recordset!密碼Elsestrusername=""strpassword=""EndIfIfstrusername=txtUserName.TextAndstrpassword=txtPassword.TextThenadousers.Recordset.CloseUnloadMefrmmdi.ShowElseMsgBox"用戶名或密碼不對(duì)!",vbOKOnly+vbInformation,"提示"intlogintimes=intlogintimes+1Ifintlogintimes>=3Thenadousers.Recordset.CloseEndEndIftxtPassword.SetFocusSendKeys"{HOME}+{END}"EndIfEndSubPrivateSubcmdcancel_click()UnloadMeEndSub二、主控制窗體代碼:OptionExplicitPrivateSubMDIForm_Load()App.Title="賓館客房管理系統(tǒng)"opentableadoroom,"room"opentableAdoroom1,"room"opentableadoguest,"guest"opentableAdoguest1,"guest"opentableadoquit,"quit"StatusBar1.Panels(1).Text="歡迎登陸賓館管理系統(tǒng)"StatusBar1.Panels(2).Text=Date&""&TimeEndSubPrivateSubmnuCascade_Click()frmmdi.ArrangevbCascadeEndSubPrivateSubmnudenglu_Click()frmLogin.ShowEndSubPrivateSubmnuExit_Click()UnloadMeEndSubPrivateSubmnuGuest_Click()frmGuestInfo.ShowEndSubPrivateSubmnuHor_Click()frmmdi.ArrangevbTileHorizontalEndSubPrivateSubmnuin_Click()frmusers.ShowEndSubPrivateSubmnuqueryguest_Click()frmqueryinfo.ShowEndSubPrivateSubmnuqueryroom_Click()frmqueryroom.ShowEndSubPrivateSubmnuQuit_Click()frmquitinfo.ShowEndupPrivateSubmnuver_Click()frmmdi.ArrangevbTileVerticalEndSubPrivateSubTimer1_Timer()StatusBar1.Panels(2).Text=Date&""&TimeEnd