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

1、 軟件工程課程設(shè)計(B)題 目 賓館客房管理系統(tǒng) 課程設(shè)計報告單學(xué)號 姓名 專業(yè)班級軟件工程08-2考 核 項 目評分備注1平時工作態(tài)度及遵守紀(jì)律情況（10分）2掌握基本理論、關(guān)鍵知識、基本技能的程度和閱讀參考資料的水平（10分）3獨立工作能力、綜合運用所學(xué)知識分析和解決問題能力及實際工作能力提高的程度（20分）4完成課程設(shè)計說明書及軟件的情況與水平（小組分工情況、規(guī)范性、整潔清楚、敘述完整性、思路清晰程度、工作量及實際運行情況和創(chuàng)新性）（60分）總評成績綜 合 評 定：（優(yōu)、良、中、及格、不及格） 指導(dǎo)教師簽字：2011年10月21日軟件工程課程設(shè)計(B)任務(wù)書軟件工程課程設(shè)計旨在通過2周實

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

3、用本課程所學(xué)知識的能力。2培養(yǎng)學(xué)生選用參考書，查閱手冊及文獻(xiàn)資料的能力。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é)作精神。二、選題與內(nèi)容選題應(yīng)盡量結(jié)合教學(xué)、科研的實際課題，反映新技術(shù)，以獲得更好的工程設(shè)計實踐的訓(xùn)練。同時課程設(shè)計受到時間及開發(fā)環(huán)境、條件等的限制，命題應(yīng)從實際出發(fā)，課題的大小規(guī)模、難易適度。學(xué)生可以根據(jù)自己特點、能力、時間進(jìn)行選題。三、課程設(shè)計的基本步驟1

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

5、閱讀示例文檔，選擇題目。第3個工作日第4個工作日：設(shè)計程序結(jié)構(gòu)、模塊圖，學(xué)習(xí)相關(guān)技術(shù)。第5個工作日第9個工作日：完成程序的編碼，并且自己調(diào)試、測試。穿插進(jìn)行課程設(shè)計報告的撰寫。第10個工作日：撰寫和整理課程設(shè)計報告,檢查軟件測試效果、檢查課程設(shè)計報告，給出學(xué)生成績。 指導(dǎo)教師簽字： 2011年10月10日 目 錄一、 需求分析1二、 概要設(shè)計3三、 詳細(xì)設(shè)計與實現(xiàn)5 四、 系統(tǒng)測試12參考文獻(xiàn).13附 錄.14一、需求分析1 可行性分析 1.1目標(biāo)方案可行性(1) 計算機設(shè)備處理繁雜的賓館日常事務(wù)，大幅度減少人力、物力，極大地提高賓館的管理水平和管理效率。(2) 管理水平和管理效率的提高能直接

6、產(chǎn)生經(jīng)濟(jì)效益。(3) 高效率的管理形成了良好的經(jīng)營氛圍，為賓館打造優(yōu)良形象，提高企業(yè)競爭力。(4) 本系統(tǒng)安全保密性可靠,實施獨立的局域網(wǎng)絡(luò)，人員進(jìn)入系統(tǒng)需要登錄，需輸入賬戶和密碼。(5) 本系統(tǒng)的管理，可以根據(jù)市場需要進(jìn)行調(diào)整,實用性強。1.2 技術(shù)可行性(1) 工作人員一般都要求掌握計算機技術(shù)，會使用各種管理軟件。(2) 在新系統(tǒng)投入使用時，需對員工進(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)過程，在其運行過程中要

7、采取多項措施。其最主要的表現(xiàn)就是減少了企業(yè)管理費用和人力開支。1.4 操作可行性(1) 本系統(tǒng)采用基于Windows的圖形用戶界面，而該系統(tǒng)是大家熟悉的操作系統(tǒng)，對于那有一般的計算機知識的人員就可以輕松上手。(2) 整個賓館管理系統(tǒng)采用較友好的交互界面，簡單明了，操作方便，不需要對數(shù)據(jù)庫進(jìn)行深入的了解。2 需求分析2.1 用戶工作流程入住或預(yù)訂客房時，用戶要對客房管理模塊或預(yù)訂管理模塊進(jìn)行核對審查，并進(jìn)行登記；用戶要獲得換房時，要對換房情況進(jìn)行查詢和更新；顧客結(jié)束住宿時，要對其進(jìn)行結(jié)算。 2.2 用戶業(yè)務(wù)需求(1) 該管理軟件將對客房進(jìn)行資料管理和統(tǒng)計，對已入住客房、已訂出客房、未入住且未訂出

8、客房進(jìn)行錄入管理和統(tǒng)計；客房標(biāo)準(zhǔn)、客房內(nèi)容(2) 該管理軟件將根據(jù)用戶的需求對客戶情況進(jìn)行資料管理和統(tǒng)計，對已入住客戶、預(yù)訂客房客戶進(jìn)行數(shù)據(jù)錄入、信息檢索、修改和刪除，并能打印詳細(xì)信息；(3) 該管理軟件將根據(jù)用戶的需求對結(jié)算情況進(jìn)行資料管理和統(tǒng)計，對已結(jié)賬的詳單及待結(jié)賬的詳單分別進(jìn)行日、周、月、年的統(tǒng)計與分析。(4) 該管理軟件將為用戶提供賬號管理工具，以便用戶對賬號進(jìn)行管理，具體為添加用戶、刪除用戶、修改用戶密碼；(5) 該管理軟件提供企業(yè)人員管理，能夠?qū)ζ髽I(yè)員工的分類管理，新員工的加入以及員工刪除，修改進(jìn)本信息等功能。二、概要設(shè)計1 功能需求本課題是以一個小型賓館信息管理為基礎(chǔ)，結(jié)合各管

9、理部門工作的實際需求，將要對賓館信息管理系統(tǒng)進(jìn)行設(shè)計、開發(fā)，并對技術(shù)難點作出分析，提出解決方法。使“賓館信息管理系統(tǒng)”最終具有數(shù)據(jù)錄入、修改、刪除，信息檢索，系統(tǒng)維護(hù)等功能。2 主要功能 數(shù)據(jù)處理：實現(xiàn)錄入、修改、刪除、存儲功能。如客房信息、顧客信息、入住信息、換房信息、訂房信息、結(jié)算信息等的數(shù)據(jù)處理等。信息檢索：實現(xiàn)按不同要求分類模糊查詢，組合查詢功能，根據(jù)查詢方式的不同，選擇輸出檢索信息。如訂房信息的查詢，結(jié)算信息的查詢等。系統(tǒng)維護(hù)：實現(xiàn)對用戶權(quán)限的限制，密碼的保密性設(shè)置。3 系統(tǒng)開發(fā)目的(1) 實現(xiàn)客房管理、入住管理、換房管理、訂房管理、結(jié)算管理、系統(tǒng)用戶管理的數(shù)據(jù)錄入、修改、刪除和信息

10、檢索功能，(2) 實現(xiàn)對賓館的賬務(wù)管理與系統(tǒng)維護(hù)；(3) 大大提高賓館的運作效率；(4) 通過全面的信息查詢和處理，輔助提高賓館的決策水平；(5) 使用本系統(tǒng),可以迅速提升賓館的管理水平，為降低經(jīng)營成本，提高效益，增強賓館擴張力，提供有效的技術(shù)保障。(6) 能夠提供一定的安全機制，提供數(shù)據(jù)信息授權(quán)訪問，防止隨意刪改。4 運行環(huán)境 操作系統(tǒng)：Windows XP開發(fā)工具：Visual Basic 6.0 數(shù)據(jù)庫：SQL Server 20005 項目意義本系統(tǒng)將對數(shù)據(jù)處理與信息檢索作為研究重點，實現(xiàn)對數(shù)據(jù)的高級處理，且力求通過關(guān)鍵字段實現(xiàn)模糊檢索功能，使信息查詢更加簡單靈活，即使第一次接觸系統(tǒng)的

11、人也可輕松操作，快速的找到所需信息。三、詳細(xì)設(shè)計與實現(xiàn)1 組織結(jié)構(gòu)圖圖3.12 賓館的業(yè)務(wù)流程圖如下圖3.23 賓館的功能結(jié)構(gòu)圖如下圖3.34 系統(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ù)，通過實測賓館的各種運行情況，并利用過去的歷史數(shù)據(jù)預(yù)測未來的發(fā)展，從賓館全局的角度出發(fā)進(jìn)行決策，利用信息控制賓館的行為，附注賓館完成其目

12、標(biāo)。5 模塊功能設(shè)計本系統(tǒng)共包括七大模塊，分別是系統(tǒng)登錄模塊、系統(tǒng)用戶管理模塊、客房管理模塊，顧客入住模塊、訂房模塊、換房模塊及賓館結(jié)算管理模塊。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)中，當(dāng)用戶對系統(tǒng)的三次登錄失敗后，系統(tǒng)將自動機制登錄，突出登錄模塊。并在輸入了錯誤的或者是不存在的賬戶和密碼時，系統(tǒng)會給出出錯

13、信息提示，指明登錄過程中的錯誤輸入或者錯誤操作，以便用戶進(jìn)行正確的登錄。輸入項、輸出項：輸入項為賬號和密碼。賬號和密碼均為字符串，長度各為6個字符，密碼回顯字符是“*”。數(shù)據(jù)流圖：圖3.45.2. 系統(tǒng)管理模塊功能：在系統(tǒng)實行多用戶管理時，本模塊將為系統(tǒng)開辟多個系統(tǒng)用戶，并能對其進(jìn)行簡單的信息維護(hù)，用戶名變更、密碼修改以及對用戶權(quán)限的授予。退出：選擇退出系統(tǒng)，將關(guān)閉整個系統(tǒng)，結(jié)束本次使用。數(shù)據(jù)流圖：圖3.55.3. 客房管理模塊功能：本模塊的主要功能是客房信息標(biāo)準(zhǔn)設(shè)置以及對客房信息設(shè)置。設(shè)置客房標(biāo)準(zhǔn)：主要功能客房信息標(biāo)準(zhǔn)的添加、修改和刪除。設(shè)置客房信息：主要功能客房信息的添加、修改和刪除。輸入

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

15、房顧客信息的登記，輸入項為顧客信息和客房信息。入住信息查詢：該模塊為系統(tǒng)提供整個賓館的已訂房顧客信息的查詢并可以報表形式打印出來。輸入項、輸出項：本模塊的數(shù)據(jù)輸入項主要是顧客姓名、房間編號及入住時間，其中顧客姓名為必填項。添加顧客訂房業(yè)務(wù)流程圖：圖3.8四、系統(tǒng)測試1程序登錄界面 圖5.1 圖5.2參考文獻(xiàn)1 甘雷，中文Access 2002標(biāo)準(zhǔn)教程，北京希望電子出版社2 何旭洪，Visual Basic數(shù)據(jù)庫開發(fā)實例導(dǎo)航10-174頁，北京人民郵電出版社3 漢清計算機工作室，Visual Basic6.0數(shù)據(jù)庫開發(fā)實例，頁北京機械工業(yè)出版社4 豈興明銀華強等編著,Visual Basic.N

16、ET項目開發(fā)寶典,電子工業(yè)出版社5 周揚郭曉東動態(tài)鏈接庫技術(shù)及應(yīng)用J,電腦編程技巧與維護(hù)附錄 全部代碼Public NowUser As String 當(dāng)前用戶名Public nowpower As String 當(dāng)前用戶權(quán)限Public mydb As DAO.Database 定義數(shù)據(jù)庫Public bgi As Integer 判斷背景風(fēng)格Public Sub LoadAccess()Set mydb = DAO.OpenDatabase(App.Path & hotel.mdb)End SubPublic Sub bground()If bgi = 1 Thenmain.Picture

17、 = panel.Image1.Picturepanel.Picture = panel.Image1.Picturepanel.Picture1.Picture = panel.Image1.Picturemain.Picture1.Picture = panel.Image1.Picturemain.Picture2.Picture = panel.Image1.PictureUnload findEm: Unload findlogin: Unload fingG: Unload InLogin: Unload LogoutBG: Unload managekf: Unload payo

18、ff: Unload ViewUnload changelogin: Unload findLogout: Unload find: panel.resizemeElseIf bgi = 0 Thenmain.Picture = Nothingpanel.Picture = Nothingpanel.Picture1.Picture = Nothingmain.Picture1.Picture = Nothingmain.Picture2.Picture = NothingUnload findEm: Unload findlogin: Unload fingG: Unload InLogin

19、: Unload LogoutBG: Unload managekf: Unload payoff: Unload ViewUnload changelogin: Unload findLogout: Unload find: panel.resizemeEnd IfEnd IfEnd SubPrivate Declare Function ReleaseCapture Lib user32 () As Long 獲取“變動”信息Private Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hwnd As L

20、ong, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const WM_SYSCOMMAND = &H112Private Const SC_MOVE = &HF010&Private Const HTCAPTION = 2Dim Emp As RecordsetPrivate Sub DTPicker1_Change()Text7.Text = Year(Date) - Year(DTPicker1.Value)End SubPrivate Sub Form_MouseDown(Button

21、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_SYSCOMMAND, SC_MOVE + HTCAPTION, 0) End IfEnd Sub Private Sub Form_Load() LoadAccess Set Emp = mydb.OpenRecordset(select * from empl)

22、Text1.Text = Year(Date) & Month(Date) & Day(Date) & Hour(Time) & Minute(Time) Text7.Text = Year(Date) - Year(DTPicker1.Value)End SubPrivate Sub Command1_Click() =!缺少判斷員工號是否存在的信息If Text1.Text = Or Text2.Text = Or Text4.Text = Then msg$ = MsgBox(請確認(rèn) 員工號、員工姓名、職務(wù) 已經(jīng)輸入, 48, Error) ElseEmp.AddNewEmp.Field

23、s(emid) = Text1.TextEmp.Fields(ename) = Text2.TextEmp.Fields(esex) = Combo1.TextEmp.Fields(ejob) = Text4.TextEmp.Fields(eage) = Val(Text5.Text)Emp.Fields(etel) = Text6.TextEmp.Fields(ejtime) = DTPicker1.ValueEmp.Fields(ejage) = Text7.TextEmp.Update 更新記錄Emp.Closemsg$ = MsgBox(添加成功, 64, Success!)Unloa

24、d MeEnd If End SubPrivate Sub Command2_Click()Text1.Text = : Text2.Text = : Combo1.Text = Text4.Text = : Text5.Text = : Text6.Text = End SubPrivate Sub Command3_Click()main.Enabled = TrueUnload MeEnd SubDim i As Integer 定義一個整型變量Dim InLog As RecordsetDim Room As RecordsetDim Remind As RecordsetPrivat

25、e 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 SubPrivate Sub Combo5_click()Label11.Caption = Combo5.TextEnd SubPrivate Sub DTP3_Change()ZSDJ(6).Text = DTP3.Value - DTP1.

26、ValueEnd SubPrivate Sub Form_Load()If bgi = 1 Then Me.Picture = panel.Image1.PictureIf bgi = 0 Then Me.Picture = Nothing DTP1.Value = Date: DTP2.Value = Date: DTP3.Value = Date 初始化日期及時間 czy.Text = NowUser 賦值給czy LoadAccessEnd SubPrivate Sub Form_Unload(Cancel As Integer) main.Enabled = True 設(shè)置主窗體有效E

27、nd SubPrivate Sub Combo2_Click() If Combo2.Text = 折扣 Then ZSDJ(8).Enabled = True 設(shè)置ZSDJ(8)有效 ZSDJ(8).SetFocus ZSDJ(8)獲得焦點 End If If Combo2.Text = 招待 Then ZSDJ(8).Enabled = True 設(shè)置ZSDJ(8)有效 ZSDJ(8).Text = 0 賦值給ZSDJ(8) End IfEnd SubPrivate Sub ZSDJ_Change(Index As Integer) Select Case Index Case 6 ZSD

28、J(7).Text = Format(Val(ZSDJ(6).Text) * Val(ZSDJ(5).Text), 0.00) 計算折前宿費 ZSDJ(9).Text = ZSDJ(7).Text 賦值給ZSDJ(9) ZSDJ(8).Text = 100 DTP3.Value = DTP1.Value + Val(ZSDJ(6).Text) 計算退宿日期 Case 8 ZSDJ(9).Text = Format(Val(ZSDJ(7).Text) * Val(ZSDJ(8).Text) / 100, 0.00) 計算實際宿費 Case 10 If ZSDJ(10).Text Then ZSD

29、J(10).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 End SelectEnd SubPrivate Sub ZSDJ_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) Select Case Index Case 0 If KeyCode = vbKeyReturn Then Combo1.SetFocus

30、按回車鍵Combo1獲得焦點 Case 1 If KeyCode = vbKeyReturn Then ZSDJ(2).SetFocus 按回車鍵ZSDJ(2)獲得焦點 Case 2 If KeyCode = vbKeyReturn Then ZSDJ(3).SetFocus 按回車鍵ZSDJ(3)獲得焦點 Case 3 If KeyCode = vbKeyReturn Then DBCombo1.SetFocus 按回車鍵ZSDJ(2)獲得焦點 Case 4 If KeyCode = vbKeyReturn Then ZSDJ(5).SetFocus 按回車鍵ZSDJ(5)獲得焦點 Case

31、 5 If KeyCode = vbKeyReturn Then ZSDJ(6).SetFocus 按回車鍵ZSDJ(6)獲得焦點 Case 6 If KeyCode = vbKeyReturn Then ZSDJ(10).SetFocus Case 8 If KeyCode = vbKeyReturn Then ZSDJ(10).SetFocus 按回車鍵ZSDJ(10)獲得焦點 Case 10 If KeyCode = vbKeyReturn Then ZSDJ(11).SetFocus ZSDJ(11)獲得焦點 Case 11 If KeyCode = vbKeyReturn Then

32、Comok.SetFocus 按回車鍵Comok獲得焦點 End SelectEnd SubPrivate Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then ZSDJ(1).SetFocus 按回車鍵ZSDJ(1)獲得焦點End SubPrivate Sub DBCombo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then ZSDJ(5).SetFocus ZSDJ(5

33、)獲得焦點End SubPrivate Sub comdj_Click()查詢空閑房間信息Set Room = mydb.OpenRecordset(select * from roomlogin where rstatue=空閑)On Error GoTo uRoom.MoveFirstCombo4.Text = Room.Fields(rname)ZSDJ(4).Text = Room.Fields(rtype)ZSDJ(5).Text = Room.Fields(rprice)Set Room = mydb.OpenRecordset(select * from roomlogin )

34、While Not Room.EOF If Room.Fields(rstatue) = 空閑 Then Combo4.AddItem Room.Fields(rname) Room.MoveNext Wendbh.Text = Year(Date) & Month(Date) & Day(Date) & Hour(Time) & Minute(Time) & Second(Time) 設(shè)置編號 ZSDJ(8).Text = : ZSDJ(10).Text = 設(shè)置控件有效或無效 Comok.Enabled = True: Comdj.Enabled = False: Comprint.Ena

35、bled = 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.TextExit Subu: h$ = MsgBox(沒有空閑房間,客房已滿, 48, Error): Comok.Enabled = False: Comprint.Enabled = False: Comcancel.Enabled = False: Comend.Enabled = True: Comdj.Enabled = True End Sub17