宾馆住宿管理系统

宾馆住宿管理系统
目录
一．前言...................................................................... . (2)
二．系统分析...................................................................... .. (2)
三．系统设计...................................................................... .. (5)
四．系统实现(部分)..................................................................... . (9)
五．结论...................................................................... .. (14)
一．前言
1.1课程设计目的：通过本课程教学，培养学生具备利用可视化开发工具开发信息系统能力，
培养学生的实际动手能力以及自学其它系统开发工具的能力。

通过本课程教学，着重培养学
生具备理论联系实际，以所学的知识，用于解决实际问题的良好素质。

这次实验主要通过对
可视化开发工具Delphi7的使用，结合Microsoft Access强大的数据库功能，建立一个人机交互友好系统，通过对已学知知识的掌握，在理论基础上锻炼自己的实际动手能力，培养学生
发散思维和系统思维。

1.2课程设计题目描述和要求：本次课题学生选择做宾馆住宿管理系统。

该系统采用成熟的
C/S结构, 设计过程中考虑各用户的应用环境和应用难点；主要针对现在宾馆住宿管理者的
使用，提供给宾馆住宿管理部门一个友好的人机交互平台，宾馆住宿管理部门可以通过使用
本系统进行房间信息以及客户信息的查询、录入、删除和修改等。

该系统在开发过程中研究
了宾馆住宿管理部门的工作规程，吸纳了近年来同类管理软件的优点，方便用户进行登录和
管理，节约了宾馆住宿管理的成本，加快了顾客对于房间信息的查询，提高工作效率。

二．系统分析
2.1系统概述宾馆住宿系统使用Microsoft Access进行数据库后台维护，并通过Delphi7强大
的数据库功能与之联系，一起建立一个提供用户信息录入、信息修改、信息查询、信息维护
等功能较为完善，易学易用，扩充灵活、安全可靠，符合未来发展方向的宾馆住宿管理系统。

2.2模块分析2.2.1．用户验证模块
本模块用于维护系统安全，用户通过验证密码正确方能登陆系统界面。

该模块在一定程度上，
有效阻止了对系统的不法入侵，保证相关信息安全完整性。

2.2.2．住宿管理模块
本模块用于提供客户住宿信息的录入与管理、查询、结算、删除功能及对应子模块。

通过“入
住记录”录入新客户的信息并结算相应费用；“客户查询”可使用对应查询条件了解客户信
息；“统计结算”计算现有总收入；“清理账目”用于删除相关信息。

2.2.3．信息浏览模块
本模块用于包括客户信息以及房间信息的总体浏览，提供宾馆现有的客户及房间的全部资
料。

本模块有助于宾馆住宿管理者从中观察客户类型，总结业务优势，统筹现有业务内容，
规划长远发展方向。

2.2.3．房间信息模块
本模块提供现有客户对应住宿房间信息。

管理者可根据客户，了解其对应居住房间的价位以
及套间等级，便于了解主要业务，计算相关费用等。

2.3数据流程图符号说明：
进程：数据流：外部实体：数据存储：
住宿管理模块客户信息浏览模块房间信息浏览模块三．系统设计 3.1功能设计按照功能划分，设计系统结构图。

如图所示：
3.2数据库设计本系统数据库中包含的表有宾馆表、客户信息表、房间信息表。

3.2.1宾馆表
字段名
数据类型
数据长度
房间号
数字
客户姓名
文本
10
身份证号
文本
15
入住时间
日期/时间
10
Price
货币
住宿理由
文本
20
Day
数字
值班人员
文本
10
电话号码
数字
Fee
货币
宾馆总收入
货币
3.2.2房间信息表字段名
数据类型
数据长度
房间号
数字
单价
货币
5
套间等级
文本
8
3.2.3客户信息表
字段名
数据类型
数据长度
身份证号
文本
15
姓名
货币
10
年龄
数字
性别
文本
10
是否VIP
是/否
照片
OLE对象
3.3 窗体设计本系统窗体中包含用户验证窗体、登陆界面窗体、住宿管理窗体、信息浏览窗
体、房间信息窗体。

3.3.1用户验证窗体
3.3.2登陆界面窗体
3.3.3住宿管理窗体
3.3.4信息浏览窗体
3.3.4房间信息窗体
四．系统实现(部分) 4.1 用户验证窗体4.1.1 密码验证按钮
procedure TForm5.Button1Click(Sender: TObject);
begin
if edit1.text='123' then
Form2.showmodal;
end;
4.1.2退出按钮
procedure TForm5.Button2Click(Sender: TObject);
begin
close;
end;
4.2 登陆界面窗体4.2.1 住宿管理按钮 procedure
TForm2.Button1Click(Sender: TObject);
begin
Form1.ShowModal;//显示住宿管理窗体 end;
4.2.2 信息浏览按钮及4.2.3 房间信息按钮实现方式类似
4.3 住宿管理窗体4.3.1 执行查询按钮——根据执行条件查询客户信息；
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOTable1.refresh;
with ADOTable1 do
try
disablecontrols;
filtered:=false;
if edit1.text<>'' then memo1.text:='客户姓名='+''''+edit1.text+''''; if edit2.text<>'' then memo1.text:='房间号='+edit2.Text;
if edit3.text<>'' then memo1.text:='入住时期='+''''+edit3.text+''''; filter:=memo1.text;
filtered:=true;
finally
enablecontrols;
if dbedit1.text='' then begin
messagebeep(1);
showmessage('没有符合条件的记录,请确认条件或放弃查询!');
if messageDlg('是否继续查询？只有结束查询才能作其它操
作!',mtinformation,[mbYes,mbNo],0)=mrno then begin
filtered:=false;
ADOTable1.close;
ADOTable1.open;
end;
end else begin
if messageDlg('是否继续查询？只有结束查询才能作其它操
作!',mtinformation,[mbYes,mbNo],0)=mrno then begin
filtered:=false;
ADOTable1.close;
ADOTable1.open;
end;
end;
end;
end;
4.3.2 执行总收入统计按钮——结算目前为止宾馆总收入；procedure TForm1.Button2Click(Sender: TObject);
var
sum1:real;
s:string;
bookmark1:tbookmark;
begin
sum1:=0.00;
bookmark1:=ADOTable1.getbookmark;
ADOTable1.disablecontrols;
ADOTable1.first;
while not ADOTable1.eof do
begin
sum1:=sum1+ADOTable1.fieldbyname('fee').value; ADOTable1.Next;
end;
ADOTable1.gotobookmark(bookmark1);
ADOTable1.FreeBookmark(bookmark1);
ADOTable1.EnableControls;
str(sum1:8:2,s);
memo2.text:='目前为止宾馆总收入为： '+s;
end;
4.3.3 执行删除按钮——根据执行条件删除信息； procedure
TForm1.Button3Click(Sender: TObject);
begin
ADOTable1.refresh;
with ADOTable1 do
try
if edit4.text<>'' then memo1.text:='客户姓名='+''''+edit1.text+'''';
if edit5.text<>'' then memo1.text:='房间号='+edit2.Text;
if edit6.text<>'' then memo1.text:='入住时期='+''''+edit3.text+'''';
disablecontrols;
filtered:=false;
filter:=memo1.text;
//ADOTable1.Delete;
filtered:=true;
finally
enablecontrols;
if dbedit1.text='' then begin
messagebeep(1);
showmessage('没有符合条件的记录被删除,请确认条件或放弃删除!');
if messageDlg('是否继续删除？只有结束删除才能作其它操
作!',mtinformation,[mbYes,mbNo],0)=mrno then begin
filtered:=false;
ADOTable1.close;
ADOTable1.open;
end;
end else begin
ADOTable1.Delete;
if messageDlg('是否继续删除？只有结束删除才能作其它操
作!',mtinformation,[mbYes,mbNo],0)=mrno then begin
filtered:=false;
ADOTable1.close;
ADOTable1.open;
end;
end;
end;
end;
4.3.4 直接清空按钮——清空信息；
procedure TForm1.Button4Click(Sender: TObject);
begin
with ADOTable1 do
begin
if messagedlg('注意，清空数据库需要特别细心，一旦数据丢失，后果不堪设想，清空前最好先导出数据以备份',mtinformation,[mbyes,mbno],0)=mryes then begin
if messagedlg('再次提醒，确实要清空吗，请慎重！
',mtinformation,[mbyes,mbno],1)=mryes
then begin
active:=false;
ADOTable1.ClearFields;
active:=true;
end else showmessage('记录内容未被清除，可以继续使用！');
end else showmessage('记录内容未被清除，可以继续使用！');
end;
end;
4.4 信息浏览窗体4.4.1查找按钮——根据查找关键字查询用户信息；
procedure TForm3.Button1Click(Sender: TObject);
var
strSQL:string;//存放查询语句 begin
//这是典型的模糊查询语句
strSQL:='select * from 客户信息 where 姓名 like "%'+edit1.Text+'%" ';
showmessage(strSQL);
ADOQuery1.Close;
ADOQuery1.SQL.clear;
ADOQuery1.SQL.add(strSQL);
ADOQuery1.Open;
end;
4.5 关键技术1．密码验证 2．显示窗体
3．根据执行条件查询客户信息 4．结算目前为止宾馆总收入 5．根据执行
条件删除信息 6．无条件清空信息
7．根据查找关键字查询用户信息
4.6 技术难点与解决方案：4.6.1 住宿管理窗体
执行查询（删除）按钮——根据执行条件查询（删除）客户信息；通过ADOTable的连接和Filter的使用，通过Memo1的Text属性值即用户选择所需的查询条
件，设置Filter的执行条件值，使用ADOTable和Filter的开启关闭等步骤实现所需功能。

4.6.2 房间信息窗体（子父表）
使用ADOTable分别连接主从表，通过设置从表的ADOTable的MasterSource
为主表的DataSource，并设置从表的MasterField为相应关联字段来实现主表和从表的连接。

五．结论
本次课程设计，通过使用可视化开发工具Delphi开发宾馆住宿信息系统，学生实际动手能
力以及自学其它系统开发工具的能力有所提高，同时发现平时学习中的许多不足之处。

例如，
学生发现，在开发系统过程中，对数据库重要组件包括ADO控件、数据集组件和数据显示
组件等的相关属性及方法不够熟悉，还不能在需要时纯熟、灵活地运用，在技术上无法实现
梦寐以求的效果，留下许多缺憾。

此外，本次系统的语句学生尝试运用了异常处理（Try……Finally……）语句，更好的保证了系统的稳定性，提高了系统的容错能力。

本次课程设计的顺利完成，尤为感谢李美娟老师的辛勤教导。

本学期的课程中，她带领学生
进入华丽的Delphi世界，使学生领略到Delphi7组件化的编程方式，面向对象的程序设计，
快速的Pascal编译器，强大的数据库开发功能，支持了学生本次系统的顺利开发。

参考书目：[1] 何鹏飞，Delphi 8 程序设计教程[M]，清华大学出版社，2004
[2] 何光明，Delphi实用培训教程[M]，人民邮电出版社，2003.
[3] 伍俊良，Delphi 6 课程设计案例精编[M]，中国水利水电出版社，2001
[4] 何鹏飞，Delphi 7 程序设计教程[M]，清华大学出版社，2003.
[5] 尚志宏，石蔚云.Delphi 7 全方位教程[M]，航空工业出版社，2003
[6] 王惠刚，Delphi 7/8 程序设计基础教程[M]，北京：清华大学出版社，2004。