星级酒店管理系统的设计与实现Word格式文档下载.docx

星级酒店管理系统的设计与实现Word格式文档下载.docx

《星级酒店管理系统的设计与实现Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《星级酒店管理系统的设计与实现Word格式文档下载.docx（83页珍藏版）》请在冰豆网上搜索。

（3）可操作性原则：

本酒店客房管理系统面向的是酒店内工作人员，所以系统操作上要求简单、方便、快捷，便于用户使用。

（4）可扩展性原则：

采用开发的标准和接口，便于系统向更大的规模和功能扩展。

（二）系统需求

根据酒店客房管理系统的理念，此酒店客房管理系统必须满足以下需求：

（1）具有设置酒店客房类型和房间信息的功能

（2）能快速、准确地了解酒店的客房状态，以便订房和退房

（3）提供多种手段查询客房订房信息

（4）提供修改订房和修改退房功能

（5）提供简单的酒店工作人员的添加用户和修改密码功能

（三）功能需求

（1）利用系统设置中的初始化模块清空系统中所有数据。

（2）系统设置模块主要是设置操作员、密码及权限。

（3）客房管理模块主要是对客房进行设置和查询。

（4）住宿管理模块主要是对住宿登记、追加押金、调房登记和退宿结账进行管理。

（5）挂账查询模块主要是对挂账和客户结款进行查询。

（6）查询统计模块主要是对住宿、退宿进行查询以及对宿费进行提醒。

（7）日结模块主要是对登记预收、客房销售进行报表管理以及对客房销售进行统计。

（8）系统维护主要是对数据备份和恢复进行维护。

（四）系统的性能需求

为了保证系统能够长期、安全、稳定、可靠、高效的运行，系统应该满足以下的性能需求：

（1）系统处理的准确性和及时性

系统处理的准确性和及时性是系统的必要性能。

在系统设计和开发过程中，要充分考虑系统当前和将来可能承受的工作量，使系统的处理能力和响应时间能够满足用户对信息的处理。

由于系统的查询功能对于整个系统的功能和性能完成很重要。

从系统的多个数据来源来看，客房信息查询、订房信息查询、结算信息查询，其准确性很大程度上决定了系统的成败。

因此，在系统开发过程中，系统采用优化的SQL语句及安全扩展存储过程来保证系统的准确性和及时性。

（2）系统的开放性和系统的可扩充性

系统在开发过程中，应该充分考虑以后的可扩充性。

例如系统权限和客房信息设置等模块也会不断的更新和完善。

所有这些都要求系统提供足够的手段进行功能的调整和扩充。

而要实现这一点，应通过系统的开放性来完成，既系统应是一个开放系统，只要符合一定的规范，可以简单的加入和减少系统的模块，配置系统的硬件。

通过软件的修补、替换完成系统的升级和更新换代。

（3）系统的可操作性性

本酒店客房管理系统面向的用户是酒店内工作人员，而有些使用人员往往对计算机并不是非常熟悉，所以系统操作上要求简单、方便、快捷，便于用户使用。

这就要求系统能够提供良好的用户接口，易用的人机交互界面。

（4）系统的响应速度

系统设计中摒弃大量数据冗余，提出了优化数据库的解决方案，大量使用存储过程，大大提高系统响应时间和速度。

系统在日常处理中的响应速度为秒级，达到实时要求，以及时反馈信息。

严格保证操作人员不会因为速度问题而影响工作效率。

（五）开发技术

本系统利用VisualBasic编译环境，采用可视化编程，以MicrosoftOfficeAccess2003作为后台数据库，选用ADO访问数据库来实现各种功能。

1.计算机及操作系统：

WindowsXP或Windows7；

2.开发工具：

VisualBasic

3.运行环境:

装有完整MicrosoftOfficeAccess2003的系统

4.语言：

VisualBasic与SQL查询语言

第三章系统总体功能

（一）系统功能结构

1.基本系统模型

2.系统功能模型

根据星期八商务酒店实际情况，酒店客房管理系统总体功能模型如下图所示。

（二）系统流程图

1.预订流程：

2.结账流程：

第四章数据库设计

根据酒店客房管理系统需要，设置的数据库包含入住登记表tb_djb、预收登记表tb_djys、挂账信息表tb_gzmx、酒店房间信息表tb_kf、权限设置表tb_qxsz、调房登记表tb_tfd和管理者信息表tb_user。

其结构如下：

入住登记表tb_djb：

字段

字段名

类型

字段大小

1

凭证号码

文本

20

2

姓名

3

证件名称

4

证件号码

5

详细地址

50

6

住宿事由

7

房间号

30

8

客房类型

9

客房价格

货币

10

住宿日期

日期/时间

11

住宿时间

12

住宿天数

数字

双精度型

13

宿费

14

折扣

15

应收宿费

16

预收金额

17

提醒日期

18

退宿日期

19

备注

标志

21

日期

22

时间

23

结款方式

24

退宿时间

25

提醒时间

26

摘要

200

27

BZ

预收登记表tb_djys：

挂账信息表tb_gzmx：

挂账单位

100

住宿金额

欠款金额

还款金额

金额累计

票号

序号

整型

房间标准

房间价格

酒店房间信息表tb_kf：

房间类型

价格

房态

是/否

配置

使用设置

营业日期

权限设置表tb_qxsz：

住宿登记

追加押金

调房登记

退宿登记

客房管理

客房查询

房态查看

挂账查询

挂账结款

住宿查询

退宿查询

宿费提醒

登记预收报表

客房销售报表

客房销售统计报表

操作员设置

密码设置

初始化

权限设置

设置窗口图像

数据备份

数据恢复

编号

操作员

密码

调房登记表tb_tfd：

工作单位

折扣或招待

杂费

电话费

会议费

存车费

赔偿费

金额总计

预收宿费

退还宿费

退房日期

退房时间

28

管理者信息表tb_user：

第五章各功能模块代码

（一）酒店客房管理系统Main模块：

DimstrtempAsString*60'

定义字符变量存储路径

PrivateDeclareFunctionGetSystemDirectoryLib"

kernel32"

Alias"

GetSystemDirectoryA"

（ByVallpBufferAsString,ByValnSizeAsLong）AsLong'

声明API函数

PrivateSubForm_Load（）

'

自动识别数据库路径

="

select*fromtb_user"

select*fromtb_qxsz"

OnErrorGoToaa'

错误处理。

当找不到路径时则转向错误处理

Open&

"

\"

）ForInputAs#1

LineInput#1,intext

Temp=intext

Close#1

=LoadPicture（intext）

ExitSub

aa:

=LoadPicture&

\image\酒店客房管理系统主界面.bmp"

）'

当找不到路径时，赋给一个固定的图片路径

EndSub

PrivateSubForm_Activate（）'

设置操作员权限

select*fromtb_userwhere操作员='

"

+（4）.text+"

'

select*fromtb_qxszwhere操作员='

With

EndWith

EndIf

PrivateSubToolbar1_ButtonClick（ByValButtonAs

SelectCase

Case"

DJ"

zsdj_Click'

调入住宿登记

TF"

tf_Click'

调入退宿结账

FT"

ftck_Click'

调房态宿查询

CX"

zscx_Click'

调入住宿查询

RJ"

xsbb_Click'

调入客房销售报表

TX"

sftx_Click'

调入提醒

counter"

DimL,S'

调用计算器

L=GetSystemDirectory（strtemp,Len（strtemp））

Paths=Left（strtemp,L）&

S=Shell（Paths,1）

Shell函数执行一个可执行文件，返回一个Variant（Double），如果成功的话，代表这个程序的任务ID，若不成功，则会返回0。

CXDL"

'

重新登录

Loadmain_Login

exit"

IfMsgBox（"

确定退出该系统"

4,"

系统提示"

）=vbYesThen

End

EndSelect

PrivateSubsztx_Click（）'

设置主窗口图像

DimStr'

定义变量

BMP图片（*.BMP）|*.BMP|JPG图片（*.JPG）|*.JPG|GIF图片（*.GIF）|*.GIF|所有文件（*.*）|*.*"

设置图片格式

CommonDialog控件CommonDialog控件提供一组标准的操作对话框，进行诸如打开和保存文件，设置打印选项，以及选择颜色和字体等操作。

显示“打开”对话框

If<

>

Then'

如果文件不为空

=LoadPicture'

加载图片

Str='

将图片名赋给变量

）ForOutputAs#1'

打开一个txt文件

Print#1,Str'

打印图片名

Close#1'

关闭文件

把空值赋给文件名

Else

EndIf

PrivateSubsjbf_Click（）'

调入数据备份

=False

PrivateSubsjhf_Click（）'

PrivateSubzsdj_Click（）'

PrivateSubzjyj_Click（）'

调入追加押金

Loadmain_zjyj

PrivateSubtfdj_Click（）'

调入调房登记

PrivateSubtf_Click（）'

PrivateSubkfsz_Click（）'

调入客房管理

PrivateSubkfcx_Click（）'

调入客房查询

PrivateSubftck_Click（）'

调入房态查看

PrivateSubgzcx_Click（）'

调入挂账查询

Loadmain_gzcx

PrivateSubgzjk_Click（）'

调入挂账结款

Loadmain_gzjk

PrivateSubzscx_Click（）'

Loadmain_zscx

PrivateSubtfcx_Click（）'

调入退宿查询

Loadmain_tfcx

PrivateSubsftx_Click（）'

调入宿费提醒

Loadmain_xftx

PrivateSubysbb_Click（）'

调入登记预收报表

PrivateSubxsbb_Click（）'

PrivateSubxstj_Click（）'

调入客房销售统计

PrivateSubczysz_Click（）'

调入操作员设置

Loadmain_czysz

PrivateSubma_Click（）'

调入密码设置

PrivateSubcsh_Click（）'

调入初始化

PrivateSubqxsz_Click（）'

调入权限设置

PrivateSubDL_Click（）'

Loadmain_Login

（二）初始化main_csh模块：

Dimworkarea（200）,sqlAsString'

定义字符串变量

DimrsAs

select*fromtb_kf"

PrivateSubForm_Unload（CancelAsInteger）

=True

Pri