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

《軟件工程課程設(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é)知識分析和解決問題能力及實際工作能力提高的程度 　

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

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

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

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

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

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

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

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

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

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

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

13、。 4 運行環(huán)境 操作系統(tǒng)：Windows XP 開發(fā)工具：Visual Basic 6.0 數(shù)據(jù)庫：SQL Server 2000 5 項目意義 本系統(tǒng)將對數(shù)據(jù)處理與信息檢索作為研究重點，實現(xiàn)對數(shù)據(jù)的高級處理，且力求通過關(guān)鍵字段實現(xiàn)模糊檢索功能，使信息查詢更加簡單靈活，即使第一次接觸系統(tǒng)的人也可輕松操作，快速的找到所需信息。 三、詳細設(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è)計 系統(tǒng)功能設(shè)計是使整個系統(tǒng)能基本實現(xiàn)賓館的客房管理、顧客入住、顧客訂房、顧客換房、結(jié)算管理、系統(tǒng)用戶管理等功能，能讓賓館管理者更直觀的了解賓館的經(jīng)營狀況，以做出相應(yīng)的經(jīng)營決策。管理信息系統(tǒng)(MIS)就是要對這些資源建立正確的數(shù)據(jù)庫，并進行信息的存儲管理、編制成各種憑證、報表、臺帳等信息，同時對這些信息進行維護，通過實測賓館的各種運行情況，并利用過去的歷史數(shù)據(jù)預(yù)測未來的發(fā)展，從賓館全局的角度出發(fā)進行決策，利用信息控制賓館的行為，附注賓館完成其目標(biāo)。 5 模塊功能設(shè)計 本系統(tǒng)共包括七大模塊，分別是系統(tǒng)登錄模塊、系統(tǒng)用戶管理模塊、客房管理模塊，顧客入住模塊、訂房模塊、

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

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

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

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

19、5.1 圖5.2 參考文獻 [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.NET項目開發(fā)寶典,電子工業(yè)出版社 [5] 周揚郭曉東動態(tài)鏈接庫技術(shù)及應(yīng)用[J],電腦編程技巧與維護

20、 附錄 全部代碼 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 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 獲取“變動”信息 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() ================================================!!!!!!!!!!!!!!!!!!!!!!!!!!! 缺少判斷員工號是否存在的信息 If Text1.Text = "" Or Text2.Text = "" Or Text4.Text = "" Then msg$ = MsgBox("請確認 員工號、員工姓名、職務(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 定義一個整型變量 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 初始化日期及時間

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)獲得焦點 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") 計算折前宿費 ZSDJ(9).Text = ZSDJ(7).Tex

34、t 賦值給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 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)) 計算提醒日期 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、焦點 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 ZSD

37、J(5).SetFocus 按回車鍵ZSDJ(5)獲得焦點 Case 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 = vbKeyRet

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

39、b DBCombo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then ZSDJ(5).SetFocus ZSDJ(5)獲得焦點 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è)置編號 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