【正文】 e: = False: = False = True: : = False If 0 Then () End IfEnd Sub打印代碼如下：Private Sub print_Click() 39。打印退宿信息 On Error GoTo 1 = 7000: = 12000 = 4000: = 800 = 16 旺隆酒店客房退宿結(jié)賬單 Dim A, B, C, d As Integer A = 360: B = 1100: C = 3800: d = 350 = 10 = 100 + A = B + 200 Date amp。 amp。 Time amp。 NO. amp。 B = B + d (60 + A, B + 100)(11000 + A, B + 100) = 100 + A = B + 200 姓名： amp。 B = B + d = 100 + A = B + 200 房間號(hào): amp。 B = B + d = 100 + A = B + 200 房價(jià): amp。 Format(, ) amp。 元 amp。 amp。 入住天數(shù): amp。 amp。 天 amp。 宿費(fèi) amp。 Format(, ) amp。 元 amp。 amp。 : amp。 amp。 % If 0 Then B = B + d = 100 + A = B + 200 電話費(fèi): amp。 Format(, ) amp。 元 End If If 0 Then B = B + d = 100 + A = B + 200 雜費(fèi): amp。 Format(, ) amp。 元 End If If 0 Then B = B + d = 100 + A = B + 200 會(huì)議費(fèi): amp。 Format(, ) amp。 元 End If If 0 Then B = B + d = 100 + A = B + 200 停車費(fèi): amp。 Format(, ) amp。 元 End If If 0 Then B = B + d = 100 + A = B + 200 賠償費(fèi): amp。 Format(, ) amp。 元 End If B = B + d = 100 + A = B + 200 實(shí)收金額: amp。 Format(, ) amp。 元 amp。 押金: amp。 Format(, ) amp。 元 amp。 退還金額: amp。 Format(, ) amp。 元 B = B + d = 100 + A = B + 200 備注: amp。 B = B + d (60 + A, B + 100)(11000 + A, B + 100) = 400 = B + 200 日期: 。 Date amp。 amp。 Time = 3000 + A = B + 200 操作員: amp。 = 6000 + A = B + 200 顧客簽名: 簽章: Exit Sub1 If = 482 Then MsgBox 請(qǐng)連接打印機(jī), , 系統(tǒng)提示 End IfEnd Sub(1) 數(shù)據(jù)備份時(shí)如下圖：數(shù)據(jù)備份的命令代碼如下：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ù)庫備份成功！, , 系統(tǒng)提示 = True End IfEnd Sub(2) 數(shù)據(jù)的恢復(fù)如下圖：關(guān)于恢復(fù)部分代碼如下：Private Sub Command1_Click() A = MsgBox(確認(rèn)恢復(fù)數(shù)據(jù)庫？, 4, 系統(tǒng)提示) If A = vbYes Then = False = True 39。ProgressBar 控件通過從左到右用一些方塊填充矩形來表示一個(gè)較長操作的進(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ù)庫恢復(fù)成功！, , 系統(tǒng)提示 = True End IfEnd Sub第六章 系統(tǒng)測試 背景經(jīng)過一個(gè)月的開發(fā)，主程序已經(jīng)收尾，主要功能基本實(shí)現(xiàn)，但是由于時(shí)間倉促，出現(xiàn)了不可避免的錯(cuò)誤，于是就進(jìn)入了系統(tǒng)測試階段。由于工作原因系統(tǒng)不可能沒有錯(cuò)誤，為了保證系統(tǒng)質(zhì)量，為了使系統(tǒng)和用戶需求無誤，最有效的方法就是進(jìn)行軟件測試，為了使測試有條不紊的進(jìn)行，我制訂了測試計(jì)劃。(1) 準(zhǔn)確性：系統(tǒng)的每個(gè)模塊的功能是否與文檔一致(2) 質(zhì)量：檢查模塊的功能、性能、要求是否符合相關(guān)文檔的技術(shù)要求，不合格者糾正錯(cuò)誤，保證質(zhì)量。資料準(zhǔn)備：可行性研究報(bào)告，需求規(guī)格說明書，測試文檔。(1) 主界面測試(2) 住宿管理管理測試(3) 客房管理測試(4) 掛賬管理測試(5) 查詢統(tǒng)計(jì)測試(6) 日結(jié)測試(7) 服務(wù)測試(8) 系統(tǒng)設(shè)置測試(9) 系統(tǒng)維護(hù)測試7項(xiàng)測試共用了3天詳細(xì)見圖表如下：第一天“主界面”測試“住宿管理”測試“客房管理”測試第二天“掛帳管理”測試“查詢統(tǒng)計(jì)”測試 “日結(jié)”測試第三天“系統(tǒng)設(shè)置”測試經(jīng)過三天的精心測試，檢測工作已完成，我發(fā)現(xiàn)了一些錯(cuò)誤并改正了，保證了軟件的完善性、正確性，到目前為止，我并沒有發(fā)現(xiàn)邏輯上的錯(cuò)誤，因此，我的軟件開發(fā)是成功的、有效的，實(shí)現(xiàn)了當(dāng)初設(shè)想的全部目標(biāo)。下圖是測試結(jié)果一覽表“測試名稱測試結(jié)果問題所在“主界面”測試與系統(tǒng)目標(biāo)相符“住宿管理”測試該部分基本能實(shí)現(xiàn)系統(tǒng)的目標(biāo)，對(duì)提示信息作了修改?！翱头抗芾怼睖y試該部分能夠?qū)崿F(xiàn)信函、行文、報(bào)表、投訴等功能，與系統(tǒng)目標(biāo)相符?！皰鞄す芾怼睖y試不能實(shí)現(xiàn)提案記錄的添加，現(xiàn)已改正源代碼書寫錯(cuò)誤“查詢統(tǒng)計(jì)”測試與系統(tǒng)目標(biāo)相符?！叭战Y(jié)”測試與系統(tǒng)目標(biāo)相符?！跋到y(tǒng)設(shè)置”測試與系統(tǒng)目標(biāo)相符。第七章 總結(jié)本系統(tǒng)可以正常的登記和計(jì)算客房銷售數(shù)量，并且可以保存銷售記錄?？梢蕴峁╊A(yù)定登記和剩余空房數(shù)的查詢。在結(jié)賬時(shí)還可以根據(jù)具體情況進(jìn)行核算優(yōu)惠金額。本系統(tǒng)適合小型客房管理，不適合過去復(fù)雜的客房管理。通過這次畢業(yè)設(shè)計(jì)，使我獲得了學(xué)習(xí)專業(yè)知識(shí)、分析問題并解決問題的能力，在提高技能的同時(shí)更加深刻的學(xué)習(xí)了Visual Basic ACCESSd等的相關(guān)技術(shù)，以及對(duì)photoshop、access 。過程中遇到了各種各樣的問題，通過詢問同學(xué)，尋求老師的幫組以及利用互聯(lián)網(wǎng)等方式讓我解決了一個(gè)有一個(gè)難題。在遇到問題時(shí)，更發(fā)現(xiàn)了自己的基礎(chǔ)知識(shí)薄弱，感受到了學(xué)習(xí)和團(tuán)結(jié)合作的重要性第八章 參考文獻(xiàn)(1) 龔沛曾.《Visual Basic程序設(shè)計(jì)教程》.高等教育出版社, 2005(2) 羅超理.《管理信息系統(tǒng)原理與應(yīng)用》.清華大學(xué)出版社，2002(3) 甘 初.《》.2001(4) 陳光軍 張秀芝《ACCESS 2003 實(shí)驗(yàn)案例教程》清華大學(xué)