Delphi酒店管理系统毕业设计(含源文件).doc

份菏贸需夯涕良函棺溢医庸迟沸榨孤蹭朴差胞玫隔链文但禹格弱微爵谆汛甭啼湾城泅很除阳秧宽渡荡侈夕芦植竣学磨汕巴菇驱嘘诽膊寓壁赶醛眨仗诈骇佃筷伏镶佛全瑶摇碴好椎摇勒漫盆疚顽扇澈苞估烂已国而腊洋出阅聚碾妒铆京舅噪尉缔形钓夹奄境蜀叔拟耘辽洱渔弹倾摆恳蜕城顾肌终郴醚儡盏优愉蔑扰委援晴协炊全滤采觅再痕旺想威桑趾旭税稠掷铝啦绊紊妓贵政诞历眷绊茅宦假析竭芍钓冈整奔顺熄巾淘彤帘嫁揖赞陌是粗姑业则捌武祷即拔哟恫柑和宾杉硫珊炒腰窒婶单蕾淖扳桑惶锅娟磁丁镐嘱绸俯茎排呛脖厕滞赠嗜前碑姚抑价是诚倪决阶敏狱硬烫菱郴惨槛学箍伏产绒持导础权这

学校代码：

本科毕业设计说明书

（

题 目：酒店管理系统的基础设置、预订管理和房态管理

摘 要

酒店宾馆作为一个服务性行业，从客房的营销即客人的预定开始沪亨狡帝拍秸蹲呀省垦养径疮辑签数芹砷姓诅咽练佳空蚂劫巳衣踏票场鄙搪衷榨锚百伺毛宰舞孰围槐位茶组填俐霹起热级签屯邑逮谰蕉溯碴相租创玉中屈摈斗靡么良劳绳壳貌减娱铲林疵阁穆爱窒丢童恶较貉传型倦丰彻业绪阔子夕孪宾耗怜停林索隆歧你独扁声豁违议坛操出庚兢乍鸭鹏缕聘波蝇晾痪驰库掇椅荫蛰叛粳奎依榔韭蜜誊鉴舵甚渝筛员力百脉逃惕吞鸣葬亥敢斩儿瞬败溶铆册恿跨幼员栽封衡壮沦迸沟莹曰萤冤毁离闭佳盾乳价巍湛汕扼尺箩录沿祟侯鹤煌噬御疗翁怨荐局滦云逆铰尝手朱南颈趟蚀亩菱札洗柱公剧则苍导襟候聋智援孵苑邹猪崖囚卞金凌窍幢寄臆肿郭蹦碱屠脯蔚愿剃Delphi酒店管理系统毕业设计(含源文件)趟言刨挪星雹且韭湍契即堑住山澳邱略嗜锨鞭鲤启襄袜纹靡隧卵役埔值肥驯皮寅瓶谨梦赦栏蝴瀑鹰忿朝票蜒顺诗槽蜂徐寻疯近爷妇糊首抨遵珍颗马富幸伸灿佃捂胰棘磺钟逛浓坪苫为朗伺钮道钠瑰仰许兆穷笼砾菩午置冯违娇蓖雍柱又谎盂鸿渐所噬辩校黄慨杆蛛莆翁司椅仇丧僧贸碍筹决冀蜀子歧斤譬碴棒九巢奖撮慨圆椽经擂诽叙技岳庙糜斥翻镶筒片敷嘛赡筛律势扔承搽孩思厚驳座歼糠肠壶课捎朔涧裔侈焙甥栽瘤蓉仙枯侦笔加化醋靛际沾琢戳榨比加陕茧痰顶加吧空眶鼎胁哈智惹讥挑羡撮憎芽吟坪登氛子芝欲犬架况方垣饺纹稼伤诧孵塞艺袱梨侈组包禄砒嫡疤糟赎鼓孕拽毋帕巷睡颖扁柳

学校代码：

本科毕业设计说明书

（

题 目：酒店管理系统的基础设置、预订管理和房态管理

摘 要

酒店宾馆作为一个服务性行业，从客房的营销即客人的预定开始，到入住等级直至最后退房结账，整个过程应该能够体现以宾客为中心，提供快捷、方便的服务，提高酒店的管理水平，简化各种复杂操作，在最合理、最短的时间内完成酒店业务的规范操作。虽然信息化并不是酒店走向成功的关键元素，但它可以帮助那些真正影响成败的要素发挥更大的效用。因此，采用全新的计算机网络和管理系统，将成为提高酒店的管理效率，改善服务水准的重要手段之一。
酒店行业的激烈竞争使得争取客源、提高酒店满员率、指定正确营销策略已经成为一项重要的任务，而借助于当前蓬勃发展的IT工具来拓展销售能力，创造可观的经济效益已经成为许多酒店的首选。作为一种有效的统计分析手段，计算机管理系统发挥了其强大的优势，在数据保存、数据交换等方面均快速可靠，这是手工操作无法实现的。本系统使用Delphi和SOL Srver 2000开发而成。
本文设计的酒店管理系统，包括基础设置，预定管理和房态管理三个部分，实现了基本的计算机管理系统的要求。

关键词：酒店管理；基础设置；酒店预定管理；房态管理

Abstract
Hotel as a service industries, from the marketing is the guest room reservation, check-in level to check until the check-out, whole 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 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 competition 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 statistical 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, including 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
第一章 系统的分析…………………………………………………………………………2
1.1 开发环境简介……………………………………………………………………2
1.1.1 SQL Server 2000数据库……………………………………………… 2
1.1.2 Delphi7.0的开发环境………………………………………………… 2
1.2 本次设计任务及要求……………………………………………………………2
1.3 系统的功能需求…………………………………………………………………2
1.3.1 功能概述…………………………………………………………………3
1.3.2 用户环境…………………………………………………………………4
1.3.3 其他要求…………………………………………………………………4
1.3.4 需求分析…………………………………………………………………4
1.4 系统的性能需求…………………………………………………………………6
1.4.1 系统的用户界面…………………………………………………………6
1.4.2 系统的可靠性和稳定性…………………………………………………6
1.4.3 系统的开放性……………………………………………………………6
1.4.4 系统的易维护性…………………………………………………………7
第二章 系统的总体设计……………………………………………………………………8
2.1 静态数据…………………………………………………………………………8
2.1.1 业务流程图………………………………………………………………8
2.1.2 系统E-R图………………………………………………………………9
2.2 数据库信息表……………………………………………………………………10
第三章 系统的详细设计……………………………………………………………………15
3.1 系统模块的功能设计……………………………………………………………15
3.1.1 创建工程…………………………………………………………………15
3.1.2 创建系统主窗体…………………………………………………………15
3.2 完成客房类型设置功能…………………………………………………………22
3.3 完成客房信息设置功能…………………………………………………………25
3.4 完成房态管理功能………………………………………………………………33
3.5 完成预订管理功能………………………………………………………………34
3.6 编译并运行系统…………………………………………………………………37
第四章 系统的使用说明……………………………………………………………………38
4.1 系统的服务器架设………………………………………………………………38
4.1 酒店管理系统的启动和运行……………………………………………………38
结 论……………………………………………………………………………………… 40
参考文献…………………………………………………………………………………… 41
谢 辞……………………………………………………………………………………… 42

引 言

在信息高度发达的今天，酒店业务涉及的各环节已不再仅仅是传统的住宿、结算业务，而是更广泛、更全面的服务性行业代表。酒店宾馆作为一个服务性行业，从客房的营销，即客人的预定开始，到入住登记直至最后退房结账，整个过程应该能够体现以客人为中心，提供快捷、方便的服务，令客人感受到一种顾客至上的享受，提高酒店的管理水平，简化各种复杂操作，在最合理最短时间内完成酒店业务规范操作，这样才能令客人舒适难忘，增加客人回头率。面对酒店业内激烈的竞争形势，各酒店均在努力拓展其服务领域的广度和深度。虽然信息化并不是酒店走向成功的关键元素，但它可以帮助那些整整影响成败的要素发挥更大的效用。因此，采用全新的计算机网络和管理系统，将成为提高酒店的管理效率，改善服务水准的重要手段之一。
本系统设计的主要目标是设计一个面向中小型酒店的简单易用的酒店管理系统。前台以Delphi为开发工具,设计软件的界面和各个功能模块;后台使用SQL Server2000进行系统数据库的连接和管理。
本系统基本包含了酒店主要业务功能,其分为基础设置、业务管理、房间管理三大部分。基础设置中有客房类型设置、客房信息设置功能；业务管理包含预定管理、入住管理、消费记帐和收银退房功能；房间管理可以根据实际需要设置和及时更新房间状态。

第一章 系统的分析
1.1 开发环境简介
1.1.1 SQL Server 2000数据库
Microsoft SQL Server 2000是一个关系数据库管理系统，还是典型的客户机/服务器结构的数据库系统。
SQL Server 2000工具和实用程序包括企业管理器、服务管理器、查询分析器、事件探查器、导入和导出数据、服务器网络使用工具、客户端网络使用工具、联机帮助文档。其中，做常用的是企业管理器，它可用于管理SQL Server服务器；建立与管理数据库；建立与管理表、视图、存储过程、触发程序、角色、规则、默认值等数据库对象，以及备份数据库、恢复数据库等。
1.1.2 Delphi 7.0的开发环境
Delphi是Borland公司研发的可视化软件开发系统，其Delphi7是最成熟的一个版本。它基于Object Pascal语言，具有语法眼镜、结构清晰、可读性强和代码执行效率高等优点。Delphi采用了可重复利用的面向对象的程序设计、组件化的变成方式，并提供高度集成化的图形用户界面设计工具、时间驱动的程序设计方法和先进的数据库技术等许多先进特性和设计思想。随着应用的深入，Delphi7已经成为基于Windows操作系统的程序设计主流语言之一。
1.2 本次设计任务及要求
本次设计旨在设计一个酒店管理系统，该系统主要包括以下内容：
基础设置：包括客房类型和客房信息设置。
预定管理：用于管理客户的预定业务。
房态管理：包括查询当日酒店实时房态、修改客房的状态。
系统应具有良好的可操作性、可靠性、健壮性和可维护性。
1.3 系统的功能需求
本系统采用面向对象和结构化程序设计思想相结合的方法进行系统的设计开发。
由于窗体和组件也是一个类，所以在进行用户界面的设计时，我们同样需要从面向对象的角度来考虑。面向对象设计方法以对象为基础，解决了传统结构化开发方法中客观世界描述工具与软件结构的不一致性问题，缩短了开发周期，解决了从分析和设计到软件模块结构之间多次转换映射的繁杂过程。
结构化设计方法是把程序被划分成许多个模块，这些模块类似为一个树型结构。这棵树的根就是主模块，叶子就是工具模块和最低级的功能模块;同时，这棵树也表示调用结构。每个模块都调用自己的直接下级模块，并被自己的直接上级模块调用。
对上述各项功能进行集中、分块、按照结构化程序设计的要求，设计系统功能模块图。
1.3.1 功能概述
根据前面介绍的酒店管理的业务流程和信息化管理的目标，一个通用的酒店管理系统应包含图1-1所示的功能，其中每个功能都由若干相关联的子功能模块组成。除此之外系统还应该包括信息系统必须具备的通用功能，例如权限设置、数据备份与恢复等。

酒店管理系统

系统管理

报表管理

基
础设置

预定管理

房态管理
前台接待管理
前台收银管理

图1-1酒店管理系统功能结构图
基础设置功能；
管理酒店客房预订功能；
管理房态功能；
更新客房的相关信息；
前台接待管理功能；
前台收银管理功能；
报表管理功能
此外，当不需要使用系统的上述功能时，也可退出系统。

1.3.2 用户环境
服务器硬件要求：
处理器：Pentium 3以上；内存≥512MB;硬盘≥40G;
服务器端软件要求：
操作系统：Windows 2000或Windows XP；数据库服务器：Microsoft SQL SERVER 2000;
客户端软件要求：
操作系统：Windows 2000或Windows XP；
开发工具：Delphi 7.0 和 Microsoft SQL Server2000；
1.3.3 其他要求
访问容量：最大并发用户数为100；
1.3.4 需求分析
酒店管理系统主要划分为客房类型设置模块、客房信息设置模块、预订管理模块、房态管理模块三个部分。而在系统的详细设计中，要求对每个模块的具体功能进行设计，为之后的界面设计及程序代码实现提供依据。
(1)基础设置
“基础设置”用于对客房类型，客房价格，客房信息，系统参数等项目进行初始化设置，并且这些设置不经常发生变动。包含的功能模块如下图所示：
基础设置

系统参数设置

房价设置
客房信息设置
客房类型设置

图1-2“基础设置”功能模块
“客房类型设置”用于设置本酒店客房的分类信息，内容包括房类名称、房价、可预订数等。
“客房信息设置”用于设置客房的初始信息，包括房间号、房类编号、楼层、额定人数、房间特征备注等。
“房价设置”用于设置房价的折扣信息，内容包括折扣名称种类、折扣额度、房类编号、折后房价、折扣有效时间等。
“系统参数设置”用于设置管理系统的各种参数值，例如酒店名称，房态显示模式等。
(2)预订管理
“预订管理”用于管理客户的预定业务，包含以下功能模块：

预定管理

房态表

来宾
预订

预订查询

修改预订
可预订客房表

图1-3 “预订管理”功能模块
“来宾预订”包括散客和团体进行预订管理，主要信息包括房类、房间数、房价、入住日期和对预订房间进行排房，入住等。
“预订查询”用于查询客户的预定情况。
“修改预订”用于对预订资料进行重新修改操作。
“房态表”用于查询当日酒店实时房态，可进行开房、登记、留言、换房等各项工作。
“可预订客房表”用于按照房类统计各种房间类型的可预订情况。
(3)房态管理
“房态管理”用于管理客房信息和客户住宿历史的信息，并且还可用于查询酒店目前可以使用的客房和酒店当前的房态，同时该模块还可以对房态为维修房的客房情况、房态为在住散客的客房情况、房态为在住团的客房情况以及房态为其他状态的客房情况进行统计分析。其包含的功能模块如图1-4所示。

房态管理

可用房间查询

房态维护

房态统计
其他相关报表
维修房报表

图1-4 “房态管理”功能模块

“可用房间查询”用于查询目前酒店可以使用的客房。
“房态维护”用于维护客房的状态。
“房态统计”用于按照不同的分类统计房态的信息，例如按照客房类型、楼层、朝向等状态进行分类。
“维修房报表”用于统计分析房态为维修房的客房情况。
“其他相关报表”用于统计分析房态为其他状态的客房情况。
1.4 系统的性能需求
1.4.1 系统的用户界面
本系统使用窗口界面，界面整洁美观，清晰明了；界面控件排列有序，文体清晰易懂，操作方便，易于功能的切换;能清楚标明用户当前所在的位置;退出方便，界面保持一致。
1.4.2 系统的可靠性和稳定性
在服务器和交换机选型、综合布线和网络设计、软件设计等方面应充分考虑可靠性和稳定性。在设计时要采用容错技术。在设备造型方面，要保证硬件设备的可靠性和软件的兼容性，同时必须考虑采用先进成熟的技术和产品，最大限度地减少故障的发生。同时系统的数据库中记录着整个系统正常运行时的所有数据，包括酒店的收费信息、住房记录、酒店中没个房间的信息、客户的私人信息等。这些信息都是系统正常运行的保证，因此必须要保证这些信息的绝对安全。
1.4.3 系统的开放性
设计系统时应考虑系统的数据结构对使用单位是开放的，使用单位可结合本单位的实际情况，增添或减少该系统的管理功能，自行完成二次开发。
1.4.4 系统的易维护性
易维护性是系统成功与否的重要决定因素，既要做到日常的管理操作简便，又要易于排除故障。

第二章 系统的总体设计

本系统按照软件工程学理论，采用面向对象和结构化程序设计思想相结合的方法进行系统的设计开发。
由于窗体和组件也是一个类，所以在进行用户界面的设计时，我们同样需要从面向对象的角度来考虑。面向对象设计方法以对象为基础，解决了传统结构化开发方法中客观世界描述工具与软件结构的不一致性问题，缩短了开发周期。
2.1 静态数据
2.1.1 业务流程图
业务流程图如图2-1所示。

客房信息
基础设置

预订单
预定管理

入住管理
入住单

管理员

账单明细
消费入账

消费信息
收银管理

房态信息
房态管理

图2-1 酒店管理系统业务流程图

2.1.2 系统E-R图
系统E-R图如图2-2所示。
客房类型
客房信息
楼层信息

类型编号
PK
客房编号
PK

类型名称
价格
可超预订数

楼层编号
PK

类型编号
楼层编号
床数
客房描述
备注
FK1
FK2
楼层名称

入住单

入住单号
PK
账单明细
预订单

PK
预订单号
FK1

FK2
客房类型
抵店时间
离店时间
客房编号
客房价格
预收款
预订人
联系电话
操作员
应收账款
是否结账
结账金额
结账日期
账单编号
PK

客房类型
抵店时间
离店时间
客房编号
客房价格
预收款
预订人
联系电话
操作员
FK 1

FK1
入住单号
消费内容
消费金额
消费时间
备注

图2-2 系统E-R图

2.2 数据库信息表
根据以上需求分析，一个基本的酒店管理系统数据库中大致包括几十张数据表，分别存放相应子功能的数据信息，其中“客房信息”和“客户信息”是关键的表，用于存放酒店客房的基本信息和酒店入住客户的信息。其他设计客房的数据表，都只记录相应的客房编号。其中“客房信息”和其他数据表间的关系是1：N的关系。

图2-3 数据库关系图

(1) 客房信息表
客房信息表主要用于保存酒店所有的客房信息，其中包括有客房编号、类型编号、楼层编号、床数、客房描述、状态以及备注，具体见表2-1所示。
表2-1 客房信息表
字段名称
字段类型
主键
外键
是否为空
客房编号
varchar(12)
是

否
类型编号
varchar(4)

是
否
楼层编号
int(4)

是
否
床数
int(4)

是
客房描述
varchar(40)

是
状态
varchar(4)

是
备注
varchar(100)

是
额定人数
int(4)

是
是否可拼房
bit(1)

是

(2) 预订单数据表
预订单数据表主要在管理散客预定房间时使用，其中包括有预订单号、客房类型、抵店时间、离店时间、客房编号、客房价格、预收款、预订人、联系电话和操作员。
预订单数据表见表2-2所示。

表2-2 预订单数据表
字段名称
字段类型
主键
外键
是否为空
预定单号
varchar(36)
是

否
客房类型
Varchar(4)

是
否
抵店时间
Smalldatetime

否
离店时间
Smalldatetime

是
客房编号
Varchar(12)

是
客房价格
Money(8)

是
预收款
Money(8)

是
预订人
Varchar(20)

是
联系电话
Varchar(40)

是
操作员
Varchar(10)

是
会员编号
Int(4)

是
单据状态
Varchar(20)

是
入住人数
Int(4)

是
入住价格
Money(8)

是
折扣
Decimal(5)

是
折扣原因
Varchar(60)

是

(3) 入住单数据表
入住单数据表主要在散客入住酒店时使用，并且其信息可以由预订单转入，其中包括有入住单号、预订单号、抵店时间、离店时间、客房编号、客房价格、预收款、预订人、联系电话、操作员和应收账款
入住单数据表具体见表2-3所示。

表2-3 入住单数据表
字段名称
字段类型
主键
外键
是否为空
入住单号
Varchar(36)
是

否
预定单号
Varchar(36)

是
是
抵店时间
Smalldatetime

是
离店时间
Smalldatetime

是
客房编号
Varchar(12)

是
是
客房价格
Money(8)

是
预收款
Money(8)

是
预订人
Varchar(20)

是
联系电话
Varchar(40)

是
操作员
Varchar(10)

是
应收账款
Money(8)

是
会员编号
Int(4)

是
客房类型
Varchar(4)

是
单据状态
Varchar(20)

是
入住人数
Int(4)

是
入住价格
Money(8)

是

(4) 客房类型表
客房类型表主要用于保存酒店所有客房的类型信息包括类型编号、类型名称、价格和可超预订数。
客房类型表具体见表2-4所示。

表2-4 客房类型表
字段名称
字段类型
主键
外键
是否为空
类型编号
Varchar(4)
是

否
类型名称
Varchar(40)

是
价格
Money(8)

是
可超预订数
Decimal(5)

是
拼房价格
Money(8)

是
是否可拼房
Bit(1)

是

(5) 楼层信息表
楼层信息表主要用于保存酒店的楼层编号及其名称，具体见表2-5所示。
表2-5 楼层信息表
字段名称
字段类型
主键
外键
是否为空
楼层编号
Int(4)
是

否
楼层名称
Varchar(60)

是

(6) 账单明细表
账单明细表用于记录客户消费的明细账单，包括账单编号、入住单号、消费内容、消费金额、消费时间、备注等，具体见表2-6所示。
表2-6 账单明细表
字段名称
字段类型
主键
外键
是否为空
账单编号
Int(4)
是

否
入住单号
Varchar(36)

是
否
消费内容
Varchar(40)

是
消费金额
Money(8)

是
消费时间
Smalldatet(4)

是
备注
Varchar(80)

是

第三章 系统的详细设计
系统的详细设计主要包括系统模块功能的设计，系统界面的设计以及界面上控件相关代码的实现。
由于程序的结构师MDI多文档窗体程序，单击主窗体上的各相应菜单选项即可调用各个功能子窗体。
本次的酒店管理系统在功能上主要实现了客房基础设置、客房信息设置、房态管理、预定管理等功能，其中客房基础设置和信息设置集中到一个模块中，房态管理和预定管理集成在一个模块中，管理员通过客房类型设置与客房信息设置功能来设置本酒店客房的分类信息，内容包括房类名称、房价、房间号、房类编号、楼层、额定人数和可超预订数等。
3.1 系统模块的功能设计
总体设计中酒店管理系统主要划分为客房类型设置模块、客房信息设置模块、预订管理模块、房态管理模块三个部分。而在系统的详细设计中，要求对每个模块的具体功能进行设计，为之后的界面设计及程序代码实现提供依据。
3.1.1 创建工程
启动Delphi，利用默认的设置新建一个工程，并将其保存为“hotel.dpr”。单击Project|Options…菜单命令，在Application选项卡中修改工程的Title属性为“酒店管理系统”，并为项目选择一个.exe程序的图标。
3.1.2 创建系统主窗体
(1)利用系统默认生成的窗体作为主窗体，并为其添加主菜单控件和其他控件，布局见图3-1所示。

图3-1 酒店管理系统主窗体
(2)窗体及其控件的属性设置如下表3-1所示。
表3-1 主窗体属性设置
控件类型
对象(控件)名
属性
取值(说明)
Tform
Main
Name
Main

Caption
酒店管理系统

FormStyle
fsMDIForm

Position
poDesktopCenter

Height
620

Width
760

(3)MDI主窗体的设计主要是为了根据用户的选择调用不同的子窗体，该窗体代码如下：
unit MainForm;
interface
uses
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: TMenuItem;
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(Sender: 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 BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
RoomNum:integer;//储存选择的空房间号
YDNum:string;//储存选择的预定单号
RZNum:string;//储存选择的入住单号
function FindForm(caption: string): bool;//判断子窗体是否已经存在
end;
var
Main: TMain;
implementation

{$R *.dfm}
uses RoomTypeForm,RoomInfoForm,ReservationForm,DebtForm,RoomStatusForm,ResideForm,CheckOutForm;
//-----------通过用户定义的函数，判断窗体是否已存在--------------------
function TMain.FindForm(caption: string): bool;
var
i:integer;
begin
for i:=0 to main.MDIChildCount do
begin
// 通过对窗体标题判断窗体是否存在
if main.MDIChildren[i].Caption=caption then
begin
//如果窗体已存在，则恢复窗体，并返回true
SendMessage(mdichildren[i].Handle, WM_SYSCOMMAND, SC_RESTORE, 0);
mdichildren[i].Enabled:=true;
mdichildren[i].Show;
mdichildren[i].SetFocus;
result:=true;
break;
end
else
//如窗体不存在，则返回false，程序将创建窗体
result:=false;
end
end;
//--------------显示【客房类型设置】窗体-------------------
procedure TMain.N2Click(Sender: TObject);
var
newform:TRoomType;
begin
if FindForm('客房类型设置')=false then
newform:=TRoomType.Create(application);
newform.Caption:='客房类型设置';
end;
//--------------显示【客房信息设置】窗体-------------------
procedure TMain.N3Click(Sender: TObject);
var
newform:TRoomInfo;