小型酒店管理系統(tǒng)畢業(yè)論文

1、<p>　　畢 業(yè) 設 計（論 文）</p><p>　　論文題目： 小型酒店管理系統(tǒng)的設計與開發(fā)</p><p>　　學習中心（或辦學單位）： </p><p>　　指導老師： 職 稱： </p><p>　　學生姓名： 學 號: </p>

2、<p>　　專 業(yè)： 計算機科學與技術</p><p><b>　　年 月 </b></p><p>　　畢業(yè)設計（論文）任務書</p><p>　　題目：小型酒店管理系統(tǒng)的設計與開發(fā)</p><p><b>　　任務與要求：</b></p><

3、;p>　　通過對酒店管理系統(tǒng)的設計，不僅對酒店系統(tǒng)的流程有了清晰的印象，</p><p>　　在設計過程中，對數(shù)據(jù)庫的知識有更深的了解，同時也對網(wǎng)頁設計和C#</p><p>　　也 有了一定的了解。使自身的知識水平得到了很大提高。</p><p><b>　　年 月 日</b></p><p>　　小型酒店

4、管理系統(tǒng)的設計與開發(fā)</p><p><b>　　摘要</b></p><p>　　現(xiàn)代化的酒店組織龐大、服務項目多、信息量大，要想提高勞動生產(chǎn)、降低成本、提高服務質(zhì)量和管理水平，進而促進經(jīng)濟效益，必須借助計算機來進行現(xiàn)代化的信息管理。本系統(tǒng)根據(jù)小型酒店管理的現(xiàn)狀及未來的發(fā)展方向，結(jié)合有關小型酒店管理當中的管理學實踐，設計了小型酒店管理系統(tǒng)。</p>&

5、lt;p>　　本系統(tǒng)是用于小型酒店服管理的系統(tǒng)軟件。系統(tǒng)數(shù)據(jù)的管理采用了操作系統(tǒng)的最新管理方式，用戶操作將會更簡單、更直觀、更方便。系統(tǒng)中各業(yè)務管理模塊可以單機獨立運行。使用本系統(tǒng)，可以大幅度提高酒店服務管理的工作效率。</p><p>　　該系統(tǒng)應充分利用信息技術提高小型酒店客房的管理水平、服務水平。小型酒店管理系統(tǒng)要實現(xiàn)住宿登記、宿費提醒、追加押金、調(diào)房登記、退房結(jié)賬、查詢統(tǒng)計等等功能。其中宿費提醒可以

6、在住宿費超過押金時預警，提示前臺要客人補交押金，該功能可明顯提高對住宿人員宿費的有效管理。將動態(tài)實時的住宿登記、客房調(diào)整、追加押金等有機地聯(lián)系在一起，對小型酒店客房進行全方位的管理。</p><p>　　關鍵詞：酒店管理系統(tǒng); VB; ACCESS 2003; 數(shù)據(jù)庫</p><p>　　The design of the Small Hotel Management System<

7、;/p><p><b>　　Abstract</b></p><p>　　At present, the small hotel’s category flows with increasing of the guests continuously, resulted in the difficulty to the management. Using the compu

8、ter to manage the hotel and the resident information, enhanced the inquiry speed, saved the workforce and the resources and has met the anticipated requirements.</p><p>　　In this system, we designs the small

9、 hotel management system which 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. </p><p>　　This system is

10、 a software which is used for the small hotel service management. The management of the system data uses the operating system newest management method, so the user operation will be simpler. The various business manageme

11、nt 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 the manageme

12、nt.</p><p>　　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

13、lodging allowance reminder, supplements the deposit, the accent room registration, returns a house ties the account, inquiry statistics. The dynamic real-time lodgings registration, the guest room adjustment, the sales r

14、eport form, will supplement the deposit and so on organically to relate in together, w</p><p>　　Key words: Hotel management system; VB; ACCESS 2003; Data base</p><p><b>　　目錄</b></

15、p><p><b>　　第一章緒論 1</b></p><p>　　1.1酒店管理系統(tǒng)網(wǎng)站開發(fā)背景1</p><p>　　1.2國內(nèi)外研究內(nèi)容1</p><p>　　1.3本課題研究目的意義2</p><p>　　1.4系統(tǒng)運行環(huán)境4</p><p>　　第二章酒店系

16、統(tǒng)分析4</p><p>　　2.1 系統(tǒng)的技術與經(jīng)濟的可行性研究4</p><p>　　2.1.1技術可行性5</p><p>　　2.1.2經(jīng)濟可行性5</p><p>　　2.2系統(tǒng)需求分析5</p><p>　　2.3系統(tǒng)的功能框架5</p><p>　　2.4系統(tǒng)業(yè)務流程圖

17、6</p><p>　　第三章系統(tǒng)結(jié)構(gòu)分析和設計7</p><p>　　3.1關系模型設計7</p><p>　　第四章數(shù)據(jù)庫設計9</p><p>　　4.1Microsoft office Access2003簡介9</p><p>　　4.2數(shù)據(jù)庫表結(jié)構(gòu)設計9</p><p>

18、　　4.2.1用戶信息表（tb_user）10</p><p>　　4.2.2登記信息表（tb_djb）10</p><p>　　4.2.3客房基礎信息表（tb_kf）11</p><p>　　4.2.4退房登記信息表（tb_tfd）11</p><p>　　第五章系統(tǒng)詳細設計與實現(xiàn)12</p><p>　　

19、5.1系統(tǒng)公共模塊設計12</p><p>　　5.2主窗體的設計13</p><p>　　5.3主窗體的設計與實現(xiàn)15</p><p>　　5.4住宿登記模塊設計與實現(xiàn)17</p><p>　　5.5調(diào)房登記模塊設計與實現(xiàn)19</p><p>　　5.6追加押金模塊設計21</p><

20、p>　　5.6系統(tǒng)維護模塊的具體實現(xiàn)22</p><p><b>　　結(jié)束語26</b></p><p><b>　　致謝27</b></p><p><b>　　參考文獻27</b></p><p><b>　　第一章緒論</b></

21、p><p>　　1.1系統(tǒng)開發(fā)的背景</p><p>　　酒店行業(yè)的激烈競爭似的爭取客源、提高酒店滿員率、制定正確營銷策略已經(jīng)成為一項重要的任務，而借助于當前蓬勃發(fā)展的IT工具來拓展銷售能力，創(chuàng)造客觀的經(jīng)濟效益已經(jīng)成為許多酒店的首選。作為一有效的統(tǒng)計分析手段，計算機管理系統(tǒng)具有明顯的優(yōu)勢，它在數(shù)據(jù)保存、數(shù)據(jù)交換等方面均能夠做到快速可靠，是手工操作所不能完成的。</p><p

22、>　　隨著我國市場經(jīng)濟的迅速發(fā)展，人們在生活水平有了顯著提高，旅游經(jīng)濟和各種商務活動更促進了酒店行業(yè)的快速發(fā)展。同時，隨著酒店的數(shù)量越來越多，人們的要求也越來越高，酒店行業(yè)的競爭愈演愈烈。如何在激烈的市場競爭中生存和發(fā)展，是第一個酒店必須面臨的問題。作為提供多功能服務的綜合場所，吸引顧客是酒店生存的重要條件。提高酒店的經(jīng)營管理，為顧客提供更優(yōu)質(zhì)的服務，同時降低酒店的運營成本是酒店發(fā)展的關健。面對信息時代的機遇和挑戰(zhàn)，利用科技手段提

23、高企業(yè)管理無疑是一條行之有效的途徑。計算機的智能化管理技術可以極大限度地提高服務管理水平，進行準確、快捷和高效的管理。因此，采用全新的計算機酒店管理系統(tǒng)，已成為提高酒店管理效率、改善服務水平的重要手段之一。酒店管理方面的信息化已成為現(xiàn)代化酒店的重要標志。</p><p>　　1.2國內(nèi)外研究現(xiàn)狀</p><p>　　酒店電腦管理系統(tǒng)最初出現(xiàn)于六十年代末、七十年代初的美國，其中較有代表性的有

24、美國的Ecco系統(tǒng)，該系統(tǒng)基本實現(xiàn)前臺業(yè)務中的排房、結(jié)帳、客房、餐廳、問詢等模塊，由于當時仍然沒有個人電腦的出現(xiàn)，所以整個電腦是基于集中式的小型機/終端的管理，以后隨著硬件技術的發(fā)展和各種網(wǎng)絡系統(tǒng)、數(shù)據(jù)庫技術的發(fā)展，操作系統(tǒng)的發(fā)展而推出了許多新型的酒店管理系統(tǒng)。</p><p>　　計算機在酒店中的普及和應用，新的技術平臺、新的技術特點不斷涌現(xiàn)，適合國內(nèi)特點的信息系統(tǒng)慢慢進入酒店，使得酒店管理系統(tǒng)進入了一個新的發(fā)

25、展時期。應該看到，對于一、二星級甚至部分三星級酒店來說，信息環(huán)境的建設和應用還處在起步階段，即使是五星級的酒店，信息化管理的進程與客戶對酒店的需求也有相當?shù)木嚯x。</p><p>　　國內(nèi)酒店信息化程度的低下，在很大程度上阻礙了酒店在網(wǎng)絡時代的營銷拓展，影響了酒店經(jīng)營績效與競爭能力的提升。這主要表現(xiàn)在三大問題上：一、觀念問題。大多數(shù)酒店經(jīng)營者認為酒店屬于傳統(tǒng)的服務行業(yè)，主要是靠出租客房和床位來創(chuàng)收，通常沒把投資信

26、息化與投資房間內(nèi)的設施（如增添浴缸或沙發(fā)）的投資回報等同看待，沒有把信息化建設與影響和改善酒店的經(jīng)營、管理效率等方面的功效掛起鉤來，沒有把信息化的價值融入酒店自身價值鏈在競爭中發(fā)揮的作用掛起鉤來。二、行業(yè)問題。酒店業(yè)屬于以人為本的勞動密集型服務行業(yè)，IT行業(yè)屬技術密集型行業(yè)。由于這種行業(yè)間本質(zhì)上的差異，致使很多IT公司盡管竭盡全力將最先進的產(chǎn)品設備或解決方案推銷給酒店，其結(jié)果通常是酒店付出了昂貴的代價卻不盡如人意。糾其原因，主要表現(xiàn)在：

27、技術功能與酒店需求錯位，目前的管理系統(tǒng)很多不能解決酒店面臨的關鍵問題；管理決策層沒有整體的規(guī)劃，讓開發(fā)商牽著鼻子走；供應商和酒店沒有利益上的一致性。三、服務不到位問題。酒店是一個以服務為本的行業(yè)，依靠客人對各項服務的滿意度來提升酒店的入住率和經(jīng)營效益。</p><p>　　酒店信息化的實施，意味著酒店又增加了一項新的服務，即信息服務。IT公司負責策劃和實施，但通常不承擔日后的服務，因為他們是IT公司不屬于服務行業(yè)

28、。然而，倘若服務的責任落到酒店自身頭上，酒店能應付的了嗎？由于服務不到位，使系統(tǒng)不能充分發(fā)揮作用的已屢見不鮮，由誰來為酒店提供信息服務是一個值得商榷的問題。</p><p>　　1.3酒店管理系統(tǒng)發(fā)展現(xiàn)狀</p><p>　　隨著旅游業(yè)的發(fā)展，酒店、餐飲娛樂行業(yè)日趨發(fā)達，引入全方位的電腦服務和電腦管理日益流行。同時，酒店和餐廳娛樂業(yè)引入電腦服務和管理也取得了優(yōu)良的經(jīng)濟效益和社會效益。為此，

29、國家建設部已于最近作出明確規(guī)定：凡星級酒店在項目審批時，其設計方案必須包括電腦管理系統(tǒng)，否則不予立項?？梢?，酒店管理電腦化勢在必行。酒店管理系統(tǒng)將先進的電腦技術與現(xiàn)代酒店服務管理完美地結(jié)合起來，實現(xiàn)了住宿、餐飲、娛樂全新概念的服務和管理方式。</p><p>　　傳統(tǒng)的酒店管理往往令管理者花大量的時間來處理顧客投訴，例如錯誤查詢、煩瑣的登記和結(jié)帳手續(xù)、旅客費用計算錯誤、空余客房資料不能及時提供等，從而影響出租率，

30、使的管理人員不得不集中精力規(guī)劃管理運行策略和進行決策。以上問題可通過電腦系統(tǒng)輔助解決，酒店管理的電腦化，不僅是體現(xiàn)酒店現(xiàn)代化形象的一個重要標志 ，而且對于提高員工工作效率，加速資金周轉(zhuǎn)、降低各項成本及改善服務質(zhì)量都有十分積極的作用。 </p><p>　　1.4本課題研究目的意義</p><p>　　在今后的幾年中，酒店的競爭將主要在信息化、智能化方面展開。店內(nèi)裝潢、客房數(shù)量、房間設施等質(zhì)

31、量競爭和價格競爭將退居二線。酒店信息化的發(fā)展趨勢主要分為三大應用領域：一是為酒店的管理者、決策者提供及時、準確地掌握酒店經(jīng)營各個環(huán)節(jié)情況的信息技術；二是針對酒店的經(jīng)營，為節(jié)省運營成本、提高運營質(zhì)量和管理效率的信息化管理和控制技術；三是直接面對顧客所提供的信息化服務。對于酒店而言，信息化是一個工具，是一種手段，是一種服務，服務水平的好壞直接影響酒店的經(jīng)濟效益和競爭力。</p><p><b>　　1.5系

32、統(tǒng)運行環(huán)境</b></p><p>　　硬件環(huán)境：CPU：Intel P4 2.0GHZ或更高、內(nèi)存：64MB以上、硬盤：1G以上、顯卡：32MB顯存以上、光驅(qū)：52X CD—ROM（或DVD—ROM）</p><p>　　軟件環(huán)境：Windows9X或者更高版本的操作系統(tǒng)、Microsoft Access 2000以上數(shù)據(jù)庫、Microsoft Basic 6.0開發(fā)平臺。&

33、lt;/p><p><b>　　第二章酒店系統(tǒng)分析</b></p><p>　　系統(tǒng)分析是應用系統(tǒng)思想和方法，把復雜的對象分解成簡單的組成部分，找出這些部分的基本屬性和彼此間的關系。系統(tǒng)分析是解決目標系統(tǒng)“做什么”的問題，本章首先確定了系統(tǒng)所要達到的功能需求，然后將需求進一步細化轉(zhuǎn)成業(yè)務需求，并對業(yè)務需求進行詳細分析，解決了系統(tǒng)“做什么”的具體內(nèi)容。</p>

34、<p>　　2.1 系統(tǒng)的技術與經(jīng)濟的可行性研究</p><p>　　也稱為可行性研究，是在系統(tǒng)調(diào)查的基礎上，針對新系統(tǒng)的開發(fā)是否具備必要性和可能性，對新系統(tǒng)的開發(fā)從技術、經(jīng)濟、社會的方面進行分析和研究，以避免投資失誤，保證新系統(tǒng)的開發(fā)成功?？尚行匝芯康哪康木褪怯米钚〉拇鷥r在盡可能短的時間內(nèi)確定問題是否能夠解決。該系統(tǒng)的可行性分析包括以下幾個方面的內(nèi)容。</p><p>　　2

35、.1.1技術可行性</p><p>　　在開發(fā)技術方面，酒店管理系統(tǒng)開發(fā)技術非常成熟，開發(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ù)。它以操作簡單、易學易用的特點而受到

36、大多數(shù)用戶的青瞇。因此，系統(tǒng)的軟件開發(fā)平臺已成熟可行。硬件方面，科技飛速發(fā)展的今天，硬件更新的速度越來越快，容量越來越大，可靠性越來越高，價格越來越低，其硬件平臺也完全能滿足此系統(tǒng)的需要。</p><p>　　2.1.2經(jīng)濟可行性</p><p>　　使用本小型酒店管理系統(tǒng)可提高酒店客房管理水平，把大量繁瑣工作簡單化，能夠有效地節(jié)省人力物力，并能夠準確地進行統(tǒng)計和計算，避免人工統(tǒng)計或計算所

37、帶來的差錯，保證酒店管理高效而有序地進行。</p><p>　　綜上所述，此系統(tǒng)開發(fā)目標已明確，在技術、經(jīng)濟等方面都可行，并且投入少、見效快。因此系統(tǒng)的開發(fā)是完全可行的。</p><p><b>　　2.2系統(tǒng)需求分析</b></p><p>　　桂湖酒店是一家比較小型的酒店，設施較齊全。隨著信息技術的發(fā)展和外務對酒店的要求越來越高，該酒店已明

38、顯覺得手工管理已不能適應當前酒店高速發(fā)展的需要。在意識到使用計算機管理的重要性后，決定主要針對客房管理設計出符合要求的小型酒店管理系統(tǒng)。</p><p>　　2.3系統(tǒng)的功能框架</p><p>　　根據(jù)以上的分析，小型酒店系統(tǒng)功能框架劃分如圖2.3所示。</p><p>　　圖2.3系統(tǒng)功能框架劃分</p><p>　　Fig2.3 The

39、 partitionthe of funcion frame of the system</p><p>　　2.4系統(tǒng)業(yè)務流程圖</p><p>　　系統(tǒng)的流程圖設計。系統(tǒng)啟動后進入屏幕展示窗體可以大致了解本系統(tǒng)的開發(fā)環(huán)境和數(shù)據(jù)庫情況等。使用系統(tǒng)登錄時用戶ID和密碼都要自己手動輸入。不同的用戶對系統(tǒng)具有不同的管理權(quán)限。管理員可以對客房信息進行查詢、打印、登記，也可以使用多種實用工具如：還

40、可以修改自己的用戶密碼，還可以通過系統(tǒng)維護模塊對系統(tǒng)進行數(shù)據(jù)庫的管理，可以備份數(shù)據(jù)、恢復數(shù)據(jù)、初始化數(shù)據(jù)。</p><p>　　具體系統(tǒng)的流程圖如下所示：</p><p>　　圖2.4 系統(tǒng)操作流程</p><p>　　Fig.2.4 The flow of system operation</p><p>　　第三章酒店系統(tǒng)結(jié)構(gòu)分析和設計&

41、lt;/p><p><b>　　3.1關系模型設計</b></p><p>　　在開發(fā)小型酒店管理系統(tǒng)時，對客戶的信息的管理必不可少，通過對系統(tǒng)進行的需求分析、業(yè)務流程設計以及系統(tǒng)功能結(jié)構(gòu)的確定，規(guī)劃出系統(tǒng)中使用的數(shù)據(jù)庫實體對象及實體E-R圖。</p><p>　　客房入住需要以客人信息及入住信息進行登記，這就存在一個登記信息實體，其實體E-R圖如

42、圖3.1所示：</p><p>　　Fig.3.1 the E-R chart of registration information table</p><p>　　在此系統(tǒng)中，客房是一個重要的實體，客房實體包含了客房的基本配置信息，以及當前房間狀態(tài) ，其E-R圖如圖3.2所示：</p><p>　　Fig.3.2 the E-R chart of registr

43、ation rooms table</p><p>　　客人退房時需要對退房信息進行登記，退房登記實體包含人的基本信息以及對房費進行結(jié)算登記的信息，退房登記實體的E-R圖如圖3.3所示：</p><p>　　Fig.3.3 the E-R chart of check registration table</p><p><b>　　第四章數(shù)據(jù)庫設計<

44、;/b></p><p>　　4.1Microsoft office Access2003簡介</p><p>　　Microsoft Access是一種關系式數(shù)據(jù)庫，是由微軟公司開發(fā)的。關系式數(shù)據(jù)庫由一系列表組成，表又由一系列行和列組成，每一行是一個記錄，每一列是一個字段，每個字段有一個字段名，字段名在一個表中不能重復。表與表之間可以建立關系（或稱關聯(lián)，連接），以便查詢相關聯(lián)的信息

45、。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)建子窗體顯示

46、相關聯(lián)的表的內(nèi)容。窗體也稱表單。報表(Report) 的功能是將數(shù)據(jù)庫中的數(shù)據(jù)分類匯總，然后打印出來，以便分析。宏(Macro) 相當于DOS中的批處理，用來自動執(zhí)行一系列操作。模塊(Module) 的功能與宏類似，但它定義的操作比宏更精細和復雜，用戶可以根據(jù)自己的需要編寫程序。</p><p>　　4.2數(shù)據(jù)庫表結(jié)構(gòu)設計</p><p>　　該系統(tǒng)使用了Access數(shù)據(jù)庫，名稱為JDGL

47、.mdb，其各表的功能和具體設計結(jié)構(gòu)如下：</p><p>　　4.2.1用戶信息表（tb_user）</p><p>　　功能是保存系統(tǒng)的用戶數(shù)據(jù)，其結(jié)構(gòu)如表4.1所示：</p><p><b>　　表4.1用戶信息表</b></p><p>　　Table4.1The table of user informatio

48、n</p><p>　　4.2.2登記信息表（tb_djb）</p><p>　　功能是用來保存客人住宿時的住宿登記信息，其結(jié)構(gòu)如表4.2所示：</p><p><b>　　表4.2登記信息表</b></p><p>　　Table4.2The table of registration information</

49、p><p>　　4.2.3客房基礎信息表（tb_kf）</p><p>　　功能是用來保存客房基礎信息，其結(jié)構(gòu)如表4.3所示：</p><p><b>　　表4.3客房信息表</b></p><p>　　Table4.3The table of rooms information</p><p>　　

50、4.2.4退房登記信息表（tb_tfd）</p><p>　　功能是用來保存客人退宿登記信息，其結(jié)構(gòu)如表4.4所示：</p><p>　　表4.4 參考文獻信息表</p><p>　　Table4.4The table of check rooms information</p><p>　　第五章系統(tǒng)詳細設計與實現(xiàn)</p>&

51、lt;p>　　5.1系統(tǒng)公共模塊設計 </p><p>　　在系統(tǒng)中使用公共模塊，可節(jié)省系統(tǒng)資源，實現(xiàn)代碼重用。在本系統(tǒng)中新建一個Module模塊，此模塊主要用于共享數(shù)據(jù)庫邊接。其中ESQL()函數(shù)用于打開到數(shù)據(jù)庫的連接，StrCnn()函數(shù)用于返回于一個連接串。公共模塊代碼如下：</p><p>　　Public adocon As New ADODB.Connection &#

52、39;創(chuàng)建ADODB.Connection對象</p><p>　　Public adoRs As New ADODB.Recordset '創(chuàng)建ADODB.Recordset對象</p><p>　　Public Sub Main() '打開數(shù)據(jù)庫連接</p><p>　　adocon.Open "Provider=Mi

53、crosoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB_JDGL.mdb;Persist Security Info=False"</p><p><b>　　End Sub</b></p><p>　　Public Function ESQL(ByVal sql As

54、String) As ADODB.Recordset '定義函數(shù)</p><p>　　Dim cnn As ADODB.Connection '定義連接</p><p>　　Dim rs As ADODB.Recordset '定義記錄集</p><p>　　Set cnn = New ADODB.Connecti

55、on '創(chuàng)建連接</p><p>　　cnn.Open StrCnn '打開連接</p><p>　　Set rs = New ADODB.Recordset</p><p>　　rs.Open Trim(sql), cnn, adOpenKeyset, adLockOptimistic</p>

56、<p>　　Set ESQL = rs</p><p>　　End Function</p><p>　　Public Function StrCnn() '返回一個數(shù)據(jù)庫連接</p><p>　　StrCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="

57、; & App.Path & "\DB_JDGL.mdb;Persist Security Info=False"</p><p>　　End Function</p><p><b>　　5.2主窗體的設計</b></p><p>　　在登錄窗體對話框中輸入正確的操作員和操作員密碼后才能進到主窗體。窗體如圖

58、5.2所示：</p><p>　　圖5.2登錄窗體對話框</p><p>　　Fig5.2 Login form dialog box</p><p>　　其中“確定”與“取消”按扭，采用的是.ico圖標。</p><p><b>　　主要代碼如下：</b></p><p>　　Private S

59、ub Image1_Click()</p><p>　　Static itimes As Integer</p><p>　　Main.StatusBar1.Panels(4).Text = Text1.Text </p><p>　　Adodc1.RecordSource = "select * from tb_user where 操作員=&

60、#39;" + Text1.Text + "'"</p><p><b>　　'驗證操作員及密碼</b></p><p>　　Adodc1.Refresh</p><p>　　If Adodc1.Recordset.RecordCount > 0 Then '如果記錄數(shù)大于零</

61、p><p>　　If Text2.Text = Adodc1.Recordset.Fields("密碼") Then '驗證密碼</p><p><b>　　Load Main</b></p><p><b>　　Main.Show</b></p><p><b>

62、;　　Unload Me</b></p><p><b>　　Else</b></p><p>　　If Text2.Text <> Adodc1.Recordset.Fields("密碼") Then</p><p>　　MsgBox "密碼錯誤,請重新輸入！", vbCriti

63、cal, "系統(tǒng)提示"</p><p>　　itimes = itimes + 1</p><p>　　Text2.Text = ""</p><p>　　Text2.SetFocus</p><p><b>　　End If</b></p><p><

64、;b>　　End If</b></p><p><b>　　Else</b></p><p>　　MsgBox "操作員不存在,請重新輸入！", vbCritical, "系統(tǒng)提示"</p><p>　　itimes = itimes + 1</p><p>　　

65、Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　Text1.SetFocus</p><p><b>　　End If</b></p><p>　　If itimes = 3 Then '錯誤3次，退出系統(tǒng)&l

66、t;/p><p>　　MyMsg = MsgBox("輸入錯誤,請向系統(tǒng)管理員查詢！", vbCritical, "系統(tǒng)提示")</p><p>　　If MyMsg = vbOK Then End</p><p><b>　　End If</b></p><p><b>　

67、　End Sub</b></p><p>　　5.3主窗體的設計與實現(xiàn)</p><p>　　程序啟動后，在系統(tǒng)登錄界面驗證完操作員和操作員密碼后，將進入程序主窗體。在程序主窗體中通過選擇菜單命令或單擊工具欄中的按鈕，可調(diào)用相應程序窗體或進行相應操作；可根據(jù)操作員不同，確定操作員的相應權(quán)限，在主窗體狀態(tài)欄中顯示了系統(tǒng)時間和當前系統(tǒng)操作員。主窗體界面如下圖5.3所示：</p&

68、gt;<p>　　圖5.3 主窗體界面</p><p>　　Fig. 5.3 The Main form interface</p><p>　　該系統(tǒng)主窗體主要通過菜單命令實現(xiàn)調(diào)出各個窗體或執(zhí)行相應操作。同時在主窗體和添加一個Toolbar控件，作為工具欄。通過Toolbar控件的Click事件，也可實現(xiàn)調(diào)出相應窗體或執(zhí)行相應操作。</p><p>

69、　　使用Button對象的Key屬性標識被單擊的按鈕。例如，在主窗體模塊中單擊工具欄中的按鈕，發(fā)生ButtonClick事件，并用Key屬性標識被單擊的按鈕。代碼如下：</p><p>　　Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)</p><p>　　Select Case Button.Key

70、</p><p><b>　　Case "DJ"</b></p><p>　　zsdj_Click '調(diào)入住宿登記</p><p><b>　　Case "TF"</b></p><p>　　tf_Click '調(diào)入退宿

71、結(jié)賬</p><p><b>　　Case "CX"</b></p><p>　　zscx_Click '調(diào)入住宿查詢</p><p><b>　　Case "TX"</b></p><p>　　sftx_Click '調(diào)

72、入提醒</p><p>　　Case "CXDL" '重新登錄</p><p>　　Load main_Login</p><p>　　main_Login.Show</p><p>　　Case "exit"</p><p>　　If MsgBox(&qu

73、ot;確定退出該系統(tǒng)？", 4, "系統(tǒng)提示") = vbYes Then</p><p><b>　　End</b></p><p><b>　　End If</b></p><p>　　End Select</p><p><b>　　End Sub<

74、;/b></p><p>　　單擊主窗體中的菜單項，通過菜單命令實現(xiàn)調(diào)出各個窗體或執(zhí)行相應操作，在各子菜單的Click事件下實現(xiàn)相應操作。部分代碼如下：</p><p>　　Private Sub sjbf_Click() '調(diào)入數(shù)據(jù)備份</p><p>　　main_sjbf.Show</p><p>　　Mai

75、n.Enabled = False</p><p><b>　　End Sub</b></p><p>　　Private Sub sjhf_Click() '數(shù)據(jù)恢復</p><p>　　main_sjhf.Show</p><p><b>　　End Sub</b><

76、;/p><p><b>　　……</b></p><p>　　Private Sub ma_Click() '調(diào)入密碼設置</p><p>　　main_mmsz.Show</p><p>　　Main.Enabled = False</p><p><b>　　E

77、nd Sub</b></p><p>　　5.4住宿登記模塊設計與實現(xiàn)</p><p>　　程序啟動后，選擇菜單欄中“住宿管理”/“住宿登記”命令，或直接單擊工具欄中的“登記”按鈕，將打開住宿登記模塊。在住宿登記模塊中能夠自動生成住宿登記憑證號碼，提供空閑房間供用戶選擇，實現(xiàn)客人住宿登記，收取客人預交宿費，實際宿費、宿費提醒時間、退宿時間、打印住宿登記單據(jù)。住宿登記模塊界面如下

78、圖5.4所示：</p><p>　　圖5.4 住宿登記窗體界面</p><p>　　Fig. 5.4The Accommodation Registration form interface</p><p>　　住宿登記模塊主要用于錄入客人入住信息，此窗體包含了大量的文本框和時間控件等，但這些控件功能都比較簡單，沒有復雜的屬性設置。</p><p

79、>　　打開住宿登記模塊，單擊“登記”按鈕，開始進行住宿登記。“登記”按鈕的Click事件主要實現(xiàn)設置控件有效和無效、自動生成登記憑證號碼等功能。自動生成登記憑證號碼的主要代碼發(fā)下：</p><p>　　Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &

80、 "\DB_JDGL.mdb;Persist Security Info=False"</p><p>　　Adodc2.RecordSource = "select * from tb_djb order by 憑證號碼" '按憑證號碼排序數(shù)據(jù)</p><p>　　Adodc2.Refresh</p><p>　　

81、If Not Adodc2.Recordset.EOF Then Adodc2.Recordset.MoveLast '移動記錄集到最后一條記錄</p><p>　　If lsph.Text = "" Then bh.Text = Fdate & "d" & Format(1, "###000") '當lsph值

82、為空為憑證號碼文本框賦值</p><p>　　If lsph.Text <> "" Then '當lsph值不空時</p><p>　　y1.Text = Month(Fdate) '把當前月份賦給y1</p><p>　　y2.Text = Month(Left(lsph.Text, 10)) '把

83、lsph中的月份賦給y2</p><p>　　If y1.Text = y2.Text Then '如果y1文本框中內(nèi)容與y2相同</p><p>　　bh.Text = Fdate & "d" & Format(Val(Right(lsph.Text, 3)) + 1, "###000") '為憑證號碼文本

84、框賦值</p><p>　　Text2.Text = Val(Right(lsph.Text, 3)) + 1 'text1中存儲lsph文本框中后三位數(shù)</p><p><b>　　End If</b></p><p>　　If y1.Text <> y2.Text Then '如果y1文本框中內(nèi)容與y2不同&

85、lt;/p><p>　　bh.Text = Fdate & "d" & Format(1, "###000") '為憑證號碼文本框賦值</p><p><b>　　End If</b></p><p><b>　　End If</b></p>&l

86、t;p>　　當住宿信息登記完成后，“打印”按鈕處于可用狀態(tài)，可以單擊“打印”按鈕打印住宿證。主要代碼如下：</p><p>　　Private Sub comprint_Click()</p><p>　　On Error GoTo 1 '出錯轉(zhuǎn)向標簽“1”</p><p>　　Dim X As Printer</p><p&g

87、t;<b>　　'打印住宿登記單據(jù)</b></p><p>　　Printer.Height = 8000: Printer.Width = 8000 '設置高度和寬度</p><p>　　Printer.CurrentX = 1100: Printer.CurrentY = 300 '設置打印位置</p><p&

88、gt;　　Printer.FontSize = 12 '設置字體大小</p><p>　　Printer.Print "桂湖酒店客房 (住宿證) " '打印文字</p><p>　　Dim A, B, C, d As Integer '定義變量</p>

89、<p>　　A = 100: B = 500: C = 4800: d = 400 '為變量賦值</p><p>　　Printer.FontSize = 10 '設置字體大小</p><p>　　Printer.CurrentX = 100 + A '設置打印橫坐標</p><p>　　Printer.Current

90、Y = B + 200 '設置打印縱坐標</p><p>　　Printer.Print d & " " & t & " NO." & bh.Text '打印日期、時間和憑證號碼</p><p>　　B = B + d '為變量B賦值</p><p><

91、;b>　　……</b></p><p>　　Printer.Line (A, B + 100)-(C, B + 100) '打印一條直線</p><p>　　Printer.CurrentX = 100 + A</p><p>　　Printer.CurrentY = B + 200</p><p>　　Print

92、er.Print "操作員: " & czy.Text & " 歡迎光臨" </p><p>　　Printer.EndDoc '輸出給打印機</p><p><b>　　Exit Sub</b></p><p>　　If Err.Number =

93、482 Then</p><p>　　MsgBox "請連接打印機！", , "系統(tǒng)提示"</p><p><b>　　Err.Clear</b></p><p><b>　　End If</b></p><p><b>　　End Sub</

94、b></p><p>　　5.5調(diào)房登記模塊設計與實現(xiàn)</p><p>　　在主窗體中，選擇住宿管理菜單下的調(diào)房登記項，將進入調(diào)房登記模塊。在調(diào)房登記模塊中選擇客人入住的房間號和空閑房間號，實現(xiàn)調(diào)房登記，系統(tǒng)只允許調(diào)換等價客房。調(diào)房登記界面如圖5.5所示：</p><p>　　圖5.5 調(diào)房登記窗體界面</p><p>　　Fig. 5

95、.5The Housing Register Transfer form interface</p><p>　　調(diào)房登記模塊主要實現(xiàn)對客人房間進行調(diào)換的過程，源房間號列表是查詢登記表中當前所有住宿客人的房間號碼，在選擇源房間號后，實現(xiàn)生成目標房間號。</p><p><b>　　主要代碼如下</b></p><p>　　Private Sub

96、 Combo3_Click()</p><p>　　Combo2.Clear '清空Combo2中的內(nèi)容</p><p>　　If Combo3.Text <> "" Then '如果Combo3不為空</p><p>　　…… </p><p><b&

97、gt;　　End If</b></p><p>　　'賦值給bh.text等</p><p>　　With Adodc1.Recordset 'with快</p><p>　　If .Fields("憑證號碼") <> "" Then bh.Text = .Fields("憑證

98、號碼") '為“憑證號碼”字段賦值</p><p><b>　　……</b></p><p>　　End With '結(jié)束with快</p><p><b>　　End If</b></p><p><b>　　End If</b></p&g

99、t;<p>　　Combo2.Enabled = True 'Combo2可用</p><p>　　Texbz.Enabled = True 'Texbz可用</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p

100、>　　5.6追加押金模塊設計</p><p>　　在主窗體中，選擇住宿管理菜單下的追加押金項，將進入追加押金模塊。在“憑證號碼”下拉列表框中選擇客人入住的憑證號碼，在“追加押金”文本框中輸入客人續(xù)交的押金后，在相應的文本框中將顯示客人的入住信息，并自動計算宿費提醒日期和時間，還可打印追加押金票據(jù)。追加押金界面如圖5.6所示：</p><p>　　圖5.6 追加押金窗體界面</p

101、><p>　　Fig. 5.6The Additional Deposit form interface</p><p>　　在窗體的A事件中，主要實現(xiàn)查詢數(shù)據(jù)表中住宿客人信息，對“憑證號碼”列表框賦值。主要代碼如下：</p><p>　　Private Sub Form_Activate()</p><p>　　Dim i As Integer

102、</p><p>　　czy.Text = Main.StatusBar1.Panels(4).Text '賦值給czy.text，顯示當前操作員</p><p><b>　　'查詢住宿登記信息</b></p><p>　　Adodc1.RecordSource = "select 憑證號碼 from tb_d

103、jb where 標志= '1'order by 憑證號碼"</p><p>　　Adodc1.Refresh '刷新記錄</p><p>　　If Adodc1.Recordset.RecordCount > 0 Then '如果記錄數(shù)大于0</p><p>　　For i = 1 To Adodc1.Reco

104、rdset.RecordCount '循環(huán)從1到記錄數(shù)值</p><p>　　Combo1.AddItem Adodc1.Recordset.Fields("憑證號碼").Value '從Combo1中添加項目</p><p>　　Adodc1.Recordset.MoveNext '記錄下移</p><p><

105、b>　　Next i</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　在追加押金模塊中單擊“確定”按扭，將把追加押金信息保存在數(shù)據(jù)表中，自動計算新的提醒日期，并設定其他控件的有效和無效。部分代碼如下：</p>

106、<p>　　Private Sub Command1_Click()</p><p><b>　　'保存追加押金信息</b></p><p>　　If Text1.Text <> "" And Combo1.Text <> "" Then</p><p><

107、b>　　'查詢住宿登記信息</b></p><p><b>　　……</b></p><p>　　adoRs.Fields("預收金額") = Val(Text3.Text) + Val(Text1.Text) '把已收押金和追加押金的和賦給預收金額字段</p><p><b>

108、　　……</b></p><p>　　Adodc2.Refresh '刷新數(shù)據(jù)</p><p>　　'編輯住宿登記預收信息</p><p><b>　　……</b></p><p>　　MsgBox "請?zhí)顚懲暾臄?shù)據(jù),再保存!", , "系統(tǒng)提示" &

109、#39;如果憑證號碼為空或追加押金為空，提示消息</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　5.6系統(tǒng)維護模塊的具體實現(xiàn)</p><p>　　系統(tǒng)維護模塊包括子模塊數(shù)據(jù)備份、數(shù)據(jù)恢復和初始化。</p>&l

110、t;p>　　數(shù)據(jù)備份模塊，可以將系統(tǒng)的所有數(shù)據(jù)庫內(nèi)容都備份到指定的備份文件夾中。窗體如下圖5.71所示：</p><p>　　圖5.71 數(shù)據(jù)備份界面</p><p>　　Fig. 5.71The surface of Data backup</p><p><b>　　部分代碼如下：</b></p><p>　　

111、Private Sub Command1_Click()</p><p>　　A = MsgBox("確定備份數(shù)據(jù)？", 4, "系統(tǒng)提示")</p><p>　　If A = vbYes Then</p><p>　　Command1.Enabled = False</p><p>　　Progres

112、sBar1.Visible = True</p><p>　　ProgressBar1.Max = UBound(workarea)</p><p>　　ProgressBar1.Value = ProgressBar1.Min</p><p>　　For Counter = LBound(workarea) To UBound(workarea)</p>

113、;<p>　　workarea(Counter) = "initial value " & Counter</p><p>　　ProgressBar1.Value = Counter</p><p>　　Open str1 For Binary As #1</p><p>　　Open str2 For Binary As

114、 #2</p><p>　　Do While Not EOF(1)</p><p>　　Get #1, , char</p><p>　　Put #2, , char</p><p><b>　　Loop</b></p><p><b>　　Close</b></p&g

115、t;<p>　　Next Counter</p><p>　　ProgressBar1.Value = ProgressBar1.Min</p><p>　　MsgBox "數(shù)據(jù)庫備份成功！", , "系統(tǒng)提示"</p><p>　　Command1.Enabled = True</p><p

116、><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　數(shù)據(jù)恢復模塊，可以將備份文件夾中的數(shù)據(jù)庫內(nèi)容恢復到原來的數(shù)據(jù)庫中。如下圖5.72所示：</p><p>　　圖5.72 數(shù)據(jù)恢復界面</p><p>　　Fig. 5.72 The su

117、rface of Data recovery</p><p><b>　　主要代碼如下：</b></p><p>　　Private Sub Command1_Click()</p><p>　　A = MsgBox("確認恢復數(shù)據(jù)庫？", 4, "系統(tǒng)提示")</p><p>　

118、　If A = vbYes Then</p><p>　　Command1.Enabled = False</p><p>　　ProgressBar1.Visible = True</p><p>　　'ProgressBar 控件通過從左到右用一些方塊填充矩形來表示一個較長操作的進度。</p><p>　　ProgressBar1

119、.Max = UBound(workarea)</p><p>　　ProgressBar1.Value = ProgressBar1.Min</p><p>　　For Counter = LBound(workarea) To UBound(workarea)</p><p>　　'LBound 函數(shù)返回一個 Long 型數(shù)據(jù)，其值為指定數(shù)組維可用的最小

120、下標。</p><p>　　'UBound 函數(shù)返回一個 Long 型數(shù)據(jù)，其值為指定的數(shù)組維可用的最大下標。</p><p>　　workarea(Counter) = "initial value " & Counter</p><p>　　ProgressBar1.Value = Counter</p><

121、;p>　　Open str1 For Binary As #1</p><p>　　Open str2 For Binary As #2</p><p>　　Do While Not EOF(1)</p><p>　　Get #1, , char</p><p>　　Put #2, , char</p><p>

122、<b>　　Loop</b></p><p><b>　　Close</b></p><p>　　Next Counter</p><p>　　ProgressBar1.Value = ProgressBar1.Min</p><p>　　MsgBox "數(shù)據(jù)庫恢復成功！", ,

123、 "系統(tǒng)提示"</p><p>　　Command1.Enabled = True</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　初始化模塊，對系統(tǒng)數(shù)據(jù)進行初始化即刪除數(shù)據(jù)庫中的數(shù)據(jù)，用戶在使用本系統(tǒng)之前