軟件工程課程設(shè)計(jì) 賓館客房管理系統(tǒng)

《軟件工程課程設(shè)計(jì) 賓館客房管理系統(tǒng)》由會(huì)員分享，可在線閱讀，更多相關(guān)《軟件工程課程設(shè)計(jì) 賓館客房管理系統(tǒng)（22頁珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

1、 軟件工程課程設(shè)計(jì)(B) 題 目 賓館客房管理系統(tǒng) 課程設(shè)計(jì)報(bào)告單 學(xué)號(hào) 姓名 專業(yè)班級(jí) 軟件工程08-2 考 核 項(xiàng) 目 評(píng)分 備注 1 平時(shí)工作態(tài)度及遵守紀(jì)律情況　 　 　 （10分） 2 掌握基本理論、關(guān)鍵知識(shí)、基本技能的程度和閱讀參考資料的水平 　 　 （10分） 3 獨(dú)立工作能力、綜合運(yùn)用所學(xué)知識(shí)分析和解決問題能力及實(shí)際工作能力提高的程度 　

2、 　 （20分） 4 完成課程設(shè)計(jì)說明書及軟件的情況與水平（小組分工情況、規(guī)范性、整潔清楚、敘述完整性、思路清晰程度、工作量及實(shí)際運(yùn)行情況和創(chuàng)新性） 　 　 （60分） 總評(píng)成績(jī) 綜 合 評(píng) 定： 　 　 　 （優(yōu)、良、中、及格、不及格） 指導(dǎo)教師簽字： 　 　 　 2011年10月21日 《軟件工程課程設(shè)計(jì)(B)》任務(wù)書 《軟件工程》課程設(shè)計(jì)旨在通過2周實(shí)訓(xùn)時(shí)間，培養(yǎng)學(xué)生初步掌握系統(tǒng)分析、設(shè)計(jì)、實(shí)現(xiàn)、測(cè)試、維護(hù)的方法，加深學(xué)生對(duì)軟件

3、工程課程的理解和應(yīng)用，同時(shí)也進(jìn)一步提高學(xué)生運(yùn)用程序設(shè)計(jì)語言的能力。 一、目標(biāo) 程序設(shè)計(jì)不等于軟件工程，這是本課程需要進(jìn)一步讓學(xué)生加深理解的地方。傳統(tǒng)的程序設(shè)計(jì)在一定程度上偏重于計(jì)算機(jī)科學(xué)領(lǐng)域，屬于較抽象的范疇；而軟件工程則是要實(shí)實(shí)在在地做出一個(gè)滿足用戶要求的系統(tǒng)來，這是一個(gè)很具體的實(shí)踐過程。作為一個(gè)軟件開發(fā)者，必須具備從事工程實(shí)踐的技能，包括軟件項(xiàng)目的可行性研究、系統(tǒng)分析、設(shè)計(jì)、編寫文檔、源碼設(shè)計(jì)、使用工具等基本技能，這就是課程設(shè)計(jì)要實(shí)現(xiàn)的一個(gè)目標(biāo)。 課程設(shè)計(jì)的教學(xué)基本要求如下： 1．鞏固和加深對(duì)軟件工程原理的理解，提高綜合運(yùn)用本課程所學(xué)知識(shí)的能力。 2．培養(yǎng)學(xué)生選用參考書，查閱手冊(cè)

4、及文獻(xiàn)資料的能力。 3．培養(yǎng)獨(dú)立思考，深入研究，分析問題、解決問題的能力。 4．通過實(shí)際系統(tǒng)的分析設(shè)計(jì)、編程調(diào)試，掌握軟件的分析方法和工程設(shè)計(jì)方法。 5．能夠按要求編寫課程設(shè)計(jì)報(bào)告書，能正確闡述設(shè)計(jì)和實(shí)驗(yàn)結(jié)果、正確繪制系統(tǒng)和程序框圖。 6．通過課程設(shè)計(jì)，培養(yǎng)學(xué)生嚴(yán)謹(jǐn)?shù)目茖W(xué)態(tài)度，嚴(yán)肅認(rèn)真的工作作風(fēng)和團(tuán)隊(duì)協(xié)作精神。 二、選題與內(nèi)容 選題應(yīng)盡量結(jié)合教學(xué)、科研的實(shí)際課題，反映新技術(shù)，以獲得更好的工程設(shè)計(jì)實(shí)踐的訓(xùn)練。同時(shí)課程設(shè)計(jì)受到時(shí)間及開發(fā)環(huán)境、條件等的限制，命題應(yīng)從實(shí)際出發(fā)，課題的大小規(guī)模、難易適度。學(xué)生可以根據(jù)自己特點(diǎn)、能力、時(shí)間進(jìn)行選題。 三、課程設(shè)計(jì)的基本步驟 1．問題定義

5、（明確問題邊界） 2．可行性研究 3．項(xiàng)目開發(fā)計(jì)劃 4．需求分析 5．概要設(shè)計(jì) 6．?dāng)?shù)據(jù)庫(kù)設(shè)計(jì) 7．詳細(xì)設(shè)計(jì) 8．系統(tǒng)測(cè)試 9．用戶使用說明 四、教學(xué)方法及要求 1．3-4人成立一個(gè)開發(fā)小組，選出小組項(xiàng)目負(fù)責(zé)人，并對(duì)小組成員按任務(wù)進(jìn)行分工或者獨(dú)立完成； 2．開發(fā)環(huán)境及工具不限； 3．嚴(yán)格按軟件工程的方法，分階段進(jìn)行開發(fā)（問題定義、需求分析、概要及詳細(xì)設(shè)計(jì)、編碼、測(cè)試等）； 4．要求每階段產(chǎn)生的文檔等軟件配置齊全、合理； 5．上機(jī)能正常運(yùn)行程序。 6．提交課程設(shè)計(jì)報(bào)告。 要求完成課程設(shè)計(jì)報(bào)告2000字以上，如果采用分組方式完成，可以分模塊完成課程設(shè)計(jì)報(bào)告。 五、

6、工作量 2周（10個(gè)工作日）時(shí)間 六、計(jì)劃安排 第1個(gè)工作日－第2個(gè)工作日：查找相關(guān)資料、書籍，閱讀示例文檔，選擇題目。 第3個(gè)工作日－第4個(gè)工作日：設(shè)計(jì)程序結(jié)構(gòu)、模塊圖，學(xué)習(xí)相關(guān)技術(shù)。 第5個(gè)工作日－第9個(gè)工作日：完成程序的編碼，并且自己調(diào)試、測(cè)試。穿插進(jìn)行課程設(shè)計(jì)報(bào)告的撰寫。 第10個(gè)工作日：撰寫和整理課程設(shè)計(jì)報(bào)告,檢查軟件測(cè)試效果、檢查課程設(shè)計(jì)報(bào)告，給出學(xué)生成績(jī)。 指導(dǎo)教師簽字： 　　　　　　　　　　　　　　　　　　　　　　　 　2011年10月10日 目

7、 錄 一、 需求分析………………………………………………………1 二、 概要設(shè)計(jì)………………………………………………………3 三、 詳細(xì)設(shè)計(jì)與實(shí)現(xiàn)………………………………………………5 四、 系統(tǒng)測(cè)試………………………………………………………12 參考文獻(xiàn)………………………………………………………..……13 附 錄………………………………………………………..……14 一、需求分析 1 可行性分析 1.1目標(biāo)方案可行性 (1) 計(jì)算機(jī)設(shè)備處理繁雜的賓館日常事務(wù)，大幅度減少人力、物力，極大地提高賓館的管理水平和管理效率。

8、 (2) 管理水平和管理效率的提高能直接產(chǎn)生經(jīng)濟(jì)效益。 (3) 高效率的管理形成了良好的經(jīng)營(yíng)氛圍，為賓館打造優(yōu)良形象，提高企業(yè)競(jìng)爭(zhēng)力。 (4) 本系統(tǒng)安全保密性可靠,實(shí)施獨(dú)立的局域網(wǎng)絡(luò)，人員進(jìn)入系統(tǒng)需要登錄，需輸入賬戶和密碼。 (5) 本系統(tǒng)的管理，可以根據(jù)市場(chǎng)需要進(jìn)行調(diào)整,實(shí)用性強(qiáng)。 1.2 技術(shù)可行性 (1) 工作人員一般都要求掌握計(jì)算機(jī)技術(shù)，會(huì)使用各種管理軟件。 (2) 在新系統(tǒng)投入使用時(shí)，需對(duì)員工進(jìn)行少量的培訓(xùn)，熟悉系統(tǒng)的功能和使用方法使系統(tǒng)能夠順利運(yùn)行。 1.3 經(jīng)濟(jì)可行性 (1) 賓館有能力承擔(dān)系統(tǒng)開發(fā)費(fèi)用。 (2) 新系統(tǒng)將為企業(yè)帶來經(jīng)濟(jì)效益。管理系統(tǒng)是一個(gè)

9、信息化、智能化和先進(jìn)管理理念的集合體。而管理是一個(gè)動(dòng)態(tài)過程，在其運(yùn)行過程中要采取多項(xiàng)措施。其最主要的表現(xiàn)就是減少了企業(yè)管理費(fèi)用和人力開支。 1.4 操作可行性 (1) 本系統(tǒng)采用基于Windows的圖形用戶界面，而該系統(tǒng)是大家熟悉的操作系統(tǒng)，對(duì)于那有一般的計(jì)算機(jī)知識(shí)的人員就可以輕松上手。 (2) 整個(gè)賓館管理系統(tǒng)采用較友好的交互界面，簡(jiǎn)單明了，操作方便，不需要對(duì)數(shù)據(jù)庫(kù)進(jìn)行深入的了解。 2 需求分析 2.1 用戶工作流程 入住或預(yù)訂客房時(shí)，用戶要對(duì)客房管理模塊或預(yù)訂管理模塊進(jìn)行核對(duì)審查，并進(jìn)行登記；用戶要獲得換房時(shí)，要對(duì)換房情況進(jìn)行查詢和更新；顧客結(jié)束住宿時(shí)，要對(duì)其進(jìn)行結(jié)算。

10、 2.2 用戶業(yè)務(wù)需求 (1) 該管理軟件將對(duì)客房進(jìn)行資料管理和統(tǒng)計(jì)，對(duì)已入住客房、已訂出客房、未入住且未訂出客房進(jìn)行錄入管理和統(tǒng)計(jì)；客房標(biāo)準(zhǔn)、客房?jī)?nèi)容 (2) 該管理軟件將根據(jù)用戶的需求對(duì)客戶情況進(jìn)行資料管理和統(tǒng)計(jì)，對(duì)已入住客戶、預(yù)訂客房客戶進(jìn)行數(shù)據(jù)錄入、信息檢索、修改和刪除，并能打印詳細(xì)信息； (3) 該管理軟件將根據(jù)用戶的需求對(duì)結(jié)算情況進(jìn)行資料管理和統(tǒng)計(jì)，對(duì)已結(jié)賬的詳單及待結(jié)賬的詳單分別進(jìn)行日、周、月、年的統(tǒng)計(jì)與分析。 (4) 該管理軟件將為用戶提供賬號(hào)管理工具，以便用戶對(duì)賬號(hào)進(jìn)行管理，具體為添加用戶、刪除用戶、修改用戶密碼； (5) 該管理軟件提供企業(yè)人員管理，能夠?qū)ζ髽I(yè)員

11、工的分類管理，新員工的加入以及員工刪除，修改進(jìn)本信息等功能。 二、概要設(shè)計(jì) 1 功能需求 本課題是以一個(gè)小型賓館信息管理為基礎(chǔ)，結(jié)合各管理部門工作的實(shí)際需求，將要對(duì)《賓館信息管理系統(tǒng)》進(jìn)行設(shè)計(jì)、開發(fā)，并對(duì)技術(shù)難點(diǎn)作出分析，提出解決方法。使“賓館信息管理系統(tǒng)”最終具有數(shù)據(jù)錄入、修改、刪除，信息檢索，系統(tǒng)維護(hù)等功能。 2 主要功能 數(shù)據(jù)處理：實(shí)現(xiàn)錄入、修改、刪除、存儲(chǔ)功能。如客房信息、顧客信息、入住信息、換房信息、訂房信息、結(jié)算信息等的數(shù)據(jù)處理等。 信息檢索：實(shí)現(xiàn)按不同要求分類模糊查詢，組合查詢功能，

12、根據(jù)查詢方式的不同，選擇輸出檢索信息。如訂房信息的查詢，結(jié)算信息的查詢等。 系統(tǒng)維護(hù)：實(shí)現(xiàn)對(duì)用戶權(quán)限的限制，密碼的保密性設(shè)置。 3 系統(tǒng)開發(fā)目的 (1) 實(shí)現(xiàn)客房管理、入住管理、換房管理、訂房管理、結(jié)算管理、系統(tǒng)用戶管理的數(shù)據(jù)錄入、修改、刪除和信息檢索功能， (2) 實(shí)現(xiàn)對(duì)賓館的賬務(wù)管理與系統(tǒng)維護(hù)； (3) 大大提高賓館的運(yùn)作效率； (4) 通過全面的信息查詢和處理，輔助提高賓館的決策水平； (5) 使用本系統(tǒng),可以迅速提升賓館的管理水平，為降低經(jīng)營(yíng)成本，提高效益，增強(qiáng)賓館擴(kuò)張力，提供有效的技術(shù)保障。 (6) 能夠提供一定的安全機(jī)制，提供數(shù)據(jù)信息授權(quán)訪問，防止隨意刪改

13、。 4 運(yùn)行環(huán)境 操作系統(tǒng)：Windows XP 開發(fā)工具：Visual Basic 6.0 數(shù)據(jù)庫(kù)：SQL Server 2000 5 項(xiàng)目意義 本系統(tǒng)將對(duì)數(shù)據(jù)處理與信息檢索作為研究重點(diǎn)，實(shí)現(xiàn)對(duì)數(shù)據(jù)的高級(jí)處理，且力求通過關(guān)鍵字段實(shí)現(xiàn)模糊檢索功能，使信息查詢更加簡(jiǎn)單靈活，即使第一次接觸系統(tǒng)的人也可輕松操作，快速的找到所需信息。 三、詳細(xì)設(shè)計(jì)與實(shí)現(xiàn) 1 組織結(jié)構(gòu)圖 圖3.1 2 賓館的業(yè)務(wù)流程圖如下 圖3.2 3 賓館的功能結(jié)構(gòu)圖如下 圖3.

14、3 4 系統(tǒng)功能設(shè)計(jì) 系統(tǒng)功能設(shè)計(jì)是使整個(gè)系統(tǒng)能基本實(shí)現(xiàn)賓館的客房管理、顧客入住、顧客訂房、顧客換房、結(jié)算管理、系統(tǒng)用戶管理等功能，能讓賓館管理者更直觀的了解賓館的經(jīng)營(yíng)狀況，以做出相應(yīng)的經(jīng)營(yíng)決策。管理信息系統(tǒng)(MIS)就是要對(duì)這些資源建立正確的數(shù)據(jù)庫(kù)，并進(jìn)行信息的存儲(chǔ)管理、編制成各種憑證、報(bào)表、臺(tái)帳等信息，同時(shí)對(duì)這些信息進(jìn)行維護(hù)，通過實(shí)測(cè)賓館的各種運(yùn)行情況，并利用過去的歷史數(shù)據(jù)預(yù)測(cè)未來的發(fā)展，從賓館全局的角度出發(fā)進(jìn)行決策，利用信息控制賓館的行為，附注賓館完成其目標(biāo)。 5 模塊功能設(shè)計(jì) 本系統(tǒng)共包括七大模塊，分別是系統(tǒng)登錄模塊、系統(tǒng)用戶管理模塊、客房管理模塊，顧客入住模塊、訂房模塊、

15、換房模塊及賓館結(jié)算管理模塊。 5.1. 系統(tǒng)登錄模塊 功能：本模塊的主要功能是對(duì)用戶身份進(jìn)行，驗(yàn)證只有系統(tǒng)的合法用戶才能進(jìn)入系統(tǒng)。其窗體。 登錄：在進(jìn)行系統(tǒng)登錄過程中，登錄模塊將調(diào)用數(shù)據(jù)庫(kù)里的用戶清單，并對(duì)賬號(hào)和密碼進(jìn)行驗(yàn)證，只有輸入了正確的賬號(hào)和密碼后，系統(tǒng)登錄才會(huì)成功。在登錄模塊中，對(duì)系統(tǒng)的嘗試登錄次數(shù)進(jìn)行了限制，禁止用戶無終止的進(jìn)行系統(tǒng)登錄嘗試，在本系統(tǒng)中，當(dāng)用戶對(duì)系統(tǒng)的三次登錄失敗后，系統(tǒng)將自動(dòng)機(jī)制登錄，突出登錄模塊。并在輸入了錯(cuò)誤的或者是不存在的賬戶和密碼時(shí)，系統(tǒng)會(huì)給出出錯(cuò)信息提示，指明登錄過程中的錯(cuò)誤輸入或者錯(cuò)誤操作，以便用戶進(jìn)行正確的登錄。輸入項(xiàng)、輸出項(xiàng)：輸入項(xiàng)為賬號(hào)和

16、密碼。賬號(hào)和密碼均為字符串，長(zhǎng)度各為6個(gè)字符，密碼回顯字符是“*”。 數(shù)據(jù)流圖： 圖3.4 5.2. 系統(tǒng)管理模塊 功能：在系統(tǒng)實(shí)行多用戶管理時(shí)，本模塊將為系統(tǒng)開辟多個(gè)系統(tǒng)用戶，并能對(duì)其進(jìn)行簡(jiǎn)單的信息維護(hù)，用戶名變更、密碼修改以及對(duì)用戶權(quán)限的授予。 退出：選擇退出系統(tǒng)，將關(guān)閉整個(gè)系統(tǒng)，結(jié)束本次使用。 數(shù)據(jù)流圖： 圖3.5 5.3. 客房管理模塊 功能：本模塊的主要功能是客房信息標(biāo)準(zhǔn)設(shè)置以及對(duì)客房信息設(shè)置。 設(shè)置客房標(biāo)準(zhǔn)：主要功能客房信息標(biāo)準(zhǔn)的添加、修改和刪除。 設(shè)置客房信息：主要功能客房信息的添加、修改和刪除。輸入項(xiàng)、輸

17、出項(xiàng)：本模塊的數(shù)據(jù)輸入項(xiàng)主要是客房編號(hào)、客房類型、客房位置、客房單價(jià)等。并可以報(bào)表形式打印出來。 數(shù)據(jù)流圖： 圖3.6 5.4. 入住管理模塊 功能：該模塊主要是實(shí)現(xiàn)對(duì)客戶入住信息的登記、查詢兩個(gè)功能。 入住信息登記：該模塊為系統(tǒng)提供對(duì)將入住顧客信息的登記，輸入項(xiàng)為顧客信息和客房信息。 入住信息查詢：該模塊為系統(tǒng)提供整個(gè)賓館的已入住顧客信息的查詢并可以報(bào)表形式打印出來。輸入項(xiàng)、輸出項(xiàng)：本模塊的數(shù)據(jù)輸入項(xiàng)主要是客房編號(hào)及客房種類，其中客房編號(hào)為必填項(xiàng)。

18、 添加顧客入住業(yè)務(wù)流程圖： 圖3.7 5.5. 訂房管理模塊 功能：本模塊的主要功能是實(shí)現(xiàn)對(duì)客戶訂房信息的登記、查詢兩個(gè)功能。 入住信息登記：該模塊為系統(tǒng)提供訂房顧客信息的登記，輸入項(xiàng)為顧客信息和客房信息。 入住信息查詢：該模塊為系統(tǒng)提供整個(gè)賓館的已訂房顧客信息的查詢并可以報(bào)表形式打印出來。輸入項(xiàng)、輸出項(xiàng)：本模塊的數(shù)據(jù)輸入項(xiàng)主要是顧客姓名、房間編號(hào)及入住時(shí)間，其中顧客姓名為必填項(xiàng)。 添加顧客訂房業(yè)務(wù)流程圖： 圖3.8 四、系統(tǒng)測(cè)試 1程序登錄界面 圖

19、5.1 圖5.2 參考文獻(xiàn) [1] 甘雷，《中文Access 2002標(biāo)準(zhǔn)教程》，北京希望電子出版社 [2] 何旭洪，Visual Basic數(shù)據(jù)庫(kù)開發(fā)實(shí)例導(dǎo)航10-174頁，北京人民郵電出版社 [3] 漢清計(jì)算機(jī)工作室，Visual Basic6.0數(shù)據(jù)庫(kù)開發(fā)實(shí)例，頁北京機(jī)械工業(yè)出版社 [4] 豈興明銀華強(qiáng)等編著,Visual Basic.NET項(xiàng)目開發(fā)寶典,電子工業(yè)出版社 [5] 周揚(yáng)郭曉東動(dòng)態(tài)鏈接庫(kù)技術(shù)及應(yīng)用[J],電腦編程技巧與維護(hù)

20、 附錄 全部代碼 Public NowUser As String 當(dāng)前用戶名 Public nowpower As String 當(dāng)前用戶權(quán)限 Public mydb As DAO.Database 定義數(shù)據(jù)庫(kù) Public bgi As Integer 判斷背景風(fēng)格 Public Sub LoadAccess() Set mydb = DAO.OpenDatabase(App.Path & "\hotel.mdb") End Sub Public Sub bground() If bgi = 1 Then mai

21、n.Picture = panel.Image1.Picture panel.Picture = panel.Image1.Picture panel.Picture1.Picture = panel.Image1.Picture main.Picture1.Picture = panel.Image1.Picture main.Picture2.Picture = panel.Image1.Picture Unload findEm: Unload findlogin: Unload fingG: Unload InLogin: Unload LogoutBG: Unload ma

22、nagekf: Unload payoff: Unload View Unload changelogin: Unload findLogout: Unload find: panel.resizeme Else If bgi = 0 Then main.Picture = Nothing panel.Picture = Nothing panel.Picture1.Picture = Nothing main.Picture1.Picture = Nothing main.Picture2.Picture = Nothing Unload findEm: Unload fi

23、ndlogin: Unload fingG: Unload InLogin: Unload LogoutBG: Unload managekf: Unload payoff: Unload View Unload changelogin: Unload findLogout: Unload find: panel.resizeme End If End If End Sub Private Declare Function ReleaseCapture Lib "user32" () As Long 獲取“變動(dòng)”信息 Private Decla

24、re Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Const WM_SYSCOMMAND = &H112 Private Const SC_MOVE = &HF010& Private Const HTCAPTION = 2 Dim Emp As Recordset Private Sub DTPicker1_Change()

25、Text7.Text = Year(Date) - Year(DTPicker1.Value) End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then 如果按下鼠標(biāo)左鍵 Dim ReturnVal As Long X = ReleaseCapture() ReturnVal = SendMessage(addEm.hwnd, WM_SYSC

26、OMMAND, SC_MOVE + HTCAPTION, 0) End If End Sub Private Sub Form_Load() LoadAccess Set Emp = mydb.OpenRecordset("select * from empl") Text1.Text = Year(Date) & Month(Date) & Day(Date) & Hour(Time) & Minute(Time) Text7.Text = Year(Date) - Year(DTPicker1.Value) End Sub Priva

27、te Sub Command1_Click() ================================================!!!!!!!!!!!!!!!!!!!!!!!!!!! 缺少判斷員工號(hào)是否存在的信息 If Text1.Text = "" Or Text2.Text = "" Or Text4.Text = "" Then msg$ = MsgBox("請(qǐng)確認(rèn) 員工號(hào)、員工姓名、職務(wù) 已經(jīng)輸入", 48, "Error") Else Emp.AddNew Emp.Fields("emid") = Text1.Text Emp.Field

28、s("ename") = Text2.Text Emp.Fields("esex") = Combo1.Text Emp.Fields("ejob") = Text4.Text Emp.Fields("eage") = Val(Text5.Text) Emp.Fields("etel") = Text6.Text Emp.Fields("ejtime") = DTPicker1.Value Emp.Fields("ejage") = Text7.Text Emp.Update 更新記錄 Emp.Close msg$ = MsgBox("添加成功", 64, "Succ

29、ess!") Unload Me End If End Sub Private Sub Command2_Click() Text1.Text = "": Text2.Text = "": Combo1.Text = "" Text4.Text = "": Text5.Text = "": Text6.Text = "" End Sub Private Sub Command3_Click() main.Enabled = True Unload Me End Sub Dim i As Integer 定義一個(gè)整型變量 Dim InL

30、og As Recordset Dim Room As Recordset Dim Remind As Recordset Private Sub Combo4_Click() Set Room = mydb.OpenRecordset("select * from roomlogin where rname=" & Combo4.Text & "") ZSDJ(4).Text = Room.Fields("rtype"): ZSDJ(5).Text = Room.Fields("rprice") End Sub Private Sub Combo5_click() L

31、abel11.Caption = Combo5.Text End Sub Private Sub DTP3_Change() ZSDJ(6).Text = DTP3.Value - DTP1.Value End Sub Private Sub Form_Load() If bgi = 1 Then Me.Picture = panel.Image1.Picture If bgi = 0 Then Me.Picture = Nothing DTP1.Value = Date: DTP2.Value = Date: DTP3.Value = Date 初始化日期及時(shí)間

32、 czy.Text = NowUser 賦值給czy LoadAccess End Sub Private Sub Form_Unload(Cancel As Integer) main.Enabled = True 設(shè)置主窗體有效 End Sub Private Sub Combo2_Click() If Combo2.Text = "折扣" Then ZSDJ(8).Enabled = True 設(shè)置ZSDJ(8)有效 ZSDJ(8).SetFocus ZSDJ(8)獲得焦點(diǎn) End If If Combo2.T

33、ext = "招待" Then ZSDJ(8).Enabled = True 設(shè)置ZSDJ(8)有效 ZSDJ(8).Text = 0 賦值給ZSDJ(8) End If End Sub Private Sub ZSDJ_Change(Index As Integer) Select Case Index Case 6 ZSDJ(7).Text = Format(Val(ZSDJ(6).Text) * Val(ZSDJ(5).Text), "0.00") 計(jì)算折前宿費(fèi) ZSDJ(9).Text = ZSDJ(7).Tex

34、t 賦值給ZSDJ(9) ZSDJ(8).Text = 100 DTP3.Value = DTP1.Value + Val(ZSDJ(6).Text) 計(jì)算退宿日期 Case 8 ZSDJ(9).Text = Format(Val(ZSDJ(7).Text) * Val(ZSDJ(8).Text) / 100, "0.00") 計(jì)算實(shí)際宿費(fèi) Case 10 If ZSDJ(10).Text <> "" Then ZSDJ(10).Text = Val(ZSDJ(10).Text) 用val函數(shù)將字符串轉(zhuǎn)換為數(shù)

35、字 DTP2.Value = DTP1.Value + Int(Val(ZSDJ(10).Text) / Val(ZSDJ(5).Text)) 計(jì)算提醒日期 End If End Select End Sub Private Sub ZSDJ_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) Select Case Index Case 0 If KeyCode = vbKeyReturn Then Combo1.SetFocus 按回車鍵Combo1獲得

36、焦點(diǎn) Case 1 If KeyCode = vbKeyReturn Then ZSDJ(2).SetFocus 按回車鍵ZSDJ(2)獲得焦點(diǎn) Case 2 If KeyCode = vbKeyReturn Then ZSDJ(3).SetFocus 按回車鍵ZSDJ(3)獲得焦點(diǎn) Case 3 If KeyCode = vbKeyReturn Then DBCombo1.SetFocus 按回車鍵ZSDJ(2)獲得焦點(diǎn) Case 4 If KeyCode = vbKeyReturn Then ZSD

37、J(5).SetFocus 按回車鍵ZSDJ(5)獲得焦點(diǎn) Case 5 If KeyCode = vbKeyReturn Then ZSDJ(6).SetFocus 按回車鍵ZSDJ(6)獲得焦點(diǎn) Case 6 If KeyCode = vbKeyReturn Then ZSDJ(10).SetFocus Case 8 If KeyCode = vbKeyReturn Then ZSDJ(10).SetFocus 按回車鍵ZSDJ(10)獲得焦點(diǎn) Case 10 If KeyCode = vbKeyRet

38、urn Then ZSDJ(11).SetFocus ZSDJ(11)獲得焦點(diǎn) Case 11 If KeyCode = vbKeyReturn Then Comok.SetFocus 按回車鍵Comok獲得焦點(diǎn) End Select End Sub Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then ZSDJ(1).SetFocus 按回車鍵ZSDJ(1)獲得焦點(diǎn) End Sub Private Su

39、b DBCombo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then ZSDJ(5).SetFocus ZSDJ(5)獲得焦點(diǎn) End Sub Private Sub comdj_Click() 查詢空閑房間信息 Set Room = mydb.OpenRecordset("select * from roomlogin where rstatue=空閑") On Error GoTo u Room.MoveFirst Combo4.Text = Room.Fiel

40、ds("rname") ZSDJ(4).Text = Room.Fields("rtype") ZSDJ(5).Text = Room.Fields("rprice") Set Room = mydb.OpenRecordset("select * from roomlogin ") While Not Room.EOF If Room.Fields("rstatue") = "空閑" Then Combo4.AddItem Room.Fields("rname") Room.MoveNext Wend bh.Text = Year(Date) & Mont

41、h(Date) & Day(Date) & Hour(Time) & Minute(Time) & Second(Time) 設(shè)置編號(hào) ZSDJ(8).Text = "": ZSDJ(10).Text = "" 設(shè)置控件有效或無效 Comok.Enabled = True: Comdj.Enabled = False: Comprint.Enabled = False: ZSDJ(8).Enabled = True ZSDJ(10).Enabled = True: Combo1.Enabled = True: DTP3.Enabled = True Combo2.Enabled = True: ZSDJ(0).Enabled = True: ZSDJ(0).SetFocus Label11.Caption = Combo5.Text Exit Sub u: h$ = MsgBox("沒有空閑房間,客房已滿", 48, "Error"): Comok.Enabled = False: Comprint.Enabled = False: Comcancel.Enabled = False: Comend.Enabled = True: Comdj.Enabled = True End Sub 17