【正文】 、住房天數(shù)、住店日期、離店日期等。 客房管理功能該功能實(shí)現(xiàn)了對(duì)客房信息的管理。該功能可以對(duì)客房信息進(jìn)行增加、刪除和修改，并且可以根據(jù)房號(hào)來(lái)查找客房信息?？头啃畔⒅饕头刻?hào)、客房級(jí)別和是否入住。 客戶查詢(xún)功能該功能實(shí)現(xiàn)了對(duì)客戶信息的查詢(xún)。管理人員可以根據(jù)房號(hào)、姓名、國(guó)籍、住店日期或離店日期對(duì)客戶信息進(jìn)行查詢(xún)，查詢(xún)到的信息包括房號(hào)、姓名、性別、年齡、國(guó)籍、客房級(jí)別、住房天數(shù)、住店日期、離店日期等。 系統(tǒng)主界面住房登記客房管理客戶登記客戶登記客戶編輯客戶刪除客房增加客房編輯客房刪除客房查詢(xún)按國(guó)籍查詢(xún)按離店日期查詢(xún)按房號(hào)查詢(xún)按姓名查詢(xún)按住店日期查詢(xún) 目標(biāo)系統(tǒng)要求目標(biāo)系統(tǒng)應(yīng)該達(dá)到以下要求： 1. 時(shí)間經(jīng)濟(jì)性。優(yōu)化邏輯設(shè)計(jì)與物理設(shè)計(jì)，使系統(tǒng)運(yùn)行效率高，反映速度快。2. 可靠性。能連續(xù)準(zhǔn)確的處理業(yè)務(wù)，有較強(qiáng)的容錯(cuò)能力。3. 可理解性。用戶容易理解和使用該系統(tǒng)。4. 可維護(hù)性和適應(yīng)性。系統(tǒng)應(yīng)易于修改、易于擴(kuò)充、易于維護(hù)，能夠適應(yīng)業(yè)務(wù)不斷發(fā)展變化的需要。5. 可用性。目標(biāo)系統(tǒng)功能齊全，能夠完全滿足業(yè)務(wù)需求。6. 安全保密性。保證系統(tǒng)的物理安全、數(shù)據(jù)存儲(chǔ)和存取的安全與保密、數(shù)據(jù)傳輸?shù)陌踩c保密，做好使用人員的授權(quán)管理。 系統(tǒng)平臺(tái)選擇選擇微軟平臺(tái)作為主導(dǎo)，一方面考慮目前微軟的飛速發(fā)展，越來(lái)越多的企業(yè)在規(guī)劃內(nèi)部網(wǎng)絡(luò)時(shí)，將微軟平臺(tái)作為首選方案；另一方面從技術(shù)角度來(lái)講，微軟平臺(tái)上的應(yīng)用無(wú)論是在開(kāi)發(fā)上，還是在軟件的部署上都非常容易，而且性能優(yōu)越。操作系統(tǒng)：Windows 98數(shù)據(jù)庫(kù)為：MS Access 2000開(kāi)發(fā)工具與語(yǔ)言: Visual Basic 數(shù)據(jù)庫(kù)設(shè)計(jì) 設(shè)計(jì)數(shù)據(jù)庫(kù)系統(tǒng)時(shí)首先應(yīng)該充分了解用戶各個(gè)方面的需求，包括現(xiàn)有的以及將來(lái)可能增加的需求。數(shù)據(jù)庫(kù)設(shè)計(jì)一般包括如下幾個(gè)步驟：1. 數(shù)據(jù)庫(kù)需求分析。2. 數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)。3. 數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)。 數(shù)據(jù)庫(kù)需求分析用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢(xún)等方面，這就要求數(shù)據(jù)庫(kù)結(jié)構(gòu)能充分滿足各種信息的輸出和輸入。收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程。組成一份詳盡的數(shù)據(jù)字典，為以后的具體設(shè)計(jì)打下基礎(chǔ)。仔細(xì)分析調(diào)查有關(guān)酒店客房信息需求的基礎(chǔ)上?？头繕?biāo)準(zhǔn)設(shè)置基本信息錄入客房登記基本信息錄入客房標(biāo)準(zhǔn)信息管理顧客登記客房信息管理 訂房信息輸入訂房信息管理結(jié)算信息輸入結(jié)算信息管理基本信息返回 系統(tǒng)數(shù)據(jù)流程圖針對(duì)一般酒店客房管理系統(tǒng)得需求，通過(guò)對(duì)酒店客房管理工作過(guò)程的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計(jì)如下面所示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)：1. 客房標(biāo)準(zhǔn)信息，包括的數(shù)據(jù)項(xiàng)有：標(biāo)準(zhǔn)編號(hào)、標(biāo)準(zhǔn)名稱(chēng)、房間面積、床位數(shù)量住房單價(jià)、是否有空調(diào)、電視、電話、單獨(dú)衛(wèi)生間等。2. 客房信息，包括的數(shù)據(jù)源有：客房編號(hào)、客房種類(lèi)、客房設(shè)置、客房單價(jià)、備注等。3. 訂房信息，包括的數(shù)據(jù)項(xiàng)有：訂房編號(hào)、客房編號(hào)、客房種類(lèi)、客房位置、客房備注信息、顧客姓名、顧客身份證號(hào)碼、入住時(shí)間、折扣、備注等。4. 結(jié)算信息，包括的數(shù)據(jù)項(xiàng)有：訂房編號(hào)、客房編號(hào)、客房種類(lèi)、客房位置、客房備注信息、顧客姓名、顧客身份證號(hào)碼、入住時(shí)間、折扣、結(jié)算時(shí)間、備注等。有了上面的數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)項(xiàng)和數(shù)據(jù)流程，我們就能進(jìn)行下面的數(shù)據(jù)庫(kù)設(shè)計(jì)。 數(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ǔ)。本程序根據(jù)上面的設(shè)計(jì)規(guī)劃出的實(shí)體由：客房標(biāo)準(zhǔn)信息實(shí)體、客房信息實(shí)體、訂房信息實(shí)體、結(jié)算信息實(shí)體。各個(gè)實(shí)體具體的描述ER圖如下?？头繕?biāo)準(zhǔn)信息實(shí)體客房單價(jià)標(biāo)準(zhǔn)編號(hào)……床位數(shù)量標(biāo)準(zhǔn)名稱(chēng) 客房標(biāo)準(zhǔn)信息實(shí)體 ?？头啃畔?shí)體客房單價(jià)客房編號(hào)客房位置標(biāo)準(zhǔn)標(biāo)準(zhǔn)…… 客房信息實(shí)體ER圖。結(jié)算信息實(shí)體客房信息結(jié)算金額顧客信息結(jié)算時(shí)間……。客房標(biāo)準(zhǔn)信息客房登記客房信息管理訂房結(jié)算信息管理客房結(jié)算訂房信息管理3．5．3 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)現(xiàn)在需要將上面的數(shù)據(jù)庫(kù)概念結(jié)構(gòu)化為MS Access 2000數(shù)據(jù)庫(kù)系統(tǒng)所支持的實(shí)際數(shù)據(jù)模型，也就是數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)。酒店客房管理信息系統(tǒng)數(shù)據(jù)庫(kù)中各個(gè)表格的設(shè)計(jì)結(jié)果如下面表格所示。每個(gè)表格表示在數(shù)據(jù)庫(kù)中的一個(gè)表。列名數(shù)據(jù)類(lèi)型可否為空說(shuō)明typeidvarcharNOT NULL標(biāo)準(zhǔn)編號(hào)typenamevarcharNOT NULL標(biāo)準(zhǔn)名稱(chēng)areanumericNULL房間面積benumbsnumericNULL床位數(shù)量hairconditionvarcharNULL是否有空調(diào)htelephonevarcharNULL是否有電話htelevisionvarcharNULL是否有電視htoiletvarcharNULL是否有單獨(dú)衛(wèi)生間pricenumericNULL單價(jià) 客房信息表格列名數(shù)據(jù)類(lèi)型可否為空說(shuō)明roomNOvarcharNOT NULL客房編號(hào)roomtypenvarcharNOT NULL客房種類(lèi)roompositionvarcharNULL客房位置roompricenumericNULL單價(jià)putupvarcharNULL是否被鎖定roommemotextNOT NULL備注列名數(shù)據(jù)類(lèi)型可否為空說(shuō)明booknovarcharNOT NULL訂房編號(hào)customnamevarcharNOT NULL顧客姓名customIDvarcharNOT NULL身份證號(hào)碼roomnovarcharNOT NULL客房編號(hào)indatadatatimeNULL入住日期discountnumericNULL折扣inmemotextrNULL備注checkdatedatatimeNULL結(jié)算日期ammountnumericNULL金額4. 酒店收費(fèi)管理系統(tǒng)的功能實(shí)現(xiàn) 系統(tǒng)功能分析 系統(tǒng)開(kāi)發(fā)的總體任務(wù)是實(shí)現(xiàn)酒店各種信息的系統(tǒng)化、規(guī)范化和自動(dòng)化。 系統(tǒng)功能分析是在系統(tǒng)開(kāi)發(fā)的總體任務(wù)的基礎(chǔ)上完成的 。這個(gè)酒店客房管理信息系統(tǒng)需要完成的功能主要有：1. 有關(guān)客房標(biāo)準(zhǔn)的制定、標(biāo)準(zhǔn)信息的輸入、包括標(biāo)準(zhǔn)編號(hào)、標(biāo)準(zhǔn)名稱(chēng)、房間面積、床位數(shù)量、住房單價(jià)、是否有空調(diào)、電視機(jī)、電話以及單獨(dú)衛(wèi)生間等。2. 客房標(biāo)準(zhǔn)信息的修改、查詢(xún)等。3. 客房基本信息的輸入，包括客房編號(hào)、客房類(lèi)型、客房設(shè)置、客房單價(jià)、備注等。4. 客房基本信息的查詢(xún)、修改，包括客房編號(hào)、客房類(lèi)型、客房位置、客房單價(jià)、備注等。5. 剩余客房信息的查詢(xún)。6. 結(jié)算信息的輸入，包括客房編號(hào)、客房種類(lèi)、客房設(shè)置、客房單價(jià)、顧客姓名、顧客身份證號(hào)碼、入住日期、折扣、結(jié)算日起、備注信息等。7. 結(jié)算信息的修改和查詢(xún)，包括客房編號(hào)、客房種類(lèi)、客房設(shè)置、客房單價(jià)、顧客姓名、顧客身份證號(hào)碼、入住日期、折扣、結(jié)算日起、備注信息等。 創(chuàng)建工程項(xiàng)目Hotel_MIS 啟動(dòng)VisualBasic 。單擊File Project 菜單，在工程模板中選擇Standard EXE，VisualBasic 窗體，屬性都是缺省設(shè)置。這里我們刪除這個(gè)窗體，單擊File|Save Project 菜單，將這個(gè)工程項(xiàng)目命名為 Hotel_MIS 。 創(chuàng)建酒店客房管理信息系統(tǒng)的主窗體 這個(gè)項(xiàng)目我們使用多文檔界面，單擊工具欄中的ADD MDI Form按鈕 ，生成一個(gè)窗體。在這個(gè)窗體上添加所需的控件，創(chuàng)建好的窗體如圖所示。圖 酒店客房管理信息系統(tǒng)主窗體在主窗體中加入狀態(tài)欄控件，可以實(shí)時(shí)的反應(yīng)系統(tǒng)中的各個(gè)狀態(tài)的變化。狀態(tài)欄控件需要在通常的屬性窗口中設(shè)置一般屬性，還需要在其特有的彈出式菜單中進(jìn)行設(shè)置。選中狀態(tài)欄控件，單擊鼠標(biāo)右鍵，選中Property菜單，然后設(shè)置屬性。面板1用來(lái)顯示各種文本信息，面板2用來(lái)顯示單前日期，面板3用來(lái)顯示當(dāng)前時(shí)間。Option ExplicitPrivate Sub MDIForm_Load() = 酒店收費(fèi)管理信息系統(tǒng) OpenTable adoRoom, Room 39。打開(kāi)班級(jí)類(lèi)型表 OpenTable adoGuest, Guest 39。打開(kāi)表 OpenTable adoCancel, CancelEnd SubPrivate Sub mnuAbout_Click() End SubPrivate Sub mnuCancel_Click() End SubPrivate Sub mnuCascade_Click() vbCascadeEnd SubPrivate Sub mnuGuest_Click() End SubPrivate Sub mnuQuerySelect_Click() End SubPrivate Sub mnuRoomInfo_Click() End SubPrivate Sub mnuExit_Click() Unload MeEnd SubPrivate Sub mnuHor_Click() vbTileHorizontalEnd SubPrivate Sub mnuIcon_Click() vbArrangeIconsEnd SubPrivate Sub mnuUser_Click() End SubPrivate Sub mnuVer_Click() vbTileVerticalEnd Sub 創(chuàng)建主窗體菜單在主窗體重，單擊鼠標(biāo)右鍵，選擇彈出式菜單重的“Menu Editor”命令，創(chuàng)建如圖所示的菜單結(jié)構(gòu)： 主窗體中的菜單結(jié)構(gòu) 用戶管理模塊主要實(shí)現(xiàn)：。Option ExplicitPrivate Sub cmdCancel_Click() 39。結(jié)束程序 EndEnd SubPrivate Sub cmdOk_Click()Static intLoginTimes As Integer If Trim() = Then 39。如果用戶名為空 MsgBox 用戶名不能為空！, vbOKOnly + vbCritical, 錯(cuò)誤 Exit Sub End If 39。打開(kāi)數(shù)據(jù)庫(kù)中的 Users 表 39。查找用戶名 Name=39。 amp。 amp。 39。, , adSearchForward, 1 39。也可以用下面的過(guò)濾方式 39。 = Name=39。 amp。 amp。 39。 If Not Then 39。找到記錄 strUserName = !Name strPassword = !Password Else 39。沒(méi)找到記錄 strUserName = strPassword = End If If strUserName = And strPassword = Then 39。關(guān)閉數(shù)據(jù)庫(kù)中的 Users 表 Unload Me 39。關(guān)閉窗體 39。顯示主窗體 Else 39。用戶名或密碼不對(duì) MsgBox 用戶名或密碼不對(duì)！, vbOKOnly + vbInformation, 提示 intLoginTimes = intLoginTimes + 1 If intLoginTimes = 3 Then 39。超過(guò)三次 39。關(guān)閉數(shù)據(jù)庫(kù)中的 Users 表 End 39。退出整個(gè)程序 End If 39。重新輸入密碼 SendKeys {HOME}+{END} End IfEnd SubPrivate Sub Form_Load() 39。打開(kāi)用戶表 OpenTable adoUsers, UsersEnd Sub。酒店在運(yùn)營(yíng)中需要設(shè)置不同的客房標(biāo)準(zhǔn)來(lái)適應(yīng)不同消費(fèi)水平顧客的需要。對(duì)