DELPHI酒店管理系統(tǒng)設(shè)計

1、摘 要酒店賓館作為一個服務(wù)性行業(yè)，從客房的營銷即客人的預(yù)定開始，到入住等級直至最后退房結(jié)賬，整個過程應(yīng)該能夠體現(xiàn)以賓客為中心，提供快捷、方便的服務(wù)，提高酒店的管理水平，簡化各種復(fù)雜操作，在最合理、最短的時間內(nèi)完成酒店業(yè)務(wù)的規(guī)范操作。雖然信息化并不是酒店走向成功的關(guān)鍵元素，但它可以幫助那些真正影響成敗的要素發(fā)揮更大的效用。因此，采用全新的計算機網(wǎng)絡(luò)和管理系統(tǒng)，將成為提高酒店的管理效率，改善服務(wù)水準的重要手段之一。酒店行業(yè)的激烈競爭使得爭取客源、提高酒店滿員率、指定正確營銷策略已經(jīng)成為一項重要的任務(wù)，而借助于當前蓬勃發(fā)展的IT工具來拓展銷售能力，創(chuàng)造可觀的經(jīng)濟效益已經(jīng)成為許多酒店的首選。作為一種有

2、效的統(tǒng)計分析手段，計算機管理系統(tǒng)發(fā)揮了其強大的優(yōu)勢，在數(shù)據(jù)保存、數(shù)據(jù)交換等方面均快速可靠，這是手工操作無法實現(xiàn)的。本系統(tǒng)使用Delphi和SOL Srver 2000開發(fā)而成。本文設(shè)計的酒店管理系統(tǒng)，包括基礎(chǔ)設(shè)置，預(yù)定管理和房態(tài)管理三個部分，實現(xiàn)了基本的計算機管理系統(tǒng)的要求。關(guān)鍵詞：酒店管理；基礎(chǔ)設(shè)置；酒店預(yù)定管理；房態(tài)管理AbstractHotel as a service industries, from the marketing is the guest room reservation, check-in level to check until the check-out, who

3、le process should be able to embody the guests as the center, provide quick, convenient service, improve the level of management, simplify complicated operation, the most reasonable, in the shortest time of complete hotel business standard operation. Although informatization and not the key elements

4、 of the hotel to success, but it can help those who really affect the success of factors play a greater utility. Therefore, using new computer network and management system, improve the management will become efficiency and improve the service level is one of the important means.The hotel industry c

5、ompetition for tourists, improve the hotel that were correct, designated marketing strategy has become an important task, and with the vigorous development of tools to expand sales ability of IT, create considerable economic benefits has become the preferred hotels. As an effective means of statisti

6、cal analysis, the computer management system for the strong superiority, data storage and data exchange in such aspects as fast and reliable, it is impossible to realize the manual operation. This system uses Delphi and SOL Srver 2000 development.This paper designs the hotel management system, inclu

7、ding the basis set, management and room management department, realize the basic computer management system requirements.Keywords: hotel management, Basic configuration, Hotel management, Room management目 錄引 言 1第一章 系統(tǒng)的分析21.1 開發(fā)環(huán)境簡介21.1.1 SQL Server 2000數(shù)據(jù)庫 21.1.2 Delphi7.0的開發(fā)環(huán)境 21.2 本次設(shè)計任務(wù)及要求21.3 系統(tǒng)

8、的功能需求21.3.1 功能概述31.3.2 用戶環(huán)境41.3.3 其他要求41.3.4 需求分析41.4 系統(tǒng)的性能需求61.4.1 系統(tǒng)的用戶界面61.4.2 系統(tǒng)的可靠性和穩(wěn)定性61.4.3 系統(tǒng)的開放性61.4.4 系統(tǒng)的易維護性7第二章 系統(tǒng)的總體設(shè)計82.1 靜態(tài)數(shù)據(jù)82.1.1 業(yè)務(wù)流程圖82.1.2 系統(tǒng)E-R圖92.2 數(shù)據(jù)庫信息表10第三章 系統(tǒng)的詳細設(shè)計153.1 系統(tǒng)模塊的功能設(shè)計153.1.1 創(chuàng)建工程153.1.2 創(chuàng)建系統(tǒng)主窗體153.2 完成客房類型設(shè)置功能223.3 完成客房信息設(shè)置功能253.4 完成房態(tài)管理功能333.5 完成預(yù)訂管理功能343.6 編譯并

9、運行系統(tǒng)37第四章 系統(tǒng)的使用說明384.1 系統(tǒng)的服務(wù)器架設(shè)384.1 酒店管理系統(tǒng)的啟動和運行38結(jié) 論 40參考文獻 41謝 辭 42引 言在信息高度發(fā)達的今天，酒店業(yè)務(wù)涉及的各環(huán)節(jié)已不再僅僅是傳統(tǒng)的住宿、結(jié)算業(yè)務(wù)，而是更廣泛、更全面的服務(wù)性行業(yè)代表。酒店賓館作為一個服務(wù)性行業(yè)，從客房的營銷，即客人的預(yù)定開始，到入住登記直至最后退房結(jié)賬，整個過程應(yīng)該能夠體現(xiàn)以客人為中心，提供快捷、方便的服務(wù)，令客人感受到一種顧客至上的享受，提高酒店的管理水平，簡化各種復(fù)雜操作，在最合理最短時間內(nèi)完成酒店業(yè)務(wù)規(guī)范操作，這樣才能令客人舒適難忘，增加客人回頭率。面對酒店業(yè)內(nèi)激烈的競爭形勢，各酒店均在努力拓展其

10、服務(wù)領(lǐng)域的廣度和深度。雖然信息化并不是酒店走向成功的關(guān)鍵元素，但它可以幫助那些整整影響成敗的要素發(fā)揮更大的效用。因此，采用全新的計算機網(wǎng)絡(luò)和管理系統(tǒng)，將成為提高酒店的管理效率，改善服務(wù)水準的重要手段之一。本系統(tǒng)設(shè)計的主要目標是設(shè)計一個面向中小型酒店的簡單易用的酒店管理系統(tǒng)。前臺以Delphi為開發(fā)工具,設(shè)計軟件的界面和各個功能模塊;后臺使用SQL Server2000進行系統(tǒng)數(shù)據(jù)庫的連接和管理。本系統(tǒng)基本包含了酒店主要業(yè)務(wù)功能,其分為基礎(chǔ)設(shè)置、業(yè)務(wù)管理、房間管理三大部分。基礎(chǔ)設(shè)置中有客房類型設(shè)置、客房信息設(shè)置功能；業(yè)務(wù)管理包含預(yù)定管理、入住管理、消費記帳和收銀退房功能；房間管理可以根據(jù)實際需要

11、設(shè)置和及時更新房間狀態(tài)。第一章 系統(tǒng)的分析1.1 開發(fā)環(huán)境簡介1.1.1 SQL Server 2000數(shù)據(jù)庫Microsoft SQL Server 2000是一個關(guān)系數(shù)據(jù)庫管理系統(tǒng)，還是典型的客戶機/服務(wù)器結(jié)構(gòu)的數(shù)據(jù)庫系統(tǒng)。SQL Server 2000工具和實用程序包括企業(yè)管理器、服務(wù)管理器、查詢分析器、事件探查器、導(dǎo)入和導(dǎo)出數(shù)據(jù)、服務(wù)器網(wǎng)絡(luò)使用工具、客戶端網(wǎng)絡(luò)使用工具、聯(lián)機幫助文檔。其中，做常用的是企業(yè)管理器，它可用于管理SQL Server服務(wù)器；建立與管理數(shù)據(jù)庫；建立與管理表、視圖、存儲過程、觸發(fā)程序、角色、規(guī)則、默認值等數(shù)據(jù)庫對象，以及備份數(shù)據(jù)庫、恢復(fù)數(shù)據(jù)庫等。1.1.2 Del

12、phi 7.0的開發(fā)環(huán)境Delphi是Borland公司研發(fā)的可視化軟件開發(fā)系統(tǒng)，其Delphi7是最成熟的一個版本。它基于Object Pascal語言，具有語法眼鏡、結(jié)構(gòu)清晰、可讀性強和代碼執(zhí)行效率高等優(yōu)點。Delphi采用了可重復(fù)利用的面向?qū)ο蟮某绦蛟O(shè)計、組件化的變成方式，并提供高度集成化的圖形用戶界面設(shè)計工具、時間驅(qū)動的程序設(shè)計方法和先進的數(shù)據(jù)庫技術(shù)等許多先進特性和設(shè)計思想。隨著應(yīng)用的深入，Delphi7已經(jīng)成為基于Windows操作系統(tǒng)的程序設(shè)計主流語言之一。1.2 本次設(shè)計任務(wù)及要求本次設(shè)計旨在設(shè)計一個酒店管理系統(tǒng)，該系統(tǒng)主要包括以下內(nèi)容：基礎(chǔ)設(shè)置：包括客房類型和客房信息設(shè)置。預(yù)定

13、管理：用于管理客戶的預(yù)定業(yè)務(wù)。房態(tài)管理：包括查詢當日酒店實時房態(tài)、修改客房的狀態(tài)。系統(tǒng)應(yīng)具有良好的可操作性、可靠性、健壯性和可維護性。1.3 系統(tǒng)的功能需求本系統(tǒng)采用面向?qū)ο蠛徒Y(jié)構(gòu)化程序設(shè)計思想相結(jié)合的方法進行系統(tǒng)的設(shè)計開發(fā)。由于窗體和組件也是一個類，所以在進行用戶界面的設(shè)計時，我們同樣需要從面向?qū)ο蟮慕嵌葋砜紤]。面向?qū)ο笤O(shè)計方法以對象為基礎(chǔ)，解決了傳統(tǒng)結(jié)構(gòu)化開發(fā)方法中客觀世界描述工具與軟件結(jié)構(gòu)的不一致性問題，縮短了開發(fā)周期，解決了從分析和設(shè)計到軟件模塊結(jié)構(gòu)之間多次轉(zhuǎn)換映射的繁雜過程。結(jié)構(gòu)化設(shè)計方法是把程序被劃分成許多個模塊，這些模塊類似為一個樹型結(jié)構(gòu)。這棵樹的根就是主模塊，葉子就是工具模塊和

14、最低級的功能模塊;同時，這棵樹也表示調(diào)用結(jié)構(gòu)。每個模塊都調(diào)用自己的直接下級模塊，并被自己的直接上級模塊調(diào)用。對上述各項功能進行集中、分塊、按照結(jié)構(gòu)化程序設(shè)計的要求，設(shè)計系統(tǒng)功能模塊圖。1.3.1 功能概述根據(jù)前面介紹的酒店管理的業(yè)務(wù)流程和信息化管理的目標，一個通用的酒店管理系統(tǒng)應(yīng)包含圖1-1所示的功能，其中每個功能都由若干相關(guān)聯(lián)的子功能模塊組成。除此之外系統(tǒng)還應(yīng)該包括信息系統(tǒng)必須具備的通用功能，例如權(quán)限設(shè)置、數(shù)據(jù)備份與恢復(fù)等。酒店管理系統(tǒng)系統(tǒng)管理報表管理基 礎(chǔ)設(shè)置預(yù)定管理房態(tài)管理前臺接待管理前臺收銀管理 圖1-1酒店管理系統(tǒng)功能結(jié)構(gòu)圖基礎(chǔ)設(shè)置功能；管理酒店客房預(yù)訂功能；管理房態(tài)功能；更新客房的

15、相關(guān)信息；前臺接待管理功能；前臺收銀管理功能；報表管理功能此外，當不需要使用系統(tǒng)的上述功能時，也可退出系統(tǒng)。1.3.2 用戶環(huán)境服務(wù)器硬件要求：處理器：Pentium 3以上；內(nèi)存512MB;硬盤40G;服務(wù)器端軟件要求：操作系統(tǒng)：Windows 2000或Windows XP；數(shù)據(jù)庫服務(wù)器：Microsoft SQL SERVER 2000;客戶端軟件要求：操作系統(tǒng)：Windows 2000或Windows XP；開發(fā)工具：Delphi 7.0 和 Microsoft SQL Server2000；1.3.3 其他要求訪問容量：最大并發(fā)用戶數(shù)為100；1.3.4 需求分析酒店管理系統(tǒng)主要劃分

16、為客房類型設(shè)置模塊、客房信息設(shè)置模塊、預(yù)訂管理模塊、房態(tài)管理模塊三個部分。而在系統(tǒng)的詳細設(shè)計中，要求對每個模塊的具體功能進行設(shè)計，為之后的界面設(shè)計及程序代碼實現(xiàn)提供依據(jù)。(1)基礎(chǔ)設(shè)置“基礎(chǔ)設(shè)置”用于對客房類型，客房價格，客房信息，系統(tǒng)參數(shù)等項目進行初始化設(shè)置，并且這些設(shè)置不經(jīng)常發(fā)生變動。包含的功能模塊如下圖所示：基礎(chǔ)設(shè)置系統(tǒng)參數(shù)設(shè)置房價設(shè)置客房信息設(shè)置客房類型設(shè)置圖1-2“基礎(chǔ)設(shè)置”功能模塊“客房類型設(shè)置”用于設(shè)置本酒店客房的分類信息，內(nèi)容包括房類名稱、房價、可預(yù)訂數(shù)等?！翱头啃畔⒃O(shè)置”用于設(shè)置客房的初始信息，包括房間號、房類編號、樓層、額定人數(shù)、房間特征備注等。“房價設(shè)置”用于設(shè)置房價的折

17、扣信息，內(nèi)容包括折扣名稱種類、折扣額度、房類編號、折后房價、折扣有效時間等?！跋到y(tǒng)參數(shù)設(shè)置”用于設(shè)置管理系統(tǒng)的各種參數(shù)值，例如酒店名稱，房態(tài)顯示模式等。(2)預(yù)訂管理“預(yù)訂管理”用于管理客戶的預(yù)定業(yè)務(wù)，包含以下功能模塊：預(yù)定管理房態(tài)表來賓預(yù)訂預(yù)訂查詢修改預(yù)訂可預(yù)訂客房表圖1-3 “預(yù)訂管理”功能模塊“來賓預(yù)訂”包括散客和團體進行預(yù)訂管理，主要信息包括房類、房間數(shù)、房價、入住日期和對預(yù)訂房間進行排房，入住等。“預(yù)訂查詢”用于查詢客戶的預(yù)定情況?！靶薷念A(yù)訂”用于對預(yù)訂資料進行重新修改操作?！胺繎B(tài)表”用于查詢當日酒店實時房態(tài)，可進行開房、登記、留言、換房等各項工作。“可預(yù)訂客房表”用于按照房類統(tǒng)計各

18、種房間類型的可預(yù)訂情況。(3)房態(tài)管理“房態(tài)管理”用于管理客房信息和客戶住宿歷史的信息，并且還可用于查詢酒店目前可以使用的客房和酒店當前的房態(tài)，同時該模塊還可以對房態(tài)為維修房的客房情況、房態(tài)為在住散客的客房情況、房態(tài)為在住團的客房情況以及房態(tài)為其他狀態(tài)的客房情況進行統(tǒng)計分析。其包含的功能模塊如圖1-4所示。房態(tài)管理可用房間查詢房態(tài)維護房態(tài)統(tǒng)計其他相關(guān)報表維修房報表圖1-4 “房態(tài)管理”功能模塊“可用房間查詢”用于查詢目前酒店可以使用的客房?！胺繎B(tài)維護”用于維護客房的狀態(tài)?！胺繎B(tài)統(tǒng)計”用于按照不同的分類統(tǒng)計房態(tài)的信息，例如按照客房類型、樓層、朝向等狀態(tài)進行分類?！熬S修房報表”用于統(tǒng)計分析房態(tài)為維

19、修房的客房情況?！捌渌嚓P(guān)報表”用于統(tǒng)計分析房態(tài)為其他狀態(tài)的客房情況。1.4 系統(tǒng)的性能需求1.4.1 系統(tǒng)的用戶界面本系統(tǒng)使用窗口界面，界面整潔美觀，清晰明了；界面控件排列有序，文體清晰易懂，操作方便，易于功能的切換;能清楚標明用戶當前所在的位置;退出方便，界面保持一致。1.4.2 系統(tǒng)的可靠性和穩(wěn)定性在服務(wù)器和交換機選型、綜合布線和網(wǎng)絡(luò)設(shè)計、軟件設(shè)計等方面應(yīng)充分考慮可靠性和穩(wěn)定性。在設(shè)計時要采用容錯技術(shù)。在設(shè)備造型方面，要保證硬件設(shè)備的可靠性和軟件的兼容性，同時必須考慮采用先進成熟的技術(shù)和產(chǎn)品，最大限度地減少故障的發(fā)生。同時系統(tǒng)的數(shù)據(jù)庫中記錄著整個系統(tǒng)正常運行時的所有數(shù)據(jù)，包括酒店的收費信

20、息、住房記錄、酒店中沒個房間的信息、客戶的私人信息等。這些信息都是系統(tǒng)正常運行的保證，因此必須要保證這些信息的絕對安全。1.4.3 系統(tǒng)的開放性設(shè)計系統(tǒng)時應(yīng)考慮系統(tǒng)的數(shù)據(jù)結(jié)構(gòu)對使用單位是開放的，使用單位可結(jié)合本單位的實際情況，增添或減少該系統(tǒng)的管理功能，自行完成二次開發(fā)。1.4.4 系統(tǒng)的易維護性易維護性是系統(tǒng)成功與否的重要決定因素，既要做到日常的管理操作簡便，又要易于排除故障。第二章 系統(tǒng)的總體設(shè)計本系統(tǒng)按照軟件工程學(xué)理論，采用面向?qū)ο蠛徒Y(jié)構(gòu)化程序設(shè)計思想相結(jié)合的方法進行系統(tǒng)的設(shè)計開發(fā)。由于窗體和組件也是一個類，所以在進行用戶界面的設(shè)計時，我們同樣需要從面向?qū)ο蟮慕嵌葋砜紤]。面向?qū)ο笤O(shè)計方法

21、以對象為基礎(chǔ)，解決了傳統(tǒng)結(jié)構(gòu)化開發(fā)方法中客觀世界描述工具與軟件結(jié)構(gòu)的不一致性問題，縮短了開發(fā)周期。2.1 靜態(tài)數(shù)據(jù)2.1.1 業(yè)務(wù)流程圖業(yè)務(wù)流程圖如圖2-1所示?？头啃畔⒒A(chǔ)設(shè)置預(yù)訂單預(yù)定管理入住管理入住單管理員賬單明細消費入賬消費信息收銀管理房態(tài)信息房態(tài)管理圖2-1 酒店管理系統(tǒng)業(yè)務(wù)流程圖2.1.2 系統(tǒng)E-R圖系統(tǒng)E-R圖如圖2-2所示。客房類型客房信息樓層信息類型編號PK客房編號PK類型名稱價格可超預(yù)訂數(shù)樓層編號PK類型編號樓層編號床數(shù)客房描述備注FK1FK2樓層名稱入住單入住單號PK賬單明細預(yù)訂單PK預(yù)訂單號FK1FK2客房類型抵店時間離店時間客房編號客房價格預(yù)收款預(yù)訂人聯(lián)系電話操作員

22、應(yīng)收賬款是否結(jié)賬結(jié)賬金額結(jié)賬日期賬單編號PK客房類型抵店時間離店時間客房編號客房價格預(yù)收款預(yù)訂人聯(lián)系電話操作員FK 1FK1入住單號消費內(nèi)容消費金額消費時間備注圖2-2 系統(tǒng)E-R圖2.2 數(shù)據(jù)庫信息表根據(jù)以上需求分析，一個基本的酒店管理系統(tǒng)數(shù)據(jù)庫中大致包括幾十張數(shù)據(jù)表，分別存放相應(yīng)子功能的數(shù)據(jù)信息，其中“客房信息”和“客戶信息”是關(guān)鍵的表，用于存放酒店客房的基本信息和酒店入住客戶的信息。其他設(shè)計客房的數(shù)據(jù)表，都只記錄相應(yīng)的客房編號。其中“客房信息”和其他數(shù)據(jù)表間的關(guān)系是1：N的關(guān)系。圖2-3 數(shù)據(jù)庫關(guān)系圖(1) 客房信息表客房信息表主要用于保存酒店所有的客房信息，其中包括有客房編號、類型編號

23、、樓層編號、床數(shù)、客房描述、狀態(tài)以及備注，具體見表2-1所示。表2-1 客房信息表字段名稱字段類型主鍵外鍵是否為空客房編號varchar(12)是否類型編號varchar(4)是否樓層編號int(4)是否床數(shù)int(4)是客房描述varchar(40)是狀態(tài)varchar(4)是備注varchar(100)是額定人數(shù)int(4)是是否可拼房bit(1)是(2) 預(yù)訂單數(shù)據(jù)表預(yù)訂單數(shù)據(jù)表主要在管理散客預(yù)定房間時使用，其中包括有預(yù)訂單號、客房類型、抵店時間、離店時間、客房編號、客房價格、預(yù)收款、預(yù)訂人、聯(lián)系電話和操作員。預(yù)訂單數(shù)據(jù)表見表2-2所示。表2-2 預(yù)訂單數(shù)據(jù)表字段名稱字段類型主鍵外鍵是否

24、為空預(yù)定單號varchar(36)是否客房類型Varchar(4)是否抵店時間Smalldatetime否離店時間Smalldatetime是客房編號Varchar(12)是客房價格Money(8)是預(yù)收款Money(8)是預(yù)訂人Varchar(20)是聯(lián)系電話Varchar(40)是操作員Varchar(10)是會員編號Int(4)是單據(jù)狀態(tài)Varchar(20)是入住人數(shù)Int(4)是入住價格Money(8)是折扣Decimal(5)是折扣原因Varchar(60)是(3) 入住單數(shù)據(jù)表入住單數(shù)據(jù)表主要在散客入住酒店時使用，并且其信息可以由預(yù)訂單轉(zhuǎn)入，其中包括有入住單號、預(yù)訂單號、抵店時間

25、、離店時間、客房編號、客房價格、預(yù)收款、預(yù)訂人、聯(lián)系電話、操作員和應(yīng)收賬款入住單數(shù)據(jù)表具體見表2-3所示。表2-3 入住單數(shù)據(jù)表字段名稱字段類型主鍵外鍵是否為空入住單號Varchar(36)是否預(yù)定單號Varchar(36)是是抵店時間Smalldatetime是離店時間Smalldatetime是客房編號Varchar(12)是是客房價格Money(8)是預(yù)收款Money(8)是預(yù)訂人Varchar(20)是聯(lián)系電話Varchar(40)是操作員Varchar(10)是應(yīng)收賬款Money(8)是會員編號Int(4)是客房類型Varchar(4)是單據(jù)狀態(tài)Varchar(20)是入住人數(shù)Int

26、(4)是入住價格Money(8)是(4) 客房類型表客房類型表主要用于保存酒店所有客房的類型信息包括類型編號、類型名稱、價格和可超預(yù)訂數(shù)。客房類型表具體見表2-4所示。表2-4 客房類型表字段名稱字段類型主鍵外鍵是否為空類型編號Varchar(4)是否類型名稱Varchar(40)是價格Money(8)是可超預(yù)訂數(shù)Decimal(5)是拼房價格Money(8)是是否可拼房Bit(1)是(5) 樓層信息表樓層信息表主要用于保存酒店的樓層編號及其名稱，具體見表2-5所示。表2-5 樓層信息表字段名稱字段類型主鍵外鍵是否為空樓層編號Int(4)是否樓層名稱Varchar(60)是(6) 賬單明細表賬

27、單明細表用于記錄客戶消費的明細賬單，包括賬單編號、入住單號、消費內(nèi)容、消費金額、消費時間、備注等，具體見表2-6所示。表2-6 賬單明細表字段名稱字段類型主鍵外鍵是否為空賬單編號Int(4)是否入住單號Varchar(36)是否消費內(nèi)容Varchar(40)是消費金額Money(8)是消費時間Smalldatet(4)是備注Varchar(80)是第三章 系統(tǒng)的詳細設(shè)計系統(tǒng)的詳細設(shè)計主要包括系統(tǒng)模塊功能的設(shè)計，系統(tǒng)界面的設(shè)計以及界面上控件相關(guān)代碼的實現(xiàn)。由于程序的結(jié)構(gòu)師MDI多文檔窗體程序，單擊主窗體上的各相應(yīng)菜單選項即可調(diào)用各個功能子窗體。本次的酒店管理系統(tǒng)在功能上主要實現(xiàn)了客房基礎(chǔ)設(shè)置、客

28、房信息設(shè)置、房態(tài)管理、預(yù)定管理等功能，其中客房基礎(chǔ)設(shè)置和信息設(shè)置集中到一個模塊中，房態(tài)管理和預(yù)定管理集成在一個模塊中，管理員通過客房類型設(shè)置與客房信息設(shè)置功能來設(shè)置本酒店客房的分類信息，內(nèi)容包括房類名稱、房價、房間號、房類編號、樓層、額定人數(shù)和可超預(yù)訂數(shù)等。3.1 系統(tǒng)模塊的功能設(shè)計總體設(shè)計中酒店管理系統(tǒng)主要劃分為客房類型設(shè)置模塊、客房信息設(shè)置模塊、預(yù)訂管理模塊、房態(tài)管理模塊三個部分。而在系統(tǒng)的詳細設(shè)計中，要求對每個模塊的具體功能進行設(shè)計，為之后的界面設(shè)計及程序代碼實現(xiàn)提供依據(jù)。3.1.1 創(chuàng)建工程 啟動Delphi，利用默認的設(shè)置新建一個工程，并將其保存為“hotel.dpr”。單擊Proj

29、ect|Options菜單命令，在Application選項卡中修改工程的Title屬性為“酒店管理系統(tǒng)”，并為項目選擇一個.exe程序的圖標。3.1.2 創(chuàng)建系統(tǒng)主窗體(1)利用系統(tǒng)默認生成的窗體作為主窗體，并為其添加主菜單控件和其他控件，布局見圖3-1所示。圖3-1 酒店管理系統(tǒng)主窗體(2)窗體及其控件的屬性設(shè)置如下表3-1所示。表3-1 主窗體屬性設(shè)置控件類型對象(控件)名屬性取值(說明)TformMainNameMainCaption酒店管理系統(tǒng)FormStylefsMDIFormPositionpoDesktopCenterHeight620Width760(3)MDI主窗體的設(shè)計主

30、要是為了根據(jù)用戶的選擇調(diào)用不同的子窗體，該窗體代碼如下：unit MainForm;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, jpeg, ExtCtrls, Buttons;type TMain = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuIt

31、em; Image1: TImage; Label1: TLabel; BitBtn1: TBitBtn; BitBtn2: TBitBtn; BitBtn3: TBitBtn; BitBtn4: TBitBtn; BitBtn5: TBitBtn; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; procedure N2Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure N5Click(Sender: TObject); procedure N6Click(Sen

32、der: TObject); procedure N7Click(Sender: TObject); procedure N8Click(Sender: TObject); procedure N9Click(Sender: TObject); procedure N10Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure BitBtn4

33、Click(Sender: TObject); procedure BitBtn5Click(Sender: TObject); private Private declarations public Public declarations RoomNum:integer;/儲存選擇的空房間號 YDNum:string;/儲存選擇的預(yù)定單號 RZNum:string;/儲存選擇的入住單號 function FindForm(caption: string): bool;/判斷子窗體是否已經(jīng)存在 end;var Main: TMain;implementation$R *.dfmuses Roo

34、mTypeForm,RoomInfoForm,ReservationForm,DebtForm,RoomStatusForm,ResideForm,CheckOutForm;/-通過用戶定義的函數(shù)，判斷窗體是否已存在-function TMain.FindForm(caption: string): bool;vari:integer;begin for i:=0 to main.MDIChildCount do begin / 通過對窗體標題判斷窗體是否存在 if main.MDIChildreni.Caption=caption then begin /如果窗體已存在，則恢復(fù)窗體，并返回t

35、rue SendMessage(mdichildreni.Handle, WM_SYSCOMMAND, SC_RESTORE, 0); mdichildreni.Enabled:=true; mdichildreni.Show; mdichildreni.SetFocus; result:=true; break; end else /如窗體不存在，則返回false，程序?qū)?chuàng)建窗體 result:=false; endend;/-顯示【客房類型設(shè)置】窗體-procedure TMain.N2Click(Sender: TObject);varnewform:TRoomType;begin if

36、 FindForm(客房類型設(shè)置)=false then newform:=TRoomType.Create(application); newform.Caption:=客房類型設(shè)置;end;/-顯示【客房信息設(shè)置】窗體-procedure TMain.N3Click(Sender: TObject);varnewform:TRoomInfo;begin if FindForm(客房信息設(shè)置)=false then newform:=TRoomInfo.Create(application); newform.Caption:=客房信息設(shè)置;end;/-顯示【預(yù)定管理】窗體-procedur

37、e TMain.N5Click(Sender: TObject);varnewform:TReservation;begin if FindForm(預(yù)定管理)=false then newform:=TReservation.Create(application); newform.Caption:=預(yù)定管理;end;/-顯示【入住管理】窗體-procedure TMain.N6Click(Sender: TObject);varnewform:TReside;begin if FindForm(入住管理)=false then newform:=TReside.Create(applica

38、tion); newform.Caption:=入住管理;end;/-顯示【消費記帳】窗體-procedure TMain.N7Click(Sender: TObject);varnewform:TDebt;begin if FindForm(消費記帳)=false then newform:=TDebt.Create(application); newform.Caption:=消費記帳;end;/-顯示【收銀退房】窗體-procedure TMain.N8Click(Sender: TObject);varnewform:TCheckOut;begin if FindForm(收銀退房)=

39、false then newform:=TCheckOut.Create(application); newform.Caption:=收銀退房;end;/-顯示【房態(tài)管理】窗體-procedure TMain.N9Click(Sender: TObject);varnewform:TRoomStatus;begin if FindForm(房態(tài)管理)=false then newform:=TRoomStatus.Create(application); newform.Caption:=房態(tài)管理;end;/-退出程序-procedure TMain.N10Click(Sender: TOb

40、ject);begin close;end;procedure TMain.BitBtn1Click(Sender: TObject);varnewform:TRoomType;beginif FindForm(客房類型設(shè)置)=false then newform:=TRoomType.Create(application); newform.Caption:=客房類型設(shè)置;end;procedure TMain.BitBtn2Click(Sender: TObject);varnewform:TRoomInfo;begin if FindForm(客房信息設(shè)置)=false then new

41、form:=TRoomInfo.Create(application); newform.Caption:=客房信息設(shè)置;end;procedure TMain.BitBtn3Click(Sender: TObject);varnewform:TReservation;begin if FindForm(預(yù)定管理)=false then newform:=TReservation.Create(application); newform.Caption:=預(yù)定管理;end;procedure TMain.BitBtn4Click(Sender: TObject);varnewform:TRoo

42、mStatus;begin if FindForm(房態(tài)管理)=false then newform:=TRoomStatus.Create(application); newform.Caption:=房態(tài)管理;end;procedure TMain.BitBtn5Click(Sender: TObject);begin close;end;end.3.2 完成客房類型設(shè)置功能(1)選擇File|New|Other菜單命令，彈出New Items窗體，在hotel選項卡中選擇Parent項，單擊Ok按鈕，就可以派生一個新的子窗體。(2)講窗體的Name屬性設(shè)置為“RoomType”,Capt

43、ion屬性設(shè)置為“客房類型管理”病保存為“RoomType.pas”。選擇Project|Options 菜單命令，講RoomType窗體從自動創(chuàng)建的窗體列表中刪除，然后再向窗體中添加新的控件并修改原有控件的屬性，如圖3-2所示。圖3-2 【客房類型設(shè)置】窗體“客房類型設(shè)置”用于設(shè)置本酒店客房的分類信息，內(nèi)容包括房類名稱、房價、可預(yù)訂數(shù)等。 “房價設(shè)置”用于設(shè)置房價的折扣信息，內(nèi)容包括折扣名稱種類、折扣額度、房類編號、折后房價、折扣有效時間等?！跋到y(tǒng)參數(shù)設(shè)置”用于設(shè)置管理系統(tǒng)的各種參數(shù)值，例如酒店名稱，房態(tài)顯示模式等。選擇【基礎(chǔ)設(shè)置】|【客房類型設(shè)置】菜單命令，可以進入【客房類型設(shè)置】功能窗體

44、，在其中可以管理客房類型。這是一個非常簡單的子窗體，通過單擊工具欄上的【新增】、【修改】或【刪除】按鈕可以新增客房的類型，修改某個客房類型或者刪除某個客房類型。對數(shù)據(jù)記錄的編輯和輸入都是在窗體下方面板中的文本框中進行的，而在新增記錄是，程序會自動計算生成一個新的類型編號，一面與已有的編號重復(fù)。(3)各控件的屬性如表3-2所示。表中僅列出派生窗體中需要修改的空間屬性和新添加的控件的屬性。表3-2 客房類型設(shè)置窗體空間屬性設(shè)置控件類型對象名屬性取值（說明）Label共3個CaptionEditEdit3VisibleFalseADOTableADOTable1TableName客房類型Active

45、TrueDBEditDBEdit13DataSoureDataSoure1DataField如其上方的標簽DBComboBox面板下方六個DataSoureDataSoure1(4)設(shè)置該窗體的代碼如下：unit RoomTypeForm;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ParentForm, ADODB, DB, ImgList, Grids, DBGrids, ComCtrls, ToolWin, StdCtrls, Butto

46、ns, ExtCtrls, Mask, DBCtrls, jpeg;type TRoomType = class(TParent) DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit3: TDBEdit; Label6: TLabel; Label7: TLabel; Label8: TLabel; Image1: TImage; Label9: TLabel; Image2: TImage; Image3: TImage; Image4: TImage; procedure ToolButton6Click(Sender: TObject); private

47、 Private declarations public Public declarations end;var RoomType: TRoomType;implementation$R *.dfmprocedure TRoomType.ToolButton6Click(Sender: TObject);varcode:integer;begin inherited; /-為新增的客房類型生成新的編號- adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Add(select max(類型編號) 最大編號 from 客房類型); adoquery1