【正文】 息服務。店內(nèi)裝潢、客房數(shù)量、房間設(shè)施等質(zhì)量競爭和價格競爭將退居二線。Visual Basic提供了大量的控件，這些控件可用于設(shè)計界面和實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計過程，從而有效的提高了應用程序的運行效率和可靠性。它提供了編程語言和統(tǒng)一數(shù)據(jù)訪問方式OLEDB的一個中間層。Visual Basic的中心思想就是便于程序員使用，無論是新手還是專家，都能輕松上手并很快掌握它。Visual Basic提供的圖形用戶界面和快速應用程序開發(fā)系統(tǒng)，使程序員可以輕松使用Visual Basic提供的各種功能的組件快速搭建一個應用程序。3支持多種數(shù)據(jù)庫訪問機制。 另一種通過Vtable (虛擬函數(shù)表) 向使用指針的語言提供接口(如C ++ ) ,可實現(xiàn)與各種數(shù)據(jù)庫的連接. ADO 包含了DAO(Data Access Object) 和RDO (Remote Data Object) 所有的功能,并且又增加了新的功能,是DAO 和RDO 具有速度高、對象層次簡單、低開銷、低磁盤空間等優(yōu)點,是當前基于對象的最好的數(shù)據(jù)庫接口.硬件環(huán)境：CPU：Intel P4 、內(nèi)存：64MB以上、硬盤：1G以上、顯卡：32MB顯存以上、光驅(qū)：52X CD—ROM（或DVD—ROM）軟件環(huán)境：Windows9X或者更高版本的操作系統(tǒng)、Microsoft Access 2000以上數(shù)據(jù)庫、Microsoft Basic ?？尚行匝芯康哪康木褪怯米钚〉拇鷥r在盡可能短的時間內(nèi)確定問題是否能夠解決。微軟公司的Office Access2003數(shù)據(jù)庫系統(tǒng)，適用于小型的系統(tǒng)開發(fā)，用于存儲和管理系統(tǒng)所需要的數(shù)據(jù)。使用本小型酒店管理系統(tǒng)可提高酒店客房管理水平，把大量繁瑣工作簡單化，能夠有效地節(jié)省人力物力，并能夠準確地進行統(tǒng)計和計算，避免人工統(tǒng)計或計算所帶來的差錯，保證酒店管理高效而有序地進行。隨著信息技術(shù)的發(fā)展和外務對酒店的要求越來越高，該酒店已明顯覺得手工管理已不能適應當前酒店高速發(fā)展的需要。系統(tǒng)啟動后進入屏幕展示窗體可以大致了解本系統(tǒng)的開發(fā)環(huán)境和數(shù)據(jù)庫情況等。具體系統(tǒng)的流程圖如下所示：小型酒店管理系統(tǒng)主界面登錄操作員登錄系統(tǒng)維護住宿管理住宿登記調(diào)房登記退房登記數(shù)據(jù)備份追加押金數(shù)據(jù)恢復客房管理查詢統(tǒng)計系統(tǒng)設(shè)置客戶設(shè)置客房查詢住宿查詢退宿查詢宿費提醒操作員設(shè)置密碼設(shè)置重新登錄設(shè)置主窗口圖像初使化權(quán)限設(shè)置 系統(tǒng)操作流程 The flow of system operation3系統(tǒng)結(jié)構(gòu)分析和設(shè)計在開發(fā)小型酒店管理系統(tǒng)時，對客戶的信息的管理必不可少，通過對系統(tǒng)進行的需求分析、業(yè)務流程設(shè)計以及系統(tǒng)功能結(jié)構(gòu)的確定，規(guī)劃出系統(tǒng)中使用的數(shù)據(jù)庫實體對象及實體ER圖。Access數(shù)據(jù)庫以文件形式保存，文件的擴展名是MDB。查詢(Query)可以按索引快速查找到需要的記錄，按要求篩選記錄并能連接若干個表的字段組成新表。報表(Report) 的功能是將數(shù)據(jù)庫中的數(shù)據(jù)分類匯總，然后打印出來，以便分析。在本系統(tǒng)中新建一個Module模塊，此模塊主要用于共享數(shù)據(jù)庫邊接。Public Sub Main() 39。 \。定義記錄集 Set n = New 39。Data Source= amp。： Login form dialog box其中“確定”與“取消”按扭。驗證操作員及密碼 If 0 Then 39。在程序主窗體中通過選擇菜單命令或單擊工具欄中的按鈕，可調(diào)用相應程序窗體或進行相應操作；可根據(jù)操作員不同，確定操作員的相應權(quán)限，在主窗體狀態(tài)欄中顯示了系統(tǒng)時間和當前系統(tǒng)操作員。使用Button對象的Key屬性標識被單擊的按鈕。調(diào)入退宿結(jié)賬 Case CX zscx_Click 39。部分代碼如下：Private Sub sjbf_Click() 39。在住宿登記模塊中能夠自動生成住宿登記憑證號碼，提供空閑房間供用戶選擇，實現(xiàn)客人住宿登記，收取客人預交宿費，實際宿費、宿費提醒時間、退宿時間、打印住宿登記單據(jù)。自動生成登記憑證號碼的主要代碼發(fā)下： = Provider=。Persist Security Info=False = select * from tb_djb order by 憑證號碼 39。 Format(1, 000) 39。把lsph中的月份賦給y2 If = Then 39。為憑證號碼文本框賦值 = Val(Right(, 3)) + 1 39。 Format(1, 000) 39。打印住宿登記單據(jù) = 8000: = 8000 39。打印文字 Dim A, B, C, d As Integer 39。設(shè)置打印橫坐標 = B + 200 39。 NO. amp。打印一條直線 = 100 + A = B + 200 操作員: amp。在調(diào)房登記模塊中選擇客人入住的房間號和空閑房間號，實現(xiàn)調(diào)房登記，系統(tǒng)只允許調(diào)換等價客房。如果Combo3不為空…… End If 39。結(jié)束with快 End If End If = True 39。： 追加押金窗體界面Fig. Additional Deposit form interface在窗體的A事件中，主要實現(xiàn)查詢數(shù)據(jù)表中住宿客人信息，對“憑證號碼”列表框賦值。139。循環(huán)從1到記錄數(shù)值 (憑證號碼).Value 39。保存追加押金信息 If And Then 39。編輯住宿登記預收信息 …… MsgBox 請?zhí)顚懲暾臄?shù)據(jù),再保存!, , 系統(tǒng)提示 39。 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數(shù)據(jù)恢復模塊，可以將備份文件夾中的數(shù)據(jù)庫內(nèi)容恢復到原來的數(shù)據(jù)庫中。LBound 函數(shù)返回一個 Long 型數(shù)據(jù)，其值為指定數(shù)組維可用的最小下標。 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初始化模塊，對系統(tǒng)數(shù)據(jù)進行初始化即刪除數(shù)據(jù)庫中的數(shù)據(jù)，用戶在使用本系統(tǒng)之前，需要先對本系統(tǒng)進行初始化操作，但是在使用過程中則要謹慎初始化，因為執(zhí)行初始化后原有的數(shù)據(jù)將被刪除。入住 39。根據(jù)酒店行業(yè)的現(xiàn)實狀況和發(fā)展，該系統(tǒng)具有實現(xiàn)多點操作的信息共享，相互之間的信息傳遞準確、快捷和順暢，服務管理信息化，可隨時掌握客人住宿、客房狀態(tài)等情況，系統(tǒng)界面友好美觀，操作簡單易行，查詢靈活方便，數(shù)據(jù)存儲安全。從一開始的設(shè)計選題到論文的最終截稿，我親身感受到了要做好一個畢業(yè)設(shè)計其中的知識含量光靠我們原先的學習是不夠的，因此，我查閱了許多與該選題相關(guān)的文獻并且通過互聯(lián)網(wǎng)也查詢了該選題的發(fā)展情況，但由于我的能力有限本系統(tǒng)在功能設(shè)計方面還是有些不足之處，比如在設(shè)計模塊中的功能就設(shè)計得較為單一，還有就是在信息排版方面做得還不夠。我還要感謝我的同學們給我的幫助和指導，使我能較好的掌握相關(guān)的開發(fā)技術(shù)上，這是我完成本次畢業(yè)設(shè)計和畢業(yè)論文的保障。致謝在這里，首先感謝我的指導老師周培春老師。系統(tǒng)維護方便可靠，有較高的安全性，滿足實用性的要求。ADO Data 控件使您能使用 Microsoft ActiveX Data Objects (ADO) 快速地創(chuàng)建一個到數(shù)據(jù)庫的連接。清空選定表中的數(shù)據(jù)