【正文】 39。刷新數(shù)據(jù) 39。編輯住宿登記預(yù)收信息 …… MsgBox 請(qǐng)?zhí)顚懲暾臄?shù)據(jù),再保存!, , 系統(tǒng)提示 39。如果憑證號(hào)碼為空或追加押金為空，提示消息 End IfEnd Sub系統(tǒng)維護(hù)模塊包括子模塊數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)和初始化。數(shù)據(jù)備份模塊，可以將系統(tǒng)的所有數(shù)據(jù)庫(kù)內(nèi)容都備份到指定的備份文件夾中。： 數(shù)據(jù)備份界面Fig. surface of Data backup部分代碼如下：Private Sub Command1_Click() A = MsgBox(確定備份數(shù)據(jù)？, 4, 系統(tǒng)提示) If A = vbYes Then = False = True = UBound(workarea) = For Counter = LBound(workarea) To UBound(workarea) workarea(Counter) = initial value amp。 Counter = Counter Open str1 For Binary As 1 Open str2 For Binary As 2 Do While Not EOF(1) Get 1, , char Put 2, , char Loop Close Next Counter = MsgBox 數(shù)據(jù)庫(kù)備份成功！, , 系統(tǒng)提示 = True End IfEnd Sub數(shù)據(jù)恢復(fù)模塊，可以將備份文件夾中的數(shù)據(jù)庫(kù)內(nèi)容恢復(fù)到原來(lái)的數(shù)據(jù)庫(kù)中。： 數(shù)據(jù)恢復(fù)界面Fig. The surface of Data recovery主要代碼如下：Private Sub Command1_Click() A = MsgBox(確認(rèn)恢復(fù)數(shù)據(jù)庫(kù)？, 4, 系統(tǒng)提示) If A = vbYes Then = False = True 39。ProgressBar 控件通過(guò)從左到右用一些方塊填充矩形來(lái)表示一個(gè)較長(zhǎng)操作的進(jìn)度。 = UBound(workarea) = For Counter = LBound(workarea) To UBound(workarea) 39。LBound 函數(shù)返回一個(gè) Long 型數(shù)據(jù)，其值為指定數(shù)組維可用的最小下標(biāo)。 39。UBound 函數(shù)返回一個(gè) Long 型數(shù)據(jù)，其值為指定的數(shù)組維可用的最大下標(biāo)。 workarea(Counter) = initial value amp。 Counter = Counter Open str1 For Binary As 1 Open str2 For Binary As 2 Do While Not EOF(1) Get 1, , char Put 2, , char Loop Close Next Counter = MsgBox 數(shù)據(jù)庫(kù)恢復(fù)成功！, , 系統(tǒng)提示 = True End IfEnd Sub初始化模塊，對(duì)系統(tǒng)數(shù)據(jù)進(jìn)行初始化即刪除數(shù)據(jù)庫(kù)中的數(shù)據(jù)，用戶在使用本系統(tǒng)之前，需要先對(duì)本系統(tǒng)進(jìn)行初始化操作，但是在使用過(guò)程中則要謹(jǐn)慎初始化，因?yàn)閳?zhí)行初始化后原有的數(shù)據(jù)將被刪除。： 初始化界面Fig. The surface of Data initialization主要代碼如下：Private Sub creat_Click() 39。清空選定表中的數(shù)據(jù) A = MsgBox(確認(rèn)初始化該數(shù)據(jù)？, 4, 系統(tǒng)提示) If A = vbYes Then …… If = 1 Then sql = delete * from tb_tfd Set rs = ESQL(sql) 39。調(diào)用模塊中的自定義函數(shù) End If If = 1 Then = select * from tb_kf where 房態(tài) =39。入住 39。ADO Data 控件ADO Data 控件與內(nèi)部 Data 控件以及 Remote Data控件 (RDC) 相似。ADO Data 控件使您能使用 Microsoft ActiveX Data Objects (ADO) 快速地創(chuàng)建一個(gè)到數(shù)據(jù)庫(kù)的連接。 If 0 Then …… MsgBox 初始化完成!, , 系統(tǒng)提示 = False = End Sub結(jié)束語(yǔ)全文研究了小型酒店管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)，該系統(tǒng)是運(yùn)用Microsoft Office Access2003數(shù)據(jù)庫(kù)系統(tǒng)和Visual Basic編程語(yǔ)言開發(fā)實(shí)現(xiàn)的。根據(jù)酒店行業(yè)的現(xiàn)實(shí)狀況和發(fā)展，該系統(tǒng)具有實(shí)現(xiàn)多點(diǎn)操作的信息共享，相互之間的信息傳遞準(zhǔn)確、快捷和順暢，服務(wù)管理信息化，可隨時(shí)掌握客人住宿、客房狀態(tài)等情況，系統(tǒng)界面友好美觀，操作簡(jiǎn)單易行，查詢靈活方便，數(shù)據(jù)存儲(chǔ)安全。通過(guò)該系統(tǒng)的實(shí)施，可逐步提高酒店的管理水平，提升員工的素質(zhì)。系統(tǒng)維護(hù)方便可靠，有較高的安全性，滿足實(shí)用性的要求。在這次做畢業(yè)設(shè)計(jì)的過(guò)程中我學(xué)到了很多。從一開始的設(shè)計(jì)選題到論文的最終截稿，我親身感受到了要做好一個(gè)畢業(yè)設(shè)計(jì)其中的知識(shí)含量光靠我們?cè)鹊膶W(xué)習(xí)是不夠的，因此，我查閱了許多與該選題相關(guān)的文獻(xiàn)并且通過(guò)互聯(lián)網(wǎng)也查詢了該選題的發(fā)展情況，但由于我的能力有限本系統(tǒng)在功能設(shè)計(jì)方面還是有些不足之處，比如在設(shè)計(jì)模塊中的功能就設(shè)計(jì)得較為單一，還有就是在信息排版方面做得還不夠。但是通過(guò)這次的實(shí)踐我自身的能力確實(shí)得到了一定程度的提升，同時(shí)也了解了寫論文的格式，所以說(shuō)這次的經(jīng)驗(yàn)是很值得我牢記于心的。致謝在這里，首先感謝我的指導(dǎo)老師周培春老師。從我的論文選題到論文的撰寫完成，周老師細(xì)心、嚴(yán)謹(jǐn)?shù)囊蠛椭笇?dǎo)，給了我非常大的幫助與支持。我還要感謝我的同學(xué)們給我的幫助和指導(dǎo)，使我能較好的掌握相關(guān)的開發(fā)技術(shù)上，這是我完成本次畢業(yè)設(shè)計(jì)和畢業(yè)論文的保障。 參考文獻(xiàn)[1] 劉韜,駱娟, Basic數(shù)據(jù)庫(kù)系統(tǒng)開發(fā)實(shí)例導(dǎo)航[M].北京:人民郵電出版社,2003[2] 張玲,劉玉玫. Access數(shù)據(jù)庫(kù)技術(shù)實(shí)訓(xùn)教程.[M].北京:清華大學(xué)出版社,2008 [3] 薩師煊,王珊. 數(shù)據(jù)庫(kù)系統(tǒng)概論[M]. 北京:高等教育出版社,1983 [4] 李敏業(yè), Basic +Access數(shù)據(jù)庫(kù)應(yīng)用實(shí)例完全解析[M].北京:人民郵電出版社,2006[5] 譚浩強(qiáng). Visual basic 中文版.[M].北京:清華大學(xué)出版社,1998[6] 沈煒, Basic 編程從基礎(chǔ)到實(shí)踐.[M].北京:電子工業(yè)出版社,2008[7] 彭波. Visual Basic編程技術(shù)全接觸.[M].北京:清華大學(xué)出版社,2008[8] 白曉勇,余健等. Visual Basic課程設(shè)計(jì)案例精編.[M].北京:清華大學(xué)出版社,2007[9] 陳紫紅,安劍, Basic項(xiàng)目開發(fā)全程實(shí)錄[M].北京:高等教育出版社,2002[10] 匡松, Basic程序設(shè)計(jì)及應(yīng)用.[M].北京:清華大學(xué)出版社,2008[11] 劉彬彬. Visual Basic項(xiàng)目開發(fā)實(shí)例自學(xué)手冊(cè).[M].北京:人民郵電出版社,2008[12] 安劍,孫秀梅. Visual Basic數(shù)據(jù)庫(kù)系統(tǒng)開發(fā)自學(xué)手冊(cè).[M].北京:人民郵電出版社,2008[13] 張瀚文,齊錦剛. Visual Basic數(shù)據(jù)庫(kù)開發(fā)開發(fā)與解析.[M].北京:高等教育出版社,2003[14] 劉彬彬. Visual Basic控件參考大全.[M].北京:人民郵電出版社,2008[15] 劉韜, Basic數(shù)據(jù)通用模塊及典型系統(tǒng)開發(fā)實(shí)例導(dǎo)航.[M].北京:人民郵電出版社,2008[16] 李春葆,曾平編. Access數(shù)據(jù)庫(kù)程序設(shè)計(jì).[M].北京:清華大學(xué)出版社,2005