叮叮小文庫計算機應用軟件編程畢業論文題 目 賓館管理系統 專 業 計算機應用（軟件） 年 級 2010級 學生姓名 王依明 指導教師 年 月 日-叮叮小文庫摘 要 信息管理系統也就是我們常說的MIS（Management Information System）,在強調信息管理的現代社會中它變得越來越普及了。賓館管理系統是一個典型的信息管理系統,其開發主要包括后臺數據庫的建立和維護以及前端應用程序的開發兩個方面,利用計算機軟硬件資源以及數據庫的人-機系統，提供信息支持企業或組織的運行、管理和決策功能。對于數據庫，要求建立起數據的一致性、完整性、安全性；而對于前端應用程序則要求應用程序功能完備、界面友好和容易掌握使用等特點。 經過分析,我們使用 MICROSOFT公司的 VISUAL BASIC開發工具,利用其提供的各種面向對象的開發工具,尤其是數據庫這一方面,利用其ADO控件能方便而簡潔操縱數據庫的智能化對象,在短時間內建立系統應用原型,然后,對初始原型系統進行需求迭代,不斷修正和改進,直至得到滿意的系統。關 鍵 字: 窗體； 域 ； 賓館管理系統-目 錄引 言1第一章 開發賓館信息管理系統的意義11.1 系統目標設計11.2 設計思想11.3 在中小企業（酒店賓館）中用計算機管理的意義11.4 賓館管理系統的設計分析11.5 編程環境的選擇1第二章 系統規劃及數據庫的實現22.1 系統總體規劃圖22.2 數據庫需求分析22.3 數據庫設計22.4 數據庫概念結構設計22.5 使用ACCESS實現關系型數據庫3第三章 系統具體實現43.1 登陸系統模塊的創建43.2 系統管理模塊的創建53.3 用戶管理模塊的創建73.4 客房管理模塊的創建93.5 價格管理模塊的創建113.6 開房結賬管理模塊的創建123.7 查詢信息管理模塊創建143.8 關于模塊的創建16結 論18致 謝19參考文獻20-引 言現代化的賓館是集客房、餐飲、通訊、娛樂，商務文化及其他各種服務與設施為一體化的消費場所，酒店賓館組織龐大，服務項目多，信息量大，要想提高勞動生產，降低成本，提高服務質量和管理水平，進而促進經濟效益，必須借助計算機來進行現代化的信息管理。酒店賓館行業隨著社會的不斷發展和進步，迎來了越來越多的商機的同時，也面臨著日趨激烈的競爭。隨著酒店業競爭的加劇，酒店利用傳統的競爭手段所創造的利潤空間越來越小，酒店需要使用更有效的競爭手段,拓展更廣闊的經營空間，提供更細致、全面、個性化的服務，大幅度降低運營成本，面對瞬息萬變的市場競爭提高管理和決策的效率。如何使自己的酒店賓館在本行業中脫穎而出，獨領風騷，原始的手工操作方式和傳統的管理方法顯得越來越不能滿足當前賓館行業的發展。酒店業為適應信息化時代對現代酒店的新要求，向客人提供更加方便、快捷、高效的服務，滿足各類不同客人的個性化服務要求，因此，建立一套先進的、科學的、嚴謹的、適合自身特點的飯店管理機制，是使自己更具競爭力的必要手段。那么如何設計一個操作簡單，靈活性好、系統安全性高，運行穩定的酒店管理系統呢? 下面是我們利用VB所學設計的一個簡單的酒店管理系統,下面是開發過程與原理。第一章 開發賓館信息管理系統的意義1.1 系統目標設計系統目標設計 賓館管理系統的主要目標是實現對賓館內部各種信息管理的電子化,提高各個部門及部門間的辦公效率，為高質量高效率的賓館服務做準備，以適應現代化的酒店賓館的需要。1.2 設計思想系統著眼于賓館的當前信息管理和未來的發展，是通過對賓館相關管理人員的咨詢和對他們需求報告中所列項目本著軟件工程的思想所編寫的。我們所設計的系統將更加貼近于現代酒店的管理模式和管理風格。1.3 在中小企業（酒店賓館）中用計算機管理的意義在中小企業（酒店賓館）中用計算機管理的意義 現在我國的中小企業（酒店賓館）管理水平還停留在紙介質的基礎上，這樣的機制已經不能適應時代的發展，因為它浪費了許多人力和物力，在信息時代這種傳統的管理方法必然被計算機為基礎的信息管理所取代。改革開放的總設計師鄧小平同志曾說過:“科學技術是第一生產力”。我希望能用我所學的知識編寫一個應用的程序幫助賓館管理人員進行更有效的管理。1.4 賓館管理系統的設計分析賓館管理系統的設計分析 根據實際情況，我們使用原型法（Rapid Prototyping）即以少量代價快速地構造一個可執行的軟件系統模型。使用戶和開發人員可以較快地確定需求，然后采用循環進化的開發方式，對系統模型作連續的精化，將系統需具備的性質逐漸增加上去，直到所有的性質全部滿足。此時模塊也發展成為最終產品了。1.5 編程環境的選擇編程環境的選擇 微軟公司的Visual Basic是Windows應用程序開發工具，使目前最為廣泛的、易學易用的面向對象的開發工具。Visual Basic提供了大量的組件，這些組件可用于設計界面和實現各種功能，減少了編程人員的工作量，也簡化了界面設計過程，從而有效的提高了應用程序的運行效率和可靠性。故而，實現本系統VB是一個相對較好的選擇。而且，Visual Basic強大的調試功能也為大型復雜軟件的開發提供了有效的排錯手段。第二章 系統規劃及數據庫的實現2.1系統總體規劃圖賓館管理系統系統查詢信息關于開房結賬價格管理客房管理用戶管理密碼修改退出顧客信息查詢賬目查詢圖2-1 系統總體規劃圖2.2 數據庫需求分析數據庫需求分析用戶的需求具體體現在各種信息的提供、保存、更新和查詢等方面，這就要求數據庫結構充分滿足各種信息的輸入和輸出。收集基本數據、數據結構以及數據處理的流程，組成一分詳盡的數據字典，為數據庫的具體設計打下基礎。針對一般賓館管理信息系統的需求，通過對賓館管理工作過程的內容和數據流程分析，設計如下數據項和數據結構： 客房標準信息，包括的數據項有：客房編號、客房級別、客房類型、客房單價。入住信息，包括的數據項有：登記編號、顧客姓名、身份證號、房間號、入住日期。退房信息，包括的數據項有：登記編號、退房時間、應付金額等。通過我上面對數據庫的規劃和對所需數據設置，在我所編輯的系統里我們給用戶所實現的數據庫就能簡單的實現如下所列的操作?？梢赃M行文本操作；添加一個數據庫項目；刪除一個數據庫項目；修改一個數據庫項目；對數據信息的查詢。2.3 數據庫設計設計數據庫系統時首先應該充分了解用戶各個方面的需求，包括現有的以及將來可能增加的需求。數據庫設計一般包括如下幾個步驟：數據庫需求分析,數據庫概念結構設計,數據庫邏輯結構設計。2.4 數據庫概念結構設計根據上面我所設計的數據項和數據結構以后，就可以設計出能夠滿足用戶需求的各種實體，以及他們的關系。根據上面所設計規劃出的實體有：客房標準信息實體、客房信息實體、入住信息實體、退房信息實體。2.5 使用ACCESS實現關系型數據庫創建任何一個數據庫的第一步是仔細的規劃數據庫，設計必須是靈活的、有邏輯的。創建一個數據庫結構的過程被認為是數據模型設計。在我所設計的這個系統中，我使用的是MICROSOFT ACCESS作為我的數據庫系統。ACCESS 就是關系數據庫開發工具，數據庫能匯集各種信息以供查詢、存儲和檢索。ACCESS的優點在于它能使用數據表示圖或自定義窗體收集信息。可以使數據庫一目了然。ACCESS也提供了數據存儲庫，可以使用桌面數據庫文件把數據庫文件置于網絡文件服務器，與其他網絡用戶共享數據庫。ACCESS 是一種關系數據庫工具，關系數據庫是已開發的最通用的數據庫之一。如上所述，ACCESS 作為關系數據庫開發具備了許多優點，可以在一個數據包中同時擁有桌面數據庫的便利和關系數據庫的強大功能。在我的整個系統的實現上通過VB的代碼與ACCESS結合，創建出我們所需要的數據庫。在實現系統與數據庫結合的過程 第三章 系統具體實現3.1 登陸系統模塊的創建 登錄界面圖3-1 登陸界面 這一部分主要是通過對數據庫賓館管理系統中USER的查詢 因此而登陸到系統軟件當中設計界面 如圖3-1登陸模塊主要功能有：用戶登錄下面是實現這些功能的代碼，寫在“登錄”按鈕的單擊事件函數中：按鈕一的單擊事件Private Sub Command1_Click() 登錄窗口的實現 Dim rs As ADODB.RecordsetIf Text2.Text = Then MsgBox 請輸入帳號 Text2.SetFocusElseIf Text3.Text = Then MsgBox 請輸入密碼 Text3.SetFocusElse Set rs = Executesql(select * from user_info where user_id= & Text2.Text & and user_pwd= & Text3.Text & ) 連接數據庫，從數據庫中調取用戶信息 If rs.EOF = True Then MsgBox 賬戶或密碼錯誤 提示密碼錯誤，重新輸入密碼 Text2.SetFocus Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) Else MsgBox 登錄成功 username = Text2.Text 登錄成功后，文本恢復空 Text2.Text = Text3.Text = Unload Me frmmain.Show End IfEnd IfEnd Sub3.2 系統管理模塊的創建系統管理模塊圖3-2 系統管理界面圖3-3 修改密碼界面如圖3-2所示 通過主界面進入系統管理模塊，系統管理模塊總共分為兩個部分：密碼修改和退出。密碼修改，是通過軟件的代碼通過訪問賓館管理系統數據庫 從而實現對系統用戶登陸的密碼修改 退出，通過代碼退出整個程序系統模塊的主要功能：更改用戶密碼 和退出整個程序設計頁面如圖3-3所示密碼修改下面是實現這些功能的主要代碼，寫在“確認”按鈕的單擊事件函數中：按鈕一的單擊事件Private Sub Command1_Click() 實現修改密碼If Text2.Text = Then MsgBox 請輸入原密碼 Text2.SetFocusElseIf Text3.Text = Then MsgBox 請輸入新密碼 Text3.SetFocusElseIf Text4.Text = Then MsgBox 請確認新密碼 Text4.SetFocusElseIf Val(Text3.Text) Val(Text4.Text) Then MsgBox 重新輸入確認密碼 Text4.SetFocus Text4.SelStart = 0 Text4.SelLength = Len(Text4.Text)Else Set rs = Executesql(select * from user_info where user_id= & username & )從數據庫中調取用戶名 If Text2 rs.Fields(1) Then 修改密碼 MsgBox 原密碼不正確 Else rs.Fields(1) = Text3 rs.Update MsgBox 修改成功 Text2 = Text3 = Text4 = End IfEnd IfEnd Sub3.3 用戶管理模塊的創建 圖3-4 用戶管理模塊如圖3-4所示 該模塊為用戶管理模塊，用于對系統用戶 添加修改 和刪除的一些應用主要代碼如下：添加用戶按鈕一的單擊事件If Command1.Caption = 添加 Then Combo1.Enabled = True Text1.Enabled = True Text2.Enabled = True Command1.Caption = 保存 Command2.Enabled = False Command4.Enabled = FalseelseSet rs = Executesql(select * from user_info where user_id= & Text1.Text & ) If Not rs.EOF Then MsgBox 添加成功 Else rs.AddNew rs.Fields(0) = Text1 rs.Fields(1) = 000000 rs.Fields(2) = Combo1 rs.Fields(3) = Text2 rs.Update Text1.Enabled = False Text2.Enabled = False Combo1.Enabled = False Command2.Enabled = True Command4.Enabled = True Command1.Caption = 添加 Text1 = Text2 = Combo1.ListIndex = -1 Call fz Command2.Enabled = True Command4.Enabled = TrueEnd if按鈕二的單擊事件刪除用戶Set rs = Executesql(select * from user_info where user_id= & Text1 & ) If MsgBox(是否真正刪除, 4) = 6 Then rs.Delete rs.Update MsgBox 刪除成功 Text1.Text = Combo1.ListIndex = -1 Text2.Text = Call fz按鈕三的單擊事件返回窗體Unload Me按鈕四的單擊事件修改權限Set rs = Executesql(select *from user_info where user_id= & Text1.Text & ) rs.Fields(2) = Combo1 rs.Update MsgBox 修改成功 Command4.Caption = 修改 Call fz Text1.Text = Combo1.ListIndex = -1 Text2.Text = 3.4 客房管理模塊的創建圖3-5 客房管理模塊如圖3-5所示 該模塊為客房管理模塊，主要功能為客房一些信息的添加修改、刪除、取消的功能實現其功能具體代碼如下：寫在按鈕一的單擊事件里添加信息按鈕和文本的代碼與上面添加代碼一樣Set rs = Executesql(select * from room_info where room_no= & Text1 & ) If rs.EOF = False Then MsgBox 該房間信息已存在 Else rs.AddNew 更新數據庫代碼rs.UpdateMsgBox 添加成功Call wgfzCall hy寫在按鈕二的單擊事件里修改信息Set rs = Executesql(select * from room_info where room_no= & Text1 & )rs.Fields(1) = Combo1rs.Fields(2) = Val(Combo2)rs.Fields(3) = Combo3rs.Fields(4) = Combo4rs.Fields(5) = Combo5rs.Fields(6) = Combo6rs.Fields(7) = Combo7rs.UpdateMsgBox 修改成功Call hy寫在按鈕三的單擊事件里刪除信息Set rs = Executesql(select * from room_info where room_no= & Text1 & ) If MsgBox(是否, 4) = 6 Then rs.Delete rs.Update MsgBox 刪除成功 Call wgfz Call hy End If寫在按鈕四的單擊事件里取消Unload Me3.5 價格管理模塊的創建圖3-6 價格管理模塊圖3-6 為價格管理模塊 實現其功能 管理房間的價格，添加、修改、刪除。實現其代碼如下：寫在按鈕一的單擊事件添加信息與上面模塊添加代碼相同Set rs = Executesql(select * from price_info where room_type= & Combo1 & )If rs.EOF = False ThenMsgBox 該房間信息已存在 Else rs.AddNew rs.Fields(0) = Combo1 rs.Fields(1) = Val(Text1) rs.Fields(2) = Val(Text2) rs.Update MsgBox 添加成功 Call wgfz Call hy寫在按鈕二的單擊事件里修改信息Set rs = Executesql(select * from price_info where room_type= & Combo1 & ) rs.Fields(1) = Val(Text1) rs.Fields(2) = Val(Text2) rs.Update MsgBox 修改成功 Call wgfz Call hy寫在按鈕三的單擊事件里刪除信息Set rs = Executesql(select * from price_info where room_type= & Combo1 & ) If MsgBox(是否, 4) = 6 Then rs.Delete rs.Update MsgBox 刪除成功 Call wgfz Call hy寫在按鈕四的單擊事件里返回Unload Me3.6 開房結賬管理模塊的創建圖3-7 開房結賬模塊圖3-7 為開放結賬管理模塊 實現其功能 開房、結賬實現其代碼如下：鼠標拖動事件Private Sub Command1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)Command1(Index).Drag 1If Right(Command1(Index).Caption, 1) = 空 Then Command1(Index).DragIcon = LoadPicture(App.Path & xw2.ico)Else Command1(Index).DragIcon = LoadPicture(App.Path & xw1.ico)End IfEnd SubPrivate Sub Command1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)Command1(Index).Drag 2End Sub寫在按鈕二的單擊事件里開房If Right(Source.Caption, 1) = 空 Then roomno = Trim(Left(Source.Caption, Len(Source.Caption) - 1) frmsetdown.Show 1End If寫在按鈕三的單擊事件里結賬If Right(Source.Caption, 1) = 滿 Then roomno = Trim(Left(Source.Caption, Len(Source.Caption) - 1) frmbalance.Show 1End If3.7 查詢信息管理模塊創建圖3-8 顧客信息查詢模塊 圖3-9 賬目查詢模塊查詢模塊分為兩個部分（圖3-8和圖3-9），一是顧客信息查詢、二是賬目查詢，顧客信息起主要功能是查詢顧客的一些信息，可以按照姓名、身份證號、入住日期進行查詢，而賬目查詢主要是管理者對賬目的查詢，可以通過日期進行查詢實現其功能的主要代碼如下：寫在按鈕一的單擊事件里顧客信息查詢If Option1.Value = True Then If Text1 = Then MsgBox 填寫查找顧客的姓名 Else Set rs = Executesql(select * from guest_info where guest_name= & Text1 & ) Call wgfz End If Set rs = Executesql(select * from guest_info where guest_num= & Text2 & ) Call wgfz End IfElseIf Option3.Value = True Then Text1 = Text2 = If Combo1 = Or Combo2 = Or Combo3 = Or Combo4 = Or Combo5 = Or Combo6 = Then MsgBox 請選擇要查找顧客的日期范圍 Else Dim d1 As Date Dim d2 As Date d1 = CDate(Combo1 & - & Combo2 & - & Combo3) d2 = CDate(Combo4 & - & Combo5 & - & Combo6) Set rs = Executesql(select * from guest_info where out_date =# & d1 & # and out_date =# & d2 & #) Call wgfz寫在按鈕二的單擊事件里賬目查詢Set rs = Executesql(select money from guest_info where room_type=單人間 and out_date = # & MonthView1.Value & #) Do While Not rs.EOF Text1 = Val(Text1) + rs.Fields(0) rs.MoveNext Loop Set rs = Executesql(select money from guest_info where room_type=雙人間 and out_date = # & MonthView1.Value & #) Do While Not rs.EOF Text2 = Val(Text2) + rs.Fields(0) rs.MoveNext Loop Set rs = Executesql(select money from guest_info where room_type=三人間 and out_date = # & MonthView1.Value & #) Do While Not rs.EOF Text3 = Val(Text3) + rs.Fields(0) rs.MoveNext Loop Text4 = Val(Text1) + Val(Text2) + Val(Text3) Frame1.Visible = True MonthView1.Visible = False3.8 關于模塊的創建圖3-10 關于模塊關于模塊（圖3-10）的創建其主要