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

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

2、，全面提高賓館的軟件管理水準，已成為賓館業(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)代化的計算機信息處理技術(shù)來管理賓館，從而改變傳統(tǒng)的管理方法使得辦公人員每天要處理的事務繁多，重復性的工作使其效率較低、各類客戶信息收集不齊全；分類、歸檔不合理，以至于造成查找困難的狀

3、況，使得賓館管理科學化。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)，從技術(shù)上，經(jīng)濟上，管理上均

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

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

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

7、現(xiàn)的部分，明確系統(tǒng)的邊界，使計算機處理與人工業(yè)務處理的接口清晰，分析組織的業(yè)務流程是否合理，刪除重復的，不合理的環(huán)節(jié)，明確整個業(yè)務流程,為以后的分析與設(shè)計打下良好的基礎(chǔ)。因此，為了能夠反映賓館內(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)的邊界，把

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

9、分析。數(shù)據(jù)流程分析的結(jié)果是給出數(shù)據(jù)流程圖。數(shù)據(jù)流程圖是描述系統(tǒng)邏輯模型的主要工具，我們采取結(jié)構(gòu)化分析的方法繪制數(shù)據(jù)流程圖。針對現(xiàn)在賓館業(yè)的發(fā)展需求，在業(yè)務流程圖的基礎(chǔ)上，我們得到了數(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ù)詞典有著重要的作用，它包

10、含著系統(tǒng)的詳細信息。一般來說，系統(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ù)元素名、類型、長度、取值范圍、相關(guān)的數(shù)據(jù)元素及數(shù)據(jù)結(jié)構(gòu)。 數(shù)據(jù)元素系統(tǒng)名： 賓館客房管理 編號：條目名： 標準編號 別名：屬于數(shù)據(jù)流：客房信息存儲處：客房檔案 數(shù)據(jù)元素結(jié)構(gòu)：代碼類型 取值范圍字符 000000-999999（由數(shù)字組成的字符串）簡要說明：客房都有唯一的編號。修改記錄：編寫Xxx日期2008年6

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

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

13、客房標準信息表 roomtype列名數(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客房編

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

15、otextNULL備注checkdatedatetimeNULL結(jié)算日期ammountnumericNULL金額第四章 系統(tǒng)詳細設(shè)計及實現(xiàn)經(jīng)過系統(tǒng)分析,有關(guān)數(shù)據(jù)庫結(jié)構(gòu)的所有后臺工作已經(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窗體，屬性都是缺省設(shè)置。這里我們刪除這個窗體，單擊FileSaveProject菜單

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

17、數(shù)：SQL和MsgString。其中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 用戶管理模塊設(shè)計與實現(xiàn) 用戶管理模塊主要實現(xiàn)：1 用戶登錄。2 添加用戶。3 修改用戶密碼。4.4 .1 用戶登陸設(shè)計與實現(xiàn) 用戶登錄窗體中放置了二個文本框(Te

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

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

20、本框的內(nèi)容,如下圖,4.5 客房標準管理模塊設(shè)計與實現(xiàn) 賓館在運行中需要設(shè)置不同的客房標準來適應不同消費水平顧客的需要。對于每個客房標準，有不同的硬件設(shè)施和服務?？头繕藴使芾砟K主要實現(xiàn)如下功能： 1添加客房標準。2修改客房標準。 3 刪除客房標準。添加客房標準模塊設(shè)計與實現(xiàn) 在窗體放置多個文本框，用來輸入客房標準基本信息，多個下拉式文本框選擇不同的硬件設(shè)施；兩個按鈕用來確定是否添加客房標準信息；多個標簽用來提示文本框中需要輸入的內(nèi)容 ,如下圖:Option Explicit'是否改動過記錄，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 "請先建立客房標準！", 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("保存當前記錄的變化嗎？", 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 = "客房編號" 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)存在此客房編號的記錄！", 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 "請先進行客房標準設(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 "請先進行客房標準設(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載入窗體時，將首先通過變量gintTmode判斷是添加還是修改。如果是添加狀態(tài)，文本框?qū)⑶宄齼?nèi)容，窗體有提示信息；如果是修改狀態(tài)，將選擇顯示當前的記錄。用戶輸入內(nèi)容完畢后，單擊cmdSave按鈕將觸發(fā)Click事件，事

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

37、 flagTedit = TrueEnd Sub刪除客房標準模塊設(shè)計與實現(xiàn)選擇“客房信息管理 設(shè)置客房標準 刪除客房標準”菜單，將出現(xiàn)記錄列表。選擇相應記錄，單擊鼠標右鍵，選擇彈出式菜單，將刪除當前記錄. 4.6 客房信息管理模塊設(shè)計與實現(xiàn) 客房信息管理模塊主要實現(xiàn)如下功能：1 添加客房信息。2 修改客房信息。3 刪除客房信息。4 查詢客房信息。添加,修改和刪除的實現(xiàn)和客房標準一樣原理我就不講了,下面我們看下客房查詢模塊：選擇“客房信息管理 設(shè)置客房信息 查詢客房信息”菜單，將出現(xià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