管理信息系統(tǒng)mis——賓館管理系統(tǒng)

1、前言一、作業(yè)背景本文根據(jù)管理信息系統(tǒng)課程要求而做。課程作業(yè)要求如下：用管理信息系統(tǒng)開發(fā)工具（例如PowerBuilder、Delphi、Visual Foxpro、Access等）開發(fā)一個(gè)實(shí)用的中小型管理信息系統(tǒng)。 1）根據(jù)課程設(shè)計(jì)時(shí)間選擇適當(dāng)規(guī)模大小的設(shè)計(jì)課題。采用專業(yè)實(shí)習(xí)的調(diào)研內(nèi)容作為課程設(shè)計(jì)選題。 2）根據(jù)合理的進(jìn)度安排，按照系統(tǒng)開發(fā)的流程及方法，踏實(shí)地開展課程設(shè)計(jì)活動(dòng)。 3）課程設(shè)計(jì)過程中，根據(jù)選題的具體需求，在開發(fā)各環(huán)節(jié)中撰寫相關(guān)的技術(shù)文檔，最后提交詳細(xì)的課程設(shè)計(jì)報(bào)告。 4）開發(fā)出可以運(yùn)行的管理信息系統(tǒng)，通過上機(jī)檢查。二.選題說明1.基本思路近年來，賓館業(yè)迅猛發(fā)展，市場(chǎng)的競(jìng)爭(zhēng)日趨激烈

2、，全面提高賓館的軟件管理水準(zhǔn)，已成為賓館業(yè)發(fā)展的當(dāng)務(wù)之急。傳統(tǒng)的管理方法已經(jīng)不能適應(yīng)現(xiàn)代社會(huì)的需要，因此采用電腦管理業(yè)務(wù)、財(cái)務(wù)等諸多環(huán)節(jié)已成為推動(dòng)賓館業(yè)迅速發(fā)展的先決條件，賓館客房管理信息系統(tǒng)是各大中小型賓館所需要使用的一個(gè)管理系統(tǒng)。以提高其經(jīng)營(yíng)管理效率。2.作業(yè)目標(biāo)根據(jù)現(xiàn)代賓館服務(wù)行業(yè)特點(diǎn)，開發(fā)一個(gè)實(shí)用性強(qiáng)的賓館管理系統(tǒng)，以提高賓館管理的效率。三、工作業(yè)績(jī)1、主要工作進(jìn)行賓館管理信息系統(tǒng)的開發(fā)。2、主要收獲依靠現(xiàn)代化的計(jì)算機(jī)信息處理技術(shù)來管理賓館，從而改變傳統(tǒng)的管理方法使得辦公人員每天要處理的事務(wù)繁多，重復(fù)性的工作使其效率較低、各類客戶信息收集不齊全；分類、歸檔不合理，以至于造成查找困難的狀

3、況，使得賓館管理科學(xué)化。3、自我評(píng)定優(yōu) 良 中 及格 不及格第一章 概述根據(jù)我國(guó)賓館業(yè)的統(tǒng)計(jì)分析表明：在現(xiàn)代的賓館服務(wù)行業(yè)中，由于客戶流量增長(zhǎng)，傳統(tǒng)的管理方法使得辦公人員每天要處理的事務(wù)繁多，重復(fù)性的工作使其效率較低；各類客戶信息收集不齊全；分類、歸檔不合理，以至于造成查找困難；保存方式不科學(xué)，使得資料、文件受損，影響使用效果和時(shí)間。針對(duì)這種情況，各賓館管理人員已意識(shí)到使用計(jì)算機(jī)管理信息系統(tǒng)的重要性，因此他們迫切需要開發(fā)一個(gè)賓館客房管理信息系統(tǒng)來進(jìn)行管理工作。第二章 用戶需求分析2.1系統(tǒng)的可行性分析從賓館的具體情況出發(fā)，經(jīng)過多方面調(diào)研、討論，本賓館客房管理信息系統(tǒng)，從技術(shù)上，經(jīng)濟(jì)上，管理上均

4、已具備實(shí)施的基本條件。2.1.1技術(shù)可行性Win2000/NT/XP操作系統(tǒng)的穩(wěn)定性，安全性可滿足用戶的要求。后臺(tái)的數(shù)據(jù)庫(kù)使用ACCESS 2000，開發(fā)工具微軟公司的VISUAL BASIC6.0, 具有良好的升級(jí)潛力和可維護(hù)性。這些軟件在大型MIS開發(fā)中已被大量應(yīng)用，技術(shù)上都比較成熟,可根據(jù)用戶需要，十分方便的增減模塊，直觀的圖形用戶界面，簡(jiǎn)潔的操作流程，無須專業(yè)電腦知識(shí)即可迅速上手。因此技術(shù)上是可行的。2.1.2經(jīng)濟(jì)可行性費(fèi)用：本系統(tǒng)要求的計(jì)算機(jī)配置并不高(奔騰II及以上處理器。64M內(nèi)存及以上，硬盤空間100M以上)，設(shè)備的安裝調(diào)試工作簡(jiǎn)單，PB軟件的價(jià)格不高，操作簡(jiǎn)單，對(duì)用戶進(jìn)行少量

5、的培訓(xùn)工作就可以使用戶熟練的使用本系統(tǒng)，因而培訓(xùn)費(fèi)用較低。收益：賓館前臺(tái)使用本系統(tǒng)后，提高了核對(duì)效能，相對(duì)的差錯(cuò)也大大減少；即工作人員的工作效率大大提高了，工作時(shí)間大大節(jié)省了，從而間接為賓館創(chuàng)造了可觀的經(jīng)濟(jì)效益，減少管理費(fèi)用的支出，避免了不必要的人工錯(cuò)誤；還提高了工作人員的素質(zhì)，有利于管理方式與體制的合理改革，保證賓館客房管理的可持續(xù)發(fā)展。因而在經(jīng)濟(jì)上是可行的。2.1.3.管理可行性建立管理信息系統(tǒng)是行業(yè)發(fā)展的必然要求，賓館領(lǐng)導(dǎo)對(duì)科技的管理非常重視。使管理和業(yè)務(wù)流程信息化，是管理信息現(xiàn)代化的第一步。而員工對(duì)此更是表現(xiàn)出極大的熱情和期望。因?yàn)樵撓到y(tǒng)的實(shí)施將很大程度上降低他們的手工作業(yè)量，還會(huì)減少

6、他們?cè)诠ぷ魃系氖д`，提高工作效率。因此，本系統(tǒng)在管理上是可行的。2.2詳細(xì)調(diào)查開發(fā)本系統(tǒng)的要求來自對(duì)原傳統(tǒng)管理模式的不滿，不管是手工系統(tǒng)還是正在運(yùn)行的計(jì)算機(jī)系統(tǒng)。由于存在的問題充斥各個(gè)方面，內(nèi)容分散,甚至含糊不清，這就要求我們進(jìn)行詳細(xì)分析，并在原管理模式的基礎(chǔ)上提出系統(tǒng)開發(fā)方案。本系統(tǒng)是一個(gè)虛擬的管理信息系統(tǒng)，不存在原運(yùn)行系統(tǒng)。業(yè)務(wù)流程分析是對(duì)業(yè)務(wù)功能分析的進(jìn)一步細(xì)化，業(yè)務(wù)流程分析的結(jié)果是給出業(yè)務(wù)流程圖。業(yè)務(wù)流程圖反映了實(shí)際的業(yè)務(wù)活動(dòng)。它不僅是系統(tǒng)分析人員進(jìn)行更深入系統(tǒng)分析的依據(jù),而且也是系統(tǒng)分析人員，管理人員，業(yè)務(wù)操作人員，系統(tǒng)設(shè)計(jì)人員進(jìn)行溝通的工具。可以直接在業(yè)務(wù)流程圖上擬出能夠由計(jì)算機(jī)實(shí)

7、現(xiàn)的部分，明確系統(tǒng)的邊界，使計(jì)算機(jī)處理與人工業(yè)務(wù)處理的接口清晰，分析組織的業(yè)務(wù)流程是否合理，刪除重復(fù)的，不合理的環(huán)節(jié)，明確整個(gè)業(yè)務(wù)流程,為以后的分析與設(shè)計(jì)打下良好的基礎(chǔ)。因此，為了能夠反映賓館內(nèi)部各部門之間的聯(lián)系程度,其主要業(yè)務(wù)和他們?cè)跇I(yè)務(wù)過程中所承擔(dān)的工作,根據(jù)賓館客房管理的特點(diǎn)和賓館的實(shí)際情況，賓館的業(yè)務(wù)流程圖如圖1所示:通過現(xiàn)行業(yè)務(wù)流程圖對(duì)現(xiàn)行系統(tǒng)進(jìn)行分析，客人流量多，需要的服務(wù)多，致使管理的過程不好控制，效率不高。我們通過計(jì)算機(jī)來實(shí)現(xiàn)前臺(tái)操作員的一些業(yè)務(wù)，讓電腦來代為運(yùn)作，可以提高效率，減輕人的工作量。我們系統(tǒng)的工作就是把傳統(tǒng)的管理模式換為人機(jī)交互操作，從上圖分析可以明確系統(tǒng)的邊界，把

8、不必要的人工操作從系統(tǒng)中刪除。首先我們可以在電腦上實(shí)現(xiàn)房態(tài)的查詢，了解房間的占用情況，這樣可為工作人員減少查詢的時(shí)間，提高管理的效率。另外，客人可以預(yù)定房間也可以臨時(shí)住宿，當(dāng)客人預(yù)定房間后，可根據(jù)其預(yù)定的房間號(hào)入住，這樣就為客人避免了來到本地臨時(shí)找住處的麻煩，為客人節(jié)省了時(shí)間，提高了工作效率，同時(shí)也為賓館帶來了一定的經(jīng)濟(jì)效益。如果客人為散客，到前臺(tái)進(jìn)行登記，即可入住。提高了賓館的管理效率，使得賓館的組織結(jié)構(gòu)向著扁平化方向發(fā)展，用最少的人力物力作盡可能多的工作。2.3系統(tǒng)邏輯方案的提出數(shù)據(jù)流程圖數(shù)據(jù)流程分析是數(shù)據(jù)和數(shù)據(jù)流程分析工作的最后一步，該工作是對(duì)系統(tǒng)中的數(shù)據(jù)進(jìn)行輸入輸出、存儲(chǔ)、傳遞、轉(zhuǎn)換等

9、分析。數(shù)據(jù)流程分析的結(jié)果是給出數(shù)據(jù)流程圖。數(shù)據(jù)流程圖是描述系統(tǒng)邏輯模型的主要工具，我們采取結(jié)構(gòu)化分析的方法繪制數(shù)據(jù)流程圖。針對(duì)現(xiàn)在賓館業(yè)的發(fā)展需求，在業(yè)務(wù)流程圖的基礎(chǔ)上，我們得到了數(shù)據(jù)流程圖2：數(shù)據(jù)詞典系統(tǒng)數(shù)據(jù)詞典（DDDate Dictionary）是描述數(shù)據(jù)流程圖中所有數(shù)據(jù)流、數(shù)據(jù)存儲(chǔ)、處理功能等卡片的集合。數(shù)據(jù)詞典提供一個(gè)可定義的不依賴于應(yīng)用程序的存儲(chǔ)區(qū)域，用于創(chuàng)建擴(kuò)展的屬性集和描述數(shù)據(jù)的內(nèi)容與外觀。其內(nèi)容包括四種條目:數(shù)據(jù)流，數(shù)據(jù)元素、數(shù)據(jù)存儲(chǔ)和數(shù)據(jù)加工。建立完善的數(shù)據(jù)詞典是對(duì)所整理數(shù)據(jù)的一種分析歸檔方式，為下一步建立數(shù)據(jù)庫(kù)和處理數(shù)據(jù)做準(zhǔn)備。在系統(tǒng)分析階段，數(shù)據(jù)詞典有著重要的作用，它包

10、含著系統(tǒng)的詳細(xì)信息。一般來說，系統(tǒng)分析人員應(yīng)把不便于在數(shù)據(jù)流程圖上注明而系統(tǒng)分析應(yīng)該獲得，對(duì)整個(gè)系統(tǒng)開發(fā)以至將來系統(tǒng)運(yùn)行與維護(hù)時(shí)必需的信息盡可能放入數(shù)據(jù)詞典。數(shù)據(jù)詞典：“數(shù)據(jù)元素”條目數(shù)據(jù)元素是數(shù)據(jù)流組成的最小單位，是無法再細(xì)分的數(shù)據(jù)流。它直接反應(yīng)事物的某一特征。其描述需要以下信息：數(shù)據(jù)元素名、類型、長(zhǎng)度、取值范圍、相關(guān)的數(shù)據(jù)元素及數(shù)據(jù)結(jié)構(gòu)。 數(shù)據(jù)元素系統(tǒng)名： 賓館客房管理 編號(hào)：條目名： 標(biāo)準(zhǔn)編號(hào) 別名：屬于數(shù)據(jù)流：客房信息存儲(chǔ)處：客房檔案 數(shù)據(jù)元素結(jié)構(gòu)：代碼類型 取值范圍字符 000000-999999（由數(shù)字組成的字符串）簡(jiǎn)要說明：客房都有唯一的編號(hào)。修改記錄：編寫Xxx日期2008年6

11、月審核xxx日期2008年6月數(shù)據(jù)詞典：“數(shù)據(jù)存儲(chǔ)”條目數(shù)據(jù)存儲(chǔ)是數(shù)據(jù)結(jié)構(gòu)保存的地方。一個(gè)數(shù)據(jù)存儲(chǔ)詞條應(yīng)有以下幾項(xiàng)內(nèi)容：數(shù)據(jù)存儲(chǔ)名、簡(jiǎn)述、輸入數(shù)據(jù)、輸出數(shù)據(jù)、數(shù)據(jù)存儲(chǔ)組織、記錄數(shù)、記錄組成。 數(shù)據(jù)存儲(chǔ)系統(tǒng)名： 賓館客房管理 編號(hào)：D3條目名： 定房表 別名：存儲(chǔ)組織每個(gè)預(yù)訂客房一條記錄記錄數(shù):約20主關(guān)鍵字:服務(wù)編號(hào)記錄組成:項(xiàng)名: 訂房編號(hào) 顧客姓名 客房編號(hào) 入住日期 結(jié)算日期長(zhǎng)度 6 6 8 2 8簡(jiǎn)要說明:修改記錄：編寫xxx日期2008年6月審核xxx日期2008年6月第三章 系統(tǒng)軟件設(shè)計(jì)3.1系統(tǒng)功能模塊設(shè)計(jì)圖 3.2數(shù)據(jù)庫(kù)設(shè)計(jì)針對(duì)一般賓館管理信息系統(tǒng)的需求，通過對(duì)賓館管理工作過程

12、的內(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)名稱，房間面積，床位數(shù)量，住房單價(jià)，是否有空調(diào)，電視，電話，單獨(dú)衛(wèi)生間等。2客房信息，表格的數(shù)據(jù)項(xiàng)有：客房編號(hào)，客房種類，客房位置，客房單價(jià)，備注等。3訂房信息，包括的數(shù)據(jù)項(xiàng)有：訂房編號(hào)，客房編號(hào)，客房種類，客房位置，客房備注信息，顧客姓名，顧客身份證號(hào)碼，入住時(shí)間，折扣，備注等。4結(jié)算信息，包括的數(shù)據(jù)項(xiàng)有：訂房編號(hào)，客房編號(hào)，客房種類，客房位置，客房備注信息，顧客姓名，顧客身份證號(hào)碼，入住時(shí)間，折扣，結(jié)算時(shí)間，備注等。由此可以設(shè)計(jì)賓館管理信息系統(tǒng)頂層圖和賓館管理信息系統(tǒng)關(guān)聯(lián)圖（E-R圖）。

13、客房標(biāo)準(zhǔn)信息表 roomtype列名數(shù)據(jù)類型可否為空說明typeid varcharNOT NULL標(biāo)準(zhǔn)編號(hào)typenamevarcharNOT NULL標(biāo)準(zhǔn)名稱areanumericNULL房間面積bednumnumericNULL床位數(shù)量hairconditionvarcharNULL是否有空調(diào)htelephonevarcharNULL是否有電話htelevisionvarcharNULL是否有電視htoiletvarcharNULL是否有獨(dú)立衛(wèi)生間pricenumericNULL單價(jià)3.2.2 客房信息表 rooms列名數(shù)據(jù)類型可否為空說明roomnovarcharNOT NULL客房編

14、號(hào)roomtypevarcharNOT NULL客房種類roompositionvarcharNULL客房位置roompricenumericNULL單價(jià)putupvarcharNOT NULL是否被預(yù)定roommemotextNULL備注 訂房信息表 booking列名數(shù)據(jù)類型可否為空說明booknovarcharNOT NULL訂房編號(hào)customnamevarcharNOT NULL顧客姓名customidvarcharNOT NULL身份證號(hào)碼roomnovarcharNOT NULL客房編號(hào)indatevarcharNULL入住日期discountnumericNULL折扣inmem

15、otextNULL備注checkdatedatetimeNULL結(jié)算日期ammountnumericNULL金額第四章 系統(tǒng)詳細(xì)設(shè)計(jì)及實(shí)現(xiàn)經(jīng)過系統(tǒng)分析,有關(guān)數(shù)據(jù)庫(kù)結(jié)構(gòu)的所有后臺(tái)工作已經(jīng)完成?，F(xiàn)在將通過賓館管理信息系統(tǒng)中各個(gè)功能模塊的實(shí)現(xiàn)，講解如何使用Visual Basic來編寫數(shù)據(jù)庫(kù)系統(tǒng)的客戶端程序。4.1 賓館系統(tǒng)Hotel-MIS工程項(xiàng)目的創(chuàng)建 啟動(dòng)Visual Basic后，單擊FileNew Project菜單，在工程模板中選擇Standsard EXE,Visual Basic將自動(dòng)產(chǎn)生一個(gè)Form窗體，屬性都是缺省設(shè)置。這里我們刪除這個(gè)窗體，單擊FileSaveProject菜單

16、，將這個(gè)工程項(xiàng)目命名為HotelMIS。4.2賓館管理信息系統(tǒng)主窗體設(shè)計(jì)這個(gè)項(xiàng)目我們使用多文檔界面，單擊VB軟件工具欄中ADD MDI Form按鈕，生成一個(gè)窗體，在這個(gè)窗體上添加所有的控件，創(chuàng)建好的窗體如下:4.3公用模塊設(shè)計(jì) 在Visual Basic中可以用公用模塊來存放整個(gè)工程項(xiàng)目公用的函數(shù)，過程和全局變量等。這樣可以極大的提高代碼的效率。在項(xiàng)目資源管理器中為項(xiàng)目添加一個(gè)Module，保存為Module bas。下面就可以開始添加需要的代碼了。由于系統(tǒng)中各個(gè)功能模塊都將頻繁使用數(shù)據(jù)庫(kù)中的各個(gè)數(shù)據(jù)，因此需要一個(gè)公用的數(shù)據(jù)操作函數(shù)，用以執(zhí)行各種SQL語句。 ExecuteSQL函數(shù)有兩個(gè)參

17、數(shù)：SQL和MsgString。其中SQL用來存放需要執(zhí)行的SQL語句，MsgString用來返回執(zhí)行的提示信息。函數(shù)執(zhí)行時(shí)，首先判斷SQL語句中包含的內(nèi)容，當(dāng)執(zhí)行查詢操作時(shí)，ExecuteSQL函數(shù)將返回一個(gè)與函數(shù)同名的記錄集對(duì)象(Recordset)，所有滿足條件的記錄包含在對(duì)象中，當(dāng)執(zhí)行如刪除、更新、添加等操作時(shí)，不返回記錄集對(duì)象。在ExecuteSQL函數(shù)中使用了ConnectString函數(shù)，這個(gè)函數(shù)用來連接數(shù)據(jù)庫(kù) 4.4 用戶管理模塊設(shè)計(jì)與實(shí)現(xiàn) 用戶管理模塊主要實(shí)現(xiàn)：1 用戶登錄。2 添加用戶。3 修改用戶密碼。4.4 .1 用戶登陸設(shè)計(jì)與實(shí)現(xiàn) 用戶登錄窗體中放置了二個(gè)文本框(Te

18、xtBox)，用來輸入用戶名和用戶密碼：二個(gè)按鈕(CommandButton)用來確定或者取消登錄：三個(gè)標(biāo)簽(Label)用來標(biāo)示窗體的信息系統(tǒng)啟動(dòng)后，將首先出現(xiàn)如下圖，用戶首先輸入用戶名，然后輸入密碼。如果用戶3次輸入密碼不正確，將退出程序。用戶如果沒有輸入用戶名和用戶密碼，將出現(xiàn)消息框提示，如果輸入的用戶名在用戶表中沒有找到，將提示重新輸入用戶名，文本框txtusername將重新獲得輸入焦點(diǎn)。如果用戶輸入的密碼不正確，文本框txtpassword將重新獲得輸入焦點(diǎn)。用戶登錄成功，全局變量ok將被賦值為true。一旦三次輸入密碼均不正確，全局變量ok將被賦值為false。公用模塊中的mai

19、n（）過程將根據(jù)ok的值來決定是退出，還是進(jìn)入系統(tǒng)。4.4 .2 添加用戶設(shè)計(jì)與實(shí)現(xiàn) 進(jìn)入系統(tǒng)后，選擇菜單“系統(tǒng)|添加用戶”，就可以添加用戶，出現(xiàn)添加用戶的窗體在這個(gè)窗體中放置了二個(gè)文本框，用來輸入密碼和確認(rèn)密碼，二個(gè)按鈕用來確定是否修改密碼，二個(gè)標(biāo)簽用來標(biāo)示文本框的內(nèi)容， 一旦輸入完畢，系統(tǒng)將首先查詢數(shù)據(jù)庫(kù)中與新建用戶名相同的記錄，如果有相同記錄將提示用戶重新輸入用戶名。當(dāng)確定數(shù)據(jù)庫(kù)中沒有相同的用戶名，并且二次輸入密碼一致時(shí)，將把該條記錄添加到數(shù)據(jù)庫(kù)中。4.4 .3 修改密碼設(shè)計(jì)與實(shí)現(xiàn) 在這個(gè)窗體中放置了二個(gè)文本框，用來輸入密碼和確認(rèn)密碼，二個(gè)按鈕按鈕用來確定是否修改密碼，二個(gè)標(biāo)簽用來標(biāo)示文

20、本框的內(nèi)容,如下圖,4.5 客房標(biāo)準(zhǔn)管理模塊設(shè)計(jì)與實(shí)現(xiàn) 賓館在運(yùn)行中需要設(shè)置不同的客房標(biāo)準(zhǔn)來適應(yīng)不同消費(fèi)水平顧客的需要。對(duì)于每個(gè)客房標(biāo)準(zhǔn)，有不同的硬件設(shè)施和服務(wù)?？头繕?biāo)準(zhǔn)管理模塊主要實(shí)現(xiàn)如下功能： 1添加客房標(biāo)準(zhǔn)。2修改客房標(biāo)準(zhǔn)。 3 刪除客房標(biāo)準(zhǔn)。添加客房標(biāo)準(zhǔn)模塊設(shè)計(jì)與實(shí)現(xiàn) 在窗體放置多個(gè)文本框，用來輸入客房標(biāo)準(zhǔn)基本信息，多個(gè)下拉式文本框選擇不同的硬件設(shè)施；兩個(gè)按鈕用來確定是否添加客房標(biāo)準(zhǔn)信息；多個(gè)標(biāo)簽用來提示文本框中需要輸入的內(nèi)容 ,如下圖:Option Explicit'是否改動(dòng)過記錄，ture為改過Dim mblChange As BooleanDim mrc As ADODB

21、.RecordsetPublic txtSQL As StringPrivate Sub cboItem_Change(Index As Integer) '有變化設(shè)置gblchange mblChange = TrueEnd SubPrivate Sub cboItem_Click(Index As Integer) Dim sSql As String Dim MsgText As String Dim mrcc As ADODB.Recordset '初始化員工名稱和ID If Index = 0 Then txtSQL = "select typename,p

22、rice from roomtype where typename='" & Trim(cboItem(0) & "'" Set mrcc = ExecuteSQL(txtSQL, MsgText) If Not mrcc.EOF Then txtItem(2) = mrcc!price cmdSave.Enabled = True Else MsgBox "請(qǐng)先建立客房標(biāo)準(zhǔn)！", vbOKOnly + vbExclamation, "警告" cmdSave.Enabled = False E

23、xit Sub End If mrcc.Close End If Exit SubEnd SubPrivate Sub cboItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) EnterToTab KeyCode End SubPrivate Sub cmdExit_Click() If mblChange And cmdSave.Enabled Then If MsgBox("保存當(dāng)前記錄的變化嗎？", vbOKCancel + vbExclamation, "警告"

24、;) = vbOK Then '保存 Call cmdSave_Click End If End If Unload MeEnd SubPrivate Sub cmdSave_Click() Dim intCount As Integer Dim sMeg As String Dim mrcc As ADODB.Recordset Dim MsgText As String For intCount = 0 To 3 If Trim(txtItem(intCount) & " ") = "" Then Select Case intCou

25、nt Case 0 sMeg = "客房編號(hào)" Case 1 sMeg = "客房位置" End Select sMeg = sMeg & "不能為空！" MsgBox sMeg, vbOKOnly + vbExclamation, "警告" txtItem(intCount).SetFocus Exit Sub End If Next intCount If gintRmode = 1 Then txtSQL = "select * from rooms where roomNO='&q

26、uot; & Trim(txtItem(0) & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then MsgBox "已經(jīng)存在此客房編號(hào)的記錄！", vbOKOnly + vbExclamation, "警告" txtItem(0).SetFocus Exit Sub End If mrc.Close End If If gintRmode = 2 Then '先刪除已有記錄 txtSQL = "delete fr

27、om rooms where roomNO='" & Trim(txtItem(0) & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) End If '再加入新記錄 txtSQL = "select * from rooms" Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.AddNew mrc.Fields(0) = Trim(txtItem(0) mrc.Fields(1) = Trim(cboItem(0) For intCo

28、unt = 1 To 2 If Trim(txtItem(intCount) & " ") = "" Then mrc.Fields(intCount + 1) = Null Else mrc.Fields(intCount + 1) = Trim(txtItem(intCount) End If Next intCount mrc.Fields(4) = " " mrc.Fields(5) = Trim(txtItem(3) mrc.Update mrc.Close If gintRmode = 1 Then For int

29、Count = 0 To 3 txtItem(intCount) = "" Next intCount mblChange = False If flagRedit Then Unload frmRoom frmRoom.txtSQL = "select * from rooms" frmRoom.Show End If ElseIf gintRmode = 2 Then Unload Me If flagRedit Then Unload frmRoom End If frmRoom.txtSQL = "select * from rooms

30、" frmRoom.Show End IfEnd SubPrivate Sub Form_Load() Dim sSql As String Dim intCount As Integer Dim MsgText As String Dim mrcc As ADODB.Recordset If gintRmode = 1 Then Me.Caption = Me.Caption & "添加" '初始化物資名稱 txtSQL = "select DISTINCT typename from roomtype" Set mrc =

31、ExecuteSQL(txtSQL, MsgText) If Not mrc.EOF Then Do While Not mrc.EOF cboItem(0).AddItem Trim(mrc.Fields(0) mrc.MoveNext Loop cboItem(0).ListIndex = 0 Else MsgBox "請(qǐng)先進(jìn)行客房標(biāo)準(zhǔn)設(shè)置！", vbOKOnly + vbExclamation, "警告" cmdSave.Enabled = False Exit Sub End If mrc.Close ElseIf gintRmode = 2 T

32、hen Set mrcc = ExecuteSQL(txtSQL, MsgText) If mrcc.EOF = False Then With mrcc txtItem(0) = .Fields(0) For intCount = 1 To 2 If Not IsNull(.Fields(intCount + 1) Then txtItem(intCount) = .Fields(intCount + 1) End If Next intCount txtItem(3) = .Fields(5) txtSQL = "select DISTINCT typename from roo

33、mtype" Set mrc = ExecuteSQL(txtSQL, MsgText) If Not mrc.EOF Then Do While Not mrc.EOF cboItem(0).AddItem Trim(mrc.Fields(0) mrc.MoveNext Loop cboItem(0).ListIndex = 0 Else MsgBox "請(qǐng)先進(jìn)行客房標(biāo)準(zhǔn)設(shè)置！", vbOKOnly + vbExclamation, "警告" cmdSave.Enabled = False Exit Sub End If mrc.Close

34、End With End If mrcc.Close Me.Caption = Me.Caption & "修改" End If mblChange = FalseEnd SubPrivate Sub Form_Unload(Cancel As Integer) gintRmode = 0End SubPrivate Sub txtItem_Change(Index As Integer) '有變化設(shè)置gblchange mblChange = TrueEnd SubPrivate Sub txtItem_GotFocus(Index As Integer)

35、 txtItem(Index).SelStart = 0 txtItem(Index).SelLength = Len(txtItem(Index) End SubPrivate Sub txtItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd Sub載入窗體時(shí)，將首先通過變量gintTmode判斷是添加還是修改。如果是添加狀態(tài)，文本框?qū)⑶宄齼?nèi)容，窗體有提示信息；如果是修改狀態(tài)，將選擇顯示當(dāng)前的記錄。用戶輸入內(nèi)容完畢后，單擊cmdSave按鈕將觸發(fā)Click事件，事

36、件包括：程序首先對(duì)是否輸入內(nèi)容進(jìn)行判斷，然后進(jìn)行格式判斷。程序?qū)⑴袛嗍欠裼兄貜?fù)編號(hào)的記錄，然后添加數(shù)據(jù)到數(shù)據(jù)庫(kù)中。最后根據(jù)狀態(tài)來顯示相應(yīng)的信息：如果是添加狀態(tài)，將提示添加成功，然后重新顯示并清空所有文本框，以便繼續(xù)添加記錄；如果處于虛空狀態(tài)，將提示修改成功，然后更新所有記錄的列表。修改客房標(biāo)準(zhǔn)模塊設(shè)計(jì)與實(shí)現(xiàn) 選擇“客房信息管理 設(shè)置客房標(biāo)準(zhǔn) 修改客房標(biāo)準(zhǔn)”菜單，將出現(xiàn)如圖所示的窗體，窗體中放置一個(gè)表格控件。 載入窗體時(shí)，觸發(fā)窗體的Load事件，顯示當(dāng)前數(shù)據(jù)庫(kù)中所有的記錄,并修改當(dāng)前狀態(tài)為記錄編輯狀態(tài),代碼如下:Private Sub Form_Load() ShowTitle ShowData

37、 flagTedit = TrueEnd Sub刪除客房標(biāo)準(zhǔn)模塊設(shè)計(jì)與實(shí)現(xiàn)選擇“客房信息管理 設(shè)置客房標(biāo)準(zhǔn) 刪除客房標(biāo)準(zhǔn)”菜單，將出現(xiàn)記錄列表。選擇相應(yīng)記錄，單擊鼠標(biāo)右鍵，選擇彈出式菜單，將刪除當(dāng)前記錄. 4.6 客房信息管理模塊設(shè)計(jì)與實(shí)現(xiàn) 客房信息管理模塊主要實(shí)現(xiàn)如下功能：1 添加客房信息。2 修改客房信息。3 刪除客房信息。4 查詢客房信息。添加,修改和刪除的實(shí)現(xiàn)和客房標(biāo)準(zhǔn)一樣原理我就不講了,下面我們看下客房查詢模塊：選擇“客房信息管理 設(shè)置客房信息 查詢客房信息”菜單，將出現(xiàn)如下窗體,在這里可以按照各種方式以及它們的組合進(jìn)行查詢,滿足查詢條件的所有記錄將顯示在客房信息列表窗體 。Opti

38、on Explicit'用于傳遞查詢塊Private Sub chkItem_Click(Index As Integer) If Index = 0 Then txtItem(0).SetFocus Else Combo1.SetFocus End IfEnd SubPrivate Sub cmdExit_Click() Me.HideEnd SubPrivate Sub cmdOK_Click() Dim sQSql As String If chkItem(0).Value = vbChecked Then sQSql = " roomNO = '"

39、& Trim(txtItem(0) & " ") & "'" End If If chkItem(1).Value = vbChecked Then If Trim(sQSql & " ") = "" Then sQSql = " roomtype ='" & Trim(Combo1 & " ") & "'" Else sQSql = sQSql & " and roomtype ='" & Trim(Combo1 & " ") & "'" End If End If If