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

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

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

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

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

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

6、在住宿費(fèi)超過(guò)押金時(shí)預(yù)警，提示前臺(tái)要客人補(bǔ)交押金，該功能可明顯提高對(duì)住宿人員宿費(fèi)的有效管理。將動(dòng)態(tài)實(shí)時(shí)的住宿登記、客房調(diào)整、追加押金等有機(jī)地聯(lián)系在一起，對(duì)小型酒店客房進(jìn)行全方位的管理。</p><p>　　關(guān)鍵詞：酒店管理系統(tǒng); VB; ACCESS 2003; 數(shù)據(jù)庫(kù)</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)站開(kāi)發(fā)背景1</p><p>　　1.2國(guó)內(nèi)外研究?jī)?nèi)容1</p><p>　　1.3本課題研究目的意義2</p><p>　　1.4系統(tǒng)運(yùn)行環(huán)境4</p><p>　　第二章酒店系

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

35、.1.1技術(shù)可行性</p><p>　　在開(kāi)發(fā)技術(shù)方面，酒店管理系統(tǒng)開(kāi)發(fā)技術(shù)非常成熟，開(kāi)發(fā)工具很多。本人采用以下的組合可以滿足小型酒店管理系統(tǒng)開(kāi)發(fā)的要求 :Microsoft windows xp操作系統(tǒng)、PC機(jī)、 Microsoft Office Access2003。微軟公司的Office Access2003數(shù)據(jù)庫(kù)系統(tǒng)，適用于小型的系統(tǒng)開(kāi)發(fā)，用于存儲(chǔ)和管理系統(tǒng)所需要的數(shù)據(jù)。它以操作簡(jiǎn)單、易學(xué)易用的特點(diǎn)而受到

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

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

38、顯覺(jué)得手工管理已不能適應(yīng)當(dāng)前酒店高速發(fā)展的需要。在意識(shí)到使用計(jì)算機(jī)管理的重要性后，決定主要針對(duì)客房管理設(shè)計(jì)出符合要求的小型酒店管理系統(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è)務(wù)流程圖</p><p>　　系統(tǒng)的流程圖設(shè)計(jì)。系統(tǒng)啟動(dòng)后進(jìn)入屏幕展示窗體可以大致了解本系統(tǒng)的開(kāi)發(fā)環(huán)境和數(shù)據(jù)庫(kù)情況等。使用系統(tǒng)登錄時(shí)用戶ID和密碼都要自己手動(dòng)輸入。不同的用戶對(duì)系統(tǒng)具有不同的管理權(quán)限。管理員可以對(duì)客房信息進(jìn)行查詢、打印、登記，也可以使用多種實(shí)用工具如：還

40、可以修改自己的用戶密碼，還可以通過(guò)系統(tǒng)維護(hù)模塊對(duì)系統(tǒng)進(jìn)行數(shù)據(jù)庫(kù)的管理，可以備份數(shù)據(jù)、恢復(fù)數(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)分析和設(shè)計(jì)&

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

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

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

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

45、。Access數(shù)據(jù)庫(kù)以文件形式保存，文件的擴(kuò)展名是MDB。Access 數(shù)據(jù)庫(kù)由六種對(duì)象組成，它們是表、查詢、窗體、報(bào)表、宏和模塊。表(Table)是數(shù)據(jù)庫(kù)的基本對(duì)象，是創(chuàng)建其他5種對(duì)象的基礎(chǔ)。表由記錄組成，記錄由字段組成，表用來(lái)存貯數(shù)據(jù)庫(kù)的數(shù)據(jù)，故又稱數(shù)據(jù)表。查詢(Query)可以按索引快速查找到需要的記錄，按要求篩選記錄并能連接若干個(gè)表的字段組成新表。窗體(Form) 提供了一種方便的瀏覽、輸入及更改數(shù)據(jù)的窗口。還可以創(chuàng)建子窗體顯示

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

47、.mdb，其各表的功能和具體設(shè)計(jì)結(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>　　功能是用來(lái)保存客人住宿時(shí)的住宿登記信息，其結(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客房基礎(chǔ)信息表（tb_kf）</p><p>　　功能是用來(lái)保存客房基礎(chǔ)信息，其結(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>　　功能是用來(lái)保存客人退宿登記信息，其結(jié)構(gòu)如表4.4所示：</p><p>　　表4.4 參考文獻(xiàn)信息表</p><p>　　Table4.4The table of check rooms information</p><p>　　第五章系統(tǒng)詳細(xì)設(shè)計(jì)與實(shí)現(xiàn)</p>&

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

52、39;創(chuàng)建ADODB.Connection對(duì)象</p><p>　　Public adoRs As New ADODB.Recordset '創(chuàng)建ADODB.Recordset對(duì)象</p><p>　　Public Sub Main() '打開(kāi)數(shù)據(jù)庫(kù)連接</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 '打開(kāi)連接</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() '返回一個(gè)數(shù)據(jù)庫(kù)連接</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主窗體的設(shè)計(jì)</b></p><p>　　在登錄窗體對(duì)話框中輸入正確的操作員和操作員密碼后才能進(jìn)到主窗體。窗體如圖

58、5.2所示：</p><p>　　圖5.2登錄窗體對(duì)話框</p><p>　　Fig5.2 Login form dialog box</p><p>　　其中“確定”與“取消”按扭，采用的是.ico圖標(biāo)。</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>　　'驗(yàn)證操作員及密碼</b></p><p>　　Adodc1.Refresh</p><p>　　If Adodc1.Recordset.RecordCount > 0 Then '如果記錄數(shù)大于零</

61、p><p>　　If Text2.Text = Adodc1.Recordset.Fields("密碼") Then '驗(yàn)證密碼</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 "密碼錯(cuò)誤,請(qǐng)重新輸入！", 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 "操作員不存在,請(qǐng)重新輸入！", 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 '錯(cuò)誤3次，退出系統(tǒng)&l

66、t;/p><p>　　MyMsg = MsgBox("輸入錯(cuò)誤,請(qǐng)向系統(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主窗體的設(shè)計(jì)與實(shí)現(xiàn)</p><p>　　程序啟動(dòng)后，在系統(tǒng)登錄界面驗(yàn)證完操作員和操作員密碼后，將進(jìn)入程序主窗體。在程序主窗體中通過(guò)選擇菜單命令或單擊工具欄中的按鈕，可調(diào)用相應(yīng)程序窗體或進(jìn)行相應(yīng)操作；可根據(jù)操作員不同，確定操作員的相應(yīng)權(quán)限，在主窗體狀態(tài)欄中顯示了系統(tǒng)時(shí)間和當(dāng)前系統(tǒng)操作員。主窗體界面如下圖5.3所示：</p&

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

69、　　使用Button對(duì)象的Key屬性標(biāo)識(shí)被單擊的按鈕。例如，在主窗體模塊中單擊工具欄中的按鈕，發(fā)生ButtonClick事件，并用Key屬性標(biāo)識(shí)被單擊的按鈕。代碼如下：</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àng)，通過(guò)菜單命令實(shí)現(xiàn)調(diào)出各個(gè)窗體或執(zhí)行相應(yīng)操作，在各子菜單的Click事件下實(shí)現(xiàn)相應(yīng)操作。部分代碼如下：</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ù)恢復(fù)</p><p>　　main_sjhf.Show</p><p><b>　　End Sub</b><

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

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

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

79、>　　打開(kāi)住宿登記模塊，單擊“登記”按鈕，開(kāi)始進(jìn)行住宿登記。“登記”按鈕的Click事件主要實(shí)現(xiàn)設(shè)置控件有效和無(wú)效、自動(dòng)生成登記憑證號(hào)碼等功能。自動(dòng)生成登記憑證號(hào)碼的主要代碼發(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 憑證號(hào)碼" '按憑證號(hào)碼排序數(shù)據(jù)</p><p>　　Adodc2.Refresh</p><p>　　

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

82、為空為憑證號(hào)碼文本框賦值</p><p>　　If lsph.Text <> "" Then '當(dāng)lsph值不空時(shí)</p><p>　　y1.Text = Month(Fdate) '把當(dāng)前月份賦給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") '為憑證號(hào)碼文本

84、框賦值</p><p>　　Text2.Text = Val(Right(lsph.Text, 3)) + 1 'text1中存儲(chǔ)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") '為憑證號(hào)碼文本框賦值</p><p><b>　　End If</b></p><p><b>　　End If</b></p>&l

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

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

88、gt;　　Printer.FontSize = 12 '設(shè)置字體大小</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 '設(shè)置字體大小</p><p>　　Printer.CurrentX = 100 + A '設(shè)置打印橫坐標(biāo)</p><p>　　Printer.Current

90、Y = B + 200 '設(shè)置打印縱坐標(biāo)</p><p>　　Printer.Print d & " " & t & " NO." & bh.Text '打印日期、時(shí)間和憑證號(hào)碼</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 '輸出給打印機(jī)</p><p><b>　　Exit Sub</b></p><p>　　If Err.Number =

93、482 Then</p><p>　　MsgBox "請(qǐng)連接打印機(jī)！", , "系統(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)房登記模塊設(shè)計(jì)與實(shí)現(xiàn)</p><p>　　在主窗體中，選擇住宿管理菜單下的調(diào)房登記項(xiàng)，將進(jìn)入調(diào)房登記模塊。在調(diào)房登記模塊中選擇客人入住的房間號(hào)和空閑房間號(hào)，實(shí)現(xiàn)調(diào)房登記，系統(tǒng)只允許調(diào)換等價(jià)客房。調(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)房登記模塊主要實(shí)現(xiàn)對(duì)客人房間進(jìn)行調(diào)換的過(guò)程，源房間號(hào)列表是查詢登記表中當(dāng)前所有住宿客人的房間號(hào)碼，在選擇源房間號(hào)后，實(shí)現(xiàn)生成目標(biāo)房間號(hào)。</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("憑證號(hào)碼") <> "" Then bh.Text = .Fields("憑證

98、號(hào)碼") '為“憑證號(hào)碼”字段賦值</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追加押金模塊設(shè)計(jì)</p><p>　　在主窗體中，選擇住宿管理菜單下的追加押金項(xiàng)，將進(jìn)入追加押金模塊。在“憑證號(hào)碼”下拉列表框中選擇客人入住的憑證號(hào)碼，在“追加押金”文本框中輸入客人續(xù)交的押金后，在相應(yīng)的文本框中將顯示客人的入住信息，并自動(dòng)計(jì)算宿費(fèi)提醒日期和時(shí)間，還可打印追加押金票據(jù)。追加押金界面如圖5.6所示：</p><p>　　圖5.6 追加押金窗體界面</p

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

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

103、jb where 標(biāo)志= '1'order by 憑證號(hào)碼"</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("憑證號(hào)碼").Value '從Combo1中添加項(xiàng)目</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ù)表中，自動(dòng)計(jì)算新的提醒日期，并設(shè)定其他控件的有效和無(wú)效。部分代碼如下：</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("預(yù)收金額") = Val(Text3.Text) + Val(Text1.Text) '把已收押金和追加押金的和賦給預(yù)收金額字段</p><p><b>

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

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

110、t;p>　　數(shù)據(jù)備份模塊，可以將系統(tǒng)的所有數(shù)據(jù)庫(kù)內(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ù)庫(kù)備份成功！", , "系統(tǒng)提示"</p><p>　　Command1.Enabled = True</p><p

116、><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　數(shù)據(jù)恢復(fù)模塊，可以將備份文件夾中的數(shù)據(jù)庫(kù)內(nèi)容恢復(fù)到原來(lái)的數(shù)據(jù)庫(kù)中。如下圖5.72所示：</p><p>　　圖5.72 數(shù)據(jù)恢復(fù)界面</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("確認(rèn)恢復(fù)數(shù)據(jù)庫(kù)？", 4, "系統(tǒng)提示")</p><p>　

118、　If A = vbYes Then</p><p>　　Command1.Enabled = False</p><p>　　ProgressBar1.Visible = True</p><p>　　'ProgressBar 控件通過(guò)從左到右用一些方塊填充矩形來(lái)表示一個(gè)較長(zhǎng)操作的進(jìn)度。</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ù)返回一個(gè) Long 型數(shù)據(jù)，其值為指定數(shù)組維可用的最小

120、下標(biāo)。</p><p>　　'UBound 函數(shù)返回一個(gè) Long 型數(shù)據(jù)，其值為指定的數(shù)組維可用的最大下標(biāo)。</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ù)庫(kù)恢復(fù)成功！", ,

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