1、<p>　　軟件工程課程設(shè)計(jì)(B)</p><p>　　題 目 賓館客房管理系統(tǒng) </p><p>　　《軟件工程課程設(shè)計(jì)(B)》任務(wù)書</p><p>　　《軟件工程》課程設(shè)計(jì)旨在通過(guò)2周實(shí)訓(xùn)時(shí)間，培養(yǎng)學(xué)生初步掌握系統(tǒng)分析、設(shè)計(jì)、實(shí)現(xiàn)、測(cè)試、維護(hù)的方法，加深學(xué)生對(duì)軟件工程課程的理解和

2、應(yīng)用，同時(shí)也進(jìn)一步提高學(xué)生運(yùn)用程序設(shè)計(jì)語(yǔ)言的能力。</p><p><b>　　一、目標(biāo)</b></p><p>　　程序設(shè)計(jì)不等于軟件工程，這是本課程需要進(jìn)一步讓學(xué)生加深理解的地方。傳統(tǒng)的程序設(shè)計(jì)在一定程度上偏重于計(jì)算機(jī)科學(xué)領(lǐng)域，屬于較抽象的范疇；而軟件工程則是要實(shí)實(shí)在在地做出一個(gè)滿足用戶要求的系統(tǒng)來(lái)，這是一個(gè)很具體的實(shí)踐過(guò)程。作為一個(gè)軟件開(kāi)發(fā)者，必須具備從事工程實(shí)

3、踐的技能，包括軟件項(xiàng)目的可行性研究、系統(tǒng)分析、設(shè)計(jì)、編寫文檔、源碼設(shè)計(jì)、使用工具等基本技能，這就是課程設(shè)計(jì)要實(shí)現(xiàn)的一個(gè)目標(biāo)。</p><p>　　課程設(shè)計(jì)的教學(xué)基本要求如下：</p><p>　　1．鞏固和加深對(duì)軟件工程原理的理解，提高綜合運(yùn)用本課程所學(xué)知識(shí)的能力。</p><p>　　2．培養(yǎng)學(xué)生選用參考書，查閱手冊(cè)及文獻(xiàn)資料的能力。</p><

4、;p>　　3．培養(yǎng)獨(dú)立思考，深入研究，分析問(wèn)題、解決問(wèn)題的能力。</p><p>　　4．通過(guò)實(shí)際系統(tǒng)的分析設(shè)計(jì)、編程調(diào)試，掌握軟件的分析方法和工程設(shè)計(jì)方法。</p><p>　　5．能夠按要求編寫課程設(shè)計(jì)報(bào)告書，能正確闡述設(shè)計(jì)和實(shí)驗(yàn)結(jié)果、正確繪制系統(tǒng)和程序框圖。</p><p>　　6．通過(guò)課程設(shè)計(jì)，培養(yǎng)學(xué)生嚴(yán)謹(jǐn)?shù)目茖W(xué)態(tài)度，嚴(yán)肅認(rèn)真的工作作風(fēng)和團(tuán)隊(duì)協(xié)作精神。

5、</p><p><b>　　二、選題與內(nèi)容</b></p><p>　　選題應(yīng)盡量結(jié)合教學(xué)、科研的實(shí)際課題，反映新技術(shù)，以獲得更好的工程設(shè)計(jì)實(shí)踐的訓(xùn)練。同時(shí)課程設(shè)計(jì)受到時(shí)間及開(kāi)發(fā)環(huán)境、條件等的限制，命題應(yīng)從實(shí)際出發(fā)，課題的大小規(guī)模、難易適度。學(xué)生可以根據(jù)自己特點(diǎn)、能力、時(shí)間進(jìn)行選題。</p><p>　　三、課程設(shè)計(jì)的基本步驟</p&g

6、t;<p>　　1．問(wèn)題定義（明確問(wèn)題邊界）</p><p><b>　　2．可行性研究</b></p><p><b>　　3．項(xiàng)目開(kāi)發(fā)計(jì)劃</b></p><p><b>　　4．需求分析</b></p><p><b>　　5．概要設(shè)計(jì)</b

7、></p><p><b>　　6．?dāng)?shù)據(jù)庫(kù)設(shè)計(jì)</b></p><p><b>　　7．詳細(xì)設(shè)計(jì)</b></p><p><b>　　8．系統(tǒng)測(cè)試</b></p><p><b>　　9．用戶使用說(shuō)明</b></p><p>

8、<b>　　四、教學(xué)方法及要求</b></p><p>　　1．3-4人成立一個(gè)開(kāi)發(fā)小組，選出小組項(xiàng)目負(fù)責(zé)人，并對(duì)小組成員按任務(wù)進(jìn)行分工或者獨(dú)立完成；</p><p>　　2．開(kāi)發(fā)環(huán)境及工具不限；</p><p>　　3．嚴(yán)格按軟件工程的方法，分階段進(jìn)行開(kāi)發(fā)（問(wèn)題定義、需求分析、概要及詳細(xì)設(shè)計(jì)、編碼、測(cè)試等）；</p><p

9、>　　4．要求每階段產(chǎn)生的文檔等軟件配置齊全、合理；</p><p>　　5．上機(jī)能正常運(yùn)行程序。</p><p>　　6．提交課程設(shè)計(jì)報(bào)告。</p><p>　　要求完成課程設(shè)計(jì)報(bào)告2000字以上，如果采用分組方式完成，可以分模塊完成課程設(shè)計(jì)報(bào)告。</p><p><b>　　五、工作量</b></p>

10、;<p>　　2周（10個(gè)工作日）時(shí)間</p><p><b>　　六、計(jì)劃安排</b></p><p>　　第1個(gè)工作日－第2個(gè)工作日：查找相關(guān)資料、書籍，閱讀示例文檔，選擇題目。</p><p>　　第3個(gè)工作日－第4個(gè)工作日：設(shè)計(jì)程序結(jié)構(gòu)、模塊圖，學(xué)習(xí)相關(guān)技術(shù)。</p><p>　　第5個(gè)工作日－第9

11、個(gè)工作日：完成程序的編碼，并且自己調(diào)試、測(cè)試。穿插進(jìn)行課程設(shè)計(jì)報(bào)告的撰寫。</p><p>　　第10個(gè)工作日：撰寫和整理課程設(shè)計(jì)報(bào)告,檢查軟件測(cè)試效果、檢查課程設(shè)計(jì)報(bào)告，給出學(xué)生成績(jī)。</p><p><b>　　指導(dǎo)教師簽字：</b></p><p>　　2011年10月10日</p><p><b>　　

12、目 錄</b></p><p>　　需求分析………………………………………………………1</p><p>　　概要設(shè)計(jì)………………………………………………………3</p><p>　　詳細(xì)設(shè)計(jì)與實(shí)現(xiàn)………………………………………………5 </p><p>　　系統(tǒng)測(cè)試………………………………………………………12</p

13、><p>　　參考文獻(xiàn)………………………………………………………..……13</p><p>　　附 錄………………………………………………………..……14</p><p><b>　　一、需求分析</b></p><p>　　1 可行性分析 </p><p>　　1.1目標(biāo)方案可行性&l

14、t;/p><p>　　(1) 計(jì)算機(jī)設(shè)備處理繁雜的賓館日常事務(wù)，大幅度減少人力、物力，極大地提高賓館的管理水平和管理效率。</p><p>　　(2) 管理水平和管理效率的提高能直接產(chǎn)生經(jīng)濟(jì)效益。</p><p>　　(3) 高效率的管理形成了良好的經(jīng)營(yíng)氛圍，為賓館打造優(yōu)良形象，提高企業(yè)競(jìng)爭(zhēng)力。</p><p>　　(4) 本系統(tǒng)安全保密性可靠,

15、實(shí)施獨(dú)立的局域網(wǎng)絡(luò)，人員進(jìn)入系統(tǒng)需要登錄，需輸入賬戶和密碼。</p><p>　　(5) 本系統(tǒng)的管理，可以根據(jù)市場(chǎng)需要進(jìn)行調(diào)整,實(shí)用性強(qiáng)。</p><p><b>　　1.2 技術(shù)可行性</b></p><p>　　(1) 工作人員一般都要求掌握計(jì)算機(jī)技術(shù)，會(huì)使用各種管理軟件。</p><p>　　(2) 在新系統(tǒng)投入

16、使用時(shí)，需對(duì)員工進(jìn)行少量的培訓(xùn)，熟悉系統(tǒng)的功能和使用方法使系統(tǒng)能夠順利運(yùn)行。</p><p><b>　　1.3 經(jīng)濟(jì)可行性</b></p><p>　　(1) 賓館有能力承擔(dān)系統(tǒng)開(kāi)發(fā)費(fèi)用。</p><p>　　(2) 新系統(tǒng)將為企業(yè)帶來(lái)經(jīng)濟(jì)效益。管理系統(tǒng)是一個(gè)信息化、智能化和先進(jìn)管理理念的集合體。而管理是一個(gè)動(dòng)態(tài)過(guò)程，在其運(yùn)行過(guò)程中要采取多項(xiàng)

17、措施。其最主要的表現(xiàn)就是減少了企業(yè)管理費(fèi)用和人力開(kāi)支。</p><p><b>　　1.4 操作可行性</b></p><p>　　(1) 本系統(tǒng)采用基于Windows的圖形用戶界面，而該系統(tǒng)是大家熟悉的操作系統(tǒng)，對(duì)于那有一般的計(jì)算機(jī)知識(shí)的人員就可以輕松上手。</p><p>　　(2) 整個(gè)賓館管理系統(tǒng)采用較友好的交互界面，簡(jiǎn)單明了，操作方便

18、，不需要對(duì)數(shù)據(jù)庫(kù)進(jìn)行深入的了解。</p><p><b>　　2 需求分析</b></p><p>　　2.1 用戶工作流程</p><p>　　入住或預(yù)訂客房時(shí)，用戶要對(duì)客房管理模塊或預(yù)訂管理模塊進(jìn)行核對(duì)審查，并進(jìn)行登記；用戶要獲得換房時(shí)，要對(duì)換房情況進(jìn)行查詢和更新；顧客結(jié)束住宿時(shí)，要對(duì)其進(jìn)行結(jié)算。</p><p>

19、　　2.2 用戶業(yè)務(wù)需求</p><p>　　(1) 該管理軟件將對(duì)客房進(jìn)行資料管理和統(tǒng)計(jì)，對(duì)已入住客房、已訂出客房、未入住且未訂出客房進(jìn)行錄入管理和統(tǒng)計(jì)；客房標(biāo)準(zhǔn)、客房?jī)?nèi)容</p><p>　　(2) 該管理軟件將根據(jù)用戶的需求對(duì)客戶情況進(jìn)行資料管理和統(tǒng)計(jì)，對(duì)已入住客戶、預(yù)訂客房客戶進(jìn)行數(shù)據(jù)錄入、信息檢索、修改和刪除，并能打印詳細(xì)信息；</p><p>　　(3)

20、 該管理軟件將根據(jù)用戶的需求對(duì)結(jié)算情況進(jìn)行資料管理和統(tǒng)計(jì)，對(duì)已結(jié)賬的詳單及待結(jié)賬的詳單分別進(jìn)行日、周、月、年的統(tǒng)計(jì)與分析。</p><p>　　(4) 該管理軟件將為用戶提供賬號(hào)管理工具，以便用戶對(duì)賬號(hào)進(jìn)行管理，具體為添加用戶、刪除用戶、修改用戶密碼；</p><p>　　(5) 該管理軟件提供企業(yè)人員管理，能夠?qū)ζ髽I(yè)員工的分類管理，新員工的加入以及員工刪除，修改進(jìn)本信息等功能。</

21、p><p><b>　　二、概要設(shè)計(jì)</b></p><p><b>　　1 功能需求</b></p><p>　　本課題是以一個(gè)小型賓館信息管理為基礎(chǔ)，結(jié)合各管理部門工作的實(shí)際需求，將要對(duì)《賓館信息管理系統(tǒng)》進(jìn)行設(shè)計(jì)、開(kāi)發(fā)，并對(duì)技術(shù)難點(diǎn)作出分析，提出解決方法。使“賓館信息管理系統(tǒng)”最終具有數(shù)據(jù)錄入、修改、刪除，信息檢索，系統(tǒng)

22、維護(hù)等功能。</p><p><b>　　2 主要功能</b></p><p>　　數(shù)據(jù)處理：實(shí)現(xiàn)錄入、修改、刪除、存儲(chǔ)功能。如客房信息、顧客信息、入住信息、換房信息、訂房信息、結(jié)算信息等的數(shù)據(jù)處理等。</p><p>　　信息檢索：實(shí)現(xiàn)按不同要求分類模糊查詢，組合查詢功能，根據(jù)查詢方式的不同，選擇輸出檢索信息。如訂房信息的查詢，結(jié)算信息的查詢

23、等。</p><p>　　系統(tǒng)維護(hù)：實(shí)現(xiàn)對(duì)用戶權(quán)限的限制，密碼的保密性設(shè)置。</p><p><b>　　3 系統(tǒng)開(kāi)發(fā)目的</b></p><p>　　(1) 實(shí)現(xiàn)客房管理、入住管理、換房管理、訂房管理、結(jié)算管理、系統(tǒng)用戶管理的數(shù)據(jù)錄入、修改、刪除和信息檢索功能，</p><p>　　(2) 實(shí)現(xiàn)對(duì)賓館的賬務(wù)管理與系統(tǒng)

24、維護(hù)；</p><p>　　(3) 大大提高賓館的運(yùn)作效率；</p><p>　　(4) 通過(guò)全面的信息查詢和處理，輔助提高賓館的決策水平；</p><p>　　(5) 使用本系統(tǒng),可以迅速提升賓館的管理水平，為降低經(jīng)營(yíng)成本，提高效益，增強(qiáng)賓館擴(kuò)張力，提供有效的技術(shù)保障。</p><p>　　(6) 能夠提供一定的安全機(jī)制，提供數(shù)據(jù)信息授權(quán)訪

25、問(wèn)，防止隨意刪改。</p><p><b>　　4 運(yùn)行環(huán)境</b></p><p>　　操作系統(tǒng)：Windows XP</p><p>　　開(kāi)發(fā)工具：Visual Basic 6.0 </p><p>　　數(shù)據(jù)庫(kù)：SQL Server 2000</p><p><b>　　5 項(xiàng)目意

26、義</b></p><p>　　本系統(tǒng)將對(duì)數(shù)據(jù)處理與信息檢索作為研究重點(diǎn)，實(shí)現(xiàn)對(duì)數(shù)據(jù)的高級(jí)處理，且力求通過(guò)關(guān)鍵字段實(shí)現(xiàn)模糊檢索功能，使信息查詢更加簡(jiǎn)單靈活，即使第一次接觸系統(tǒng)的人也可輕松操作，快速的找到所需信息。</p><p><b>　　三、詳細(xì)設(shè)計(jì)與實(shí)現(xiàn)</b></p><p><b>　　1 組織結(jié)構(gòu)圖</b

27、></p><p><b>　　圖3.1</b></p><p>　　2 賓館的業(yè)務(wù)流程圖如下</p><p><b>　　圖3.2</b></p><p>　　3 賓館的功能結(jié)構(gòu)圖如下</p><p><b>　　圖3.3</b></p&g

28、t;<p><b>　　4 系統(tǒng)功能設(shè)計(jì)</b></p><p>　　系統(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ù)，

29、通過(guò)實(shí)測(cè)賓館的各種運(yùn)行情況，并利用過(guò)去的歷史數(shù)據(jù)預(yù)測(cè)未來(lái)的發(fā)展，從賓館全局的角度出發(fā)進(jìn)行決策，利用信息控制賓館的行為，附注賓館完成其目標(biāo)。</p><p><b>　　5 模塊功能設(shè)計(jì)</b></p><p>　　本系統(tǒng)共包括七大模塊，分別是系統(tǒng)登錄模塊、系統(tǒng)用戶管理模塊、客房管理模塊，顧客入住模塊、訂房模塊、換房模塊及賓館結(jié)算管理模塊。</p><

30、;p>　　5.1. 系統(tǒng)登錄模塊</p><p>　　功能：本模塊的主要功能是對(duì)用戶身份進(jìn)行，驗(yàn)證只有系統(tǒng)的合法用戶才能進(jìn)入系統(tǒng)。其窗體。</p><p>　　登錄：在進(jìn)行系統(tǒng)登錄過(guò)程中，登錄模塊將調(diào)用數(shù)據(jù)庫(kù)里的用戶清單，并對(duì)賬號(hào)和密碼進(jìn)行驗(yàn)證，只有輸入了正確的賬號(hào)和密碼后，系統(tǒng)登錄才會(huì)成功。在登錄模塊中，對(duì)系統(tǒng)的嘗試登錄次數(shù)進(jìn)行了限制，禁止用戶無(wú)終止的進(jìn)行系統(tǒng)登錄嘗試，在本系統(tǒng)中，

31、當(dāng)用戶對(duì)系統(tǒng)的三次登錄失敗后，系統(tǒng)將自動(dòng)機(jī)制登錄，突出登錄模塊。并在輸入了錯(cuò)誤的或者是不存在的賬戶和密碼時(shí)，系統(tǒng)會(huì)給出出錯(cuò)信息提示，指明登錄過(guò)程中的錯(cuò)誤輸入或者錯(cuò)誤操作，以便用戶進(jìn)行正確的登錄。輸入項(xiàng)、輸出項(xiàng)：輸入項(xiàng)為賬號(hào)和密碼。賬號(hào)和密碼均為字符串，長(zhǎng)度各為6個(gè)字符，密碼回顯字符是“*”。</p><p><b>　　數(shù)據(jù)流圖：</b></p><p><b&

32、gt;　　圖3.4</b></p><p>　　5.2. 系統(tǒng)管理模塊</p><p>　　功能：在系統(tǒng)實(shí)行多用戶管理時(shí)，本模塊將為系統(tǒng)開(kāi)辟多個(gè)系統(tǒng)用戶，并能對(duì)其進(jìn)行簡(jiǎn)單的信息維護(hù)，用戶名變更、密碼修改以及對(duì)用戶權(quán)限的授予。</p><p>　　退出：選擇退出系統(tǒng)，將關(guān)閉整個(gè)系統(tǒng)，結(jié)束本次使用。</p><p><b>

33、　　數(shù)據(jù)流圖：</b></p><p><b>　　圖3.5</b></p><p>　　5.3. 客房管理模塊</p><p>　　功能：本模塊的主要功能是客房信息標(biāo)準(zhǔn)設(shè)置以及對(duì)客房信息設(shè)置。</p><p>　　設(shè)置客房標(biāo)準(zhǔn)：主要功能客房信息標(biāo)準(zhǔn)的添加、修改和刪除。</p><p>

34、;　　設(shè)置客房信息：主要功能客房信息的添加、修改和刪除。輸入項(xiàng)、輸出項(xiàng)：本模塊的數(shù)據(jù)輸入項(xiàng)主要是客房編號(hào)、客房類型、客房位置、客房單價(jià)等。并可以報(bào)表形式打印出來(lái)。</p><p><b>　　數(shù)據(jù)流圖：</b></p><p><b>　　圖3.6</b></p><p>　　5.4. 入住管理模塊</p>

35、<p>　　功能：該模塊主要是實(shí)現(xiàn)對(duì)客戶入住信息的登記、查詢兩個(gè)功能。</p><p>　　入住信息登記：該模塊為系統(tǒng)提供對(duì)將入住顧客信息的登記，輸入項(xiàng)為顧客信息和客房信息。</p><p>　　入住信息查詢：該模塊為系統(tǒng)提供整個(gè)賓館的已入住顧客信息的查詢并可以報(bào)表形式打印出來(lái)。輸入項(xiàng)、輸出項(xiàng)：本模塊的數(shù)據(jù)輸入項(xiàng)主要是客房編號(hào)及客房種類，其中客房編號(hào)為必填項(xiàng)。</p>

36、<p>　　添加顧客入住業(yè)務(wù)流程圖：</p><p><b>　　圖3.7</b></p><p>　　5.5. 訂房管理模塊</p><p>　　功能：本模塊的主要功能是實(shí)現(xiàn)對(duì)客戶訂房信息的登記、查詢兩個(gè)功能。</p><p>　　入住信息登記：該模塊為系統(tǒng)提供訂房顧客信息的登記，輸入項(xiàng)為顧客信息和客房信

37、息。</p><p>　　入住信息查詢：該模塊為系統(tǒng)提供整個(gè)賓館的已訂房顧客信息的查詢并可以報(bào)表形式打印出來(lái)。輸入項(xiàng)、輸出項(xiàng)：本模塊的數(shù)據(jù)輸入項(xiàng)主要是顧客姓名、房間編號(hào)及入住時(shí)間，其中顧客姓名為必填項(xiàng)。</p><p>　　添加顧客訂房業(yè)務(wù)流程圖：</p><p><b>　　圖3.8</b></p><p><b

38、>　　四、系統(tǒng)測(cè)試</b></p><p><b>　　1程序登錄界面</b></p><p><b>　　圖5.1 </b></p><p><b>　　圖5.2</b></p><p><b>　　參考文獻(xiàn)</b></p>

39、<p>　　[1] 甘雷，《中文Access 2002標(biāo)準(zhǔn)教程》，北京希望電子出版社</p><p>　　[2] 何旭洪，Visual Basic 數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例導(dǎo)航 10-174頁(yè)，北京人民郵電出版社</p><p>　　[3] 漢清計(jì)算機(jī)工作室，Visual Basic6.0數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例，頁(yè)北京機(jī)械工業(yè)出版社</p><p>

40、　　[4] 豈興明 銀華強(qiáng) 等編著,Visual Basic.NET項(xiàng)目開(kāi)發(fā)寶典,電子工業(yè)出版社</p><p>　　[5] 周揚(yáng) 郭曉東 動(dòng)態(tài)鏈接庫(kù)技術(shù)及應(yīng)用[J],電腦編程技巧與維護(hù)</p><p><b>　　附錄 全部代碼</b></p><p>　　Public NowUser As Strin

41、g '當(dāng)前用戶名</p><p>　　Public nowpower As String '當(dāng)前用戶權(quán)限</p><p>　　Public mydb As DAO.Database '定義數(shù)據(jù)庫(kù)</p><p>　　Public bgi As Integer '判斷背景風(fēng)格</p><p>　　Public S

42、ub LoadAccess()</p><p>　　Set mydb = DAO.OpenDatabase(App.Path & "\hotel.mdb")</p><p><b>　　End Sub</b></p><p>　　Public Sub bground()</p><p>　　I

43、f bgi = 1 Then</p><p>　　main.Picture = panel.Image1.Picture</p><p>　　panel.Picture = panel.Image1.Picture</p><p>　　panel.Picture1.Picture = panel.Image1.Picture</p><p>

44、　　main.Picture1.Picture = panel.Image1.Picture</p><p>　　main.Picture2.Picture = panel.Image1.Picture</p><p>　　Unload findEm: Unload findlogin: Unload fingG: Unload InLogin: Unload LogoutBG: Unlo

45、ad managekf: Unload payoff: Unload View</p><p>　　Unload changelogin: Unload findLogout: Unload find: panel.resizeme</p><p><b>　　Else</b></p><p>　　If bgi = 0 Then</p&g

46、t;<p>　　main.Picture = Nothing</p><p>　　panel.Picture = Nothing</p><p>　　panel.Picture1.Picture = Nothing</p><p>　　main.Picture1.Picture = Nothing</p><p>　　main.

47、Picture2.Picture = Nothing</p><p>　　Unload findEm: Unload findlogin: Unload fingG: Unload InLogin: Unload LogoutBG: Unload managekf: Unload payoff: Unload View</p><p>　　Unload changelogin: Unloa

48、d findLogout: Unload find: panel.resizeme</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Dec

49、lare Function ReleaseCapture Lib "user32" () As Long '獲取“變動(dòng)”信息</p><p>　　Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd A

50、s Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long</p><p>　　Private Const WM_SYSCOMMAND = &H112</p><p>　　Private Const SC_MOVE = &HF010&</p><p>　　P

51、rivate Const HTCAPTION = 2</p><p>　　Dim Emp As Recordset</p><p>　　Private Sub DTPicker1_Change()</p><p>　　Text7.Text = Year(Date) - Year(DTPicker1.Value)</p><p><b&g

52、t;　　End Sub</b></p><p>　　Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)</p><p>　　If Button = 1 Then</p><p><b>　　'如果按下鼠標(biāo)左鍵&

53、lt;/b></p><p>　　Dim ReturnVal As Long</p><p>　　X = ReleaseCapture()</p><p>　　ReturnVal = SendMessage(addEm.hwnd, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0)</p><p><b&

54、gt;　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　LoadAccess</p><p>　　Set Emp = mydb.OpenRecordset("select * from

55、 empl")</p><p>　　Text1.Text = Year(Date) & Month(Date) & Day(Date) & Hour(Time) & Minute(Time)</p><p>　　Text7.Text = Year(Date) - Year(DTPicker1.Value)</p><p>&

56、lt;b>　　End Sub</b></p><p>　　Private Sub Command1_Click() '================================================!!!!!!!!!!!!!!!!!!!!!!!!!!!</p><p>　　'缺少判斷員工號(hào)是否存在的信息</p><p&g

57、t;　　If Text1.Text = "" Or Text2.Text = "" Or Text4.Text = "" Then</p><p>　　msg$ = MsgBox("請(qǐng)確認(rèn) 員工號(hào)、員工姓名、職務(wù) 已經(jīng)輸入", 48, "Error")</p><p><b>　　

58、Else</b></p><p>　　Emp.AddNew</p><p>　　Emp.Fields("emid") = Text1.Text</p><p>　　Emp.Fields("ename") = Text2.Text</p><p>　　Emp.Fields("esex

59、") = Combo1.Text</p><p>　　Emp.Fields("ejob") = Text4.Text</p><p>　　Emp.Fields("eage") = Val(Text5.Text)</p><p>　　Emp.Fields("etel") = Text6.Text&l

60、t;/p><p>　　Emp.Fields("ejtime") = DTPicker1.Value</p><p>　　Emp.Fields("ejage") = Text7.Text</p><p>　　Emp.Update '更新記錄</p><p><b>　　Emp.Clo

61、se</b></p><p>　　msg$ = MsgBox("添加成功", 64, "Success!")</p><p><b>　　Unload Me</b></p><p><b>　　End If</b></p><p><b>

62、;　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　Text1.Text = "": Text2.Text = "": Combo1.Text = ""</p><p>　　Text4.Text = "&quo

63、t;: Text5.Text = "": Text6.Text = ""</p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　main.Enabled = True</p><p>&

64、lt;b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Dim i As Integer '定義一個(gè)整型變量</p><p>　　Dim InLog As Recordset</p><p>　　Dim Room As Recor

65、dset</p><p>　　Dim Remind As Recordset</p><p>　　Private Sub Combo4_Click()</p><p>　　Set Room = mydb.OpenRecordset("select * from roomlogin where rname='" & Combo4.T

66、ext & "'")</p><p>　　ZSDJ(4).Text = Room.Fields("rtype"): ZSDJ(5).Text = Room.Fields("rprice")</p><p><b>　　End Sub</b></p><p>　　Priv

67、ate Sub Combo5_click()</p><p>　　Label11.Caption = Combo5.Text</p><p><b>　　End Sub</b></p><p>　　Private Sub DTP3_Change()</p><p>　　ZSDJ(6).Text = DTP3.Value

68、- DTP1.Value</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　If bgi = 1 Then Me.Picture = panel.Image1.Picture</p><p>　　If bgi = 0 Then Me

69、.Picture = Nothing</p><p>　　DTP1.Value = Date: DTP2.Value = Date: DTP3.Value = Date '初始化日期及時(shí)間</p><p>　　czy.Text = NowUser '賦值給czy</p><p>　　LoadAccess</p><p>&

70、lt;b>　　End Sub</b></p><p>　　Private Sub Form_Unload(Cancel As Integer)</p><p>　　main.Enabled = True '設(shè)置主窗體有效</p><p><b>　　End Sub</b></p><p>

71、;　　Private Sub Combo2_Click()</p><p>　　If Combo2.Text = "折扣" Then</p><p>　　ZSDJ(8).Enabled = True '設(shè)置ZSDJ(8)有效</p><p>　　ZSDJ(8).SetFocus 'ZSDJ(8)獲得焦點(diǎn)</p

72、><p><b>　　End If</b></p><p>　　If Combo2.Text = "招待" Then</p><p>　　ZSDJ(8).Enabled = True '設(shè)置ZSDJ(8)有效</p><p>　　ZSDJ(8).Text = 0 '賦值給Z

73、SDJ(8)</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub ZSDJ_Change(Index As Integer)</p><p>　　Select Case Index</p>&

74、lt;p><b>　　Case 6</b></p><p>　　ZSDJ(7).Text = Format(Val(ZSDJ(6).Text) * Val(ZSDJ(5).Text), "0.00") '計(jì)算折前宿費(fèi)</p><p>　　ZSDJ(9).Text = ZSDJ(7).Text '賦值給ZSDJ(

75、9)</p><p>　　ZSDJ(8).Text = 100</p><p>　　DTP3.Value = DTP1.Value + Val(ZSDJ(6).Text) '計(jì)算退宿日期</p><p><b>　　Case 8</b></p><p>　　ZSDJ(9).Text = Format(Va

76、l(ZSDJ(7).Text) * Val(ZSDJ(8).Text) / 100, "0.00") '計(jì)算實(shí)際宿費(fèi)</p><p><b>　　Case 10</b></p><p>　　If ZSDJ(10).Text <> "" Then</p><p>　　ZSDJ(1

77、0).Text = Val(ZSDJ(10).Text) '用val函數(shù)將字符串轉(zhuǎn)換為數(shù)字</p><p>　　DTP2.Value = DTP1.Value + Int(Val(ZSDJ(10).Text) / Val(ZSDJ(5).Text)) '計(jì)算提醒日期</p><p><b>　　End If</b></p>

78、<p>　　End Select</p><p><b>　　End Sub</b></p><p>　　Private Sub ZSDJ_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)</p><p>　　Select Case Index</p

79、><p><b>　　Case 0</b></p><p>　　If KeyCode = vbKeyReturn Then Combo1.SetFocus '按回車鍵Combo1獲得焦點(diǎn)</p><p><b>　　Case 1</b></p><p>　　If KeyCode = vb

80、KeyReturn Then ZSDJ(2).SetFocus '按回車鍵ZSDJ(2)獲得焦點(diǎn)</p><p><b>　　Case 2</b></p><p>　　If KeyCode = vbKeyReturn Then ZSDJ(3).SetFocus '按回車鍵ZSDJ(3)獲得焦點(diǎn)</p><p>

81、;<b>　　Case 3</b></p><p>　　If KeyCode = vbKeyReturn Then DBCombo1.SetFocus '按回車鍵ZSDJ(2)獲得焦點(diǎn)</p><p><b>　　Case 4</b></p><p>　　If KeyCode = vbKeyReturn T

82、hen ZSDJ(5).SetFocus '按回車鍵ZSDJ(5)獲得焦點(diǎn)</p><p><b>　　Case 5</b></p><p>　　If KeyCode = vbKeyReturn Then ZSDJ(6).SetFocus '按回車鍵ZSDJ(6)獲得焦點(diǎn)</p><p><b>　　C

83、ase 6</b></p><p>　　If KeyCode = vbKeyReturn Then ZSDJ(10).SetFocus</p><p><b>　　Case 8</b></p><p>　　If KeyCode = vbKeyReturn Then ZSDJ(10).SetFocus '按回車鍵ZSD

84、J(10)獲得焦點(diǎn)</p><p><b>　　Case 10</b></p><p>　　If KeyCode = vbKeyReturn Then ZSDJ(11).SetFocus 'ZSDJ(11)獲得焦點(diǎn)</p><p><b>　　Case 11</b></p><p>

85、　　If KeyCode = vbKeyReturn Then Comok.SetFocus '按回車鍵Comok獲得焦點(diǎn)</p><p>　　End Select</p><p><b>　　End Sub</b></p><p>　　Private Sub Combo1_KeyDown(KeyCode As Integer,

86、 Shift As Integer)</p><p>　　If KeyCode = vbKeyReturn Then ZSDJ(1).SetFocus '按回車鍵ZSDJ(1)獲得焦點(diǎn)</p><p><b>　　End Sub</b></p><p>　　Private Sub DBCombo1_KeyDown(KeyCode

87、 As Integer, Shift As Integer)</p><p>　　If KeyCode = vbKeyReturn Then ZSDJ(5).SetFocus 'ZSDJ(5)獲得焦點(diǎn)</p><p><b>　　End Sub</b></p><p>　　Private Sub comdj_Click()<

88、;/p><p><b>　　'查詢空閑房間信息</b></p><p>　　Set Room = mydb.OpenRecordset("select * from roomlogin where rstatue='空閑'")</p><p>　　'On Error GoTo u</p>

89、;<p>　　Room.MoveFirst</p><p>　　Combo4.Text = Room.Fields("rname")</p><p>　　ZSDJ(4).Text = Room.Fields("rtype")</p><p>　　ZSDJ(5).Text = Room.Fields("r

90、price")</p><p>　　Set Room = mydb.OpenRecordset("select * from roomlogin ")</p><p>　　While Not Room.EOF</p><p>　　If Room.Fields("rstatue") = "空閑" T

91、hen Combo4.AddItem Room.Fields("rname")</p><p>　　Room.MoveNext</p><p><b>　　Wend</b></p><p>　　bh.Text = Year(Date) & Month(Date) & Day(Date) & Hour(

92、Time) & Minute(Time) & Second(Time) '設(shè)置編號(hào)</p><p>　　ZSDJ(8).Text = "": ZSDJ(10).Text = ""</p><p>　　'設(shè)置控件有效或無(wú)效</p><p>　　Comok.Enabled = True: Comdj

93、.Enabled = False: Comprint.Enabled = False: ZSDJ(8).Enabled = True</p><p>　　ZSDJ(10).Enabled = True: Combo1.Enabled = True: DTP3.Enabled = True</p><p>　　Combo2.Enabled = True: ZSDJ(0).Enabled =

94、True: ZSDJ(0).SetFocus</p><p>　　Label11.Caption = Combo5.Text</p><p><b>　　Exit Sub</b></p><p>　　'u: h$ = MsgBox("沒(méi)有空閑房間,客房已滿", 48, "Error"): Como