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

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

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

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

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

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

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

7、求分析2</p><p>　　2.3 數(shù)據(jù)庫(kù)設(shè)計(jì)2</p><p>　　2.4 數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)2</p><p>　　2.5 使用ACCESS實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫(kù)3</p><p>　　第三章 系統(tǒng)具體實(shí)現(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 用戶(hù)管理模塊的創(chuàng)建7</p><p>　　3.4 客房管理模塊的創(chuàng)建9</p><p>　　3.5 價(jià)格管理模塊的創(chuàng)建11</p><p>　　3.6 開(kāi)房結(jié)賬管理模塊的創(chuàng)建12</p><p>　　3.7 查詢(xún)信息

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>　　參考文獻(xiàn)20<

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

26、 Text2.Text = "" Then</p><p>　　MsgBox "請(qǐng)輸入帳號(hào)"</p><p>　　Text2.SetFocus</p><p>　　ElseIf Text3.Text = "" Then</p><p>　　MsgBox "請(qǐng)輸入密碼&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ù)庫(kù)，從數(shù)據(jù)庫(kù)中調(diào)取用戶(hù)信息’</p><p>　　If rs.EOF = True Then</p><p>　　MsgBox "賬戶(hù)或密碼錯(cuò)誤" ‘提示密碼錯(cuò)誤，重新輸入密碼’</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所示 通過(guò)主界面進(jìn)入系統(tǒng)管理模塊，系統(tǒng)管理模塊總共分為兩個(gè)部分：密碼修改和退出。密碼修改，是通過(guò)軟件的代碼通過(guò)訪(fǎng)問(wèn)賓館管理系統(tǒng)數(shù)據(jù)庫(kù) 從而實(shí)現(xiàn)對(duì)系統(tǒng)用戶(hù)登陸的密碼修改 退出，通過(guò)代碼退出整個(gè)程序</p>&l

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

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

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

36、請(qǐng)確認(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ù)庫(kù)中調(diào)取用戶(hù)名’</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 用戶(hù)管理模塊的創(chuàng)建 </p><p>　　圖3-4 用戶(hù)管理模塊</p><p>　　如圖3-4所示 該模塊為用戶(hù)管理模塊，用于對(duì)系統(tǒng)用戶(hù) 添加修改 和刪除的一些應(yīng)用</p><p><b>　　主要代碼如下：</b></p><p><b>　　添加用戶(hù)</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>　　刪除用戶(hù)</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>　　實(shí)現(xiàn)其功能具體代碼如下：</p><p>　　寫(xiě)在按鈕一的單擊事件里</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ù)庫(kù)代碼</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>　　寫(xiě)在按鈕二的單擊事件里</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>　　寫(xiě)在按鈕三的單擊事件里</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>　　寫(xiě)在按鈕四的單擊事件里</p><p><b>　　取消</b></p><p><b>　　Unload Me</b></p><p>　　3.5 價(jià)格管理模塊的創(chuàng)建</p><

66、p>　　圖3-6 價(jià)格管理模塊</p><p>　　圖3-6 為價(jià)格管理模塊 實(shí)現(xiàn)其功能 管理房間的價(jià)格，添加、修改、刪除。</p><p><b>　　實(shí)現(xiàn)其代碼如下：</b></p><p>　　寫(xiě)在按鈕一的單擊事件</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>　　寫(xiě)在按鈕二的單擊事件里</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>　　寫(xiě)在按鈕三的單擊事件里</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>　　寫(xiě)在按鈕四的單擊事

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

76、t;/p><p><b>　　實(shí)現(xiàn)其代碼如下：</b></p><p><b>　　鼠標(biāo)拖動(dòng)事件</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>　　寫(xiě)在按鈕二的單擊事件里</p><p><b>　　開(kāi)房</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>　　寫(xiě)在按鈕三的單擊事件里</p><p><b>　　結(jié)賬</b>&l

82、t;/p><p>　　If Right(Source.Caption, 1) = "滿(mǎn)" 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>　　查詢(xún)信息管理模塊創(chuàng)建</p><p>　　圖3-8 顧客信息查詢(xún)模塊</p><p>　　圖3-9 賬目查詢(xún)模塊</p><p>　　查詢(xún)模塊分為兩個(gè)部分（圖3-8和圖3-9），一是顧客信息查詢(xún)、二是賬目查詢(xún)，顧客信息起主要功能是查詢(xún)顧客的一些信息，可以按照姓名、身份證號(hào)、入住

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

85、p>　　If Text1 = "" Then</p><p>　　MsgBox "填寫(xiě)查找顧客的姓名"</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 "請(qǐng)選擇要查找顧客的日期范圍"</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>　　寫(xiě)在按鈕二的單擊事件里</p><p><b>　　賬目查詢(xún)</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)建其主要功能就是說(shuō)明一下系統(tǒng)的版權(quán)所有，制作團(tuán)隊(duì)，制作日期的一些信息。</p><p>　　關(guān)于模塊的設(shè)計(jì)基本采用文本框、標(biāo)簽等一些界面設(shè)計(jì) </p><p><b>　　結(jié)

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

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

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

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

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

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