【正文】 A = MsgBox(確認初始化該數(shù)據(jù)？, 4, 系統(tǒng)提示) If A = vbYes Then …… If = 1 Then sql = delete * from tb_tfd Set rs = ESQL(sql) 39。UBound 函數(shù)返回一個 Long 型數(shù)據(jù)，其值為指定的數(shù)組維可用的最大下標。ProgressBar 控件通過從左到右用一些方塊填充矩形來表示一個較長操作的進度。數(shù)據(jù)備份模塊，可以將系統(tǒng)的所有數(shù)據(jù)庫內(nèi)容都備份到指定的備份文件夾中。把已收押金和追加押金的和賦給預收金額字段 …… 39。記錄下移 Next i End IfEnd Sub在追加押金模塊中單擊“確定”按扭，將把追加押金信息保存在數(shù)據(jù)表中，自動計算新的提醒日期，并設定其他控件的有效和無效。刷新記錄 If 0 Then 39。顯示當前操作員 39。Texbz可用 End IfEnd Sub在主窗體中，選擇住宿管理菜單下的追加押金項，將進入追加押金模塊。with快 If .Fields(憑證號碼) Then = .Fields(憑證號碼) 39。主要代碼如下Private Sub Combo3_Click() 39。 歡迎光臨 39。打印日期、時間和憑證號碼 B = B + d 39。 amp。為變量賦值 = 10 39。設置打印位置 = 12 39。主要代碼如下：Private Sub print_Click() On Error GoTo 1 39。如果y1文本框中內(nèi)容與y2不同 = Fdate amp。 d amp。當lsph值不空時 = Month(Fdate) 39。移動記錄集到最后一條記錄 If = Then = Fdate amp。 amp。 打開住宿登記模塊，單擊“登記”按鈕，開始進行住宿登記。數(shù)據(jù)恢復End Sub……Private Sub ma_Click() 39。調(diào)入提醒 Case CXDL 39。代碼如下：Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case DJ zsdj_Click 39。同時在主窗體和添加一個Toolbar控件，作為工具欄。驗證密碼 Load Main Unload Me Else If (密碼) Then MsgBox 密碼錯誤,請重新輸入！, vbCritical, 系統(tǒng)提示 itimes = itimes + 1 = End If End If Else MsgBox 操作員不存在,請重新輸入！, vbCritical, 系統(tǒng)提示 itimes = itimes + 1 = = End If If itimes = 3 Then 39。 + + 39。 \。打開連接 Set rs = New Trim(sql), n, adOpenKeyset, adLockOptimistic Set ESQL = rsEnd FunctionPublic Function StrCnn() 39。定義函數(shù) Dim n As 39。Data Source= amp。公共模塊代碼如下：Public adocon As New 39。模塊(Module) 的功能與宏類似，但它定義的操作比宏更精細和復雜，用戶可以根據(jù)自己的需要編寫程序。還可以創(chuàng)建子窗體顯示相關聯(lián)的表的內(nèi)容。表(Table)是數(shù)據(jù)庫的基本對象，是創(chuàng)建其他5種對象的基礎。關系式數(shù)據(jù)庫由一系列表組成，表又由一系列行和列組成，每一行是一個記錄，每一列是一個字段，每個字段有一個字段名，字段名在一個表中不能重復。不同的用戶對系統(tǒng)具有不同的管理權限。根據(jù)以上的分析。因此系統(tǒng)的開發(fā)是完全可行的。因此，系統(tǒng)的軟件開發(fā)平臺已成熟可行。在開發(fā)技術方面，酒店管理系統(tǒng)開發(fā)技術非常成熟，開發(fā)工具很多。系統(tǒng)分析是解決目標系統(tǒng)“做什么”的問題，本章首先確定了系統(tǒng)所要達到的功能需求，然后將需求進一步細化轉成業(yè)務需求，并對業(yè)務需求進行詳細分析，解決了系統(tǒng)“做什么”的具體內(nèi)容。利用其提供的ADO訪問機制和ODBC數(shù)據(jù)庫連接機制，可以訪問多種數(shù)據(jù)庫，如Access、SQL Server等。雖然Visual Basic易于使用，但這并不表明Visual Basic的功能薄弱，使用Visual Basic不僅可以開發(fā)簡單的應用程序，還可以編寫出商業(yè)級的客戶端/服務器程序，以及強大的數(shù)據(jù)庫應用程序。用戶僅僅通過鼠標的簡單操作就可以構建出一個復雜的軟件圖形界面。此外，借助COM/COM+強大的功能，使用Visual Basic可以輕松地開發(fā)多層結構的分布式應用程序以及高效的Web應用程序。微軟公司在Visual Basic （ActiveX Data Objects）。對于酒店而言，信息化是一個工具，是一種手段，是一種服務，服務水平的好壞直接影響酒店的經(jīng)濟效益和競爭力。然而，倘若服務的責任落到酒店自身頭上，酒店能應付的了嗎？由于服務不到位，使系統(tǒng)不能充分發(fā)揮作用的已屢見不鮮，由誰來為酒店提供信息服務是一個值得商榷的問題。三、服務不到位問題。二、行業(yè)問題。應該看到，對于一、二星級甚至部分三星級酒店來說，信息環(huán)境的建設和應用還處在起步階段，即使是五星級的酒店，信息化管理的進程與客戶對酒店的需求也有相當?shù)木嚯x。因此，采用全新的計算機酒店管理系統(tǒng)，已成為提高酒店管理效率、改善服務水平的重要手段之一。作為提供多功能服務的綜合場所，吸引顧客是酒店生存的重要條件。作為一有效的統(tǒng)計分析手段，計算機管理系統(tǒng)具有明顯的優(yōu)勢，它在數(shù)據(jù)保存、數(shù)據(jù)交換等方面均能夠做到快速可靠，是手工操作所不能完成的。 VB。 VB。小型酒店管理系統(tǒng)要實現(xiàn)住宿登記、宿費提醒、追加押金、調(diào)房登記、退房結賬、查詢統(tǒng)計等等功能。系統(tǒng)數(shù)據(jù)的管理采用了操作系統(tǒng)的最新管理方式，用戶操作將會更簡單、更直觀、更方便。指導教師單位 數(shù)學與計算機科學系 數(shù)學與計算機科學系 指導教師姓名 周培春 指導教師職稱 講師 小型酒店管理系統(tǒng)的設計與開發(fā)計算機科學與技術2008級專升本 劉 芳指導教師 周培春摘要當今社會，酒店種類和客流的不斷增加，對于管理造成了困難。本系統(tǒng)是用于小型酒店服管理的系統(tǒng)軟件。該系統(tǒng)應充分利用信息技術提高小型酒店客房的管理水平、服務水平。關鍵詞：酒店管理系統(tǒng)。Key words: Hotel management system。酒店行業(yè)的激烈競爭似的爭取客源、提高酒店滿員率、制定正確營銷策略已經(jīng)成為一項重要的任務，而借助于當前蓬勃發(fā)展的IT工具來拓展銷售能力，創(chuàng)造客觀的經(jīng)濟效益已經(jīng)成為許多酒店的首選。如何在激烈的市場競爭中生存和發(fā)展，是第一個酒店必須面臨的問題。計算機的智能化管理技術可以極大限度地提高服務管理水平，進行準確、快捷和高效的管理。計算機在酒店中的普及和應用，新的技術平臺、新的技術特點不斷涌現(xiàn)，適合國內(nèi)特點的信息系統(tǒng)慢慢進入酒店，使得酒店管理系統(tǒng)進入了一個新的發(fā)展時期。大多數(shù)酒店經(jīng)營者認為酒店屬于傳統(tǒng)的服務行業(yè)，主要是靠出租客房和床位來創(chuàng)收，通常沒把投資信息化與投資房間內(nèi)的設施（如增添浴缸或沙發(fā)）的投資回報等同看待，沒有把信息化建設與影響和改善酒店的經(jīng)營、管理效率等方面的功效掛起鉤來，沒有把信息化的價值融入酒店自身價值鏈在競爭中發(fā)揮的作用掛起鉤來。糾其原因，主要表現(xiàn)在：技術功能與酒店需求錯位，目前的管理系統(tǒng)很多不能解決酒店面臨的關鍵問題；管理決策層沒有整體的規(guī)劃，讓開發(fā)商牽著鼻子走；供應商和酒店沒有利益上的一致性。IT公司負責策劃和實施，但通常不承擔日后的服務，因為他們是IT公司不屬于服務行業(yè)。酒店信息化的發(fā)展趨勢主要分為三大應用領域：一是為酒店的管理者、決策者提供及時、準確地掌握酒店經(jīng)營各個環(huán)節(jié)情況的信息技術；二是針對酒店的經(jīng)營，為節(jié)省運營成本、提高運營質(zhì)量和管理效率的信息化管理和控制技術；三是直接面對顧客所提供的信息化服務。故而，實現(xiàn)本系統(tǒng)VB是一個