小型酒店客房管理信息系統(tǒng)論文35877

1、（設(shè)計）（設(shè)計） 第第 1 1 頁頁一、引言（一） 項目開發(fā)背景經(jīng)濟的快速發(fā)展，人們的生活水平和消費意識的提高，促進了旅游業(yè)的發(fā)展。酒店行業(yè)將面臨著機遇和挑戰(zhàn)。面對快速發(fā)展的信息產(chǎn)業(yè)帶來的影響。將電腦技術(shù)和電腦服務(wù)引入酒店管理成為一種趨勢。眾多酒店企業(yè)中，中小型酒店企業(yè)由于他們的先天條件，使他們不能投入大量的資金進行這項必須的改革。因此開發(fā)一套簡單，實用的中小型酒店客房管理信息系統(tǒng)是十分有必要的。（二） 項目開發(fā)目標(biāo)建立酒店客房管理信息系統(tǒng)，采用計算機對客房信息進行管理，進一步提高酒店的經(jīng)濟效益和現(xiàn)代化水平。幫助酒店工作人員提高工作效率，實現(xiàn)客房信息管理工作流程的系統(tǒng)化，規(guī)范化和自動化。（三）

2、 項目開發(fā)的意義現(xiàn)在我國的中小型酒店客房管理水平普遍不高，有的還停留在紙介質(zhì)的基礎(chǔ)上，這種管理手段已不能適應(yīng)時代的發(fā)展，因此它浪費了許多人力和物力。在當(dāng)今信息時代這種傳統(tǒng)的管理方法必然被計算機為基礎(chǔ)的信息管理系統(tǒng)所代替。如果本系統(tǒng)能被中小型酒店企業(yè)采用，將會改變以前靠手工管理客房信息的狀況，可以樹立良好的酒店形象，提高工作效率。（四） 項目開發(fā)方法概述酒店客房管理信息系統(tǒng)采用的是原型法的開發(fā)方法。本著開發(fā)人員對用戶需求的的理解，通過簡單的系統(tǒng)分析，系統(tǒng)設(shè)計，快速實現(xiàn)一個原型系統(tǒng)，然后通過反復(fù)修改來實現(xiàn)管理信息系統(tǒng)。（設(shè)計）（設(shè)計） 第第 2 2 頁頁二、系統(tǒng)分析（一） 可行性分析1. 管理上的

3、可行性在傳統(tǒng)的酒店客房管理中，管理人員不得不花費大量的時間來處理顧客投訴，例如錯誤查詢、煩瑣的登記和結(jié)帳手續(xù)、旅客費用計算錯誤、空余客房資料不能及時提供等，從而影響酒店的經(jīng)濟效益。因此酒店的管理人員迫切的需要一套酒店客房管理信息系統(tǒng)對日常信息進行處理和維護。歷史經(jīng)驗的積累使酒店行業(yè)現(xiàn)有的管理制度和管理方法比較科學(xué)，規(guī)章制度比較齊全，原始數(shù)據(jù)比較正確。這些為系統(tǒng)的建設(shè)提供了有效的制度保障。2. 技術(shù)上的可行性本管理信息系統(tǒng)將采用技術(shù)成熟的 VB6.0 做為前臺開發(fā)工具。后臺數(shù)據(jù)庫采用微軟公司的Access 數(shù)據(jù)庫，它的靈活性，安全性，和易用性為數(shù)據(jù)庫編程提供了良好的條件。因此，系統(tǒng)的軟件開發(fā)平臺

4、已成熟可行。硬件方面，科技的飛速發(fā)展使硬件的更新速度越來越快，容量越來越大，可靠性越來越高，價格越來越低，其硬件平臺完全能滿足此系統(tǒng)的需要。3經(jīng)濟上的可行性本系統(tǒng)由作者自主開發(fā)，免費使用。操作人員只需簡單培訓(xùn)即可上崗。管理和維護比較簡單，除了必要的設(shè)備投資外，后期只需少量資金就可確保運轉(zhuǎn)。因此對于中小型酒店在經(jīng)濟上完全可以接受。本系統(tǒng)的使用能大大提高員工工作效率，加速資金周轉(zhuǎn)、降低各項成本及改善服務(wù)質(zhì)量。能夠取得良好的經(jīng)濟效益。綜上所述，本系統(tǒng)在管理上，在技術(shù)上和經(jīng)濟上是完全可行的，并且投入少，見效快。因此系統(tǒng)的開發(fā)完全可行的。（二） 組織結(jié)構(gòu)分析中小型酒店企業(yè)的組織結(jié)構(gòu)如下圖所示： （三）

5、功能需求分析本系統(tǒng)主要有以下功能要求：1用戶登錄模塊，主要用于用戶的登錄。用戶權(quán)限分為管理員和普通用戶。當(dāng)用戶輸入用戶名和密碼后經(jīng)過確認(rèn)，才能進入酒店客房管理信息系統(tǒng)，并擁有相應(yīng)的權(quán)限。如果不是用戶，拒絕進入。圖 1 中小型酒店組織結(jié)構(gòu)圖總 臺送餐服務(wù)部食品采購部 洗衣房禮賓部房務(wù)中心酒店總經(jīng)理前廳部客房部餐飲部 餐 廳樓層服務(wù)總機財務(wù)部保安部（設(shè)計）（設(shè)計） 第第 3 3 頁頁2房客管理模塊，該模塊是本系統(tǒng)的核心所在。主要用于用戶對房客及其業(yè)務(wù)的情況進行管理，其中包括：預(yù)定管理模塊，主要包括預(yù)定信息的登記，查看，刪除等基本操作。接待管理模塊，主要用于客戶入住信息的登記，查看，修改，刪除等基本

6、操作。結(jié)帳管理模塊，主要用于用戶退房操作。換房管理模塊，主要用于入住用戶的換房操作。押金管理模塊，主要用于對入住客戶押金的補交，查看等基本操作。3客房管理模塊，該模塊主要用于對客房的編輯操作和查看狀態(tài)操作。客房的編輯操作主要有客房的添加，修改，刪除等基本操作。4消費管理模塊，該模塊主要用于對客人在入住期間的消費進行入帳操作，包括消費入帳，話費入帳，餐費入帳等操作。5審查管理模塊，主要用于該酒店管理者對酒店的基本數(shù)據(jù)信息進行查看，以便制定策略。包括客房狀態(tài)報表查看，客人入住信息報表查看，歷史客人報表查看等等。（四） 業(yè)務(wù)流程分析酒店客房業(yè)務(wù)的基本流程主要包括：客房的預(yù)定，客人通過電話或者其他途徑

7、向酒店進行客房預(yù)定，接待人員查詢客房狀態(tài)表后確定有空房則接受預(yù)定，預(yù)定成功后發(fā)給客人預(yù)定憑證，客房狀態(tài)表作出相應(yīng)的變化?？头康牡怯?，分為預(yù)定入住和散客登記如果客人已經(jīng)預(yù)定房間，則根據(jù)預(yù)定憑證進行預(yù)定入住操作，發(fā)給客人房卡，客房狀態(tài)由“預(yù)定”變?yōu)椤叭胱　?。如果客人沒有預(yù)定房間，接待人員查詢客房狀態(tài)表后，有空房則進行客房登記操作，發(fā)給客人房卡，客房狀態(tài)由“空房”變?yōu)椤叭胱　??？腿藫Q房，如果客人對入住的客房條件不滿意，則可進行客人換房操作。接待人員將客人的房間進行更換，并更換客人房卡，客房狀態(tài)也進行相應(yīng)的調(diào)整。預(yù)訂管理餐費管理話費管理押金管理客房查看酒店客房管理系統(tǒng)房客管理客房管理消費管理消費管

8、理客房編輯接待管理結(jié)帳管理換房管理審查管理圖 2 功能需求結(jié)構(gòu)圖入住報表管理客房狀態(tài)報表系統(tǒng)管理歷史客人報表（設(shè)計）（設(shè)計） 第第 4 4 頁頁客房消費，客人入住期間在酒店進行了消費，如：購買商品，就餐，打電話。就要進行消費入帳操作。包括：消費入帳，餐費入帳，話費入帳。補交押金，如果客人的押金太少，則要補交押金?？腿私患{押金，接待人員開具押金憑證。夜審管理。酒店的管理人員要對酒店的基本信息進行了解則可以進行夜審管理，包括：客房狀態(tài)報表的查看，客人入住信息的查看，歷史客人報表查看。客人退房，客人退房時，接待人員根據(jù)客人的房卡，進行退房登記。計算客人入住期間的房費，餐費，話費，各種消費和押金總額。

9、對客人收取費用或者退回押金。客人信息轉(zhuǎn)存到歷史客人表中。客房狀態(tài)由“入住”轉(zhuǎn)為“空房” 。（五） 數(shù)據(jù)流程分析本系統(tǒng)的后臺數(shù)據(jù)庫將作為整個酒店的數(shù)據(jù)流通中心，將各個部門的數(shù)據(jù)信息連通起來，具體流程如下圖所示：房卡客人入住報表 歷史客人表房卡押金憑證房費帳單,房卡消費帳單,押金憑證客人換房客房消費補交押金客房預(yù)定 客人預(yù)定憑證 總臺接待客房編輯 客房狀態(tài)表 客人入住表 夜審管理客房狀態(tài)報表話費,餐費,其他消費帳單客人退房離店客人報表圖 3 業(yè)務(wù)流程圖（設(shè)計）（設(shè)計） 第第 5 5 頁頁餐飲部 客房狀態(tài)信息客人就餐消費客人入住信息前臺接待客房部財務(wù)部酒店客房 MIS客人押金消費匯總圖 4 數(shù)據(jù)流程

10、圖（設(shè)計）（設(shè)計） 第第 6 6 頁頁三、系統(tǒng)設(shè)計（一） 系統(tǒng)模塊設(shè)計根據(jù)上一章的分析，可以設(shè)計出系統(tǒng)的總體功能模塊圖，如圖五所示?？梢钥吹?，本系統(tǒng)劃分為六個功能模塊，房客管理模塊用于對客人及其業(yè)務(wù)情況進行管理，客房管理模塊主要用于客房狀態(tài)的查看和客房的編輯。消費管理模塊主要用于對客人在店消費進行入帳管理。報表管理模塊提供給酒店管理者用來查看酒店的基本信息，系統(tǒng)維護模塊用來管理系統(tǒng)用戶。系統(tǒng)信息模塊用來查看本系統(tǒng)的版權(quán)等信息。（二） 系統(tǒng)流程設(shè)計系統(tǒng)流程就是用戶在使用系統(tǒng)時的工作過程。本系統(tǒng)是多類型用戶管理信息系統(tǒng)，每一類用戶的工作權(quán)限有所區(qū)別。多用戶系統(tǒng)的工作流程都是從用戶登錄模塊開始的，對

11、用戶的身份進行認(rèn)證。身份認(rèn)證可以分為以下兩個過程：確認(rèn)用戶是否是有效的系統(tǒng)用戶。確定用戶的類型。第一個過程決定用戶能否進入系統(tǒng)。第二個過程根據(jù)用戶的類型決定用戶的操作權(quán)限。本系統(tǒng)的流程分析如圖六所示。酒店客房管理信息系統(tǒng)房客管理客房管理消費管理報表管理系統(tǒng)維護系統(tǒng)信息在房客人表補交押金預(yù)定入住預(yù)定房間客人換房退房登記鐘點房登記客房登記客房編輯客房狀態(tài)消費入帳餐費入帳話費入帳客房入住表客房信息表用戶添加更改密碼數(shù)據(jù)初始化用戶查看系統(tǒng)介紹版權(quán)信息圖 5 酒店客房管理系統(tǒng)功能模塊示意圖（設(shè)計）（設(shè)計） 第第 7 7 頁頁（三） 數(shù)據(jù)庫設(shè)計現(xiàn)在我們已經(jīng)對酒店客房管理信息系統(tǒng)的功能，模塊劃分和系統(tǒng)流程有

12、了比較全面的認(rèn)識，本節(jié)將介紹系統(tǒng)的數(shù)據(jù)庫設(shè)計1數(shù)據(jù)庫需求分析針對酒店客房管理信息系統(tǒng)的需求，通過對酒店客房管理工作過程的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計如下所示的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)：客房基本信息，包括的數(shù)據(jù)項有：客房號碼，客房標(biāo)準(zhǔn)，客房位置，客房狀態(tài)，單價，容納人數(shù)，等。預(yù)定基本信息，包括的數(shù)據(jù)項有：客房房號，客人姓名，身份證號碼，身份證地址，預(yù)定時間，操作員等。入住客戶基本信息，包括客房房號，客人姓名，身份證號碼，身份證地址，從何處來，到何處去，住宿原因，入住時間，操作員等。結(jié)算信息，包括的數(shù)據(jù)項有：客房號碼，客戶姓名，身份證號碼，客房單價，折扣，入住時間，結(jié)算時間，備注等。系統(tǒng)用戶信息，包括的數(shù)據(jù)項

13、有 ：用戶名，用戶密碼，用戶權(quán)限。有了上面的數(shù)據(jù)結(jié)構(gòu)，數(shù)據(jù)項和數(shù)據(jù)流程，我們就能進行下面的數(shù)據(jù)庫設(shè)計。2數(shù)據(jù)庫結(jié)構(gòu)設(shè)計管理自己的用戶信息管理自己和普通用戶的用戶信息房客管理客房管理消費管理夜審管理讀取用戶類型是退出系統(tǒng)失敗 3 次否開始用戶登錄失敗重試成功普通用戶管理員圖 6 系統(tǒng)流程設(shè)計圖（設(shè)計）（設(shè)計） 第第 8 8 頁頁數(shù)據(jù)庫包含以下 5 張表：系統(tǒng)用戶表，客房狀態(tài)表，客房預(yù)定表，客人入住表，歷史客人表。表 1 系統(tǒng)用戶表編號字段名稱數(shù)據(jù)類型說明1用戶名文本，長度為50用戶的登錄名， 必填字段2密碼文本，長度 40密碼， 必填字段3權(quán)限文本，長度 40用戶的權(quán)限， 必填字段表 2 客房狀

14、態(tài)表編號字段名稱數(shù)據(jù)類型說明1房號數(shù)字，整數(shù)客房的房號2類別文本，長度為50客房的類別3樓層文本，長度20客房所在的樓層4狀態(tài)文本，長度50客房的狀態(tài)5單價數(shù)字，整數(shù)客房的單價6容納人數(shù)數(shù)字，整數(shù)客房容納的人數(shù)表 3 客房預(yù)定表編號字段名稱數(shù)據(jù)類型說明1房號數(shù)字，整數(shù)預(yù)定客房的房號2姓名文本，長度50預(yù)定客戶的姓名3類別文本，長度50預(yù)定客房的類別4標(biāo)準(zhǔn)價數(shù)字，整數(shù)預(yù)定客房的標(biāo)準(zhǔn)價5證件號碼文本，長度50預(yù)定客戶的證件號碼6押金數(shù)字，整數(shù)預(yù)定客戶交納的押金7聯(lián)系電話文本，長度50預(yù)定客戶的聯(lián)系電話8操作員文本，長度20預(yù)定操作的操作員9摘要文本，長度100預(yù)定操作的摘要表 4 客人入住表編號字

15、段名稱數(shù)據(jù)類型說明1房號數(shù)字，整數(shù)客人入住的房號2客人姓名文本，長度 50入住客人的姓名3標(biāo)準(zhǔn)價數(shù)字，整數(shù)客人入住客房的價格（設(shè)計）（設(shè)計） 第第 9 9 頁頁4押金數(shù)字，整數(shù)客人交納的押金5類別文本，長度 50客人入住客房的類別6證件名稱文本，長度 50客人的證件名稱7證件號碼文本，長度 50客人的證件號碼8證件地址文本，長度 50客人的證件地址9從何處來文本，長度 50客人的來源10到何處去文本，長度 50客人將要去的地方11住宿原因備注客人住宿的原因12操作員文本，長度 50客房登記的操作員13入住日期日期型客人入住的日期14入住時間時間型客人入住的時間15店內(nèi)消費數(shù)字型，整數(shù)客人在店內(nèi)

16、消費的金額16餐費數(shù)字型，整數(shù)客人在店內(nèi)的餐費金額17話費數(shù)字型，整數(shù)客人在店內(nèi)的話費金額表 5 歷史客人表編號字段名稱數(shù)據(jù)類型說明1客人姓名文本，長度50歷史客人的姓名2證件號碼數(shù)字，整數(shù)歷史客人的證件號碼3證件地址文本，長度50歷史客人的證件地址4最后入住日期日期型歷史客人最后的入住日期5最后離店日期日期型歷史客人最后的離店日期6入住次數(shù)數(shù)字型歷史客人的入住次數(shù)（四） 運行環(huán)境選擇1軟件支撐環(huán)境本系統(tǒng)采用中文 Windows XP 平臺，Office 2000 中的 Access 為數(shù)據(jù)庫，Visual Basic 6.0 為開發(fā)工具，軟件開發(fā)在 Windows XP 平臺下運行，最終產(chǎn)品

17、可脫離 Visual Basic 6.0 運行環(huán)境，在 Windows 9X/2000/XP 平臺下運行。2硬件支撐環(huán)境CPU：賽揚 1.2G 以上（設(shè)計）（設(shè)計） 第第 1010 頁頁內(nèi)存：SDR 64M 以上顯卡：VGA 16M 顯存以上硬盤：50M 以上硬盤剩余空間四、系統(tǒng)實施（一） 創(chuàng)建工程用戶需要創(chuàng)建工程存儲的目錄，例如“f:酒店客房管理信息系統(tǒng)” 。運行 VisualBasic6.0 主程序，并選擇新建“標(biāo)準(zhǔn) EXE”工程。新建工程后，在VisualBasic 窗口中有個缺省的窗體 Form1,我們在此基礎(chǔ)上設(shè)計系統(tǒng)的主界面。選擇“工程”菜單中的“工程 1 屬性”命令，在“工程屬性

18、”對話框中，將工程名設(shè)置為“酒店客房管理信息系統(tǒng)” 。單擊“保存” ，將工程存儲為 酒店客房管理信息系統(tǒng).vbp。（二） 添加模塊根據(jù) VisualBasic 功能模塊的劃分原則，將創(chuàng)建以下幾個模塊：Const 用來管理工程中的常量DbFunc 用來管理工程中與數(shù)據(jù)庫操作相關(guān)的聲明，變量和函數(shù)GeneralFunc 用來管理工程中一些通用的自定義函數(shù)Variable 用來管理工程中的全局變量添加模塊的具體操作請參照系統(tǒng)實體，這里不再詳述。（三） 系統(tǒng)模塊的設(shè)計登錄模塊的設(shè)計：用戶要使用本系統(tǒng)，首先必須通過系統(tǒng)的身份認(rèn)證，這個過程叫做登錄。登錄過程需要完成以下任務(wù)：根據(jù)用戶名和密碼來判斷是否可能

19、進入系統(tǒng)。根據(jù)用戶類型決定用戶擁有的權(quán)限。成功登錄的用戶將進入系統(tǒng)的主界面。登錄窗體的名稱為 FrmLogin,它的界面布局如圖七所示。 圖 7 登錄窗體的界面布局下面介紹登錄窗體的部分代碼。（設(shè)計）（設(shè)計） 第第 1111 頁頁變量聲明登錄窗體的變量聲明如下：Public PasswordKey As StringPublic NameKey As StringPublic Try_times As IntegerNameKey 保存用戶名，PasswordKey 保存密碼，Try_times 記錄嘗試登錄的次數(shù)Cmd_Ok_Click 過程當(dāng)用戶單擊“確定”按鈕是時，觸發(fā) Cmd_Ok_C

20、lick 事件，進行身份驗證，對應(yīng)的代碼如下：Private Sub Cmd_OK_Click() 數(shù)據(jù)有效性檢查 If Trim(txtUser) = Then MsgBox 請輸入用戶名 txtUser.SetFocus Exit Sub End If If Trim(txtPwd) = Then MsgBox 請輸入密碼 txtPwd.SetFocus Exit Sub End If NameKey = MakeStr(txtUser) PasswordKey = MakeStr(txtPwd) 判斷用戶是否存在 If MyUser.In_DB(NameKey) = False Then

21、 MsgBox 用戶名不存在 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已經(jīng)三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉 DBapi_Disconnect End Else Exit Sub End If End If 判斷密碼是否正確 MyUser.GetInfo (NameKey) If MyUser.Pwd PasswordKey Then MsgBox 密碼錯誤 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已經(jīng)三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉 D

22、Bapi_Disconnect End Else Exit Sub（設(shè)計）（設(shè)計） 第第 1212 頁頁 End If End If 登錄成功，將當(dāng)前用戶的信息保存在 CurUser 中 CurUser.UserName = MyUser.UserName CurUser.User_type = MyUser.User_type 關(guān)閉自己 Unload MeEnd Sub其他模塊設(shè)計請參照系統(tǒng)實體，在這里不在詳細(xì)敘述。五、系統(tǒng)運行（一） 系統(tǒng)登錄單擊“酒店客房管理信息系統(tǒng)”圖標(biāo)。進入系統(tǒng)展示畫面。 圖 8 系統(tǒng)展示窗體經(jīng)過 5 秒鐘，自動跳轉(zhuǎn)到系統(tǒng)登錄窗體。 圖 9 系統(tǒng)登錄窗體選擇操作員名稱

23、（admin）,輸入密碼（111） 。單擊“確定”進入系統(tǒng)的主界面。（設(shè)計）（設(shè)計） 第第 1313 頁頁 圖 10 系統(tǒng)主界面（二） 房客管理1客房預(yù)定單擊“房客管理” ，單擊“預(yù)定房間” 。彈出客房預(yù)定窗體。在預(yù)定窗體中輸入客戶信息，單擊“預(yù)定” ，完成預(yù)定房間操作。 圖 11 客房預(yù)定窗體2預(yù)定入?。ㄔO(shè)計）（設(shè)計） 第第 1414 頁頁圖 12 預(yù)定入住窗體單擊“預(yù)定入住” ，彈出預(yù)定入住窗體。在預(yù)定入住窗體中輸入相關(guān)信息，單擊“登記”完成預(yù)定入住操作。3客房登記圖 13 客房登記窗體單擊“客房登記” ，彈出客房登記窗體。（設(shè)計）（設(shè)計） 第第 1515 頁頁在客房登記窗體中輸入相關(guān)信息

24、，單擊“登記” ，完成客房登記操作。4鐘點房登記單擊“鐘點房登記” ，彈出鐘點房登記窗體，輸入相關(guān)信息，單擊“登記”完成客房登記操作。圖 14 鐘點房登記窗體5客人換房圖 15 客人換房窗體6補交押金（設(shè)計）（設(shè)計） 第第 1616 頁頁圖 16 補交押金窗體7退房登記圖 17 退房登記窗體8在店客人表（設(shè)計）（設(shè)計） 第第 1717 頁頁圖 18 在店客人表窗體（三） 客房管理1客房狀態(tài)圖 19 客房狀態(tài)窗體2客房編輯（設(shè)計）（設(shè)計） 第第 1818 頁頁圖 20 客房編輯窗體（四） 消費管理1消費入帳圖 21 消費入帳窗體2餐費入帳（設(shè)計）（設(shè)計） 第第 1919 頁頁圖 22 餐費入帳3

25、話費入帳圖 23 話費入帳窗體（五） 報表管理（設(shè)計）（設(shè)計） 第第 2020 頁頁 圖 24 報表管理窗體（六） 系統(tǒng)管理1.添加用戶（設(shè)計）（設(shè)計） 第第 2121 頁頁圖 25 添加用戶窗體2.修改密碼圖 26 密碼設(shè)置窗體3.初始化數(shù)據(jù)庫圖 27 初始化數(shù)據(jù)庫窗體4.用戶查看（設(shè)計）（設(shè)計） 第第 2222 頁頁圖 28 用戶查看窗體（七） 系統(tǒng)信息1.系統(tǒng)簡介 圖 30 系統(tǒng)介紹窗體Dim TIM As Integer 定義一個整型變量Dim myval As String 定義一個字符串變量Private Sub Form_Load() 自動識別數(shù)據(jù)庫路徑 Data1.Databa

26、seName = App.Path & KFGL.mdb Data2.DatabaseName = App.Path & KFGL.mdbEnd SubPrivate Sub Form_Activate()（設(shè)計）（設(shè)計） 第第 2323 頁頁當(dāng)記錄為零時，進入系統(tǒng)具有所有權(quán)限 If Data1.Recordset.RecordCount = 0 Then MsgBox (請先設(shè)置操作員密碼和權(quán)限！)Load MDIForm1 MDIForm1.Show Unload Me Else text1.SetFocus End IfEnd SubPrivate Sub Text1_K

27、eyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text2.SetFocus 按回車鍵，text2 獲得焦點End SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then Cmd1.SetFocus 按回車鍵 cmd1 獲得焦點If KeyCode = vbKeyUp Then text1.SetFocusIf KeyCode = vbKeyDown Then

28、 Cmd1.SetFocusEnd SubPrivate Sub cmd1_Click() 驗證操作員及密碼 If Data2.Recordset.BOF = False Then Data2.Recordset.MoveFirst Data2.Recordset.FindFirst 操作員 like + Chr(34) + text1.BoundText + Chr(34) + If Data2.Recordset.NoMatch Then MsgBox (操作員輸入錯誤!) Else Data1.RecordSource = select * from qxsz where 操作員= &a

29、mp; text1.BoundText & Data1.Refresh If text1.BoundText And Text2.Text And Text2.Text = Data1.Recordset.Fields(密碼) Then drm = text1.Text If Data1.Recordset.Fields(角色名稱) = 管理員 Then gly = 0 Else gly = 1 End If Load MDIForm1 MDIForm1.Show Unload Me Else If TIM = 3 Then 密碼輸錯 3 次，退出系統(tǒng) myval = MsgBox(密

30、碼輸入錯誤,請向系統(tǒng)管理員查詢!, 0, ) If myval = vbOK Then End（設(shè)計）（設(shè)計） 第第 2424 頁頁 End If If text1.BoundText = Then MsgBox (請輸入操作員!) text1.SetFocus Else If text1.BoundText Data1.Recordset.Fields(操作員) Then MsgBox (查無此操作員,請重新輸入操作員!) text1.SetFocus Else If Text2.Text = Then MsgBox (請輸入操作員密碼!) Text2.SetFocus Else If Te

31、xt2.Text Data1.Recordset.Fields(密碼) Then MsgBox (密碼錯誤,請重新輸入密碼!) TIM = TIM + 1 Text2.SetFocus End If End If End If End If End IfEnd IfEnd SubPrivate Sub cmd2_Click() EndEnd SubDim db As Database 定義數(shù)據(jù)庫Dim rs As Recordset 定義字段Dim connter As Integer 定義一個整型變量Dim workarea(200), sql As String 定義字符串變量Privat

32、e Sub Form_Load() 自動識別數(shù)據(jù)庫路徑 Data1.DatabaseName = App.Path & Kfgl.MDBEnd SubPrivate Sub comstart_Click() Frame1.Enabled = True: Comcreat.Enabled = TrueEnd SubPrivate Sub comcreat_Click() 清空選定表中的數(shù)據(jù) ProgressBar1.Visible = True ProgressBar1.Max = UBound(workarea) ProgressBar1.Value = ProgressBar1.Mi

33、n For Counter = LBound(workarea) To UBound(workarea) workarea(Counter) = initial value & Counter ProgressBar1.Value = Counter（設(shè)計）（設(shè)計） 第第 2525 頁頁 Set db = Workspaces(0).OpenDatabase(App.Path & Kfgl.MDB) If Check1.Value = 1 Then sql = delete * from djb db.Execute sql End If If Check2.Value = 1

34、 Then sql = delete * from kf db.Execute sql End If If Check4.Value = 1 Then sql = delete * from yd db.Execute sql End If If Check5.Value = 1 Then sql = delete * from qxsz db.Execute sql End If Next Counter ProgressBar1.Visible = False ProgressBar1.Value = ProgressBar1.Min End SubPrivate Sub comend_C

35、lick() main.Enabled = True Unload MeEnd Sub（設(shè)計）（設(shè)計） 第第 2626 頁頁結(jié)束語這次設(shè)計，使我學(xué)到了很多書本上沒有的知識，提高了我對問題的分析能力。在這些天不分晝夜實踐和摸索中，我受益匪淺，感觸良多。通過這次畢業(yè)設(shè)計，使我感到我的所學(xué)知識還是不夠的，還要繼續(xù)多加努力。（設(shè)計）（設(shè)計） 第第 2727 頁頁致謝參考文獻1 陳明 軟件工程N，中央廣播電視大學(xué)出版社，2001 年2 陳明 Visual Basic 程序設(shè)計N，中央廣播電視大學(xué)出版社，2000 年3 劉韜、駱娟、何旭洪 Visual Basic6.0 數(shù)據(jù)庫系統(tǒng)開發(fā)實例導(dǎo)航N，人民郵電

36、出版社 2002 年4 王利，數(shù)據(jù)庫基礎(chǔ)與應(yīng)用N，中央廣播電視大學(xué)出版社，1997 年（設(shè)計）（設(shè)計） 第第 2828 頁頁5 Bob Reselman , Richard Peasley , Wayne Pruchniak. Visual Basic 6.0 使用指南N，電子工業(yè)出版社WXmA&UE9aQGn8xp$R#&#849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9

37、CpbK!zn%Mz849Gxqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&

38、;gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmUE9aQGn8xp$R#&#849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&

39、;MuWFA5uxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z8vG#tYM*Jg&6a*CZ7H$dq8KqqfHVZFedswSyXTy#&QA9wkxFyeQ!djs#XuyUP2kNXpR

40、WXmA&UE9aQGn8xp$R#&#849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z9JWKffwvG#tYM*Jg&6a*CZ7H$dq8KqqfHVZFedswSyXTy#&QA9wkxFyeQ!djs#XuyUP2kNXpRWXmA&UE9aQGn8xp$R#&#849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK

41、8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn

42、%Mz849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmUE9aQGn8xp$R#&#849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm

43、6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z8vG#tYM*Jg&6a*CZ7H$dq

44、8KqqfHVZFedswSyXTy#&QA9wkxFyeQ!djs#XuyUP2kNXpRWXmA&UE9aQGn8xp$R#&#849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxG89AmUE9aQGn8xp$R#&#849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X

45、4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5

46、uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z8vG#tYM*Jg&6a*CZ7H$dq8KqqfHVZFedswSyXTy#&QA9wkxFyeQ!djs#XuyUP2kNXpRWXmA&UE9aQGn8xp$R#&#849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89A

47、mYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849

48、GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmUE9aQGn8xp$R#&#849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGp

49、P$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWv*3tnGK8!z89AmYWpazadNu#K

50、N&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNuGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&

51、MuWFA5uxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849Gx

52、Gjqv$U*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89Amv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&

53、amp;gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$U*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7J

54、nD6YWRrWwcvR9CpbK!zn%Mz84!z89Amv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$UE9wEwZ#QcUE%&qYpE

55、h5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$U*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$UE9wEwZ#

56、QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$U*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYW

57、pazadNuGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcv

58、R9CpbK!zn%Mz849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxGjqv$UE9wEwZ#QcUE%&

59、;qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqvadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxGjqv$UE9wEwZ#QcUE%&

60、;qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$U*3tnGK8!z89AmYWpazadNu#K

61、N&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89Amv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv

62、*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$U*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz84!z89A

63、mv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$U*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!z89AmYWpazadNu#KN&MuWFA5uxY7JnD6YWRrWwcvR9CpbK!zn%Mz849GxGjqv$UE9wEwZ#QcUE%&q