小型酒店管理系統(tǒng)的設計與開發(fā)畢業(yè)論文

1、玉林師范學院本科生畢業(yè)論文（設計）小型酒店管理系統(tǒng)的設計與開發(fā)The design and develop of the Small Hotel Management System院 系 數(shù)學與計算機科學系 專 業(yè) 計算機科學與技術(shù)班 級 2008級（專升本） 姓 名 劉 芳 學 號 200804202101   指導教師單位 數(shù)學與計算機科學系 數(shù)學與計算機科學系 指導教師姓名 周培春 指導教師職稱 講師 小型酒店管理系統(tǒng)的設計與開發(fā)計算機科學與技術(shù)2008級專升本 劉 芳指導教師 周培春摘要當今社會，酒店種類和客流的不斷增加，對于管理造成了困難。采用計算機來管理酒店和住

2、客的信息，提高了查詢的速度，節(jié)約了人力和物力資源，達到了預期的要求。本系統(tǒng)根據(jù)小型酒店管理的現(xiàn)狀及未來的發(fā)展方向，結(jié)合有關(guān)小型酒店管理當中的管理學實踐，設計了小型酒店管理系統(tǒng)。本系統(tǒng)是用于小型酒店服管理的系統(tǒng)軟件。系統(tǒng)數(shù)據(jù)的管理采用了操作系統(tǒng)的最新管理方式，用戶操作將會更簡單、更直觀、更方便。系統(tǒng)中各業(yè)務管理模塊可以單機獨立運行。使用本系統(tǒng)，可以大幅度提高酒店服務管理的工作效率。該系統(tǒng)應充分利用信息技術(shù)提高小型酒店客房的管理水平、服務水平。小型酒店管理系統(tǒng)要實現(xiàn)住宿登記、宿費提醒、追加押金、調(diào)房登記、退房結(jié)賬、查詢統(tǒng)計等等功能。其中宿費提醒可以在住宿費超過押金時預警，提示前臺要客人補交押金，該

3、功能可明顯提高對住宿人員宿費的有效管理。將動態(tài)實時的住宿登記、客房調(diào)整、追加押金等有機地聯(lián)系在一起，對小型酒店客房進行全方位的管理。關(guān)鍵詞：酒店管理系統(tǒng); VB; ACCESS 2003; 數(shù)據(jù)庫 The design of the Small Hotel Management SystemComputer Science and Technology 2008-2008 liu FangSupervisor: Zhou PeichunAbstractAt present, the small hotels category flows with increasing of the guest

4、s continuously, resulted in the difficulty to the management. Using the computer to manage the hotel and the resident information, enhanced the inquiry speed, saved the workforce and the resources and has met the anticipated requirements.In this system, we designs the small hotel management system w

5、hich accords to the present situation of the small hotel service management and the way it develops in the future and small hotel management study practice. This system is a software which is used for the small hotel service management. The management of the system data uses the operating system new

6、est management method, so the user operation will be simpler. The various business management modules in this system may runs independently. These advantages can increase the biggest efficiency of the guest house management, is also a guest house to serve scientific and regular to turn the term of t

7、he management.This system may make full use of information technology to increase the management level, service level of the hotel. The system will realize the function such as the lodgings registration, the lodging allowance reminder, supplements the deposit, the accent room registration, returns a

8、 house ties the account, inquiry statistics. The dynamic real-time lodgings registration, the guest room adjustment, the sales report form, will supplement the deposit and so on organically to relate in together, will carry on the management well to the small hotels room. Key words: Hotel manag

9、ement system; VB; ACCESS 2003; Data base目錄1 前言11.1系統(tǒng)開發(fā)的背景11.2國內(nèi)外研究現(xiàn)狀11.3本課題研究意義21.4相關(guān)技術(shù)介紹31.4.1 Visual Basic簡介31.4.2 ADO訪數(shù)據(jù)庫技術(shù)介紹41.5系統(tǒng)運行環(huán)境41.6系統(tǒng)開發(fā)技術(shù)42 系統(tǒng)分析42.1 系統(tǒng)的可行性研究4技術(shù)可行性5經(jīng)濟可行性52.2系統(tǒng)需求分析52.3系統(tǒng)的功能框架52.4系統(tǒng)業(yè)務流程圖63系統(tǒng)結(jié)構(gòu)分析和設計73.1關(guān)系模型設計74數(shù)據(jù)庫設計94.1Microsoft office Access2003簡介94.2數(shù)據(jù)庫表結(jié)構(gòu)設計9用戶信息表（tb_user）

10、10登記信息表（tb_djb）10客房基礎信息表（tb_kf）11退房登記信息表（tb_tfd）115系統(tǒng)詳細設計與實現(xiàn)125.1系統(tǒng)公共模塊設計125.2主窗體的設計135.3主窗體的設計與實現(xiàn)155.4住宿登記模塊設計與實現(xiàn)175.5調(diào)房登記模塊設計與實現(xiàn)195.6追加押金模塊設計215.6系統(tǒng)維護模塊的具體實現(xiàn)22結(jié)束語26致謝27參考文獻271 前言本章對小型酒店管理系統(tǒng)的現(xiàn)狀和管理信息化的必要性做了初步的探討，同時介紹了系統(tǒng)開發(fā)的目標以及該系統(tǒng)的運行環(huán)境等。1.1系統(tǒng)開發(fā)的背景酒店行業(yè)的激烈競爭似的爭取客源、提高酒店滿員率、制定正確營銷策略已經(jīng)成為一項重要的任務，而借助于當前蓬勃發(fā)展

11、的IT工具來拓展銷售能力，創(chuàng)造客觀的經(jīng)濟效益已經(jīng)成為許多酒店的首選。作為一有效的統(tǒng)計分析手段，計算機管理系統(tǒng)具有明顯的優(yōu)勢，它在數(shù)據(jù)保存、數(shù)據(jù)交換等方面均能夠做到快速可靠，是手工操作所不能完成的。隨著我國市場經(jīng)濟的迅速發(fā)展，人們在生活水平有了顯著提高，旅游經(jīng)濟和各種商務活動更促進了酒店行業(yè)的快速發(fā)展。同時，隨著酒店的數(shù)量越來越多，人們的要求也越來越高，酒店行業(yè)的競爭愈演愈烈。如何在激烈的市場競爭中生存和發(fā)展，是第一個酒店必須面臨的問題。作為提供多功能服務的綜合場所，吸引顧客是酒店生存的重要條件。提高酒店的經(jīng)營管理，為顧客提供更優(yōu)質(zhì)的服務，同時降低酒店的運營成本是酒店發(fā)展的關(guān)健。面對信息時代的機

12、遇和挑戰(zhàn)，利用科技手段提高企業(yè)管理無疑是一條行之有效的途徑。計算機的智能化管理技術(shù)可以極大限度地提高服務管理水平，進行準確、快捷和高效的管理。因此，采用全新的計算機酒店管理系統(tǒng)，已成為提高酒店管理效率、改善服務水平的重要手段之一。酒店管理方面的信息化已成為現(xiàn)代化酒店的重要標志。1.2國內(nèi)外研究現(xiàn)狀酒店電腦管理系統(tǒng)最初出現(xiàn)于六十年代末、七十年代初的美國，其中較有代表性的有美國的Ecco系統(tǒng)，該系統(tǒng)基本實現(xiàn)前臺業(yè)務中的排房、結(jié)帳、客房、餐廳、問詢等模塊，由于當時仍然沒有個人電腦的出現(xiàn)，所以整個電腦是基于集中式的小型機/終端的管理，以后隨著硬件技術(shù)的發(fā)展和各種網(wǎng)絡系統(tǒng)、數(shù)據(jù)庫技術(shù)的發(fā)展，操作系統(tǒng)的發(fā)

13、展而推出了許多新型的酒店管理系統(tǒng)。計算機在酒店中的普及和應用，新的技術(shù)平臺、新的技術(shù)特點不斷涌現(xiàn)，適合國內(nèi)特點的信息系統(tǒng)慢慢進入酒店，使得酒店管理系統(tǒng)進入了一個新的發(fā)展時期。應該看到，對于一、二星級甚至部分三星級酒店來說，信息環(huán)境的建設和應用還處在起步階段，即使是五星級的酒店，信息化管理的進程與客戶對酒店的需求也有相當?shù)木嚯x。國內(nèi)酒店信息化程度的低下，在很大程度上阻礙了酒店在網(wǎng)絡時代的營銷拓展，影響了酒店經(jīng)營績效與競爭能力的提升。這主要表現(xiàn)在三大問題上：一、觀念問題。大多數(shù)酒店經(jīng)營者認為酒店屬于傳統(tǒng)的服務行業(yè)，主要是靠出租客房和床位來創(chuàng)收，通常沒把投資信息化與投資房間內(nèi)的設施（如增添浴缸或沙發(fā)

14、）的投資回報等同看待，沒有把信息化建設與影響和改善酒店的經(jīng)營、管理效率等方面的功效掛起鉤來，沒有把信息化的價值融入酒店自身價值鏈在競爭中發(fā)揮的作用掛起鉤來。二、行業(yè)問題。酒店業(yè)屬于以人為本的勞動密集型服務行業(yè)，IT行業(yè)屬技術(shù)密集型行業(yè)。由于這種行業(yè)間本質(zhì)上的差異，致使很多IT公司盡管竭盡全力將最先進的產(chǎn)品設備或解決方案推銷給酒店，其結(jié)果通常是酒店付出了昂貴的代價卻不盡如人意。糾其原因，主要表現(xiàn)在：技術(shù)功能與酒店需求錯位，目前的管理系統(tǒng)很多不能解決酒店面臨的關(guān)鍵問題；管理決策層沒有整體的規(guī)劃，讓開發(fā)商牽著鼻子走；供應商和酒店沒有利益上的一致性。三、服務不到位問題。酒店是一個以服務為本的行業(yè)，依靠

15、客人對各項服務的滿意度來提升酒店的入住率和經(jīng)營效益。酒店信息化的實施，意味著酒店又增加了一項新的服務，即信息服務。IT公司負責策劃和實施，但通常不承擔日后的服務，因為他們是IT公司不屬于服務行業(yè)。然而，倘若服務的責任落到酒店自身頭上，酒店能應付的了嗎？由于服務不到位，使系統(tǒng)不能充分發(fā)揮作用的已屢見不鮮，由誰來為酒店提供信息服務是一個值得商榷的問題。1.3本課題研究意義在今后的幾年中，酒店的競爭將主要在信息化、智能化方面展開。店內(nèi)裝潢、客房數(shù)量、房間設施等質(zhì)量競爭和價格競爭將退居二線。酒店信息化的發(fā)展趨勢主要分為三大應用領(lǐng)域：一是為酒店的管理者、決策者提供及時、準確地掌握酒店經(jīng)營各個環(huán)節(jié)情況的信

16、息技術(shù)；二是針對酒店的經(jīng)營，為節(jié)省運營成本、提高運營質(zhì)量和管理效率的信息化管理和控制技術(shù)；三是直接面對顧客所提供的信息化服務。對于酒店而言，信息化是一個工具，是一種手段，是一種服務，服務水平的好壞直接影響酒店的經(jīng)濟效益和競爭力。1.4相關(guān)技術(shù)介紹1.4.1 Visual Basic簡介微軟公司的Visual Basic 6.0是由微軟公司于1998年推出的Windows應用程序開發(fā)工具，是目前最為廣泛的、易學易用的面向?qū)ο蟮拈_發(fā)工具。Visual Basic提供了大量的控件，這些控件可用于設計界面和實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設計過程，從而有效的提高了應用程序的運行效率和

17、可靠性。故而，實現(xiàn)本系統(tǒng)VB是一個相對較好的選擇。微軟公司在Visual Basic 6.0增加了ADO（ActiveX Data Objects）。ADO是一個用于存取數(shù)據(jù)源的COM組件。它提供了編程語言和統(tǒng)一數(shù)據(jù)訪問方式OLEDB的一個中間層。開發(fā)人員通過ADO，就可以很容易地編寫出同時支持多種數(shù)據(jù)庫的軟件了。此外，借助COM/COM+強大的功能，使用Visual Basic可以輕松地開發(fā)多層結(jié)構(gòu)的分布式應用程序以及高效的Web應用程序。為什么選擇Visual Basic來開發(fā)本系統(tǒng)呢？下面來介紹一下Visual Basic的獨到之處：(1) Visual Basic主要特性1易于學習和使

18、用。Visual Basic的中心思想就是便于程序員使用，無論是新手還是專家，都能輕松上手并很快掌握它。Visual Basic基于圖形界面的開發(fā)環(huán)境使開發(fā)者對各種功能一目了然、容易理解。用戶僅僅通過鼠標的簡單操作就可以構(gòu)建出一個復雜的軟件圖形界面。2 開發(fā)高效，功能強大。Visual Basic提供的圖形用戶界面和快速應用程序開發(fā)系統(tǒng)，使程序員可以輕松使用Visual Basic提供的各種功能的組件快速搭建一個應用程序。在數(shù)據(jù)庫編程方面，使用微軟提供的DAO、RDO、ADO等控件可以直觀、高效地完成各種數(shù)據(jù)庫操作。雖然Visual Basic易于使用，但這并不表明Visual Basic的功

19、能薄弱，使用Visual Basic不僅可以開發(fā)簡單的應用程序，還可以編寫出商業(yè)級的客戶端/服務器程序，以及強大的數(shù)據(jù)庫應用程序。使用Visual Basic開發(fā)面向終端用戶的具有良好界面的程序更是得以就手。3支持多種數(shù)據(jù)庫訪問機制。Visual Basic 6.0具有強大的數(shù)據(jù)庫管理功能。利用其提供的ADO訪問機制和ODBC數(shù)據(jù)庫連接機制，可以訪問多種數(shù)據(jù)庫，如Access、SQL Server等。1.4.2 ADO訪數(shù)據(jù)庫技術(shù)介紹ADO(ActiveX Data Object) 是建立在ODBC(Open Database Connectivity) 和OLE DB(OLE Databas

20、e) 基礎之上的基于對象的高層數(shù)據(jù)庫API(Application Programming Interface) ,ADO 通過封裝在低層OLE DB 功能中的不同對象、方法和屬性以提供高層接口. 由于ADO 基于ActiveX 標準,因此具有很強的可擴展性.ADO提供兩種接口,一種是通過OLE 自治提供,用于不使用指針的語言(如腳本語言) ; 另一種通過Vtable (虛擬函數(shù)表) 向使用指針的語言提供接口(如C + ) ,可實現(xiàn)與各種數(shù)據(jù)庫的連接. ADO 包含了DAO(Data Access Object) 和RDO (Remote Data Object) 所有的功能,并且又增加了新的

21、功能,是DAO 和RDO 的超集.ADO 具有速度高、對象層次簡單、低開銷、低磁盤空間等優(yōu)點,是當前基于對象的最好的數(shù)據(jù)庫接口.1.5系統(tǒng)運行環(huán)境硬件環(huán)境：CPU：Intel P4 2.0GHZ或更高、內(nèi)存：64MB以上、硬盤：1G以上、顯卡：32MB顯存以上、光驅(qū)：52X CDROM（或DVDROM）軟件環(huán)境：Windows9X或者更高版本的操作系統(tǒng)、Microsoft Access 2000以上數(shù)據(jù)庫、Microsoft Basic 6.0開發(fā)平臺。1.6系統(tǒng)開發(fā)技術(shù)(1)Microsoft Basic 6.0(2)Microsoft Access數(shù)據(jù)庫2 系統(tǒng)分析系統(tǒng)分析是應用系統(tǒng)思想和

22、方法，把復雜的對象分解成簡單的組成部分，找出這些部分的基本屬性和彼此間的關(guān)系。系統(tǒng)分析是解決目標系統(tǒng)“做什么”的問題，本章首先確定了系統(tǒng)所要達到的功能需求，然后將需求進一步細化轉(zhuǎn)成業(yè)務需求，并對業(yè)務需求進行詳細分析，解決了系統(tǒng)“做什么”的具體內(nèi)容。2.1 系統(tǒng)的可行性研究也稱為可行性研究，是在系統(tǒng)調(diào)查的基礎上，針對新系統(tǒng)的開發(fā)是否具備必要性和可能性，對新系統(tǒng)的開發(fā)從技術(shù)、經(jīng)濟、社會的方面進行分析和研究，以避免投資失誤，保證新系統(tǒng)的開發(fā)成功?？尚行匝芯康哪康木褪怯米钚〉拇鷥r在盡可能短的時間內(nèi)確定問題是否能夠解決。該系統(tǒng)的可行性分析包括以下幾個方面的內(nèi)容。技術(shù)可行性在開發(fā)技術(shù)方面，酒店管理系統(tǒng)開發(fā)

23、技術(shù)非常成熟，開發(fā)工具很多。本人采用以下的組合可以滿足小型酒店管理系統(tǒng)開發(fā)的要求 :Microsoft windows xp操作系統(tǒng)、PC機、 Microsoft Office Access2003。微軟公司的Office Access2003數(shù)據(jù)庫系統(tǒng)，適用于小型的系統(tǒng)開發(fā)，用于存儲和管理系統(tǒng)所需要的數(shù)據(jù)。它以操作簡單、易學易用的特點而受到大多數(shù)用戶的青瞇。因此，系統(tǒng)的軟件開發(fā)平臺已成熟可行。硬件方面，科技飛速發(fā)展的今天，硬件更新的速度越來越快，容量越來越大，可靠性越來越高，價格越來越低，其硬件平臺也完全能滿足此系統(tǒng)的需要。經(jīng)濟可行性使用本小型酒店管理系統(tǒng)可提高酒店客房管理水平，把大量繁瑣工

24、作簡單化，能夠有效地節(jié)省人力物力，并能夠準確地進行統(tǒng)計和計算，避免人工統(tǒng)計或計算所帶來的差錯，保證酒店管理高效而有序地進行。綜上所述，此系統(tǒng)開發(fā)目標已明確，在技術(shù)、經(jīng)濟等方面都可行，并且投入少、見效快。因此系統(tǒng)的開發(fā)是完全可行的。2.2系統(tǒng)需求分析桂湖酒店是一家比較小型的酒店，設施較齊全。隨著信息技術(shù)的發(fā)展和外務對酒店的要求越來越高，該酒店已明顯覺得手工管理已不能適應當前酒店高速發(fā)展的需要。在意識到使用計算機管理的重要性后，決定主要針對客房管理設計出符合要求的小型酒店管理系統(tǒng)。2.3系統(tǒng)的功能框架根據(jù)以上的分析，小型酒店系統(tǒng)功能框架劃分如圖2.3所示。小型酒店管理系統(tǒng)系統(tǒng)維護住宿管理住宿登記調(diào)

25、房登記退房登記數(shù)據(jù)備份追加押金數(shù)據(jù)恢復客房管理查詢統(tǒng)計系統(tǒng)設置客戶設置客房查詢住宿查詢退宿查詢宿費提醒操作員設置密碼設置重新登錄設置主窗口圖像初使化權(quán)限設置圖2.3系統(tǒng)功能框架劃分Fig2.3 The partitionthe of funcion frame of the system2.4系統(tǒng)業(yè)務流程圖系統(tǒng)的流程圖設計。系統(tǒng)啟動后進入屏幕展示窗體可以大致了解本系統(tǒng)的開發(fā)環(huán)境和數(shù)據(jù)庫情況等。使用系統(tǒng)登錄時用戶ID和密碼都要自己手動輸入。不同的用戶對系統(tǒng)具有不同的管理權(quán)限。管理員可以對客房信息進行查詢、打印、登記，也可以使用多種實用工具如：還可以修改自己的用戶密碼，還可以通過系統(tǒng)維護模塊對系統(tǒng)

26、進行數(shù)據(jù)庫的管理，可以備份數(shù)據(jù)、恢復數(shù)據(jù)、初始化數(shù)據(jù)。具體系統(tǒng)的流程圖如下所示：小型酒店管理系統(tǒng)主界面登錄操作員登錄系統(tǒng)維護住宿管理住宿登記調(diào)房登記退房登記數(shù)據(jù)備份追加押金數(shù)據(jù)恢復客房管理查詢統(tǒng)計系統(tǒng)設置客戶設置客房查詢住宿查詢退宿查詢宿費提醒操作員設置密碼設置重新登錄設置主窗口圖像初使化權(quán)限設置圖2.4 系統(tǒng)操作流程Fig.2.4 The flow of system operation3系統(tǒng)結(jié)構(gòu)分析和設計3.1關(guān)系模型設計在開發(fā)小型酒店管理系統(tǒng)時，對客戶的信息的管理必不可少，通過對系統(tǒng)進行的需求分析、業(yè)務流程設計以及系統(tǒng)功能結(jié)構(gòu)的確定，規(guī)劃出系統(tǒng)中使用的數(shù)據(jù)庫實體對象及實體E-R圖。 客房

27、入住需要以客人信息及入住信息進行登記，這就存在一個登記信息實體，其實體E-R圖如圖3.1所示：住宿時間住宿日期提醒日期憑證號碼 摘要登記信息住宿天數(shù)客房價格實收宿費姓名客房類型房間號詳細地址證件號碼證件名稱 標志退宿提醒Fig.3.1 the E-R chart of registration information table在此系統(tǒng)中，客房是一個重要的實體，客房實體包含了客房的基本配置信息，以及當前房間狀態(tài) ，其E-R圖如圖3.2所示：客房房間號房間類型價格標志營業(yè)日期房態(tài)配置使用設置Fig.3.2 the E-R chart of registration rooms table客人退房

28、時需要對退房信息進行登記，退房登記實體包含人的基本信息以及對房費進行結(jié)算登記的信息，退房登記實體的E-R圖如圖3.3所示：住宿時間住宿日期退宿日期憑證號碼 摘要退房登記住宿天數(shù)客房價格實收宿費姓名客房類型房間號詳細地址證件號碼證件名稱 預收宿費退還宿費Fig.3.3 the E-R chart of check registration table4數(shù)據(jù)庫設計4.1Microsoft office Access2003簡介Microsoft Access是一種關(guān)系式數(shù)據(jù)庫，是由微軟公司開發(fā)的。關(guān)系式數(shù)據(jù)庫由一系列表組成，表又由一系列行和列組成，每一行是一個記錄，每一列是一個字段，每個字段有一個

29、字段名，字段名在一個表中不能重復。表與表之間可以建立關(guān)系（或稱關(guān)聯(lián)，連接），以便查詢相關(guān)聯(lián)的信息。Access數(shù)據(jù)庫以文件形式保存，文件的擴展名是MDB。Access 數(shù)據(jù)庫由六種對象組成，它們是表、查詢、窗體、報表、宏和模塊。表(Table)是數(shù)據(jù)庫的基本對象，是創(chuàng)建其他5種對象的基礎。表由記錄組成，記錄由字段組成，表用來存貯數(shù)據(jù)庫的數(shù)據(jù)，故又稱數(shù)據(jù)表。查詢(Query)可以按索引快速查找到需要的記錄，按要求篩選記錄并能連接若干個表的字段組成新表。窗體(Form) 提供了一種方便的瀏覽、輸入及更改數(shù)據(jù)的窗口。還可以創(chuàng)建子窗體顯示相關(guān)聯(lián)的表的內(nèi)容。窗體也稱表單。報表(Report) 的功能是將

30、數(shù)據(jù)庫中的數(shù)據(jù)分類匯總，然后打印出來，以便分析。宏(Macro) 相當于DOS中的批處理，用來自動執(zhí)行一系列操作。模塊(Module) 的功能與宏類似，但它定義的操作比宏更精細和復雜，用戶可以根據(jù)自己的需要編寫程序。4.2數(shù)據(jù)庫表結(jié)構(gòu)設計該系統(tǒng)使用了Access數(shù)據(jù)庫，名稱為JDGL.mdb，其各表的功能和具體設計結(jié)構(gòu)如下：用戶信息表（tb_user）功能是保存系統(tǒng)的用戶數(shù)據(jù)，其結(jié)構(gòu)如表4.1所示：表4.1用戶信息表Table4.1The table of user information字段名稱數(shù)據(jù)類型字段大小操作員文本10密碼文本50登記信息表（tb_djb）功能是用來保存客人住宿時的住宿

31、登記信息，其結(jié)構(gòu)如表4.2所示：表4.2登記信息表Table4.2The table of registration information字段名稱數(shù)據(jù)類型字段大小憑證號碼文本20姓名文本50證件名稱文本20證件號碼文本20詳細地址文本50房間號文本20客房類型文本10客房價格貨幣8住宿日期日期/時間8住宿時間日期/時間8住宿天數(shù)數(shù)字雙精度型應收宿費貨幣8預收金額貨幣8提醒日期日期/時間8退宿日期日期/時間8備注文本50標志文本1日期日期/時間8時間日期/時間8退宿時間日期/時間8提醒時間日期/時間8摘要文本200BZ數(shù)字雙精度型客房基礎信息表（tb_kf）功能是用來保存客房基礎信息，其結(jié)構(gòu)如

32、表4.3所示：表4.3客房信息表Table4.3The table of rooms information字段名稱數(shù)據(jù)類型字段大小房間號文本30房間類型文本50價格貨幣8房態(tài)文本4標志是/否1備注文本100配置文本100使用設置文本10營業(yè)日期日期/時間8退房登記信息表（tb_tfd）功能是用來保存客人退宿登記信息，其結(jié)構(gòu)如表4.4所示：表4.4 參考文獻信息表Table4.4The table of check rooms information字段名稱數(shù)據(jù)類型字段大小憑證號碼文本20姓名文本50證件名稱文本20證件號碼文本20詳細地址文本50房間號文本20客房類型文本10客房價格貨幣8住

33、宿日期日期/時間8住宿時間日期/時間8住宿天數(shù)數(shù)字雙精度型應收宿費貨幣8金額總計貨幣8預收宿費貨幣8退還宿費貨幣8退房日期日期/時間8退房時間日期/時間8備注文本50BZ數(shù)字雙精度型5系統(tǒng)詳細設計與實現(xiàn)5.1系統(tǒng)公共模塊設計 在系統(tǒng)中使用公共模塊，可節(jié)省系統(tǒng)資源，實現(xiàn)代碼重用。在本系統(tǒng)中新建一個Module模塊，此模塊主要用于共享數(shù)據(jù)庫邊接。其中ESQL()函數(shù)用于打開到數(shù)據(jù)庫的連接，StrCnn()函數(shù)用于返回于一個連接串。公共模塊代碼如下：Public adocon As New ADODB.Connection '創(chuàng)建ADODB.Connection對象Public adoRs

34、As New ADODB.Recordset '創(chuàng)建ADODB.Recordset對象Public Sub Main() '打開數(shù)據(jù)庫連接 adocon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "DB_JDGL.mdb;Persist Security Info=False"End SubPublic Function ESQL(ByVal sql As String) As ADODB.Recordset '定義函數(shù) Di

35、m cnn As ADODB.Connection '定義連接 Dim rs As ADODB.Recordset '定義記錄集 Set cnn = New ADODB.Connection '創(chuàng)建連接 cnn.Open StrCnn '打開連接 Set rs = New ADODB.Recordset rs.Open Trim(sql), cnn, adOpenKeyset, adLockOptimistic Set ESQL = rsEnd FunctionPublic Function StrCnn() '返回一個數(shù)據(jù)庫連接 StrCnn = &q

36、uot;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "DB_JDGL.mdb;Persist Security Info=False"End Function5.2主窗體的設計在登錄窗體對話框中輸入正確的操作員和操作員密碼后才能進到主窗體。窗體如圖5.2所示：圖5.2登錄窗體對話框Fig5.2 Login form dialog box其中“確定”與“取消”按扭，采用的是.ico圖標。主要代碼如下：Private Sub Image1_Click()Static itime

37、s As Integer Main.StatusBar1.Panels(4).Text = Text1.Text Adodc1.RecordSource = "select * from tb_user where 操作員='" + Text1.Text + "'"'驗證操作員及密碼 Adodc1.Refresh If Adodc1.Recordset.RecordCount > 0 Then '如果記錄數(shù)大于零 If Text2.Text = Adodc1.Recordset.Fields("密碼&quo

38、t;) Then '驗證密碼 Load Main Main.Show Unload Me Else If Text2.Text <> Adodc1.Recordset.Fields("密碼") Then MsgBox "密碼錯誤,請重新輸入！", vbCritical, "系統(tǒng)提示" itimes = itimes + 1 Text2.Text = "" Text2.SetFocus End If End If Else MsgBox "操作員不存在,請重新輸入！", vbC

39、ritical, "系統(tǒng)提示" itimes = itimes + 1 Text1.Text = "" Text2.Text = "" Text1.SetFocus End If If itimes = 3 Then '錯誤3次，退出系統(tǒng) MyMsg = MsgBox("輸入錯誤,請向系統(tǒng)管理員查詢！", vbCritical, "系統(tǒng)提示") If MyMsg = vbOK Then End End IfEnd Sub5.3主窗體的設計與實現(xiàn)程序啟動后，在系統(tǒng)登錄界面驗證完操作員和操作

40、員密碼后，將進入程序主窗體。在程序主窗體中通過選擇菜單命令或單擊工具欄中的按鈕，可調(diào)用相應程序窗體或進行相應操作；可根據(jù)操作員不同，確定操作員的相應權(quán)限，在主窗體狀態(tài)欄中顯示了系統(tǒng)時間和當前系統(tǒng)操作員。主窗體界面如下圖5.3所示：圖5.3 主窗體界面Fig. 5.3 The Main form interface該系統(tǒng)主窗體主要通過菜單命令實現(xiàn)調(diào)出各個窗體或執(zhí)行相應操作。同時在主窗體和添加一個Toolbar控件，作為工具欄。通過Toolbar控件的Click事件，也可實現(xiàn)調(diào)出相應窗體或執(zhí)行相應操作。使用Button對象的Key屬性標識被單擊的按鈕。例如，在主窗體模塊中單擊工具欄中的按鈕，發(fā)生B

41、uttonClick事件，并用Key屬性標識被單擊的按鈕。代碼如下：Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case "DJ" zsdj_Click '調(diào)入住宿登記 Case "TF" tf_Click '調(diào)入退宿結(jié)賬 Case "CX" zscx_Click '調(diào)入住宿查詢 Case "TX" sftx_Click '調(diào)入提醒 Case &

42、quot;CXDL" '重新登錄 Load main_Login main_Login.Show Case "exit" If MsgBox("確定退出該系統(tǒng)？", 4, "系統(tǒng)提示") = vbYes Then End End If End SelectEnd Sub單擊主窗體中的菜單項，通過菜單命令實現(xiàn)調(diào)出各個窗體或執(zhí)行相應操作，在各子菜單的Click事件下實現(xiàn)相應操作。部分代碼如下：Private Sub sjbf_Click() '調(diào)入數(shù)據(jù)備份main_sjbf.ShowMain.Enabled =

43、FalseEnd SubPrivate Sub sjhf_Click() '數(shù)據(jù)恢復main_sjhf.ShowEnd SubPrivate Sub ma_Click() '調(diào)入密碼設置 main_mmsz.Show Main.Enabled = FalseEnd Sub5.4住宿登記模塊設計與實現(xiàn)程序啟動后，選擇菜單欄中“住宿管理”/“住宿登記”命令，或直接單擊工具欄中的“登記”按鈕，將打開住宿登記模塊。在住宿登記模塊中能夠自動生成住宿登記憑證號碼，提供空閑房間供用戶選擇，實現(xiàn)客人住宿登記，收取客人預交宿費，實際宿費、宿費提醒時間、退宿時間、打印住宿登記單據(jù)。住宿登記模塊界面

44、如下圖5.4所示：圖5.4 住宿登記窗體界面Fig. 5.4The Accommodation Registration form interface住宿登記模塊主要用于錄入客人入住信息，此窗體包含了大量的文本框和時間控件等，但這些控件功能都比較簡單，沒有復雜的屬性設置。 打開住宿登記模塊，單擊“登記”按鈕，開始進行住宿登記?！暗怯洝卑粹o的Click事件主要實現(xiàn)設置控件有效和無效、自動生成登記憑證號碼等功能。自動生成登記憑證號碼的主要代碼發(fā)下：Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source

45、=" & App.Path & "DB_JDGL.mdb;Persist Security Info=False"Adodc2.RecordSource = "select * from tb_djb order by 憑證號碼" '按憑證號碼排序數(shù)據(jù)Adodc2.Refresh If Not Adodc2.Recordset.EOF Then Adodc2.Recordset.MoveLast '移動記錄集到最后一條記錄 If lsph.Text = "" Then bh.Text = Fd

46、ate & "d" & Format(1, "#000") '當lsph值為空為憑證號碼文本框賦值 If lsph.Text <> "" Then '當lsph值不空時 y1.Text = Month(Fdate) '把當前月份賦給y1 y2.Text = Month(Left(lsph.Text, 10) '把lsph中的月份賦給y2 If y1.Text = y2.Text Then '如果y1文本框中內(nèi)容與y2相同 bh.Text = Fdate & &

47、quot;d" & Format(Val(Right(lsph.Text, 3) + 1, "#000") '為憑證號碼文本框賦值 Text2.Text = Val(Right(lsph.Text, 3) + 1 'text1中存儲lsph文本框中后三位數(shù) End If If y1.Text <> y2.Text Then '如果y1文本框中內(nèi)容與y2不同 bh.Text = Fdate & "d" & Format(1, "#000") '為憑證號碼文本框

48、賦值 End If End If當住宿信息登記完成后，“打印”按鈕處于可用狀態(tài)，可以單擊“打印”按鈕打印住宿證。主要代碼如下：Private Sub comprint_Click() On Error GoTo 1 '出錯轉(zhuǎn)向標簽“1” Dim X As Printer '打印住宿登記單據(jù) Printer.Height = 8000: Printer.Width = 8000 '設置高度和寬度 Printer.CurrentX = 1100: Printer.CurrentY = 300 '設置打印位置 Printer.FontSize = 12 '設置

49、字體大小 Printer.Print "桂湖酒店客房 (住宿證) " '打印文字 Dim A, B, C, d As Integer '定義變量 A = 100: B = 500: C = 4800: d = 400 '為變量賦值 Printer.FontSize = 10 '設置字體大小 Printer.CurrentX = 100 + A '設置打印橫坐標 Printer.CurrentY = B + 200 '設置打印縱坐標 Printer.Print d & " " & t &

50、; " NO." & bh.Text '打印日期、時間和憑證號碼 B = B + d '為變量B賦值 Printer.Line (A, B + 100)-(C, B + 100) '打印一條直線 Printer.CurrentX = 100 + A Printer.CurrentY = B + 200 Printer.Print "操作員: " & czy.Text & " 歡迎光臨" Printer.EndDoc '輸出給打印機 Exit Sub If Err.Number =

51、 482 Then MsgBox "請連接打印機！", , "系統(tǒng)提示" Err.Clear End IfEnd Sub5.5調(diào)房登記模塊設計與實現(xiàn)在主窗體中，選擇住宿管理菜單下的調(diào)房登記項，將進入調(diào)房登記模塊。在調(diào)房登記模塊中選擇客人入住的房間號和空閑房間號，實現(xiàn)調(diào)房登記，系統(tǒng)只允許調(diào)換等價客房。調(diào)房登記界面如圖5.5所示：圖5.5 調(diào)房登記窗體界面Fig. 5.5The Housing Register Transfer form interface調(diào)房登記模塊主要實現(xiàn)對客人房間進行調(diào)換的過程，源房間號列表是查詢登記表中當前所有住宿客人的房間號碼，在

52、選擇源房間號后，實現(xiàn)生成目標房間號。主要代碼如下Private Sub Combo3_Click()Combo2.Clear '清空Combo2中的內(nèi)容 If Combo3.Text <> "" Then '如果Combo3不為空 End If '賦值給bh.text等 With Adodc1.Recordset 'with快 If .Fields("憑證號碼") <> "" Then bh.Text = .Fields("憑證號碼") '為“憑證號碼

53、”字段賦值 End With '結(jié)束with快 End If End If Combo2.Enabled = True 'Combo2可用 Texbz.Enabled = True 'Texbz可用 End IfEnd Sub5.6追加押金模塊設計在主窗體中，選擇住宿管理菜單下的追加押金項，將進入追加押金模塊。在“憑證號碼”下拉列表框中選擇客人入住的憑證號碼，在“追加押金”文本框中輸入客人續(xù)交的押金后，在相應的文本框中將顯示客人的入住信息，并自動計算宿費提醒日期和時間，還可打印追加押金票據(jù)。追加押金界面如圖5.6所示：圖5.6 追加押金窗體界面Fig. 5.6The A

54、dditional Deposit form interface在窗體的A事件中，主要實現(xiàn)查詢數(shù)據(jù)表中住宿客人信息，對“憑證號碼”列表框賦值。主要代碼如下：Private Sub Form_Activate()Dim i As Integerczy.Text = Main.StatusBar1.Panels(4).Text '賦值給czy.text，顯示當前操作員 '查詢住宿登記信息Adodc1.RecordSource = "select 憑證號碼 from tb_djb where 標志= '1'order by 憑證號碼"Adodc1.Refresh '刷新記錄 If Adodc1.Recordset.RecordCount > 0 Then '如果記錄數(shù)大于0 '循環(huán)從1到記錄數(shù)值 Combo1.AddItem Adodc1.Recordset.Fields("憑證號碼").V