軟件工程課程設計(B)題 目 賓館客房管理系統(tǒng) 課程設計報告單學號 姓名 專業(yè)班級軟件工程08-2考 核 項 目評分備注1平時工作態(tài)度及遵守紀律情況（10分）2掌握基本理論、關鍵知識、基本技能的程度和閱讀參考資料的水平（10分）3獨立工作能力、綜合運用所學知識分析和解決問題能力及實際工作能力提高的程度（20分）4完成課程設計說明書及軟件的情況與水平（小組分工情況、規(guī)范性、整潔清楚、敘述完整性、思路清晰程度、工作量及實際運行情況和創(chuàng)新性）（60分）總評成績綜 合 評 定：（優(yōu)、良、中、及格、不及格） 指導教師簽字：2011年10月21日軟件工程課程設計(B)任務書軟件工程課程設計旨在通過2周實訓時間，培養(yǎng)學生初步掌握系統(tǒng)分析、設計、實現(xiàn)、測試、維護的方法，加深學生對軟件工程課程的理解和應用，同時也進一步提高學生運用程序設計語言的能力。一、目標程序設計不等于軟件工程，這是本課程需要進一步讓學生加深理解的地方。傳統(tǒng)的程序設計在一定程度上偏重于計算機科學領域，屬于較抽象的范疇；而軟件工程則是要實實在在地做出一個滿足用戶要求的系統(tǒng)來，這是一個很具體的實踐過程。作為一個軟件開發(fā)者，必須具備從事工程實踐的技能，包括軟件項目的可行性研究、系統(tǒng)分析、設計、編寫文檔、源碼設計、使用工具等基本技能，這就是課程設計要實現(xiàn)的一個目標。課程設計的教學基本要求如下：1鞏固和加深對軟件工程原理的理解，提高綜合運用本課程所學知識的能力。2培養(yǎng)學生選用參考書，查閱手冊及文獻資料的能力。3培養(yǎng)獨立思考，深入研究，分析問題、解決問題的能力。4通過實際系統(tǒng)的分析設計、編程調試，掌握軟件的分析方法和工程設計方法。5能夠按要求編寫課程設計報告書，能正確闡述設計和實驗結果、正確繪制系統(tǒng)和程序框圖。6通過課程設計，培養(yǎng)學生嚴謹的科學態(tài)度，嚴肅認真的工作作風和團隊協(xié)作精神。二、選題與內容選題應盡量結合教學、科研的實際課題，反映新技術，以獲得更好的工程設計實踐的訓練。同時課程設計受到時間及開發(fā)環(huán)境、條件等的限制，命題應從實際出發(fā)，課題的大小規(guī)模、難易適度。學生可以根據自己特點、能力、時間進行選題。三、課程設計的基本步驟1問題定義（明確問題邊界）2可行性研究3項目開發(fā)計劃4需求分析5概要設計6數據庫設計7詳細設計8系統(tǒng)測試9用戶使用說明四、教學方法及要求13-4人成立一個開發(fā)小組，選出小組項目負責人，并對小組成員按任務進行分工或者獨立完成；2開發(fā)環(huán)境及工具不限；3嚴格按軟件工程的方法，分階段進行開發(fā)（問題定義、需求分析、概要及詳細設計、編碼、測試等）；4要求每階段產生的文檔等軟件配置齊全、合理；5上機能正常運行程序。6提交課程設計報告。要求完成課程設計報告2000字以上，如果采用分組方式完成，可以分模塊完成課程設計報告。五、工作量2周（10個工作日）時間六、計劃安排第1個工作日第2個工作日：查找相關資料、書籍，閱讀示例文檔，選擇題目。第3個工作日第4個工作日：設計程序結構、模塊圖，學習相關技術。第5個工作日第9個工作日：完成程序的編碼，并且自己調試、測試。穿插進行課程設計報告的撰寫。第10個工作日：撰寫和整理課程設計報告,檢查軟件測試效果、檢查課程設計報告，給出學生成績。 指導教師簽字： 2011年10月10日 目 錄一、 需求分析1二、 概要設計3三、 詳細設計與實現(xiàn)5 四、 系統(tǒng)測試12參考文獻.13附 錄.14一、需求分析1 可行性分析 1.1目標方案可行性(1) 計算機設備處理繁雜的賓館日常事務，大幅度減少人力、物力，極大地提高賓館的管理水平和管理效率。(2) 管理水平和管理效率的提高能直接產生經濟效益。(3) 高效率的管理形成了良好的經營氛圍，為賓館打造優(yōu)良形象，提高企業(yè)競爭力。(4) 本系統(tǒng)安全保密性可靠,實施獨立的局域網絡，人員進入系統(tǒng)需要登錄，需輸入賬戶和密碼。(5) 本系統(tǒng)的管理，可以根據市場需要進行調整,實用性強。1.2 技術可行性(1) 工作人員一般都要求掌握計算機技術，會使用各種管理軟件。(2) 在新系統(tǒng)投入使用時，需對員工進行少量的培訓，熟悉系統(tǒng)的功能和使用方法使系統(tǒng)能夠順利運行。1.3 經濟可行性 (1) 賓館有能力承擔系統(tǒng)開發(fā)費用。 (2) 新系統(tǒng)將為企業(yè)帶來經濟效益。管理系統(tǒng)是一個信息化、智能化和先進管理理念的集合體。而管理是一個動態(tài)過程，在其運行過程中要采取多項措施。其最主要的表現(xiàn)就是減少了企業(yè)管理費用和人力開支。1.4 操作可行性(1) 本系統(tǒng)采用基于Windows的圖形用戶界面，而該系統(tǒng)是大家熟悉的操作系統(tǒng)，對于那有一般的計算機知識的人員就可以輕松上手。(2) 整個賓館管理系統(tǒng)采用較友好的交互界面，簡單明了，操作方便，不需要對數據庫進行深入的了解。2 需求分析2.1 用戶工作流程入住或預訂客房時，用戶要對客房管理模塊或預訂管理模塊進行核對審查，并進行登記；用戶要獲得換房時，要對換房情況進行查詢和更新；顧客結束住宿時，要對其進行結算。 2.2 用戶業(yè)務需求(1) 該管理軟件將對客房進行資料管理和統(tǒng)計，對已入住客房、已訂出客房、未入住且未訂出客房進行錄入管理和統(tǒng)計；客房標準、客房內容(2) 該管理軟件將根據用戶的需求對客戶情況進行資料管理和統(tǒng)計，對已入住客戶、預訂客房客戶進行數據錄入、信息檢索、修改和刪除，并能打印詳細信息；(3) 該管理軟件將根據用戶的需求對結算情況進行資料管理和統(tǒng)計，對已結賬的詳單及待結賬的詳單分別進行日、周、月、年的統(tǒng)計與分析。(4) 該管理軟件將為用戶提供賬號管理工具，以便用戶對賬號進行管理，具體為添加用戶、刪除用戶、修改用戶密碼；(5) 該管理軟件提供企業(yè)人員管理，能夠對企業(yè)員工的分類管理，新員工的加入以及員工刪除，修改進本信息等功能。二、概要設計1 功能需求本課題是以一個小型賓館信息管理為基礎，結合各管理部門工作的實際需求，將要對賓館信息管理系統(tǒng)進行設計、開發(fā)，并對技術難點作出分析，提出解決方法。使“賓館信息管理系統(tǒng)”最終具有數據錄入、修改、刪除，信息檢索，系統(tǒng)維護等功能。2 主要功能 數據處理：實現(xiàn)錄入、修改、刪除、存儲功能。如客房信息、顧客信息、入住信息、換房信息、訂房信息、結算信息等的數據處理等。信息檢索：實現(xiàn)按不同要求分類模糊查詢，組合查詢功能，根據查詢方式的不同，選擇輸出檢索信息。如訂房信息的查詢，結算信息的查詢等。系統(tǒng)維護：實現(xiàn)對用戶權限的限制，密碼的保密性設置。3 系統(tǒng)開發(fā)目的(1) 實現(xiàn)客房管理、入住管理、換房管理、訂房管理、結算管理、系統(tǒng)用戶管理的數據錄入、修改、刪除和信息檢索功能，(2) 實現(xiàn)對賓館的賬務管理與系統(tǒng)維護；(3) 大大提高賓館的運作效率；(4) 通過全面的信息查詢和處理，輔助提高賓館的決策水平；(5) 使用本系統(tǒng),可以迅速提升賓館的管理水平，為降低經營成本，提高效益，增強賓館擴張力，提供有效的技術保障。(6) 能夠提供一定的安全機制，提供數據信息授權訪問，防止隨意刪改。4 運行環(huán)境 操作系統(tǒng)：Windows XP開發(fā)工具：Visual Basic 6.0 數據庫：SQL Server 20005 項目意義本系統(tǒng)將對數據處理與信息檢索作為研究重點，實現(xiàn)對數據的高級處理，且力求通過關鍵字段實現(xiàn)模糊檢索功能，使信息查詢更加簡單靈活，即使第一次接觸系統(tǒng)的人也可輕松操作，快速的找到所需信息。三、詳細設計與實現(xiàn)1 組織結構圖圖3.12 賓館的業(yè)務流程圖如下圖3.23 賓館的功能結構圖如下圖3.34 系統(tǒng)功能設計系統(tǒng)功能設計是使整個系統(tǒng)能基本實現(xiàn)賓館的客房管理、顧客入住、顧客訂房、顧客換房、結算管理、系統(tǒng)用戶管理等功能，能讓賓館管理者更直觀的了解賓館的經營狀況，以做出相應的經營決策。管理信息系統(tǒng)(MIS)就是要對這些資源建立正確的數據庫，并進行信息的存儲管理、編制成各種憑證、報表、臺帳等信息，同時對這些信息進行維護，通過實測賓館的各種運行情況，并利用過去的歷史數據預測未來的發(fā)展，從賓館全局的角度出發(fā)進行決策，利用信息控制賓館的行為，附注賓館完成其目標。5 模塊功能設計本系統(tǒng)共包括七大模塊，分別是系統(tǒng)登錄模塊、系統(tǒng)用戶管理模塊、客房管理模塊，顧客入住模塊、訂房模塊、換房模塊及賓館結算管理模塊。5.1. 系統(tǒng)登錄模塊功能：本模塊的主要功能是對用戶身份進行，驗證只有系統(tǒng)的合法用戶才能進入系統(tǒng)。其窗體。登錄：在進行系統(tǒng)登錄過程中，登錄模塊將調用數據庫里的用戶清單，并對賬號和密碼進行驗證，只有輸入了正確的賬號和密碼后，系統(tǒng)登錄才會成功。在登錄模塊中，對系統(tǒng)的嘗試登錄次數進行了限制，禁止用戶無終止的進行系統(tǒng)登錄嘗試，在本系統(tǒng)中，當用戶對系統(tǒng)的三次登錄失敗后，系統(tǒng)將自動機制登錄，突出登錄模塊。并在輸入了錯誤的或者是不存在的賬戶和密碼時，系統(tǒng)會給出出錯信息提示，指明登錄過程中的錯誤輸入或者錯誤操作，以便用戶進行正確的登錄。輸入項、輸出項：輸入項為賬號和密碼。賬號和密碼均為字符串，長度各為6個字符，密碼回顯字符是“*”。數據流圖：圖3.45.2. 系統(tǒng)管理模塊功能：在系統(tǒng)實行多用戶管理時，本模塊將為系統(tǒng)開辟多個系統(tǒng)用戶，并能對其進行簡單的信息維護，用戶名變更、密碼修改以及對用戶權限的授予。退出：選擇退出系統(tǒng)，將關閉整個系統(tǒng)，結束本次使用。數據流圖：圖3.55.3. 客房管理模塊功能：本模塊的主要功能是客房信息標準設置以及對客房信息設置。設置客房標準：主要功能客房信息標準的添加、修改和刪除。設置客房信息：主要功能客房信息的添加、修改和刪除。輸入項、輸出項：本模塊的數據輸入項主要是客房編號、客房類型、客房位置、客房單價等。并可以報表形式打印出來。 數據流圖：圖3.65.4. 入住管理模塊功能：該模塊主要是實現(xiàn)對客戶入住信息的登記、查詢兩個功能。入住信息登記：該模塊為系統(tǒng)提供對將入住顧客信息的登記，輸入項為顧客信息和客房信息。入住信息查詢：該模塊為系統(tǒng)提供整個賓館的已入住顧客信息的查詢并可以報表形式打印出來。輸入項、輸出項：本模塊的數據輸入項主要是客房編號及客房種類，其中客房編號為必填項。添加顧客入住業(yè)務流程圖：圖3.75.5. 訂房管理模塊功能：本模塊的主要功能是實現(xiàn)對客戶訂房信息的登記、查詢兩個功能。入住信息登記：該模塊為系統(tǒng)提供訂房顧客信息的登記，輸入項為顧客信息和客房信息。入住信息查詢：該模塊為系統(tǒng)提供整個賓館的已訂房顧客信息的查詢并可以報表形式打印出來。輸入項、輸出項：本模塊的數據輸入項主要是顧客姓名、房間編號及入住時間，其中顧客姓名為必填項。添加顧客訂房業(yè)務流程圖：圖3.8四、系統(tǒng)測試1程序登錄界面 圖5.1 圖5.2參考文獻1 甘雷，中文Access 2002標準教程，北京希望電子出版社2 何旭洪，Visual Basic數據庫開發(fā)實例導航10-174頁，北京人民郵電出版社3 漢清計算機工作室，Visual Basic6.0數據庫開發(fā)實例，頁北京機械工業(yè)出版社4 豈興明銀華強等編著,Visual Basic.NET項目開發(fā)寶典,電子工業(yè)出版社5 周揚郭曉東動態(tài)鏈接庫技術及應用J,電腦編程技巧與維護附錄 全部代碼Public NowUser As String 當前用戶名Public nowpower As String 當前用戶權限Public mydb As DAO.Database 定義數據庫Public bgi As Integer 判斷背景風格Public Sub LoadAccess()Set mydb = DAO.OpenDatabase(App.Path & "hotel.mdb")End SubPublic Sub bground()If bgi = 1 Thenmain.Picture = 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 payoff: 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: 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 Long, 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 As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then 如果按下鼠標左鍵 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") 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("請確認 員工號、員工姓名、職務 已經輸入", 48, "Error") ElseEmp.AddNewEmp.Fields("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!")Unload 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 RecordsetPrivate 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.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 設置主窗體有效End SubPrivate Sub Combo2_Click() If Combo2.Text = "折扣" Then ZSDJ(8).Enabled = True 設置ZSDJ(8)有效 ZSDJ(8).SetFocus ZSDJ(8)獲得焦點 End If If Combo2.Text = "招待" Then ZSDJ(8).Enabled = True 設置ZSDJ(8)有效 ZSDJ(8).Text = 0 賦值給ZSDJ(8) End IfEnd SubPrivate 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).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 ZSDJ(10).Text = Val(ZSDJ(10).Text) 用val函數將字符串轉換為數字 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 按回車鍵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 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 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)獲得焦點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 ") 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) 設置編號 ZSDJ(8).Text = "": ZSDJ(10).Text = "" 設置控件有效或無效 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.TextExit Subu: h$ = MsgBox("沒有空閑房間,客房已滿", 48, "Error"): Comok.Enabled = False: Comprint.Enabled = False: Comcancel.Enabled = False: Comend.Enabled = True: Comdj.Enabled = True End Sub17