毕业设计（论文）-DELPHI酒店管理系统.doc

北京大学毕业设计（论文）DELPHI酒店管理系统学院（系）： 信息学院 专业班级： 通信0803班 学生姓名： 指导教师： 蓝老师 摘 要酒店宾馆作为一个服务性行业，从客房的营销即客人的预定开始，到入住等级直至最后退房结账，整个过程应该能够体现以宾客为中心，提供快捷、方便的服务，提高酒店的管理水平，简化各种复杂操作，在最合理、最短的时间内完成酒店业务的规范操作。虽然信息化并不是酒店走向成功的关键元素，但它可以帮助那些真正影响成败的要素发挥更大的效用。因此，采用全新的计算机网络和管理系统，将成为提高酒店的管理效率，改善服务水准的重要手段之一。酒店行业的激烈竞争使得争取客源、提高酒店满员率、指定正确营销策略已经成为一项重要的任务，而借助于当前蓬勃发展的IT工具来拓展销售能力，创造可观的经济效益已经成为许多酒店的首选。作为一种有效的统计分析手段，计算机管理系统发挥了其强大的优势，在数据保存、数据交换等方面均快速可靠，这是手工操作无法实现的。本系统使用Delphi和SOL Srver 2000开发而成。本文设计的酒店管理系统，包括基础设置，预定管理和房态管理三个部分，实现了基本的计算机管理系统的要求。关键词：酒店管理；基础设置；酒店预定管理；房态管理AbstractHotel 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第一章 系统的分析21.1 开发环境简介21.1.1 SQL Server 2000数据库 21.1.2 Delphi7.0的开发环境 21.2 本次设计任务及要求21.3 系统的功能需求21.3.1 功能概述31.3.2 用户环境41.3.3 其他要求41.3.4 需求分析41.4 系统的性能需求61.4.1 系统的用户界面61.4.2 系统的可靠性和稳定性61.4.3 系统的开放性61.4.4 系统的易维护性7第二章 系统的总体设计82.1 静态数据82.1.1 业务流程图82.1.2 系统E-R图92.2 数据库信息表10第三章 系统的详细设计153.1 系统模块的功能设计153.1.1 创建工程153.1.2 创建系统主窗体153.2 完成客房类型设置功能223.3 完成客房信息设置功能253.4 完成房态管理功能333.5 完成预订管理功能343.6 编译并运行系统37第四章 系统的使用说明384.1 系统的服务器架设384.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类型编号楼层编号床数客房描述备注FK1FK2楼层名称入住单入住单号PK账单明细预订单PK预订单号FK1FK2客房类型抵店时间离店时间客房编号客房价格预收款预订人联系电话操作员应收账款是否结账结账金额结账日期账单编号PK客房类型抵店时间离店时间客房编号客房价格预收款预订人联系电话操作员FK 1FK1入住单号消费内容消费金额消费时间备注图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 主窗体属性设置控件类型对象(控件)名属性取值(说明)TformMainNameMainCaption酒店管理系统FormStylefsMDIFormPositionpoDesktopCenterHeight620Width760(3)MDI主窗体的设计主要是为了根据用户的选择调用不同的子窗体，该窗体代码如下：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: 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 *.dfmuses RoomTypeForm,RoomInfoForm,ReservationForm,DebtForm,RoomStatusForm,ResideForm,CheckOutForm;/-通过用户定义的函数，判断窗体是否已存在-function TMain.FindForm(caption: string): bool;vari:integer;begin for i:=0 to main.MDIChildCount do begin / 通过对窗体标题判断窗体是否存在 if main.MDIChildreni.Caption=caption then begin /如果窗体已存在，则恢复窗体，并返回true SendMessage(mdichildreni.Handle, WM_SYSCOMMAND, SC_RESTORE, 0); mdichildreni.Enabled:=true; mdichildreni.Show; mdichildreni.SetFocus; result:=true; break; end else /如窗体不存在，则返回false，程序将创建窗体 result:=false; endend;/-显示【客房类型设置】窗体-procedure TMain.N2Click(Sender: TObject);varnewform:TRoomType;begin if FindForm(客房类型设置)=false then newform:=TRoomType.Create(application); newform.Caption:=客房类型设置;end;/-显示【客房信息设置】窗体-procedure TMain.N3Click(Sender: TObject);varnewform:TRoomInfo;begin if FindForm(客房信息设置)=false then newform:=TRoomInfo.Create(application); newform.Caption:=客房信息设置;end;/-显示【预定管理】窗体-procedure TMain.N5Click(Sender: TObject);varnewform:TReservation;begin if FindForm(预定管理)=false then newform:=TReservation.Create(application); newform.Caption:=预定管理;end;/-显示【入住管理】窗体-procedure TMain.N6Click(Sender: TObject);varnewform:TReside;begin if FindForm(入住管理)=false then newform:=TReside.Create(application); 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(收银退房)=false then newform:=TCheckOut.Create(application); newform.Caption:=收银退房;end;/-显示【房态管理】窗体-procedure TMain.N9Click(Sender: TObject);varnewform:TRoomStatus;begin if FindForm(房态管理)=false then newform:=TRoomStatus.Create(application); newform.Caption:=房态管理;end;/-退出程序-procedure TMain.N10Click(Sender: TObject);begin close;end;procedure TMain.BitBtn1Click(Sender: TObject);varnewform:TRoomType;beginif FindForm(客房类型设置)=false then newform:=TRoomType.Create(application); newform.Caption:=客房类型设置;end;procedure TMain.BitBtn2Click(Sender: TObject);varnewform:TRoomInfo;begin if FindForm(客房信息设置)=false then newform:=TRoomInfo.Create(application); newform.Caption:=客房信息设置;end;procedure TMain.BitBtn3Click(Sender: TObject);varnewform:TReservation;begin if FindForm(预定管理)=false then newform:=TReservation.Create(application); newform.Caption:=预定管理;end;procedure TMain.BitBtn4Click(Sender: TObject);varnewform:TRoomStatus;begin if FindForm(房态管理)=false then newform:=TRoomStatus.Create(application); newform.Caption:=房态管理;end;procedure TMain.BitBtn5Click(Sender: TObject);begin close;end;end.3.2 完成客房类型设置功能(1)选择File|New|Other菜单命令，弹出New Items窗体，在hotel选项卡中选择Parent项，单击Ok按钮，就可以派生一个新的子窗体。(2)讲窗体的Name属性设置为“RoomType”,Caption属性设置为“客房类型管理”病保存为“RoomType.pas”。选择Project|Options 菜单命令，讲RoomType窗体从自动创建的窗体列表中删除，然后再向窗体中添加新的控件并修改原有控件的属性，如图3-2所示。图3-2 【客房类型设置】窗体“客房类型设置”用于设置本酒店客房的分类信息，内容包括房类名称、房价、可预订数等。 “房价设置”用于设置房价的折扣信息，内容包括折扣名称种类、折扣额度、房类编号、折后房价、折扣有效时间等。“系统参数设置”用于设置管理系统的各种参数值，例如酒店名称，房态显示模式等。选择【基础设置】|【客房类型设置】菜单命令，可以进入【客房类型设置】功能窗体，在其中可以管理客房类型。这是一个非常简单的子窗体，通过单击工具栏上的【新增】、【修改】或【删除】按钮可以新增客房的类型，修改某个客房类型或者删除某个客房类型。对数据记录的编辑和输入都是在窗体下方面板中的文本框中进行的，而在新增记录是，程序会自动计算生成一个新的类型编号，一面与已有的编号重复。(3)各控件的属性如表3-2所示。表中仅列出派生窗体中需要修改的空间属性和新添加的控件的属性。表3-2 客房类型设置窗体空间属性设置控件类型对象名属性取值（说明）Label共3个CaptionEditEdit3VisibleFalseADOTableADOTable1TableName客房类型ActiveTrueDBEditDBEdit13DataSoureDataSoure1DataField如其上方的标签DBComboBox面板下方六个DataSoureDataSoure1(4)设置该窗体的代码如下：unit RoomTypeForm;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ParentForm, ADODB, DB, ImgList, Grids, DBGrids, ComCtrls, ToolWin, StdCtrls, Buttons, 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 Private declarations public Public declarations end;var RoomType: TRoomType;implementation$R *.dfmprocedure TRoomType.ToolButton6Click(Sender: TObject);varcode:integer;begin inherited; /-为新增的客房类型生成新的编