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

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：doc 頁數(shù)：21 大小：906.00KB 人氣指數(shù)：12 舉報 版權(quán)申訴

已閱讀1頁，還剩20頁未讀，繼續(xù)免費閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報或認(rèn)領(lǐng)

文檔簡介

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

28、t;　　4 系統(tǒng)功能設(shè)計　　系統(tǒng)功能設(shè)計是使整個系統(tǒng)能基本實現(xiàn)賓館的客房管理、顧客入住、顧客訂房、顧客換房、結(jié)算管理、系統(tǒng)用戶管理等功能，能讓賓館管理者更直觀的了解賓館的經(jīng)營狀況，以做出相應(yīng)的經(jīng)營決策。管理信息系統(tǒng)(MIS)就是要對這些資源建立正確的數(shù)據(jù)庫，并進(jìn)行信息的存儲管理、編制成各種憑證、報表、臺帳等信息，同時對這些信息進(jìn)行維護(hù)，

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

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

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

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

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

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

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

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

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

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

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

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

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

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

43、f bgi = 1 Then　　main.Picture = panel.Image1.Picture　　panel.Picture = panel.Image1.Picture　　panel.Picture1.Picture = panel.Image1.Picture

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

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

46、t;　　main.Picture = Nothing　　panel.Picture = Nothing　　panel.Picture1.Picture = Nothing　　main.Picture1.Picture = Nothing　　main.

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

48、d findLogout: Unload find: panel.resizeme　　End If　　End If　　End Sub　　Private Dec

49、lare Function ReleaseCapture Lib "user32" () As Long '獲取“變動”信息　　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　　Private Const WM_SYSCOMMAND = &H112　　Private Const SC_MOVE = &HF010&　　P

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

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

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

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

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

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

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

58、Else　　Emp.AddNew　　Emp.Fields("emid") = Text1.Text　　Emp.Fields("ename") = Text2.Text　　Emp.Fields("esex

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

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

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

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

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

64、lt;b>　　Unload Me　　End Sub　　Dim i As Integer '定義一個整型變量　　Dim InLog As Recordset　　Dim Room As Recor

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

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

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

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

69、.Picture = Nothing　　DTP1.Value = Date: DTP2.Value = Date: DTP3.Value = Date '初始化日期及時間　　czy.Text = NowUser '賦值給czy　　LoadAccess&

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

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

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

73、SDJ(8)　　End If　　End Sub　　Private Sub ZSDJ_Change(Index As Integer)　　Select Case Index&

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

75、9)　　ZSDJ(8).Text = 100　　DTP3.Value = DTP1.Value + Val(ZSDJ(6).Text) '計算退宿日期　　Case 8　　ZSDJ(9).Text = Format(Va

76、l(ZSDJ(7).Text) * Val(ZSDJ(8).Text) / 100, "0.00") '計算實際宿費　　Case 10　　If ZSDJ(10).Text <> "" Then　　ZSDJ(1

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

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

79、>　　Case 0　　If KeyCode = vbKeyReturn Then Combo1.SetFocus '按回車鍵Combo1獲得焦點　　Case 1　　If KeyCode = vb

80、KeyReturn Then ZSDJ(2).SetFocus '按回車鍵ZSDJ(2)獲得焦點　　Case 2　　If KeyCode = vbKeyReturn Then ZSDJ(3).SetFocus '按回車鍵ZSDJ(3)獲得焦點

81、;　　Case 3　　If KeyCode = vbKeyReturn Then DBCombo1.SetFocus '按回車鍵ZSDJ(2)獲得焦點　　Case 4　　If KeyCode = vbKeyReturn T

82、hen ZSDJ(5).SetFocus '按回車鍵ZSDJ(5)獲得焦點　　Case 5　　If KeyCode = vbKeyReturn Then ZSDJ(6).SetFocus '按回車鍵ZSDJ(6)獲得焦點　　C

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

84、J(10)獲得焦點　　Case 10　　If KeyCode = vbKeyReturn Then ZSDJ(11).SetFocus 'ZSDJ(11)獲得焦點　　Case 11

85、　　If KeyCode = vbKeyReturn Then Comok.SetFocus '按回車鍵Comok獲得焦點　　End Select　　End Sub　　Private Sub Combo1_KeyDown(KeyCode As Integer,

86、 Shift As Integer)　　If KeyCode = vbKeyReturn Then ZSDJ(1).SetFocus '按回車鍵ZSDJ(1)獲得焦點　　End Sub　　Private Sub DBCombo1_KeyDown(KeyCode

87、 As Integer, Shift As Integer)　　If KeyCode = vbKeyReturn Then ZSDJ(5).SetFocus 'ZSDJ(5)獲得焦點　　End Sub　　Private Sub comdj_Click()<

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

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

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

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

92、Time) & Minute(Time) & Second(Time) '設(shè)置編號　　ZSDJ(8).Text = "": ZSDJ(10).Text = ""　　'設(shè)置控件有效或無效　　Comok.Enabled = True: Comdj

93、.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 =

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

眾賞文庫> 全部分類> 畢業(yè)設(shè)計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

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

文檔簡介

溫馨提示

最新文檔

評論

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

文檔簡介

溫馨提示

最新文檔

評論

免費下載