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

叮叮小文庫(kù)計(jì)算機(jī)應(yīng)用軟件編程畢業(yè)論文題 目 賓館管理系統(tǒng) 專(zhuān) 業(yè) 計(jì)算機(jī)應(yīng)用（軟件） 年 級(jí) 2010級(jí) 學(xué)生姓名 王依明 指導(dǎo)教師 年 月 日-叮叮小文庫(kù)摘 要 信息管理系統(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)用程序功能完備、界面友好和容易掌握使用等特點(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),直至得到滿意的系統(tǒng)。關(guān) 鍵 字: 窗體； 域 ； 賓館管理系統(tǒng)-目 錄引 言1第一章 開(kāi)發(fā)賓館信息管理系統(tǒng)的意義11.1 系統(tǒng)目標(biāo)設(shè)計(jì)11.2 設(shè)計(jì)思想11.3 在中小企業(yè)（酒店賓館）中用計(jì)算機(jī)管理的意義11.4 賓館管理系統(tǒng)的設(shè)計(jì)分析11.5 編程環(huán)境的選擇1第二章 系統(tǒng)規(guī)劃及數(shù)據(jù)庫(kù)的實(shí)現(xiàn)22.1 系統(tǒng)總體規(guī)劃圖22.2 數(shù)據(jù)庫(kù)需求分析22.3 數(shù)據(jù)庫(kù)設(shè)計(jì)22.4 數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)22.5 使用ACCESS實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫(kù)3第三章 系統(tǒng)具體實(shí)現(xiàn)43.1 登陸系統(tǒng)模塊的創(chuàng)建43.2 系統(tǒng)管理模塊的創(chuàng)建53.3 用戶(hù)管理模塊的創(chuàng)建73.4 客房管理模塊的創(chuàng)建93.5 價(jià)格管理模塊的創(chuàng)建113.6 開(kāi)房結(jié)賬管理模塊的創(chuàng)建123.7 查詢(xún)信息管理模塊創(chuàng)建143.8 關(guān)于模塊的創(chuàng)建16結(jié) 論18致 謝19參考文獻(xiàn)20-引 言現(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)越多的商機(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)越不能滿足當(dāng)前賓館行業(yè)的發(fā)展。酒店業(yè)為適應(yīng)信息化時(shí)代對(duì)現(xiàn)代酒店的新要求，向客人提供更加方便、快捷、高效的服務(wù)，滿足各類(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)單的酒店管理系統(tǒng),下面是開(kāi)發(fā)過(guò)程與原理。第一章 開(kāi)發(fā)賓館信息管理系統(tǒng)的意義1.1 系統(tǒng)目標(biāo)設(shè)計(jì)系統(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)代化的酒店賓館的需要。1.2 設(shè)計(jì)思想系統(tǒng)著眼于賓館的當(dāng)前信息管理和未來(lái)的發(fā)展，是通過(guò)對(duì)賓館相關(guān)管理人員的咨詢(xún)和對(duì)他們需求報(bào)告中所列項(xiàng)目本著軟件工程的思想所編寫(xiě)的。我們所設(shè)計(jì)的系統(tǒng)將更加貼近于現(xiàn)代酒店的管理模式和管理風(fēng)格。1.3 在中小企業(yè)（酒店賓館）中用計(jì)算機(jī)管理的意義在中小企業(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ī)為基礎(chǔ)的信息管理所取代。改革開(kāi)放的總設(shè)計(jì)師鄧小平同志曾說(shuō)過(guò):“科學(xué)技術(shù)是第一生產(chǎn)力”。我希望能用我所學(xué)的知識(shí)編寫(xiě)一個(gè)應(yīng)用的程序幫助賓館管理人員進(jìn)行更有效的管理。1.4 賓館管理系統(tǒng)的設(shè)計(jì)分析賓館管理系統(tǒng)的設(shè)計(jì)分析 根據(jù)實(shí)際情況，我們使用原型法（Rapid Prototyping）即以少量代價(jià)快速地構(gòu)造一個(gè)可執(zhí)行的軟件系統(tǒng)模型。使用戶(hù)和開(kāi)發(fā)人員可以較快地確定需求，然后采用循環(huán)進(jìn)化的開(kāi)發(fā)方式，對(duì)系統(tǒng)模型作連續(xù)的精化，將系統(tǒng)需具備的性質(zhì)逐漸增加上去，直到所有的性質(zhì)全部滿足。此時(shí)模塊也發(fā)展成為最終產(chǎn)品了。1.5 編程環(huán)境的選擇編程環(huán)境的選擇 微軟公司的Visual Basic是Windows應(yīng)用程序開(kāi)發(fā)工具，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_(kāi)發(fā)工具。Visual Basic提供了大量的組件，這些組件可用于設(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ò)手段。第二章 系統(tǒng)規(guī)劃及數(shù)據(jù)庫(kù)的實(shí)現(xiàn)2.1系統(tǒng)總體規(guī)劃圖賓館管理系統(tǒng)系統(tǒng)查詢(xún)信息關(guān)于開(kāi)房結(jié)賬價(jià)格管理客房管理用戶(hù)管理密碼修改退出顧客信息查詢(xún)賬目查詢(xún)圖2-1 系統(tǒng)總體規(guī)劃圖2.2 數(shù)據(jù)庫(kù)需求分析數(shù)據(jù)庫(kù)需求分析用戶(hù)的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢(xún)等方面，這就要求數(shù)據(jù)庫(kù)結(jié)構(gòu)充分滿足各種信息的輸入和輸出。收集基本數(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ù)流程分析，設(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)目；修改一個(gè)數(shù)據(jù)庫(kù)項(xiàng)目；對(duì)數(shù)據(jù)信息的查詢(xún)。2.3 數(shù)據(jù)庫(kù)設(shè)計(jì)設(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ì)。2.4 數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)根據(jù)上面我所設(shè)計(jì)的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)以后，就可以設(shè)計(jì)出能夠滿足用戶(hù)需求的各種實(shí)體，以及他們的關(guān)系。根據(jù)上面所設(shè)計(jì)規(guī)劃出的實(shí)體有：客房標(biāo)準(zhǔn)信息實(shí)體、客房信息實(shí)體、入住信息實(shí)體、退房信息實(shí)體。2.5 使用ACCESS實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫(kù)創(chuàng)建任何一個(gè)數(shù)據(jù)庫(kù)的第一步是仔細(xì)的規(guī)劃數(shù)據(jù)庫(kù)，設(shè)計(jì)必須是靈活的、有邏輯的。創(chuàng)建一個(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)系數(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ò)程 第三章 系統(tǒng)具體實(shí)現(xiàn)3.1 登陸系統(tǒng)模塊的創(chuàng)建 登錄界面圖3-1 登陸界面 這一部分主要是通過(guò)對(duì)數(shù)據(jù)庫(kù)賓館管理系統(tǒng)中USER的查詢(xún) 因此而登陸到系統(tǒng)軟件當(dāng)中設(shè)計(jì)界面 如圖3-1登陸模塊主要功能有：用戶(hù)登錄下面是實(shí)現(xiàn)這些功能的代碼，寫(xiě)在“登錄”按鈕的單擊事件函數(shù)中：按鈕一的單擊事件Private Sub Command1_Click() 登錄窗口的實(shí)現(xiàn) Dim rs As ADODB.RecordsetIf Text2.Text = Then MsgBox 請(qǐng)輸入帳號(hào) Text2.SetFocusElseIf Text3.Text = Then MsgBox 請(qǐng)輸入密碼 Text3.SetFocusElse Set rs = Executesql(select * from user_info where user_id= & Text2.Text & and user_pwd= & Text3.Text & ) 連接數(shù)據(jù)庫(kù)，從數(shù)據(jù)庫(kù)中調(diào)取用戶(hù)信息 If rs.EOF = True Then MsgBox 賬戶(hù)或密碼錯(cuò)誤 提示密碼錯(cuò)誤，重新輸入密碼 Text2.SetFocus Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) Else MsgBox 登錄成功 username = Text2.Text 登錄成功后，文本恢復(fù)空 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所示 通過(guò)主界面進(jìn)入系統(tǒng)管理模塊，系統(tǒng)管理模塊總共分為兩個(gè)部分：密碼修改和退出。密碼修改，是通過(guò)軟件的代碼通過(guò)訪問(wèn)賓館管理系統(tǒng)數(shù)據(jù)庫(kù) 從而實(shí)現(xiàn)對(duì)系統(tǒng)用戶(hù)登陸的密碼修改 退出，通過(guò)代碼退出整個(gè)程序系統(tǒng)模塊的主要功能：更改用戶(hù)密碼 和退出整個(gè)程序設(shè)計(jì)頁(yè)面如圖3-3所示密碼修改下面是實(shí)現(xiàn)這些功能的主要代碼，寫(xiě)在“確認(rèn)”按鈕的單擊事件函數(shù)中：按鈕一的單擊事件Private Sub Command1_Click() 實(shí)現(xiàn)修改密碼If Text2.Text = Then MsgBox 請(qǐng)輸入原密碼 Text2.SetFocusElseIf Text3.Text = Then MsgBox 請(qǐng)輸入新密碼 Text3.SetFocusElseIf Text4.Text = Then MsgBox 請(qǐng)確認(rèn)新密碼 Text4.SetFocusElseIf Val(Text3.Text) Val(Text4.Text) Then MsgBox 重新輸入確認(rèn)密碼 Text4.SetFocus Text4.SelStart = 0 Text4.SelLength = Len(Text4.Text)Else Set rs = Executesql(select * from user_info where user_id= & username & )從數(shù)據(jù)庫(kù)中調(diào)取用戶(hù)名 If Text2 rs.Fields(1) Then 修改密碼 MsgBox 原密碼不正確 Else rs.Fields(1) = Text3 rs.Update MsgBox 修改成功 Text2 = Text3 = Text4 = End IfEnd IfEnd Sub3.3 用戶(hù)管理模塊的創(chuàng)建 圖3-4 用戶(hù)管理模塊如圖3-4所示 該模塊為用戶(hù)管理模塊，用于對(duì)系統(tǒng)用戶(hù) 添加修改 和刪除的一些應(yīng)用主要代碼如下：添加用戶(hù)按鈕一的單擊事件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按鈕二的單擊事件刪除用戶(hù)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按鈕四的單擊事件修改權(quán)限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所示 該模塊為客房管理模塊，主要功能為客房一些信息的添加修改、刪除、取消的功能實(shí)現(xiàn)其功能具體代碼如下：寫(xiě)在按鈕一的單擊事件里添加信息按鈕和文本的代碼與上面添加代碼一樣Set rs = Executesql(select * from room_info where room_no= & Text1 & ) If rs.EOF = False Then MsgBox 該房間信息已存在 Else rs.AddNew 更新數(shù)據(jù)庫(kù)代碼rs.UpdateMsgBox 添加成功Call wgfzCall hy寫(xiě)在按鈕二的單擊事件里修改信息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寫(xiě)在按鈕三的單擊事件里刪除信息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寫(xiě)在按鈕四的單擊事件里取消Unload Me3.5 價(jià)格管理模塊的創(chuàng)建圖3-6 價(jià)格管理模塊圖3-6 為價(jià)格管理模塊 實(shí)現(xiàn)其功能 管理房間的價(jià)格，添加、修改、刪除。實(shí)現(xiàn)其代碼如下：寫(xiě)在按鈕一的單擊事件添加信息與上面模塊添加代碼相同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寫(xiě)在按鈕二的單擊事件里修改信息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寫(xiě)在按鈕三的單擊事件里刪除信息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寫(xiě)在按鈕四的單擊事件里返回Unload Me3.6 開(kāi)房結(jié)賬管理模塊的創(chuàng)建圖3-7 開(kāi)房結(jié)賬模塊圖3-7 為開(kāi)放結(jié)賬管理模塊 實(shí)現(xiàn)其功能 開(kāi)房、結(jié)賬實(shí)現(xiàn)其代碼如下：鼠標(biāo)拖動(dòng)事件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寫(xiě)在按鈕二的單擊事件里開(kāi)房If Right(Source.Caption, 1) = 空 Then roomno = Trim(Left(Source.Caption, Len(Source.Caption) - 1) frmsetdown.Show 1End If寫(xiě)在按鈕三的單擊事件里結(jié)賬If Right(Source.Caption, 1) = 滿 Then roomno = Trim(Left(Source.Caption, Len(Source.Caption) - 1) frmbalance.Show 1End If3.7 查詢(xún)信息管理模塊創(chuàng)建圖3-8 顧客信息查詢(xún)模塊 圖3-9 賬目查詢(xún)模塊查詢(xún)模塊分為兩個(gè)部分（圖3-8和圖3-9），一是顧客信息查詢(xún)、二是賬目查詢(xún)，顧客信息起主要功能是查詢(xún)顧客的一些信息，可以按照姓名、身份證號(hào)、入住日期進(jìn)行查詢(xún)，而賬目查詢(xún)主要是管理者對(duì)賬目的查詢(xún)，可以通過(guò)日期進(jìn)行查詢(xún)實(shí)現(xiàn)其功能的主要代碼如下：寫(xiě)在按鈕一的單擊事件里顧客信息查詢(xún)If Option1.Value = True Then If Text1 = Then MsgBox 填寫(xiě)查找顧客的姓名 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 請(qǐng)選擇要查找顧客的日期范圍 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寫(xiě)在按鈕二的單擊事件里賬目查詢(xún)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 關(guān)于模塊的創(chuàng)建圖3-10 關(guān)于模塊關(guān)于模塊（圖3-10）的創(chuàng)建其主要