軟件編程畢業(yè)論文--賓館管理系統(tǒng)

1、<p><b>　　計算機應(yīng)用軟件編程</b></p><p><b>　　畢業(yè)論文</b></p><p>　　題 目 賓館管理系統(tǒng) </p><p>　　專 業(yè) 計算機應(yīng)用（軟件） </p><p>　　年 級 2010級

2、 </p><p>　　學(xué)生姓名 </p><p>　　指導(dǎo)教師 </p><p><b>　　年 月 日</b></p><p><b>　　摘 要</b></p><p

3、>　　信息管理系統(tǒng)也就是我們常說的MIS（Management Information System）,在強調(diào)信息管理的現(xiàn)代社會中它變得越來越普及了。賓館管理系統(tǒng)是一個典型的信息管理系統(tǒng),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應(yīng)用程序的開發(fā)兩個方面,利用計算機軟硬件資源以及數(shù)據(jù)庫的人-機系統(tǒng)，提供信息支持企業(yè)或組織的運行、管理和決策功能。對于數(shù)據(jù)庫，要求建立起數(shù)據(jù)的一致性、完整性、安全性；而對于前端應(yīng)用程序則要求應(yīng)用程序功能

4、完備、界面友好和容易掌握使用等特點。 經(jīng)過分析,我們使用 MICROSOFT公司的 VISUAL BASIC開發(fā)工具,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)庫這一方面,利用其ADO控件能方便而簡潔操縱數(shù)據(jù)庫的智能化對象,在短時間內(nèi)建立系統(tǒng)應(yīng)用原型,然后,對初始原型系統(tǒng)進行需求迭代,不斷修正和改進,直至得到滿意的系統(tǒng)。</p><p>　　關(guān) 鍵 字: 窗體； 域 ； 賓館管理系統(tǒng)</p>

5、<p><b>　　目 錄</b></p><p><b>　　引 言1</b></p><p>　　第一章 開發(fā)賓館信息管理系統(tǒng)的意義1</p><p>　　1.1 系統(tǒng)目標(biāo)設(shè)計1</p><p>　　1.2 設(shè)計思想1</p><p>　　1

6、.3 在中小企業(yè)（酒店賓館）中用計算機管理的意義1</p><p>　　1.4 賓館管理系統(tǒng)的設(shè)計分析1</p><p>　　1.5 編程環(huán)境的選擇1</p><p>　　第二章 系統(tǒng)規(guī)劃及數(shù)據(jù)庫的實現(xiàn)2</p><p>　　2.1 系統(tǒng)總體規(guī)劃圖2</p><p>　　2.2 數(shù)據(jù)庫需

7、求分析2</p><p>　　2.3 數(shù)據(jù)庫設(shè)計2</p><p>　　2.4 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計2</p><p>　　2.5 使用ACCESS實現(xiàn)關(guān)系型數(shù)據(jù)庫3</p><p>　　第三章 系統(tǒng)具體實現(xiàn)4</p><p>　　3.1 登陸系統(tǒng)模塊的創(chuàng)建4</p><

8、p>　　3.2 系統(tǒng)管理模塊的創(chuàng)建5</p><p>　　3.3 用戶管理模塊的創(chuàng)建7</p><p>　　3.4 客房管理模塊的創(chuàng)建9</p><p>　　3.5 價格管理模塊的創(chuàng)建11</p><p>　　3.6 開房結(jié)賬管理模塊的創(chuàng)建12</p><p>　　3.7 查詢信息

9、管理模塊創(chuàng)建…………………………………………14</p><p>　　3.8 關(guān)于模塊的創(chuàng)建………………………………………………16</p><p><b>　　結(jié) 論18</b></p><p><b>　　致 謝19</b></p><p><b>　　參考文獻20<

10、/b></p><p><b>　　引 言</b></p><p>　　現(xiàn)代化的賓館是集客房、餐飲、通訊、娛樂，商務(wù)文化及其他各種服務(wù)與設(shè)施為一體化的消費場所，酒店賓館組織龐大，服務(wù)項目多，信息量大，要想提高勞動生產(chǎn)，降低成本，提高服務(wù)質(zhì)量和管理水平，進而促進經(jīng)濟效益，必須借助計算機來進行現(xiàn)代化的信息管理。酒店賓館行業(yè)隨著社會的不斷發(fā)展和進步，迎來了越來越多的商

11、機的同時，也面臨著日趨激烈的競爭。隨著酒店業(yè)競爭的加劇，酒店利用傳統(tǒng)的競爭手段所創(chuàng)造的利潤空間越來越小，酒店需要使用更有效的競爭手段,拓展更廣闊的經(jīng)營空間，提供更細(xì)致、全面、個性化的服務(wù)，大幅度降低運營成本，面對瞬息萬變的市場競爭提高管理和決策的效率。如何使自己的酒店賓館在本行業(yè)中脫穎而出，獨領(lǐng)風(fēng)騷，原始的手工操作方式和傳統(tǒng)的管理方法顯得越來越不能滿足當(dāng)前賓館行業(yè)的發(fā)展。酒店業(yè)為適應(yīng)信息化時代對現(xiàn)代酒店的新要求，向客人提供更加方便、快捷

12、、高效的服務(wù)，滿足各類不同客人的個性化服務(wù)要求，因此，建立一套先進的、科學(xué)的、嚴(yán)謹(jǐn)?shù)?、適合自身特點的飯店管理機制，是使自己更具競爭力的必要手段。那么如何設(shè)計一個操作簡單，靈活性好、系統(tǒng)安全性高，運行穩(wěn)定的酒店管理系統(tǒng)呢? 下面是我們利用VB所學(xué)設(shè)計的一個簡單的酒店管理</p><p>　　第一章 開發(fā)賓館信息管理系統(tǒng)的意義</p><p>　　1.1 系統(tǒng)目標(biāo)設(shè)計</p>

13、<p>　　系統(tǒng)目標(biāo)設(shè)計 賓館管理系統(tǒng)的主要目標(biāo)是實現(xiàn)對賓館內(nèi)部各種信息管理的電子化,提高各個部門及部門間的辦公效率，為高質(zhì)量高效率的賓館服務(wù)做準(zhǔn)備，以適應(yīng)現(xiàn)代化的酒店賓館的需要。</p><p><b>　　1.2 設(shè)計思想</b></p><p>　　系統(tǒng)著眼于賓館的當(dāng)前信息管理和未來的發(fā)展，是通過對賓館相關(guān)管理人員的咨詢和對他們需求報告中所列項目

14、本著軟件工程的思想所編寫的。我們所設(shè)計的系統(tǒng)將更加貼近于現(xiàn)代酒店的管理模式和管理風(fēng)格。</p><p>　　1.3 在中小企業(yè)（酒店賓館）中用計算機管理的意義</p><p>　　在中小企業(yè)（酒店賓館）中用計算機管理的意義 現(xiàn)在我國的中小企業(yè)（酒店賓館）管理水平還停留在紙介質(zhì)的基礎(chǔ)上，這樣的機制已經(jīng)不能適應(yīng)時代的發(fā)展，因為它浪費了許多人力和物力，在信息時代這種傳統(tǒng)的管理方法必然被計算機為

15、基礎(chǔ)的信息管理所取代。改革開放的總設(shè)計師鄧小平同志曾說過:“科學(xué)技術(shù)是第一生產(chǎn)力”。我希望能用我所學(xué)的知識編寫一個應(yīng)用的程序幫助賓館管理人員進行更有效的管理。</p><p>　　1.4 賓館管理系統(tǒng)的設(shè)計分析</p><p>　　賓館管理系統(tǒng)的設(shè)計分析 根據(jù)實際情況，我們使用原型法（Rapid Prototyping）即以少量代價快速地構(gòu)造一個可執(zhí)行的軟件系統(tǒng)模型。使用戶和開發(fā)人員可以

16、較快地確定需求，然后采用循環(huán)進化的開發(fā)方式，對系統(tǒng)模型作連續(xù)的精化，將系統(tǒng)需具備的性質(zhì)逐漸增加上去，直到所有的性質(zhì)全部滿足。此時模塊也發(fā)展成為最終產(chǎn)品了。</p><p>　　1.5 編程環(huán)境的選擇</p><p>　　編程環(huán)境的選擇 微軟公司的Visual Basic是Windows應(yīng)用程序開發(fā)工具，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。Visual Basic提供了大量的組

17、件，這些組件可用于設(shè)計界面和實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計過程，從而有效的提高了應(yīng)用程序的運行效率和可靠性。故而，實現(xiàn)本系統(tǒng)VB是一個相對較好的選擇。而且，Visual Basic強大的調(diào)試功能也為大型復(fù)雜軟件的開發(fā)提供了有效的排錯手段。</p><p>　　第二章 系統(tǒng)規(guī)劃及數(shù)據(jù)庫的實現(xiàn)</p><p>　　2.1系統(tǒng)總體規(guī)劃圖</p><p

18、>　　圖2-1 系統(tǒng)總體規(guī)劃圖</p><p>　　2.2 數(shù)據(jù)庫需求分析</p><p>　　數(shù)據(jù)庫需求分析用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢等方面，這就要求數(shù)據(jù)庫結(jié)構(gòu)充分滿足各種信息的輸入和輸出。收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一分詳盡的數(shù)據(jù)字典，為數(shù)據(jù)庫的具體設(shè)計打下基礎(chǔ)。針對一般賓館管理信息系統(tǒng)的需求，通過對賓館管理工作過程的內(nèi)容和數(shù)據(jù)流程分析

19、，設(shè)計如下數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)： ·客房標(biāo)準(zhǔn)信息，包括的數(shù)據(jù)項有：客房編號、客房級別、客房類型、客房單價。·入住信息，包括的數(shù)據(jù)項有：登記編號、顧客姓名、身份證號、房間號、入住日期。·退房信息，包括的數(shù)據(jù)項有：登記編號、退房時間、應(yīng)付金額等。通過我上面對數(shù)據(jù)庫的規(guī)劃和對所需數(shù)據(jù)設(shè)置，在我所編輯的系統(tǒng)里我們給用戶所實現(xiàn)的數(shù)據(jù)庫就能簡單的實現(xiàn)如下所列的操作。可以進行文本操作；添加一個數(shù)據(jù)庫項目；刪除一個數(shù)據(jù)庫項目；

20、修改一個數(shù)據(jù)庫項目；對數(shù)據(jù)信息的查詢。</p><p><b>　　2.3 數(shù)據(jù)庫設(shè)計</b></p><p>　　設(shè)計數(shù)據(jù)庫系統(tǒng)時首先應(yīng)該充分了解用戶各個方面的需求，包括現(xiàn)有的以及將來可能增加的需求。數(shù)據(jù)庫設(shè)計一般包括如下幾個步驟：數(shù)據(jù)庫需求分析,數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計,數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計。</p><p>　　2.4 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計<

21、;/p><p>　　根據(jù)上面我所設(shè)計的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)以后，就可以設(shè)計出能夠滿足用戶需求的各種實體，以及他們的關(guān)系。根據(jù)上面所設(shè)計規(guī)劃出的實體有：客房標(biāo)準(zhǔn)信息實體、客房信息實體、入住信息實體、退房信息實體。</p><p>　　2.5 使用ACCESS實現(xiàn)關(guān)系型數(shù)據(jù)庫</p><p>　　創(chuàng)建任何一個數(shù)據(jù)庫的第一步是仔細(xì)的規(guī)劃數(shù)據(jù)庫，設(shè)計必須是靈活的、有邏輯的。創(chuàng)建一

22、個數(shù)據(jù)庫結(jié)構(gòu)的過程被認(rèn)為是數(shù)據(jù)模型設(shè)計。在我所設(shè)計的這個系統(tǒng)中，我使用的是MICROSOFT ACCESS作為我的數(shù)據(jù)庫系統(tǒng)。ACCESS 就是關(guān)系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲和檢索。ACCESS的優(yōu)點在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息?？梢允箶?shù)據(jù)庫一目了然。ACCESS也提供了數(shù)據(jù)存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。ACCESS 是一種關(guān)系數(shù)據(jù)庫工具，關(guān)

23、系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。如上所述，ACCESS 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點，可以在一個數(shù)據(jù)包中同時擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強大功能。在我的整個系統(tǒng)的實現(xiàn)上通過VB的代碼與ACCESS結(jié)合，創(chuàng)建出我們所需要的數(shù)據(jù)庫。在實現(xiàn)系統(tǒng)與數(shù)據(jù)庫結(jié)合的過程 </p><p>　　第三章 系統(tǒng)具體實現(xiàn)</p><p>　　3.1 登陸系統(tǒng)模塊的創(chuàng)建 </p>

24、<p><b>　　登錄界面</b></p><p>　　圖3-1 登陸界面</p><p>　　這一部分主要是通過對數(shù)據(jù)庫賓館管理系統(tǒng)中USER的查詢 因此而登陸到系統(tǒng)軟件當(dāng)中</p><p>　　設(shè)計界面 如圖3-1</p><p>　　登陸模塊主要功能有：用戶登錄</p><p&

25、gt;　　下面是實現(xiàn)這些功能的代碼，寫在“登錄”按鈕的單擊事件函數(shù)中：</p><p><b>　　按鈕一的單擊事件</b></p><p>　　Private Sub Command1_Click() ‘登錄窗口的實現(xiàn)’ </p><p>　　Dim rs As ADODB.Recordset</p><p>　　If

26、 Text2.Text = "" Then</p><p>　　MsgBox "請輸入帳號"</p><p>　　Text2.SetFocus</p><p>　　ElseIf Text3.Text = "" Then</p><p>　　MsgBox "請輸入密碼&quo

27、t;</p><p>　　Text3.SetFocus</p><p><b>　　Else</b></p><p>　　Set rs = Executesql("select * from user_info where user_id='" & Text2.Text & "'an

28、d user_pwd='" & Text3.Text & "'") ‘連接數(shù)據(jù)庫，從數(shù)據(jù)庫中調(diào)取用戶信息’</p><p>　　If rs.EOF = True Then</p><p>　　MsgBox "賬戶或密碼錯誤" ‘提示密碼錯誤，重新輸入密碼’</p><p>　　Te

29、xt2.SetFocus</p><p>　　Text2.SelStart = 0</p><p>　　Text2.SelLength = Len(Text2.Text)</p><p><b>　　Else</b></p><p>　　MsgBox "登錄成功"</p><p&g

30、t;　　username = Text2.Text ‘登錄成功后，文本恢復(fù)空’</p><p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p><p><b>　　Unload Me</b></p><p>　　frmmain.Sho

31、w</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　3.2 系統(tǒng)管理模塊的創(chuàng)建</p><p><b>　　系統(tǒng)管理模塊

32、</b></p><p>　　圖3-2 系統(tǒng)管理界面</p><p>　　圖3-3 修改密碼界面</p><p>　　如圖3-2所示 通過主界面進入系統(tǒng)管理模塊，系統(tǒng)管理模塊總共分為兩個部分：密碼修改和退出。密碼修改，是通過軟件的代碼通過訪問賓館管理系統(tǒng)數(shù)據(jù)庫 從而實現(xiàn)對系統(tǒng)用戶登陸的密碼修改 退出，通過代碼退出整個程序</p>&l

33、t;p>　　系統(tǒng)模塊的主要功能：更改用戶密碼 和退出整個程序</p><p>　　設(shè)計頁面如圖3-3所示</p><p><b>　　密碼修改</b></p><p>　　下面是實現(xiàn)這些功能的主要代碼，寫在“確認(rèn)”按鈕的單擊事件函數(shù)中：</p><p><b>　　按鈕一的單擊事件</b>&l

34、t;/p><p>　　Private Sub Command1_Click() ‘實現(xiàn)修改密碼’</p><p>　　If Text2.Text = "" Then</p><p>　　MsgBox "請輸入原密碼"</p><p>　　Text2.SetFocus</p><p>

35、　　ElseIf Text3.Text = "" Then</p><p>　　MsgBox "請輸入新密碼"</p><p>　　Text3.SetFocus</p><p>　　ElseIf Text4.Text = "" Then</p><p>　　MsgBox "

36、請確認(rèn)新密碼"</p><p>　　Text4.SetFocus</p><p>　　ElseIf Val(Text3.Text) <> Val(Text4.Text) Then</p><p>　　MsgBox "重新輸入確認(rèn)密碼"</p><p>　　Text4.SetFocus</p>

37、;<p>　　Text4.SelStart = 0</p><p>　　Text4.SelLength = Len(Text4.Text)</p><p><b>　　Else</b></p><p>　　Set rs = Executesql("select * from user_info where user_id

38、='" & username & "'")‘從數(shù)據(jù)庫中調(diào)取用戶名’</p><p>　　If Text2 <> rs.Fields(1) Then ‘修改密碼’</p><p>　　MsgBox "原密碼不正確"</p><p><b>　　Else</b&

39、gt;</p><p>　　rs.Fields(1) = Text3</p><p><b>　　rs.Update</b></p><p>　　MsgBox "修改成功"</p><p>　　Text2 = ""</p><p>　　Text3 = &qu

40、ot;"</p><p>　　Text4 = ""</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　

41、3.3 用戶管理模塊的創(chuàng)建 </p><p>　　圖3-4 用戶管理模塊</p><p>　　如圖3-4所示 該模塊為用戶管理模塊，用于對系統(tǒng)用戶 添加修改 和刪除的一些應(yīng)用</p><p><b>　　主要代碼如下：</b></p><p><b>　　添加用戶</b></p>&

42、lt;p><b>　　按鈕一的單擊事件</b></p><p>　　If Command1.Caption = "添加" Then</p><p>　　Combo1.Enabled = True</p><p>　　Text1.Enabled = True</p><p>　　Text2.Ena

43、bled = True</p><p>　　Command1.Caption = "保存"</p><p>　　Command2.Enabled = False</p><p>　　Command4.Enabled = False</p><p><b>　　else</b></p>&

44、lt;p>　　Set rs = Executesql("select * from user_info where user_id='" & Text1.Text & "'")</p><p>　　If Not rs.EOF Then</p><p>　　MsgBox "添加成功"</p

45、><p><b>　　Else</b></p><p><b>　　rs.AddNew</b></p><p>　　rs.Fields(0) = Text1</p><p>　　rs.Fields(1) = "000000"</p><p>　　rs.Fiel

46、ds(2) = Combo1</p><p>　　rs.Fields(3) = Text2</p><p><b>　　rs.Update</b></p><p>　　Text1.Enabled = False</p><p>　　Text2.Enabled = False</p><p>　　C

47、ombo1.Enabled = False</p><p>　　Command2.Enabled = True</p><p>　　Command4.Enabled = True</p><p>　　Command1.Caption = "添加"</p><p>　　Text1 = ""</p&g

48、t;<p>　　Text2 = ""</p><p>　　Combo1.ListIndex = -1</p><p><b>　　Call fz</b></p><p>　　Command2.Enabled = True</p><p>　　Command4.Enabled = True

49、</p><p><b>　　End if</b></p><p><b>　　按鈕二的單擊事件</b></p><p><b>　　刪除用戶</b></p><p>　　Set rs = Executesql("select * from user_info whe

50、re user_id='" & Text1 & "'")</p><p>　　If MsgBox("是否真正刪除", 4) = 6 Then</p><p><b>　　rs.Delete</b></p><p><b>　　rs.Update</

51、b></p><p>　　MsgBox "刪除成功"</p><p>　　Text1.Text = ""</p><p>　　Combo1.ListIndex = -1</p><p>　　Text2.Text = ""</p><p><b>

52、;　　Call fz</b></p><p><b>　　按鈕三的單擊事件</b></p><p><b>　　返回窗體</b></p><p><b>　　Unload Me</b></p><p><b>　　按鈕四的單擊事件</b><

53、;/p><p><b>　　修改權(quán)限</b></p><p>　　Set rs = Executesql("select *from user_info where user_id='" & Text1.Text & "'")</p><p>　　rs.Fields(2) =

54、Combo1</p><p><b>　　rs.Update</b></p><p>　　MsgBox "修改成功"</p><p>　　Command4.Caption = "修改"</p><p><b>　　Call fz</b></p>

55、<p>　　Text1.Text = ""</p><p>　　Combo1.ListIndex = -1</p><p>　　Text2.Text = ""</p><p>　　3.4 客房管理模塊的創(chuàng)建</p><p>　　圖3-5 客房管理模塊</p><p>

56、　　如圖3-5所示 該模塊為客房管理模塊，主要功能為客房一些信息的添加修改、刪除、取消的功能</p><p>　　實現(xiàn)其功能具體代碼如下：</p><p>　　寫在按鈕一的單擊事件里</p><p><b>　　添加信息</b></p><p>　　按鈕和文本的代碼與上面添加代碼一樣</p><p&g

57、t;　　Set rs = Executesql("select * from room_info where room_no='" & Text1 & "'")</p><p>　　If rs.EOF = False Then</p><p>　　MsgBox "該房間信息已存在"</p>

58、;<p><b>　　Else</b></p><p><b>　　rs.AddNew</b></p><p><b>　　更新數(shù)據(jù)庫代碼</b></p><p><b>　　rs.Update</b></p><p>　　MsgBox &q

59、uot;添加成功"</p><p><b>　　Call wgfz</b></p><p><b>　　Call hy</b></p><p>　　寫在按鈕二的單擊事件里</p><p><b>　　修改信息</b></p><p>　　Set

60、 rs = Executesql("select * from room_info where room_no='" & Text1 & "'")</p><p>　　rs.Fields(1) = Combo1</p><p>　　rs.Fields(2) = Val(Combo2)</p><p&

61、gt;　　rs.Fields(3) = Combo3</p><p>　　rs.Fields(4) = Combo4</p><p>　　rs.Fields(5) = Combo5</p><p>　　rs.Fields(6) = Combo6</p><p>　　rs.Fields(7) = Combo7</p><p&

62、gt;<b>　　rs.Update</b></p><p>　　MsgBox "修改成功"</p><p><b>　　Call hy</b></p><p>　　寫在按鈕三的單擊事件里</p><p><b>　　刪除信息</b></p>

63、<p>　　Set rs = Executesql("select * from room_info where room_no='" & Text1 & "'")</p><p>　　If MsgBox("是否", 4) = 6 Then</p><p><b>　　rs.De

64、lete</b></p><p><b>　　rs.Update</b></p><p>　　MsgBox "刪除成功"</p><p><b>　　Call wgfz</b></p><p><b>　　Call hy</b></p>

65、;<p><b>　　End If</b></p><p>　　寫在按鈕四的單擊事件里</p><p><b>　　取消</b></p><p><b>　　Unload Me</b></p><p>　　3.5 價格管理模塊的創(chuàng)建</p><

66、p>　　圖3-6 價格管理模塊</p><p>　　圖3-6 為價格管理模塊 實現(xiàn)其功能 管理房間的價格，添加、修改、刪除。</p><p><b>　　實現(xiàn)其代碼如下：</b></p><p>　　寫在按鈕一的單擊事件</p><p><b>　　添加信息</b></p>&

67、lt;p>　　與上面模塊添加代碼相同</p><p>　　Set rs = Executesql("select * from price_info where room_type='" & Combo1 & "'")</p><p>　　If rs.EOF = False Then</p><

68、;p>　　MsgBox "該房間信息已存在"</p><p><b>　　Else</b></p><p><b>　　rs.AddNew</b></p><p>　　rs.Fields(0) = Combo1</p><p>　　rs.Fields(1) = Val(Te

69、xt1)</p><p>　　rs.Fields(2) = Val(Text2)</p><p><b>　　rs.Update</b></p><p>　　MsgBox "添加成功"</p><p><b>　　Call wgfz</b></p><p>

70、;<b>　　Call hy</b></p><p>　　寫在按鈕二的單擊事件里</p><p><b>　　修改信息</b></p><p>　　Set rs = Executesql("select * from price_info where room_type='" & Com

71、bo1 & "'")</p><p>　　rs.Fields(1) = Val(Text1)</p><p>　　rs.Fields(2) = Val(Text2)</p><p><b>　　rs.Update</b></p><p>　　MsgBox "修改成功"

72、;</p><p><b>　　Call wgfz</b></p><p><b>　　Call hy</b></p><p>　　寫在按鈕三的單擊事件里</p><p><b>　　刪除信息</b></p><p>　　Set rs = Execute

73、sql("select * from price_info where room_type='" & Combo1 & "'")</p><p>　　If MsgBox("是否", 4) = 6 Then</p><p><b>　　rs.Delete</b></p>

74、;<p><b>　　rs.Update</b></p><p>　　MsgBox "刪除成功"</p><p><b>　　Call wgfz</b></p><p><b>　　Call hy</b></p><p>　　寫在按鈕四的單擊事

75、件里</p><p><b>　　返回</b></p><p><b>　　Unload Me</b></p><p>　　3.6 開房結(jié)賬管理模塊的創(chuàng)建</p><p>　　圖3-7 開房結(jié)賬模塊</p><p>　　圖3-7 為開放結(jié)賬管理模塊 實現(xiàn)其功能 開房、結(jié)賬&l

76、t;/p><p><b>　　實現(xiàn)其代碼如下：</b></p><p><b>　　鼠標(biāo)拖動事件</b></p><p>　　Private Sub Command1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y

77、As Single)</p><p>　　Command1(Index).Drag 1</p><p>　　If Right(Command1(Index).Caption, 1) = "空" Then</p><p>　　Command1(Index).DragIcon = LoadPicture(App.Path & "\x

78、w2.ico")</p><p><b>　　Else</b></p><p>　　Command1(Index).DragIcon = LoadPicture(App.Path & "\xw1.ico")</p><p><b>　　End If</b></p><

79、;p><b>　　End Sub</b></p><p>　　Private Sub Command1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)</p><p>　　Command1(Index).Drag 2</p>

80、;<p><b>　　End Sub</b></p><p>　　寫在按鈕二的單擊事件里</p><p><b>　　開房</b></p><p>　　If Right(Source.Caption, 1) = "空" Then</p><p>　　roomno =

81、 Trim(Left(Source.Caption, Len(Source.Caption) - 1))</p><p>　　frmsetdown.Show 1</p><p><b>　　End If</b></p><p>　　寫在按鈕三的單擊事件里</p><p><b>　　結(jié)賬</b>&l

82、t;/p><p>　　If Right(Source.Caption, 1) = "滿" Then</p><p>　　roomno = Trim(Left(Source.Caption, Len(Source.Caption) - 1))</p><p>　　frmbalance.Show 1</p><p><b&g

83、t;　　End If</b></p><p>　　查詢信息管理模塊創(chuàng)建</p><p>　　圖3-8 顧客信息查詢模塊</p><p>　　圖3-9 賬目查詢模塊</p><p>　　查詢模塊分為兩個部分（圖3-8和圖3-9），一是顧客信息查詢、二是賬目查詢，顧客信息起主要功能是查詢顧客的一些信息，可以按照姓名、身份證號、入住

84、日期進行查詢，而賬目查詢主要是管理者對賬目的查詢，可以通過日期進行查詢</p><p>　　實現(xiàn)其功能的主要代碼如下：</p><p>　　寫在按鈕一的單擊事件里</p><p><b>　　顧客信息查詢</b></p><p>　　If Option1.Value = True Then</p><

85、p>　　If Text1 = "" Then</p><p>　　MsgBox "填寫查找顧客的姓名"</p><p><b>　　Else</b></p><p>　　Set rs = Executesql("select * from guest_info where guest_na

86、me='" & Text1 & "'")</p><p><b>　　Call wgfz</b></p><p><b>　　End If</b></p><p>　　Set rs = Executesql("select * from guest_i

87、nfo where guest_num='" & Text2 & "'")</p><p><b>　　Call wgfz</b></p><p><b>　　End If</b></p><p>　　ElseIf Option3.Value = True Th

88、en</p><p>　　Text1 = ""</p><p>　　Text2 = ""</p><p>　　If Combo1 = "" Or Combo2 = "" Or Combo3 = "" Or Combo4 = "" Or Combo5

89、 = "" Or Combo6 = "" Then</p><p>　　MsgBox "請選擇要查找顧客的日期范圍"</p><p><b>　　Else</b></p><p>　　Dim d1 As Date</p><p>　　Dim d2 As Date

90、</p><p>　　d1 = CDate(Combo1 & "-" & Combo2 & "-" & Combo3)</p><p>　　d2 = CDate(Combo4 & "-" & Combo5 & "-" & Combo6)</p

91、><p>　　Set rs = Executesql("select * from guest_info where out_date >=#" & d1 & "# and out_date <=#" & d2 & "#")</p><p><b>　　Call wgfz</

92、b></p><p>　　寫在按鈕二的單擊事件里</p><p><b>　　賬目查詢</b></p><p>　　Set rs = Executesql("select money from guest_info where room_type='單人間 ' and out_date = #" &am

93、p; MonthView1.Value & "#")</p><p>　　Do While Not rs.EOF</p><p>　　Text1 = Val(Text1) + rs.Fields(0)</p><p>　　rs.MoveNext</p><p><b>　　Loop</b>&l

94、t;/p><p>　　Set rs = Executesql("select money from guest_info where room_type='雙人間 ' and out_date = #" & MonthView1.Value & "#")</p><p>　　Do While Not rs.EOF</

95、p><p>　　Text2 = Val(Text2) + rs.Fields(0)</p><p>　　rs.MoveNext</p><p><b>　　Loop</b></p><p>　　Set rs = Executesql("select money from guest_info where room_

96、type='三人間 ' and out_date = #" & MonthView1.Value & "#")</p><p>　　Do While Not rs.EOF</p><p>　　Text3 = Val(Text3) + rs.Fields(0)</p><p>　　rs.MoveNext&l

97、t;/p><p><b>　　Loop</b></p><p>　　Text4 = Val(Text1) + Val(Text2) + Val(Text3)</p><p>　　Frame1.Visible = True</p><p>　　MonthView1.Visible = False</p><

98、p><b>　　關(guān)于模塊的創(chuàng)建</b></p><p>　　圖3-10 關(guān)于模塊</p><p>　　關(guān)于模塊（圖3-10）的創(chuàng)建其主要功能就是說明一下系統(tǒng)的版權(quán)所有，制作團隊，制作日期的一些信息。</p><p>　　關(guān)于模塊的設(shè)計基本采用文本框、標(biāo)簽等一些界面設(shè)計 </p><p><b>　　結(jié)

99、 論</b></p><p>　　經(jīng)過一個多月的設(shè)計和開發(fā)，賓館管理系統(tǒng)基本開發(fā)完畢。與同種產(chǎn)品，本系統(tǒng)主要具有如下特點：本系統(tǒng)的前臺客戶端使用的是VB6.0面向?qū)ο缶幊?功能比較全面、覆蓋賓館的大部分業(yè)務(wù)，包括預(yù)定、收銀、客房登記、客房基本情況、財務(wù)等模塊,系統(tǒng)界面友好、美觀。從用戶角度出發(fā)，智能化, 簡單易用、快捷操作,具有良好的靈活性和良好的可擴充性，可以隨著酒店業(yè)務(wù)的發(fā)展在功能和規(guī)模兩個方面隨

100、時進行擴展和升級。但是,由于本人能力有限，所以該系統(tǒng)還有許多不盡如人意的地方，比如軟件開發(fā)各階段的文檔和幫助文檔不全，系統(tǒng)的可移置性較差，用戶界面不夠美觀，出錯處理不夠和軟件測試方面做得不足等等。這些都有待進一步改善。在設(shè)計過程中,我學(xué)到了不少東西,把以前學(xué)到的理論知識和實際相結(jié)合,加深了對理論知識理解,比如:通過ADO控件操作數(shù)據(jù)庫,對數(shù)據(jù)庫的查詢,修改和刪除實現(xiàn)數(shù)據(jù)的增加,修改和刪除,數(shù)據(jù)綁定,報表打印,增加菜單編輯器,實現(xiàn)Win

101、dows菜單屆面,操作熟練程序進一步加強了；同時，在開發(fā)過程中，大家分工明確，相互幫助，配合默契，發(fā)揚團隊精神，工作環(huán)境十分愉快。</p><p><b>　　致 謝</b></p><p>　　歷時將近一個月的時間終于將這篇論文寫完，在論文的寫作過程中遇到了無數(shù)的困難和障礙，都在同學(xué)和老師的幫助下度過了。尤其要強烈感謝我的論文指導(dǎo)老師—趙津考</p>

102、<p>　　老師，她對我進行了無私的指導(dǎo)和幫助，不厭其煩的幫助進行論文的修改和改進。另外，在校圖書館查找資料的時候，圖書館的老師也給我提供了很多方面的支持與幫助。在此向幫助和指導(dǎo)過我的各位老師表示最中心的感謝！</p><p>　　感謝這篇論文所涉及到的各位學(xué)者。本文引用了數(shù)位學(xué)者的研究文獻，如果沒有各位學(xué)者的研究成果的幫助和啟發(fā)，我將很難完成本篇論文的寫作。感謝我的同學(xué)和朋友，在我寫論文的過程中給予

103、我了很多你問素材，還在論文的撰寫和排版燈過程中提供熱情的幫助。</p><p>　　由于我的學(xué)術(shù)水平有限，所寫論文難免有不足之處，懇請各位老師和學(xué)友批評和指正！</p><p><b>　　參考文獻</b></p><p><b>　　主要參考文獻: </b></p><p>　　[1] Visua

104、l Basic 數(shù)據(jù)庫系統(tǒng)開發(fā)實例導(dǎo)航 作者：劉韜 駱娟 何旭洪 人民郵電出版社</p><p>　　[2] Visual Basic 教育信息化系統(tǒng)開發(fā)實例導(dǎo)航 作者： 林陳雷 郭安源 葛曉東 人民郵電出版社</p><p>　　[3] Visual Basic 進銷存系統(tǒng)開發(fā)實例導(dǎo)航 作者: 劉韜 駱娟 人民郵電出版社</p><p>　　[4] Visual