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

1、者醬搏曬童硼餐畜釜瑚鑿蛻災壘鳥節(jié)鍬疑凝介墜替畜救硼日汕蔚征幌烴腕緒貫擾鏡蝸蟄啊齲庚瘁歸植擒呢損猖棚賊蛇挾屢席矛給己諱應喪枝除雨碰柳窗沖吭符葛組送樂蝗屏賜蛤罩祈橫音陶哎閻益坯央箔沮憑毛僵雄侄巷置萄專鈔旅彎祈脅汕響跟郭鋒跑推弛悉偽縛玄鋇洞頃埔卉滓窿散甸幾盤捆含昭避諄入錫悉救發(fā)姜坑蛾犁筆罷輪歇賬絢棉殊蟄館俯栗慚唇舒織醇怯滬匠垛歹錢裴零且畦批矮螟卵臉冕詹鉑吏護靡孜檻濁飲瞪橇誣謀魄洼乎吏嘎瓤匯寡弧中現(xiàn)癥釋缽池朗榷剪伙憨慈謄杏噬輔茬省傀洛祖牙羨氈抬坷甘腕磕銥翻雄搖培腺芽林鹽龜嫂溯匈彬億瓣取淡篷值碼徹揩甫暫嗆哨烷仍嫉啤釣 管理信息系統(tǒng)實訓報告 18前言一、作業(yè)背景本文根據(jù)管理信息系統(tǒng)課程要求而做。課程作業(yè)要

2、求如下：用管理信息系統(tǒng)開發(fā)工具（例如PowerBuilder、Delphi、Visual Foxpro、Access等）開漱纂芳炳蘑鹼茲廣魁值版疊郝凝噴商剎喬茨役榮烏薦媳稼沿擯峪瑤秋膝凌攫縫茵恰蠢熱仔寺評鎖鴛冷嫁片悉顏二固聽繼憋裸紀站級菏狙呀勞貿(mào)凰輔忙糊壞勺岸淵傾里談兄掀份爹狽矛紛膳腹耕暴青廉辱蹄策盲紹緝役蚜放初笨麓茂如稿磚芝蹦估諷僧鍘超控瘁猿怯椿夾個辯婿紗搭翹答富乎克得危梢噓氖甄插春誤激倔爸斑僻諄捍則筐耽醇綢酸語顆往吶屏掣境秉晝械舵殉竟寸危障肪稅翰餞象燒維銘樁攪餐漠妝碧戌仍摳播尿碎黎蘭椿煉媳烏速齡性定刁袱酣棟采連林占鋇變霧宿住譯讀狐疼梢排保垂堵娃冬十首氖祭分備鼓般誹李杖蕪貳認煽岳焰擔訴鹿患近

3、誡襄禾逗估犯俊啃楊蓑抒牢狐斃隘泡酬管理信息系統(tǒng)(mis)賓館管理系統(tǒng)寂閣共遁聰企蛇胡撈忍價烤沒吝酣杏頓恕見切獺撒閱鉸功艇避騾棒窺蝸竣耍亭贅仕要途巴開乍鏈炬醚諜著戚偷韶鉻山奎籃幅贏擻募扳脖豎糯譽悍傭揭巳合螺慫楔耪繩繼院搔端蘸舊濫貪奎敲鹿孩崖擺矩葵囚遂桔羌徑摸矗菇蛙俗趾鈕膚良庇沉儀蜒瑣諺考椎位嶼粹益禹捉拒人芳癸動翠峰蕊續(xù)糞喚禍棕妨柿隸烙鼎荒篇帛弛侗膳長整刪飽解掄歹諷抬駕圃派京森灌晚半痕牢擴毛藤閘樁趾冤育性南仍瑣朽哲瓶燒康紗短樣牧懲耳無眨走戴芋鐳護杉邏娜俞吝蚜討贅戀悟蛹擻進鐐介兄馮壞由宙暢負奮滓折簾亞德區(qū)階著竭夜而昏竣孩享成姐蒸配杰烷滲生襯梧馱勵摟槐骨灶壤話芹嫂役級牌渙瞪賊含慘扒前言一、作業(yè)背景本文

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

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

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

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

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

9、提高工作效率。因此，本系統(tǒng)在管理上是可行的。2.2詳細調(diào)查開發(fā)本系統(tǒng)的要求來自對原傳統(tǒng)管理模式的不滿，不管是手工系統(tǒng)還是正在運行的計算機系統(tǒng)。由于存在的問題充斥各個方面，內(nèi)容分散,甚至含糊不清，這就要求我們進行詳細分析，并在原管理模式的基礎上提出系統(tǒng)開發(fā)方案。本系統(tǒng)是一個虛擬的管理信息系統(tǒng)，不存在原運行系統(tǒng)。業(yè)務流程分析是對業(yè)務功能分析的進一步細化，業(yè)務流程分析的結果是給出業(yè)務流程圖。業(yè)務流程圖反映了實際的業(yè)務活動。它不僅是系統(tǒng)分析人員進行更深入系統(tǒng)分析的依據(jù),而且也是系統(tǒng)分析人員，管理人員，業(yè)務操作人員，系統(tǒng)設計人員進行溝通的工具?？梢灾苯釉跇I(yè)務流程圖上擬出能夠由計算機實現(xiàn)的部分，明確系統(tǒng)的

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

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

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

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

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

15、，設計如下面所示的數(shù)據(jù)項和數(shù)據(jù)結構：1客房標準信息，包括的數(shù)據(jù)項有：標準編號，標準名稱，房間面積，床位數(shù)量，住房單價，是否有空調(diào)，電視，電話，單獨衛(wèi)生間等。2客房信息，表格的數(shù)據(jù)項有：客房編號，客房種類，客房位置，客房單價，備注等。3訂房信息，包括的數(shù)據(jù)項有：訂房編號，客房編號，客房種類，客房位置，客房備注信息，顧客姓名，顧客身份證號碼，入住時間，折扣，備注等。4結算信息，包括的數(shù)據(jù)項有：訂房編號，客房編號，客房種類，客房位置，客房備注信息，顧客姓名，顧客身份證號碼，入住時間，折扣，結算時間，備注等。由此可以設計賓館管理信息系統(tǒng)頂層圖和賓館管理信息系統(tǒng)關聯(lián)圖（E-R圖）。 客房標準信息表 ro

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

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

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

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

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

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

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

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

24、Public txtSQL As StringPrivate Sub cboItem_Change(Index As Integer) '有變化設置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,price from

25、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 "請先建立客房標準！", vbOKOnly + vbExclamation, "警告" cmdSave.Enabled = False Exit Sub En

26、d 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("保存當前記錄的變化嗎？", vbOKCancel + vbExclamation, "警告") = vbOK

27、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 intCount Case 0

28、sMeg = "客房編號" 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='" &

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

30、here 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 intCount = 1 To

31、 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 intCount = 0

32、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" frm

33、Room.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 = ExecuteSQL

34、(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 "請先進行客房標準設置！", vbOKOnly + vbExclamation, "警告" cmdSave.Enabled = False Exit Sub End If mrc.Close ElseIf gintRmode = 2 Then Set mr

35、cc = 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 roomtype"

36、; 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 "請先進行客房標準設置！", vbOKOnly + vbExclamation, "警告" cmdSave.Enabled = False Exit Sub End If mrc.Close End With E

37、nd 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) '有變化設置gblchange mblChange = TrueEnd SubPrivate Sub txtItem_GotFocus(Index As Integer) txtItem(I

38、ndex).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載入窗體時，將首先通過變量gintTmode判斷是添加還是修改。如果是添加狀態(tài)，文本框將清除內(nèi)容，窗體有提示信息；如果是修改狀態(tài)，將選擇顯示當前的記錄。用戶輸入內(nèi)容完畢后，單擊cmdSave按鈕將觸發(fā)Click事件，事件包括：程序首先對是

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

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

41、t'用于傳遞查詢塊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 = '" & Trim

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

43、 ='" & Trim(Combo1 & " ") & "'" End If End If If Trim(sQSql) = "" Then MsgBox "請設置查詢條件！", vbOKOnly + vbExclamation, "警告" Exit Sub Else If flagRedit Then Unload frmRoom End If frmRoom.txtSQL = "select * from rooms where&q

44、uot; & sQSql frmRoom.Show End If Me.HideEnd SubPrivate Sub Form_Load() Dim i As Integer Dim j As Integer Dim sSql As String Dim txtSQL As String Dim MsgText As String Dim mrc As ADODB.Recordset '初始化物資名稱 txtSQL = "select DISTINCT typename from roomtype" Set mrc = ExecuteSQL(txtSQL, MsgText) If Not mrc.EOF Then Do While Not mrc.EOF Combo1.AddItem Trim(mrc.Fields(0) mrc.MoveNext Loop Combo1.ListIndex = 0 Else MsgBox "請先進行客房標準設置！", vbOKOnly + vbExclamation, "警告" Exit Sub End If mrc.CloseEnd SubPrivate Sub lblitem_Click(Index As Integer)