軟件編程畢業(yè)論文

叮叮小文庫計算機應用軟件編程畢業(yè)論文題 目 賓館管理系統(tǒng) 專 業(yè) 計算機應用（軟件） 年 級 2010級 學生姓名 王依明 指導教師 年 月 日-叮叮小文庫摘 要 信息管理系統(tǒng)也就是我們常說的MIS（Management Information System）,在強調信息管理的現(xiàn)代社會中它變得越來越普及了。賓館管理系統(tǒng)是一個典型的信息管理系統(tǒng),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應用程序的開發(fā)兩個方面,利用計算機軟硬件資源以及數(shù)據(jù)庫的人-機系統(tǒng)，提供信息支持企業(yè)或組織的運行、管理和決策功能。對于數(shù)據(jù)庫，要求建立起數(shù)據(jù)的一致性、完整性、安全性；而對于前端應用程序則要求應用程序功能完備、界面友好和容易掌握使用等特點。 經(jīng)過分析,我們使用 MICROSOFT公司的 VISUAL BASIC開發(fā)工具,利用其提供的各種面向對象的開發(fā)工具,尤其是數(shù)據(jù)庫這一方面,利用其ADO控件能方便而簡潔操縱數(shù)據(jù)庫的智能化對象,在短時間內(nèi)建立系統(tǒng)應用原型,然后,對初始原型系統(tǒng)進行需求迭代,不斷修正和改進,直至得到滿意的系統(tǒng)。關 鍵 字: 窗體； 域 ； 賓館管理系統(tǒng)-目 錄引 言1第一章 開發(fā)賓館信息管理系統(tǒng)的意義11.1 系統(tǒng)目標設計11.2 設計思想11.3 在中小企業(yè)（酒店賓館）中用計算機管理的意義11.4 賓館管理系統(tǒng)的設計分析11.5 編程環(huán)境的選擇1第二章 系統(tǒng)規(guī)劃及數(shù)據(jù)庫的實現(xiàn)22.1 系統(tǒng)總體規(guī)劃圖22.2 數(shù)據(jù)庫需求分析22.3 數(shù)據(jù)庫設計22.4 數(shù)據(jù)庫概念結構設計22.5 使用ACCESS實現(xiàn)關系型數(shù)據(jù)庫3第三章 系統(tǒng)具體實現(xiàn)43.1 登陸系統(tǒng)模塊的創(chuàng)建43.2 系統(tǒng)管理模塊的創(chuàng)建53.3 用戶管理模塊的創(chuàng)建73.4 客房管理模塊的創(chuàng)建93.5 價格管理模塊的創(chuàng)建113.6 開房結賬管理模塊的創(chuàng)建123.7 查詢信息管理模塊創(chuàng)建143.8 關于模塊的創(chuàng)建16結 論18致 謝19參考文獻20-引 言現(xiàn)代化的賓館是集客房、餐飲、通訊、娛樂，商務文化及其他各種服務與設施為一體化的消費場所，酒店賓館組織龐大，服務項目多，信息量大，要想提高勞動生產(chǎn)，降低成本，提高服務質量和管理水平，進而促進經(jīng)濟效益，必須借助計算機來進行現(xiàn)代化的信息管理。酒店賓館行業(yè)隨著社會的不斷發(fā)展和進步，迎來了越來越多的商機的同時，也面臨著日趨激烈的競爭。隨著酒店業(yè)競爭的加劇，酒店利用傳統(tǒng)的競爭手段所創(chuàng)造的利潤空間越來越小，酒店需要使用更有效的競爭手段,拓展更廣闊的經(jīng)營空間，提供更細致、全面、個性化的服務，大幅度降低運營成本，面對瞬息萬變的市場競爭提高管理和決策的效率。如何使自己的酒店賓館在本行業(yè)中脫穎而出，獨領風騷，原始的手工操作方式和傳統(tǒng)的管理方法顯得越來越不能滿足當前賓館行業(yè)的發(fā)展。酒店業(yè)為適應信息化時代對現(xiàn)代酒店的新要求，向客人提供更加方便、快捷、高效的服務，滿足各類不同客人的個性化服務要求，因此，建立一套先進的、科學的、嚴謹?shù)?、適合自身特點的飯店管理機制，是使自己更具競爭力的必要手段。那么如何設計一個操作簡單，靈活性好、系統(tǒng)安全性高，運行穩(wěn)定的酒店管理系統(tǒng)呢? 下面是我們利用VB所學設計的一個簡單的酒店管理系統(tǒng),下面是開發(fā)過程與原理。第一章 開發(fā)賓館信息管理系統(tǒng)的意義1.1 系統(tǒng)目標設計系統(tǒng)目標設計 賓館管理系統(tǒng)的主要目標是實現(xiàn)對賓館內(nèi)部各種信息管理的電子化,提高各個部門及部門間的辦公效率，為高質量高效率的賓館服務做準備，以適應現(xiàn)代化的酒店賓館的需要。1.2 設計思想系統(tǒng)著眼于賓館的當前信息管理和未來的發(fā)展，是通過對賓館相關管理人員的咨詢和對他們需求報告中所列項目本著軟件工程的思想所編寫的。我們所設計的系統(tǒng)將更加貼近于現(xiàn)代酒店的管理模式和管理風格。1.3 在中小企業(yè)（酒店賓館）中用計算機管理的意義在中小企業(yè)（酒店賓館）中用計算機管理的意義 現(xiàn)在我國的中小企業(yè)（酒店賓館）管理水平還停留在紙介質的基礎上，這樣的機制已經(jīng)不能適應時代的發(fā)展，因為它浪費了許多人力和物力，在信息時代這種傳統(tǒng)的管理方法必然被計算機為基礎的信息管理所取代。改革開放的總設計師鄧小平同志曾說過:“科學技術是第一生產(chǎn)力”。我希望能用我所學的知識編寫一個應用的程序幫助賓館管理人員進行更有效的管理。1.4 賓館管理系統(tǒng)的設計分析賓館管理系統(tǒng)的設計分析 根據(jù)實際情況，我們使用原型法（Rapid Prototyping）即以少量代價快速地構造一個可執(zhí)行的軟件系統(tǒng)模型。使用戶和開發(fā)人員可以較快地確定需求，然后采用循環(huán)進化的開發(fā)方式，對系統(tǒng)模型作連續(xù)的精化，將系統(tǒng)需具備的性質逐漸增加上去，直到所有的性質全部滿足。此時模塊也發(fā)展成為最終產(chǎn)品了。1.5 編程環(huán)境的選擇編程環(huán)境的選擇 微軟公司的Visual Basic是Windows應用程序開發(fā)工具，使目前最為廣泛的、易學易用的面向對象的開發(fā)工具。Visual Basic提供了大量的組件，這些組件可用于設計界面和實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設計過程，從而有效的提高了應用程序的運行效率和可靠性。故而，實現(xiàn)本系統(tǒng)VB是一個相對較好的選擇。而且，Visual Basic強大的調試功能也為大型復雜軟件的開發(fā)提供了有效的排錯手段。第二章 系統(tǒng)規(guī)劃及數(shù)據(jù)庫的實現(xiàn)2.1系統(tǒng)總體規(guī)劃圖賓館管理系統(tǒng)系統(tǒng)查詢信息關于開房結賬價格管理客房管理用戶管理密碼修改退出顧客信息查詢賬目查詢圖2-1 系統(tǒng)總體規(guī)劃圖2.2 數(shù)據(jù)庫需求分析數(shù)據(jù)庫需求分析用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢等方面，這就要求數(shù)據(jù)庫結構充分滿足各種信息的輸入和輸出。收集基本數(shù)據(jù)、數(shù)據(jù)結構以及數(shù)據(jù)處理的流程，組成一分詳盡的數(shù)據(jù)字典，為數(shù)據(jù)庫的具體設計打下基礎。針對一般賓館管理信息系統(tǒng)的需求，通過對賓館管理工作過程的內(nèi)容和數(shù)據(jù)流程分析，設計如下數(shù)據(jù)項和數(shù)據(jù)結構： 客房標準信息，包括的數(shù)據(jù)項有：客房編號、客房級別、客房類型、客房單價。入住信息，包括的數(shù)據(jù)項有：登記編號、顧客姓名、身份證號、房間號、入住日期。退房信息，包括的數(shù)據(jù)項有：登記編號、退房時間、應付金額等。通過我上面對數(shù)據(jù)庫的規(guī)劃和對所需數(shù)據(jù)設置，在我所編輯的系統(tǒng)里我們給用戶所實現(xiàn)的數(shù)據(jù)庫就能簡單的實現(xiàn)如下所列的操作?？梢赃M行文本操作；添加一個數(shù)據(jù)庫項目；刪除一個數(shù)據(jù)庫項目；修改一個數(shù)據(jù)庫項目；對數(shù)據(jù)信息的查詢。2.3 數(shù)據(jù)庫設計設計數(shù)據(jù)庫系統(tǒng)時首先應該充分了解用戶各個方面的需求，包括現(xiàn)有的以及將來可能增加的需求。數(shù)據(jù)庫設計一般包括如下幾個步驟：數(shù)據(jù)庫需求分析,數(shù)據(jù)庫概念結構設計,數(shù)據(jù)庫邏輯結構設計。2.4 數(shù)據(jù)庫概念結構設計根據(jù)上面我所設計的數(shù)據(jù)項和數(shù)據(jù)結構以后，就可以設計出能夠滿足用戶需求的各種實體，以及他們的關系。根據(jù)上面所設計規(guī)劃出的實體有：客房標準信息實體、客房信息實體、入住信息實體、退房信息實體。2.5 使用ACCESS實現(xiàn)關系型數(shù)據(jù)庫創(chuàng)建任何一個數(shù)據(jù)庫的第一步是仔細的規(guī)劃數(shù)據(jù)庫，設計必須是靈活的、有邏輯的。創(chuàng)建一個數(shù)據(jù)庫結構的過程被認為是數(shù)據(jù)模型設計。在我所設計的這個系統(tǒng)中，我使用的是MICROSOFT ACCESS作為我的數(shù)據(jù)庫系統(tǒng)。ACCESS 就是關系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲和檢索。ACCESS的優(yōu)點在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。可以使數(shù)據(jù)庫一目了然。ACCESS也提供了數(shù)據(jù)存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡文件服務器，與其他網(wǎng)絡用戶共享數(shù)據(jù)庫。ACCESS 是一種關系數(shù)據(jù)庫工具，關系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。如上所述，ACCESS 作為關系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點，可以在一個數(shù)據(jù)包中同時擁有桌面數(shù)據(jù)庫的便利和關系數(shù)據(jù)庫的強大功能。在我的整個系統(tǒng)的實現(xiàn)上通過VB的代碼與ACCESS結合，創(chuàng)建出我們所需要的數(shù)據(jù)庫。在實現(xiàn)系統(tǒng)與數(shù)據(jù)庫結合的過程 第三章 系統(tǒng)具體實現(xiàn)3.1 登陸系統(tǒng)模塊的創(chuàng)建 登錄界面圖3-1 登陸界面 這一部分主要是通過對數(shù)據(jù)庫賓館管理系統(tǒng)中USER的查詢 因此而登陸到系統(tǒng)軟件當中設計界面 如圖3-1登陸模塊主要功能有：用戶登錄下面是實現(xiàn)這些功能的代碼，寫在“登錄”按鈕的單擊事件函數(shù)中：按鈕一的單擊事件Private Sub Command1_Click() 登錄窗口的實現(xiàn) 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 & ) 連接數(shù)據(jù)庫，從數(shù)據(jù)庫中調取用戶信息 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 系統(tǒng)管理模塊的創(chuàng)建系統(tǒng)管理模塊圖3-2 系統(tǒng)管理界面圖3-3 修改密碼界面如圖3-2所示 通過主界面進入系統(tǒng)管理模塊，系統(tǒng)管理模塊總共分為兩個部分：密碼修改和退出。密碼修改，是通過軟件的代碼通過訪問賓館管理系統(tǒng)數(shù)據(jù)庫 從而實現(xiàn)對系統(tǒng)用戶登陸的密碼修改 退出，通過代碼退出整個程序系統(tǒng)模塊的主要功能：更改用戶密碼 和退出整個程序設計頁面如圖3-3所示密碼修改下面是實現(xiàn)這些功能的主要代碼，寫在“確認”按鈕的單擊事件函數(shù)中：按鈕一的單擊事件Private Sub Command1_Click() 實現(xiàn)修改密碼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 & )從數(shù)據(jù)庫中調取用戶名 If Text2 rs.Fields(1) Then 修改密碼 MsgBox 原密碼不正確 Else rs.Fields(1) = Text3 rs.Update MsgBox 修改成功 Text2 = Text3 = Text4 = End IfEnd IfEnd Sub3.3 用戶管理模塊的創(chuàng)建 圖3-4 用戶管理模塊如圖3-4所示 該模塊為用戶管理模塊，用于對系統(tǒng)用戶 添加修改 和刪除的一些應用主要代碼如下：添加用戶按鈕一的單擊事件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 客房管理模塊的創(chuàng)建圖3-5 客房管理模塊如圖3-5所示 該模塊為客房管理模塊，主要功能為客房一些信息的添加修改、刪除、取消的功能實現(xiàn)其功能具體代碼如下：寫在按鈕一的單擊事件里添加信息按鈕和文本的代碼與上面添加代碼一樣Set rs = Executesql(select * from room_info where room_no= & Text1 & ) If rs.EOF = False Then MsgBox 該房間信息已存在 Else rs.AddNew 更新數(shù)據(jù)庫代碼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 價格管理模塊的創(chuàng)建圖3-6 價格管理模塊圖3-6 為價格管理模塊 實現(xiàn)其功能 管理房間的價格，添加、修改、刪除。實現(xiàn)其代碼如下：寫在按鈕一的單擊事件添加信息與上面模塊添加代碼相同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 開房結賬管理模塊的創(chuàng)建圖3-7 開房結賬模塊圖3-7 為開放結賬管理模塊 實現(xiàn)其功能 開房、結賬實現(xiàn)其代碼如下：鼠標拖動事件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 查詢信息管理模塊創(chuàng)建圖3-8 顧客信息查詢模塊 圖3-9 賬目查詢模塊查詢模塊分為兩個部分（圖3-8和圖3-9），一是顧客信息查詢、二是賬目查詢，顧客信息起主要功能是查詢顧客的一些信息，可以按照姓名、身份證號、入住日期進行查詢，而賬目查詢主要是管理者對賬目的查詢，可以通過日期進行查詢實現(xiàn)其功能的主要代碼如下：寫在按鈕一的單擊事件里顧客信息查詢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 關于模塊的創(chuàng)建圖3-10 關于模塊關于模塊（圖3-10）的創(chuàng)建其主要