客房管理系统课程设计

实验报告
学院电气信息工程学院
组长乔雨
组员焦少少李凌鹏张会荣魏祥鹏
专业计科 12101 实验项目客房管理系统
辅导老师徐晓君
目录
任务分配和目标 (3)
1．系统需求分析 (4)
1.1待开发功能的一般描述 (4)
1.2待开发软件的功能模块 (4)
1.3网站可行性分析 (5)
1.4 UML系统建模 (5)
2.系统总体设计 (8)
2.1系统功能描述 (8)
2.2功能结构图 (9)
2.3系统流程图 (10)
3.数据库设计 (12)
3.1数据字典 (12)
3.2 E—R图设计 (13)
3.3数据表设计 (14)
4.系统详细设计及实现 (16)
4.1登录窗体设计 (16)
4.2系统主界面设计 (18)
4.3入住管理界面设计 (20)
4.4预定管理界面设计 (25)
4.5退房结账界面设计 (30)
5.总结 (34)
任务分配和目标
本系统的名称为客房管理系统
项目的负责人是组长乔雨
本项目参与者有焦少少、李凌鹏、魏祥鹏、张会荣
任务分配：
乔雨---主要统领全局及负责系统的主要代码的调试和编写；
焦少少---主要负责系统的基本功能及小组成员之间的协调工作；
李凌鹏---主要负责系统的总体功能实现及系统的调试；
张会荣---主要负责系统的部分代码和界面设计；
魏祥鹏---主要负责系统部分功能以及系统的问题处理；
我们主要针对架构清晰、模块独立性强、以及易维护和扩展等特点，进行系统设计，从而提供宾馆客房科学、规范的现代管理模式，使宾馆客房管理跨上一个新的台阶，一个先进的管理手段即高效率计算机管理方式引导宾馆行业的发展。

1．系统需求分析
1.1待开发功能的一般描述
酒店作为目前高层次的服务行业之一，最重要的就是要做到优质服务。

服务的安排、调度是否周到，客人的要求是否能迅速地得到满足，都直接影响到酒店的形象和声誉。

借助计算机技术来进行信息管理，并配合现代化的酒店管理经验和模式，可以极大地提高酒店的服务质量，获得更好的经济效益。

酒店信息化管理已成为酒店现代科学管理的重要内容，是酒店经营中必不可缺少的现代科学工具。

系统目标：（1）建立一套功能完整、高效、安全、稳定的酒店管理系统.
（2）系统能够对员工日常操作进行快速、安全地反映。

（3）实现对顾客信息，预订、入住、换房、退房、房态设置等信息的方便迅速录入、查询及管理，了解酒店日常业务的相关信息。

（4）界面简洁、操作方便、简单易学，用户不需要有太多的专业知识。

1.2待开发软件的功能模块
针对客房管理系统的需求，通过对客房管理工作过程的内容分析，系统需要实现的功能有如下主要五大功能：
（1）客房管理：客房编辑，客房状态编辑，客房类型编辑。

（对客房的状态、类型进行查，删，改）
（2）顾客管理：客房预定，登记入住，房间调整，退房登记。

（根据顾客的要求对客房号或客房类型进行查询、修改等）
（3）账单管理：消费记录，话费记录，入住登记。

（根据房间号查询，修改，删除顾客消费记录）
（4）系统设置：修改密码以及用户管理。

（5）客房预订管理：登记预定客户、客房的信息以及浏览查询等。

1.3网站可行性分析
可行性研究是为了弄清楚系统开发的项目是不是可以实现和值得进行研究的过程，实际上是一次大大简化系统分析和系统设计的过程，所以，进行可执行性的分析是非常必要的，也是很重要的，经过最初的设计目标和进行的市场调查得出以下四点的可行性分析：
（1）经济可行性：该系统设计是本组人员通过自己所掌握的知识设计的，又因为本组的设计能力有限，其功能还不能完善，所以没有什么经济效益可谈。

（2）技术可行性：Delphi的技术是我们以前所学习的知识，较为熟练。

（3）运行可行性：该系统需要在正确连接Access数据库后可以正常运行。

通过以上的可行性分析，我们将采用Delphi的技术，运用Access数据库对系统进行建设。

1.4 UML系统建模
因为UML很适合于对逻辑数据库模式和物理数据库模式建模，所以我们对系统进行UML建模。

下面是酒店客房管理系统的 UML建模过程。

这里我们将使用Rational Rose进行UML建模。

用例图分析：
图1.1 系统用例图
订房管理时序图：
图1.2 预订时序图
图1.3业务流程图
针对现在宾馆业的发展需求，在业务流程图的基础上，可以得到数据流程图：顶层数据流图：
图1.4顶层数据流图
2.系统总体设计
2.1系统功能描述
我们组通过商讨，搜索资料，所设计的福到家宾馆客房管理系统适用于宾馆的客房资源和客户信息的管理，实现宾馆客房的信息化管理，该系统主要包括预定管理、前台接待管理、前台收银操作、客房及客史管理、基础信息设置、系统帮助等功能。

具体功能设计内容如下：
（一）预订管理：房态表（查看房间现状，有无空房、是否维修、是否住房等等）、预订操作、预定查询。

（二）前台接待管理：入住登记、入住查询。

（三）前台收银操作：记账操作、退房操作。

（四）客房及客史管理：客房信息查询、房态维护管理、预定客人报表：链接预定客人报表、在住客人报表、当日预定客人报表、当日入住客人报表、当日离店客人报表、链接当日离店客人报表、当日财务进账报表、历史客人预定查询、历史客人入住查询。

（五）基础信息设置：客房类型设置、客房信息设置、工作人员管理：链接工作人员管理窗体、操作人员管理、会员编号管理、用户密码修改、系统用户注销、系统备份还原、链接用户密码修改窗体、系统日志管理、系统数据维护、电话计费接口、房态系统接口。

（六）系统帮助：关于系统、联机帮助。

2.2功能结构图
客房管理系统功能结构如图2.1所示
图2.1系统功能结构图
2.3系统流程图
通过对系统功能的分析，可得到用户操作的一般流程，如图所示。

用户登录系统时，系统将根据用户权限对其进行相应的功能限制。

一般普通用户可拥有前台登记、收银结账以及对商品和客房信息进行查询和设置的权限；而超级用户除拥有普通用户的所有权限外，还可进行系统用户设置、数据库维护和查看系统日志。

3.数据库设计
3.1数据字典
根据绘制出的数据流图,定义出本系统的数据字典。

如下列所示：
表3.2客户字典
表3.4客房字典
表3.3房号字典
表3.6结算账单字典
表3.5客房信息表
3.2 E—R图设计
本系统采用Access数据库。

经考察和分析,本案例客房管理系统包括以下实体：客户实体、客房实体、操作员实体、结算账单实体,它们的E-R图如以下所
图3.1整体E-R图
3.3数据表设计
根据E-R图,将图转换为关系模型即：将实体、实体的属性和实体之间的联系转换为关系模式,然后将全局E-R图转换成关系模型：
客房类型（价格，面积，类型，额定人数，是否有电脑，是否有电视，额定床位）
客房（房间类型，客房号，房间电话号码，客房状态，楼层）
顾客（姓名，证件号，籍贯，性别，电话，证件类型）
入住记录（入住编号，证件号，客房号，入住日期，退房日期，押金，结帐金额，话费花销）
预定信息（订单号，证件号，客房号，预定日期，预定入住日期，预定天数，退订日期）
关系数据表确定后要进行数据表的逻辑结构设计,即定义关系数据表中字段名称、数据结构、是否允许为空、关键字、说明等。

4.系统详细设计及实现
4.1登录窗体设计
（1）窗体功能描述
本窗体是系统的启动窗体，实现对于用户身份的多重验证功能。

具体描述如下：
用户合法性验证。

首先判断用户输入的用户名和密码是否正确，若正确，就进入用户状态判定，若错误；系统便发出警告信息。

系统限定用户只有三次输入机会，三次之后本窗体自动关闭。

（2）窗体设计
创建一个名为“LoginForm”的窗体，将caption属性改为“福到家宾馆用户登录”。

并按图4.1进行界面设计
图4.1登录界面
登陆成功后主界面显示。

（3）代码设计
登录窗体载入时，利用Adoquery控件连接数据库，从Comobox控件中选择用户名，然后输入密码，点击登陆按钮即可实现对用户身份的多重验证，代码如下：
procedure Tloginfm.dengluClick(Sender: TObject);
begin
if trim(usernamebox.text)='' then
begin
showmessage('请选择用户名!');
userpasedit.SetFocus;
exit;
end;
with adoquery do
begin
close;
sql.Clear;
sql.Add('select * from 操作员表where 姓名=:username and 密码=:userpas'); Parameters.ParamByName('username').Value:=trim(usernamebox.text); Parameters.ParamByName('userpas').Value:=userpasedit.text;
open;
if recordcount<1 then
begin
if j=3 then
application.Terminate;
messagedlg('密码错误！还有'+inttostr(3-j)+'次机会',mtconfirmation,[mbok],0); userpasedit.Clear;
j:=j+1;
exit;
end
else
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('insert into 日志表(姓名,操作,时间) values(:xm,:cz,:sj)');
Parameters.ParamByName('xm').Value:=trim(usernamebox.text);
Parameters.ParamByName('cz').Value:=loginfm.Caption+'成功！';
Parameters.ParamByName('sj').Value:=datetimetostr(now());
execsql;
end;
hotelfm.id:='操作员';
ername:=fieldbyname('姓名').AsString;
erpas:=fieldbyname('密码').AsString;
hotelfm.statusbar.Panels.Items[0].Text:='当前用户：'+ername;
loginfm.hide;
end;
usernamebox.Text:='';
userpasedit.Text:='';
end;
4.2系统主界面设计
（1）窗体功能描述
本系统主界面设计美观实用，采用图形化按钮和特定风格的数据表格，酒店中客房经营情况一目了然，使用户能够及时、准确的掌握客房营销情况，为顾客提供咨询服务。

主界面包括了预订管理、前台接待管理、客房及客史管理、基础设置、系统设置等几个功能模块。

客户可以根据自己的需要点击相应的功能模块即可以进入功能窗体。

（2）窗体设计
新建一个窗体并命名为“hotelfm”，并把caption属性改为“福到家宾馆管理系统”。

打开窗体的界面设计，在工具箱分别选择相应的控件把窗体设计成如图4.2所示。

图4.2系统主界面
①单击菜单中某个选项时，就弹出相应的窗体，代码如下：procedure Thotelfm.N4Click(Sender: TObject);
begin
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('insert into 日志表(姓名,操作,时间) values(:xm,:cz,:sj)');
Parameters.ParamByName('xm').Value:=ername;
Parameters.ParamByName('cz').Value:=hotelfm.N4.Caption;
Parameters.ParamByName('sj').Value:=datetimetostr(now());
execsql;
end;
BookFm:=TBookFm.create(self); //预定操作
BookFm.showmodal;
BookFm.free;
end;
②当点击ToolBar控件上的图象按钮时，将激活相应的功能窗体。

代码如下：
procedure Thotelfm.N9Click(Sender: TObject);
begin
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('insert into 日志表(姓名,操作,时间) values(:xm,:cz,:sj)');
Parameters.ParamByName('xm').Value:=ername;
Parameters.ParamByName('cz').Value:=hotelfm.N9.Caption;
Parameters.ParamByName('sj').Value:=datetimetostr(now());
execsql;
end;
inroomFm:=TinroomFm.create(self); //入住登记
inroomFm.showmodal;
inroomFm.free;
end;
4.3入住管理界面设计
（1）窗体功能描述
顾客进入酒店后，需先到前台办理入住手续。

操作员输入客人的相关信息，并根据顾客的要求选择相应的客房，操作员可手动设定折扣比例，系统会自动计算客房价格，收取一定的入住押金，最后点击确定按钮即完成入住手续的办理。

当顾客因故中途取消办理入住时，为方便操作，节省时间，可点击刷新按钮，则所有输入框中的信息自动清空。

最后点击取消按钮即可退出登记入住窗体。

（2）窗体设计
新建一个名“inRoomFm”的窗体。

并把caption属性改为“入住管理”，并利用相关控件设计成如图4.3所示。

图4.3入住管理界面（3）入住代码设计：
procedure TinroomFM.ydbtClick(Sender: TObject);
var
str:string;
begin
if roomtypebox.Text='' then
begin
showmessage('请选择客房类型!');
exit;
end;
if roomnumbox.Text='' then
begin
showmessage('请选择客房编号!');
exit;
end;
if inprice.Text='' then
begin
showmessage('请输入入住价格!');
exit;
end;
if (jcpriceedit.Enabled=true) and (jcpriceedit.Text='') then
begin
showmessage('请输入加床价格!');
exit;
end;
if (peonumedit.Text='') or (peonumedit.Text='0') then
begin
showmessage('请输入入住人数!');
exit;
end;
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from 入住单表where 入住单号=:yddh');
Parameters.ParamByName('yddh').Value:=trim(booknumEdit.Text);
open;
if recordcount>=1 then
begin
showmessage('此入住单存在，请刷新重新登记');
exit;
end;
end;
str:='insert into 入住单表(入住单号,客房类型,抵店时间,离店时间,';
str:=str+'单据状态,入住人数,客房编号,客房价格,入住价格,折扣,折扣原因,是否加床,加床价格,';
str:=str+'预收款,预定人,会员编号,预定公司,联系电话,特要说明,操作员,业务员,id,预定单号,早餐,叫醒,保密,vip) values';
str:=str+'(:yddh,:kflx,:ddsj,:ldsj,:djzt,:rzrs,:kfbh,:kfjg,:rzjg,:zk,:zkyy,:sfjc,';
str:=str+':jcjg,:ysk,:ydr,:hybh,:ydgs,:lxdh,:bz,:czy,:ywy,:id,:dr,:tgzc,:dsjx,:rzbm,:vip)';
with adoquery1 do
begin
close;
sql.Clear;
sql.Add(str);
Parameters.ParamByName('bz').Value:=trim(bz.Text);
Parameters.ParamByName('czy').Value:=trim(czyedit.Text);
Parameters.ParamByName('ywy').Value:=trim(ywybox.Text);
Parameters.ParamByName('id').Value:='';
Parameters.ParamByName('dr').Value:=trim(dr.Text);
if tgzc.Checked then
Parameters.ParamByName('tgzc').Value:=true
else
Parameters.ParamByName('tgzc').Value:=false;
if dsjx.Checked then
Parameters.ParamByName('dsjx').Value:=true
else
Parameters.ParamByName('dsjx').Value:=false;
if rzbm.Checked then
Parameters.ParamByName('rzbm').Value:=true
else
Parameters.ParamByName('rzbm').Value:=false;
if vip.Checked then
Parameters.ParamByName('vip').Value:=true
else
Parameters.ParamByName('vip').Value:=false;
try
execsql;
//showmessage('预定成功');
except
showmessage('入住失败!');
end;
end;
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('update 客房信息表set 状态="入住" where 客房编号=:kfbh');
Parameters.ParamByName('kfbh').Value:=trim(roomnumbox.Text);
execsql;
end;
if (trim(dr.Text)<>'') then
begin
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('update 预定单表set 单据状态="入住" where 预定单号=:yddh');
Parameters.ParamByName('yddh').Value:=trim(dr.Text);
execsql;
end;
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('insert into 预定单历史表select * from 预定单表where 预定单号=:yddh');
Parameters.ParamByName('yddh').Value:=trim(roomnumbox.Text);
execsql;
end;
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('delete from 预定单表where 单据状态="入住"');
execsql;
end;
end;
showmessage('入住成功');
sxbt.Click;
end;
4.4预定管理界面设计
（1）窗体功能描述
顾客可以通过点击主菜单中的预订管理模块来进行预定管理，在预定管理中包含了顾客对房间状态的查询、预定查询以及预定操作。

顾客可以在预定操作中进行对房间的预定及对顾客自己预定信息的修改、删除等等。

（2）窗体设计
新建一个窗体并命名为“Bookfm”，并把caption属性改为“预订管理”。

打开窗体的界面设计，在工具箱分别选择相应的控件把窗体设计成如图4.4所示。

图4.4预定管理界面
界面主要包括以下控件：标签（Label），文本编辑（LabeledEdit），文本框（combobox），按钮（Button），时间（Datetimepicker），Pagecontrol控件和DataGrid控件组成。

（3）代码设计
①预定代码设置：
procedure TBookFm.ydbtClick(Sender: TObject);
var str:string;
begin
if roomtypebox.Text='' then
begin
showmessage('请选择客房类型!');
exit;
end;
if roomnumbox.Text='' then
begin
showmessage('请选择客房编号!');
exit;
end;
if inprice.Text='' then
begin
showmessage('请输入入住价格!');
exit;
end;
if (jcpriceedit.Enabled=true) and (jcpriceedit.Text='') then
begin
showmessage('请输入加床价格!');
exit;
end;
if (peonumedit.Text='') or (peonumedit.Text='0') then
begin
showmessage('请输入入住人数!');
exit;
end;
with ydczado do
begin
close;
sql.Clear;
sql.Add('select * from 预定单表where 预定单号=:yddh'); Parameters.ParamByName('yddh').Value:=trim(booknumEdit.Text);
open;
if recordcount>=1 then
begin
showmessage('次预定单存在，请刷新重新预定');
exit;
end;
end;
str:='insert into 预定单表(预定单号,客房类型,预定时间,抵店时间,离店时间,';
str:=str+'单据状态,入住人数,客房编号,客房价格,入住价格,折扣,折扣原因,是否加床,加床价格,';
str:=str+'预收款,预定人,会员编号,预定公司,联系电话,备注,操作员,业务员,id) values';
str:=str+'(:yddh,:kflx,:ydsj,:ddsj,:ldsj,:djzt,:rzrs,:kfbh,:kfjg,:rzjg,:zk,:zkyy,:sfjc,';
str:=str+':jcjg,:ysk,:ydr,:hybh,:ydgs,:lxdh,:bz,:czy,:ywy,:id)';
with ydczado do
begin
close;
sql.Clear;
sql.Add(str);
Parameters.ParamByName('yddh').Value:=trim(booknumEdit.Text);
Parameters.ParamByName('kflx').Value:=trim(roomtypebox.Text);
Parameters.ParamByName('ydsj').Value:=date();
Parameters.ParamByName('ddsj').Value:=datetostr(dddate.date);
Parameters.ParamByName('ldsj').Value:=datetostr(lddate.date);
Parameters.ParamByName('djzt').Value:=trim(statusedit.Text);
Parameters.ParamByName('rzrs').Value:=trim(peonumEdit.Text);
Parameters.ParamByName('kfbh').Value:=trim(roomnumbox.Text);
Parameters.ParamByName('kfjg').Value:=trim(roompriceEdit.Text);
Parameters.ParamByName('rzjg').Value:=trim(inprice.Text);
Parameters.ParamByName('zk').Value:=trim(zkEdit.Text);
Parameters.ParamByName('zkyy').Value:=trim(zkyyEdit.Text);
if sfjc.Checked then
Parameters.ParamByName('sfjc').Value:=true
else
Parameters.ParamByName('sfjc').Value:=false;
Parameters.ParamByName('jcjg').Value:=trim(jcpriceedit.Text);
Parameters.ParamByName('ysk').Value:=trim(yskedit.Text);
Parameters.ParamByName('ydr').Value:=trim(bookpeoedit.Text);
Parameters.ParamByName('hybh').Value:=trim(hybhedit.Text);
Parameters.ParamByName('ydgs').Value:=trim(ydgsedit.Text);
Parameters.ParamByName('lxdh').Value:=trim(teledit.Text);
Parameters.ParamByName('bz').Value:=trim(bz.Text);
Parameters.ParamByName('czy').Value:=trim(czyedit.Text);
Parameters.ParamByName('ywy').Value:=trim(ywybox.Text);
Parameters.ParamByName('id').Value:='';
try
execsql;
//showmessage('预定成功');
except
showmessage('预定失败!');
end;
end;
with ydczado do
begin
close;
sql.Clear;
sql.Add('update 客房信息表set 状态="将到" where 客房编号=:kfbh');
Parameters.ParamByName('kfbh').Value:=trim(roomnumbox.Text);
execsql;
end;
showmessage('预定成功');
sxbt.Click;
end;
4.5退房结账界面设计
（1）窗体功能描述
当顾客要办理退房结账时，操作员进入退房结账窗体。

系统自动生成结账单号。

在入住宾客信息表选中要离店顾客的入住单记录，顾客在店内的消费记录便出现在消费记录表之中，且系统会自动计算住宿费用和消费金额，显示出应收金额和实收金额。

填入顾客支付金额后，系统会自动计算出需要找还的金额数。

最后点击结账按钮便完成了退房结账手续。

（2）界面设计
新建窗体并命名为sytffm,将此窗体设计成如图4.5所示。

图4.5退房结账界面
（3）代码设计
根据选择的入住单计算住宿费用和消费金额。

代码如下：
procedure Tsytffm.sybtClick(Sender: TObject);
var
vnum:string;
begin
if sszk.Text='' then
begin
showmessage('请输入实收帐款');
exit;
end;
if fkfs.Text='' then
begin
showmessage('请输入付款方式');
exit;
end;
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('update 入住单表set 离店时间=date(),单据状态="离店",应收帐款=:yszk,结帐金额=:jzje,是否结帐=:sfjz,结帐日期=date(),付款方式=:fkfs where 入住单号=:rzdh');
Parameters.ParamByName('rzdh').Value:=trim(rzdh.Text);
Parameters.ParamByName('yszk').Value:=trim(yszk.Text);
Parameters.ParamByName('jzje').Value:=trim(yszk.Text);
Parameters.ParamByName('sfjz').Value:=true;
Parameters.ParamByName('fkfs').Value:=trim(fkfs.Text);
execsql;
end;
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from 入住单表where 入住单号=:rzdh');
Parameters.ParamByName('rzdh').Value:=trim(rzdh.Text);
open;
vnum:=fieldbyname('客房编号').asstring;
end;
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('update 客房信息表set 状态="空房" where 客房编号=:kfbh');
Parameters.ParamByName('kfbh').Value:=vnum;
execsql;
end;
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('insert into 入住单历史表select * from 入住单表where 入住单号=:rzdh');
Parameters.ParamByName('rzdh').Value:=trim(rzdh.Text);
execsql;
end;
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('insert into 帐单明细历史表select * from 帐单明细表where 入住单号=:rzdh');
Parameters.ParamByName('rzdh').Value:=trim(rzdh.Text);
execsql;
end;
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('delete from 入住单表where 入住单号=:rzdh');
Parameters.ParamByName('rzdh').Value:=trim(rzdh.Text);
execsql;
end;
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('delete from 帐单明细表where 入住单号=:rzdh');
Parameters.ParamByName('rzdh').Value:=trim(rzdh.Text);
execsql;
end;
qxbt.click;
end;
5.总结
在将近一学期的软件工程学习，并且通过做课程设计，我们完成了《福到家宾馆客房管理系统》的软件开发任务。

在整个开发过程中遇到了很多的问题，但最终都一一解决，这次的软件工程课程设计对我们来说是非常难得的一次锻炼机会。

使我们对所学的专业课有了更为深刻的认识，提高了对管理系统开发理论，方法和步骤的认识，使知识得到了融会贯通，得到了比以往学习任何一门课都大的提高和进步。

对于我们来讲这不仅仅是一次课程设计，不仅仅学会了一门数据库开发工具，更重要的是在学习的过程中，遇到了很多的困难，在解决这些困难的过程中提高了我们学习的能力、解决问题的能力和实际工作能力，而且让我们懂得团队的重要性，学会了团队合作，学到了许多书本以外的知识，可以说这次实训我们受益匪浅啊。

总之，理论+实践=知识。

程序设计过程中，以理论为指导，以实践为主体，将理论与实践紧密结合起来，让我们亲身体会到只有将理论与实践有效的结合起来，才能使理论指导实践，又反过来丰富理论，二者相得益彰，使学习效率大大提高。