数据库课程设计宾馆住宿管理系统

1、宾馆住宿管理系统本系统针对宾馆住宿的一般管理模式,采用基于计算机网络技术的宾馆管理解决方案,按照宾馆的现代化管理要求设计,实现对宾馆住宿的接待，客房，订房,收支情况,电话等服务设施的全面全方位计算机管理。目标在于提高宾馆营业体系的作业效率，提高服务的客户满意度,加强宾馆的市场竞争力，树立良好的企业形象.通过计算机管理,一方面提供给客户快捷准确可靠的服务,另一方面提高宾馆自身的管理水平,及时准确获取营业信息,辅助对市场需求变化的决策.第一章 系统概述1.1系统开发的背景和意义随着我国经济的迅速发展，人们的生活水平有了显著的提高，假日经济和旅游经济已成为人们消费的热点。各地也把旅游业当作本地经济发

2、展的重要经济支柱之一，从而促进了宾馆酒店业的快速发展。同时，随着宾馆酒店越来越多，人们的要求越来越高，宾馆酒店业的竞争也愈来愈激烈。如何在激烈的竞争中生从发展，是每一个宾馆酒店必须面临的问题。对宾馆的经营状况起决定作用的是宾馆的服务管理水平。如何利用先进的管理手段、提高宾馆的管理水平，以成为宾馆酒店业发展的当务之急。面对信息时代的机遇和挑战，利用科技手段提高企业管理水平是企业管理无疑的一条行之有效的途径。现在的宾馆行业已经发生拉巨大变化，已不仅是提供给人们一个吃住行的简单场所，所以，将计算机管理引入宾馆的管理体系中,无疑对宾馆的服务水平更上一层楼提供了一种有利的支持。虽然计算机管理并不是宾馆管

3、理走向成功的关键元素，但它可以最大限度地发挥准确、快捷、高效等作用，对宾馆的服务管理提供强有力的支持。因此，采用全新的计算机网络和宾馆管理系统，已成为提高宾馆的管理效率、改善服务的水准的重要手段之一。在某种意义上，宾馆客房管理方面的信息话已成为现代化宾馆的重要标志。1.2系统所要实现功能该系统应充分利用信息技术提高宾馆客房的管理水平、服务水平。酒店客房管理系统要实现客房住宿的登记、宿费提醒、追加押金、调房登记、退房结帐、查询统计等功能。其中宿费提醒可以在住宿费超过押金时预警，提示前台要客人补交押金，该功能可明显提高对住宿人员宿费的有效管理。将动态时的住宿登记、客房调整追加押金等有机的联系在一起

4、，对酒店进行全方位的管理。1.3系统开发工具开发数据库管理信息系统需要选择两种工具，即前台开发语言和后台数据库。本系统运用了visual basic作为开发工具，sql server2000作为后台数据库。1.4系统模块分析（1）系统管理模块该模块实现操作员的管理,如添加删除和修改操作,并设置操作员的操作权限对指定的用户进行密码修改.（2）客房管理模块状该模块实现对客房的基本信息的设置,如客房的地点,客房等级,客房物品等信息.同时提供对客房信息的查询。（3）订房管理模块状该模块实现用户订房信息管理,提供对订房客户资料的登记,查询和退订操作。其中订房信息包括客房的类型和订房的时间等。（4）收银管

5、理模块状该模块实现用户的确订房信息管理,提供对订房客户资料的登记,查询，并提供当日报表的打印。第二章 系统需求分析2.1编写目的本文档对酒店管理系统的开发需求进行描述，目的是明确酒店管理系统对用户的功能要求.该文档对酒店管理系统做全面细致的用户需求分析，明确所要开发的系统应有的功能、性能与界面，使有关人士能够清楚的了解用户的需求，并在此基础上进一步提出概要设计说明书和完成后续设计与开发工作。2.2开发背景随着人民生活水平的提高，旅游出行的人越来越多，酒店的客流量不断增加，传统的酒店管理方法已经不适应现代社会的需求。宾馆在正常运营中需要对客房资源、顾客信息、退房信息等进行管理，利用客房管理系统及

6、时了解各个环节中信息的变更，有利于提高管理的效率。 本项目作为软件工程课程设计课程的训练项目提出，目的是为了提高同学们软件的开发和数据库的创建链接,以及软件文档的相关标准和编写原则,提高大家的实践能力。2.3实现目标建立一套功能完善的管理信息系统，既能满足业务人员日常处理的需要，增强企业经营全过程的数字化管理水平；又能满足管理人员决策分析的需要，提高公司管理层对公司经营反馈信息的响应速度。从而大幅度提高工作效率，提高实施管理的准确性、科学性，使担负管理的工作人员从繁杂的手工劳作中解脱出来。面对酒店行业的高速发展和酒店行业信息化发展的过程中出现的各种情况，酒店客房管理系统在实施后，应能达到以下目

7、标：(1)实现多点操作的信息共享，相互之间的信息传递准确、快捷和顺畅。(2)服务管理信息化，可随时掌握客人住宿、客房状态、客人挂帐等情况。(3)系统界面友好美观，操作简单易行，查询灵活方便，数据存储安全。(4)客户档案、挂帐信息、预警系统的结合，可对往来可户进行住宿监控，防止坏帐发生。(5)通过酒店客房管理系统的实施，可逐步提高宾馆的管理水平，提升员工的素质。(6)系统维护方便可靠、有较高的安全性，满足实用性、先进性的要求。2.4数据描述2.4.1信息需求（1）顾客信息：姓名、有效证件、证件号码、联系电话、工作单位、详细地址。（2）客房信息：房间号、房间类型 、房间价格、所在楼层、（3）住宿信

8、息：顾客姓名、房间编号、有效证件、房间标准、房间位置、折扣、入住时间、预交押金。（4）退房信息：顾客姓名、房间编号、客房标准、退房时间、折扣、预交押金、所付金额、找还金额。（5）调房信息：顾客姓名、客房标准、原始房、目标房、住宿天数、入住时间、预交押金、联系电话。2.4.2 处理需求宾馆在运营中需要对宾馆资源、顾客信息、结算信息进行管理，如果有顾客来往，经过对客房状态的查询，查看是否有房间能及时为客户办理登记手续，如果有顾客来退房，能及时为顾客登记并办理退房手续，并且修改客房信息，因此，利用开发完成后的宾馆管理系统能够十分便利的对住房系统进行管理有利于提高效率。酒店住房管理系统开发的任务是实现

9、各种住房信息的系统规范化、自动化主要完成的功能有以下几个方面。（1）住宿管理这个模块包括四个部分，即住宿登记、追加押金、调房登记、退宿结帐。该模块要实现客人的住宿登记，收取客人的预交宿费，自动计算折前宿费、实际宿费等；能够收取客人的续交押金，自动计算宿费提醒日期，并能够实现客户调房登记、退宿结帐、自动计算住宿费用及退还费等。（2）客房管理这个模块包括三个部分，即客房设置、客房查询、房态查看。宾馆客房在不同的时间有不同的状态，如空静房、空脏房、清理房、占用房、毛病房、修理房等。该部分要完成客房基本信息的查询、能够按房间号检索所需的客房基本信息，以及显示当前客房的入住数、空闲数、维修数、客房的使用

10、率等。（3）查询管理这个模块包括三个部分，即住宿查询、退宿查询、宿费提醒。该部分要实现对客房的查询，查询客房的住宿情况、退宿情况以及宿费提醒等。尤其是宿费提醒，当客人的上帐金额超过押金时系统自动提示要求客人补交押金，以防止宾馆财产损失。（4）日结设置该模块包括两个部分：客房销售报表、客房销售统计。该模块中要实现按任意时间汇总客人结帐后所需费用的总额的功能及按任意年汇总应收宿费、电话费等的功能。（5）结帐管理这个模块包括两个模块，挂帐查询模块、客户结款模块。主要实现选择挂帐单位或个人，检索符合条件的挂帐信息、还款信息及统计欠款余额等。（6）设置管理这个模块包括三个部分，主要用来完成操作员及密码设

11、置，操作员密码的修改以及实现清空选定表的数据的功能。2.5数据流图数据流图描绘信息流和数据从输入移动到输出过程中在系统中流动和处理的情况。2.5.1总体数据流图1住宿 管理管理员 2 查询管理 3客房管理 退宿信息 d1退房信息 住宿信息 客房号码 住宿信息 d2住宿信息 客房信息 客房信息 d3 客房信息 图2.1 总数据流图2.5.2 分数据流图住宿数据流图 管理员2.1查询登记顾客.2.2预定登记 客房号码 客房信息 查询信息 预定信息 客房信息d3 客房信息 d4 退宿信息 图2.2 住宿数据流图退房数据流图 管理员1.1住宿登记顾客1.2退宿登记 退宿信息 住宿信息 住 宿 信 息

12、住宿信息 退房信息d1 住宿信息 d2 退宿信息 图2.3 退房数据流图客房数据流图管理员.3.1客房登记顾客3.2客房管理 住宿信息 客房信息 住 宿 信 息 客房号码 住宿对象d5 客房信息 d6 房客信息 图2.4 客房数据流图2.6数据字典数据字典是关于数据信息的集合，即对数据流图中包含的所有元素的定义的集合。名字：住宿信息别名：住宿登记信息描述：顾客住宿是需要填写的登记表。定义：住宿信息=姓名+有效证件+客房类型+客房号+住宿日期。位置：登记表 名称：客房信息别名：宾馆客房的信息描述：描述宾馆各种客房的信息。定义：客房信息=客房标准+客房号码+客房价格+使用配置位置：客房登记 退房登

13、记名称：退房信息别名：退饭登记信息描述：客人退房时需要填写的信息定义：退房信息=客人姓名+有效证件+房间标准+房间号码+住宿天数。位置：系统退房登记信息名称：权限信息别名：权限登记信息描述：用来保存操作员的权限定义：权限信息=操作员+密码+客房预定+住宿登记+退宿登记+客房查询+密码位置：系统名称：客房管理别名：客房管理信息描述：客房日常管理信息定义：客房管理=服务员+房间号+操作员+密码位置：系统客房管理系统名称：查询管理别名：查询登记信息描述：查询客房登记的信息定义：查询管理=操作员+密码+住宿信息+客房预订位置：系统名称：退房登记别名：退房管理登记描述：退房管理登记信息定义：退房登记=房

14、客+房间号+服务员+密码位置：宾馆客房管理系统名称：客房登记别名：客房登记管理描述：客房管理登记信息定义：客房登记=房间号+房客+操作员+密码+服务员位置：宾馆客房管理系统2.7数据库概念设计 概念性信息模型是一种面向 问题的数据模型，是按照用户的观点来对数据和信息建模。它描述了从用户角度看到的数据，它反映了用户的现实环境。最常用的表示概念性数据模型方法，是实体联系方法（entity-relationship approach）。这种方法用er图描述现实世界中的实体，而不涉及这些实体在系统中的实现方法。用这种方法表示的概念性数据模型又称为er模型。er模型包含“实体”、“联系”、“属性”等三个

15、基本成份。2.7.1局部e-r图1顾客属性如图2.5顾客详细地址姓名身份证号工作单位联系电话图2.5 顾客实体属性图2客房属性如图2.6客房房间号码所在楼层房态房间类型房间价格使用配置图2.6 客房实体属性图3服务员属性如图2.7服务员工作编号姓名操作密码图2.7 服务员实体属性图4 经理属性如图2.8大堂经理工作编号姓名操作密码年龄 图2.8 经理实体属性图2.7.2 总e-r 图顾客客房姓名身份证联系电话工作单位详细地址登记服务员操作密码姓名工作编号住宿房间号码所在楼层价格房间类型使用配置房态 1 1 1 n n n管理 1大堂经理 操作密码 1年龄名字工作编号图2.9 总e-r实体图第三

16、章 系统总体设计3.1系统功能模块设计3.1.1功能模块图 图3.1 功能模块图3.2系统主要功能描述（1）住宿管理：住宿登记、追加押金、调房登记、推房结帐。（2）客房管理：客房设置、客房查询、房态查看。（3）查询统计：住宿查询、退宿查询、宿费提醒。（4）系统设置：初始化、密码设置、权限设置。（5）日结设置：客房销售报表、客房销售统计。（6）挂帐管理：客户结款、挂帐查询。3.3系统流程分析调房 房态查询fangtaichaxun 挂账续住追加押金查询宿费提醒结账选房点单消费离店手牌入住前台登记客人 确定手牌 退 牌现结 历史单据 建立账户报表预订客房 当前客户账单 预订房费单报表 图3.2 系

17、统流程图第四章 系统详细设计4.1程序流程设计所谓系统流程分析，就是用户使用系统时的工作过程。不同的用户有着不同的工作流程和使用权限。但是所有的用户都是从用户登录模块开始的。登录主要是判断是否是合法的用户，在数据库设计中用户的登录名是固定的，如果要添加用户则在用户主界面进行添加用户信息。本系统的系统流程分析如下图所示：开始用户登陆读取用户类型失败超过3次退出程序管理自己的拥护信息管理领班用户的用户信息管理普通用户的用户信息管理自己的拥护信息管理普通用户的用户信息管理自己的用户信息1系统的其他功能2领班用户管理模块3普通用户管理模块 否退出程序 重试 否 失败 是 成 功 用户管理模块 宾馆管理

18、模块 a dmin用户 领班用户普通用户 图4.1程序流程图4.2系统结构的实现该系统采用了sql server2000数据库，数据库名称为kfgl.数据库包含以下几个表：客房基本信息表kf、登记表djb、密码表ma、权限设置表qxsz、退房登记表tfdj、挂帐明细表gzmx。表4-1 密码表字段名称数据类型字段大小操作员文本10密码文本6表4-2 客房基础信息表字段名称数据类型字段大小房间号文本30房间类型文本50价格货币8房态文本4标志是/否1备注文本100配置文本100使用设置文本10营业日期时间/日期8表4-3 挂账明细表字段名称数据类型字段大小日期日期/时间100挂帐单位文本100摘

19、要文本8住宿金额货币8欠款金额货币8还款金额货币8金额累计文本16姓名文本100证件号码文本100票号文本20时间日期/时间8房间标准文本10房间价格文本10表4-4 登记表字段名称数据类型字段大小姓名文本50证件名称文本20证件号码文本20详细地址文本50房间号文本20客房类型文本10联系电话文本20客房价格货币8住宿日期日期/时间8住宿时间日期/时间8住宿天数数字双精度型宿费货币8折扣数字双精度型应收宿费货币8预收金额货币8提醒日期日期/时间8提醒时间日期/时间8退宿日期日期/时间8退宿时间日期/时间8备注文本50结款方式文本10摘要文本200表4-5 退房登记应收宿费货币8杂费货币8电话

20、费货币8存车费货币8赔偿费货币8金额总计货币8预收宿费日期/时间8退还宿费日期/时间8退还日期日期/时间8备注文本8表4-6 权限设置表字段名称数据类型字段大小编号是/否50操作员是/否50密码是/否双精度型住宿登记是/否1退宿登记是/否1追加押金是/否1客房管理是/否1客房查询是/否1住宿查询是/否1退宿查询是/否1宿费查询是/否1客房销售报表是/否1操作员设置是/否1密码设置是/否1权限设置是/否1调房登记是/否1客户结款是/否1第五章 系统界面设计及代码实现5.1系统登陆窗口界面程序启动后，首先进入系统登陆界面验证操作密码。在系统登陆模块中主要实现如下功能：（1）可选择操作员，支持鼠标和

21、键盘操作。（2）操作员和密码验证成功后，进入主界面。（3）操作员错误或密码错误提醒并返回错误点。（4）输入三次错误密码，自动退出系统。图5.1 用户登陆界面登陆代码实现option explicitdim cnt as integer 记录确定次数private sub command1_click()dim sql as stringdim rs_login as new adodb.recordsetif trim(text1.text) = then 判断输入的用户名是否为空 msgbox 没有这个用户, vbokonly + vbexclamation, text1.setfocuse

22、lse sql = select * from 系统管理 where 用户名= & text1.text & rs_login.open sql, conn, adopenkeyset, adlockpessimistic if rs_login.eof = true then msgbox 没有这个用户, vbokonly + vbexclamation, text1.setfocus else 检验密码是否正确 if trim(rs_login.fields(1) = trim(text2.text) then userid = text1.text userpow = rs_login.

23、fields(2) rs_login.close unload me mdiform1.show else msgbox 密码不正确, vbokonly + vbexclamation, text2.setfocus end if end ifend ifcnt = cnt + 1if cnt = 3 then unload meend ifexit subend subprivate sub command2_click()unload meend subprivate sub form_load()dim connectionstring as stringconnectionstring

24、 = provider=microsoft.jet.oledb.4.0; & _ data source=jiudian.mdbconn.open connectionstringcnt = 0end sub5.2系统主程序窗口界面程序启动后，在系统登陆界面验证完操作员及操作员密码后，将进入主程序界面。主程序界面要实现：（1）选择菜单或工具栏，调用相应程序，进行相应操作。（2）根据操作员不同，确定操作员相应的权限。图5.2 主程序窗口登陆代码实现private sub add_user_click()frmadduser.showend subprivate sub double_check_

25、click()frmfind_double.showend subprivate sub check_click()frmfind.showend subprivate sub double_client_click()frmdouble_client.showend subprivate sub exit_click()unload meend subprivate sub khts_click()frmkhts.showend subprivate sub mdiform_load()frmdata = falsefind = falseend subprivate sub modify_

26、pw_click()frmchangepwd.showend subprivate sub only_check_click()frmfind.showend subprivate sub only_client_click()frmonly_client.showend subprivte sub zbgl_click()frmzhiban.showend sub5.3住宿管理设计程序启动后，选择“客人入住”菜单下的“散客入住”和“团客入住”项，将进入住宿登记模块。在住宿登记模块主要实现如下功能：（1）自动生成住宿登记凭证号码。（2）提供空房间供用户选择。（3）实现客人住宿登记，收取客人预交

27、宿费。（4）自动计算折前宿费、实际宿费、宿费提醒时间、退宿时间。5.3.1 散客入住图.5.3 散客入住界面登陆代码实现option explicitdim rs_client as new adodb.recordsetprivate sub command1_click()if not isnull(datagrid1.bookmark) then if trim(datagrid1.columns(房号).celltext(datagrid1.bookmark) = then msgbox 房号不能为空！, vbokonly + vbexclamation, exit sub end i

28、f if trim(datagrid1.columns(房价).celltext(datagrid1.bookmark) = then msgbox 房价不能为空！, vbokonly + vbexclamation, exit sub end if if trim(datagrid1.columns(姓名).celltext(datagrid1.bookmark) = then msgbox 姓名不能为空！, vbokonly + vbexclamation, exit sub end if if trim(datagrid1.columns(性别).celltext(datagrid1.b

29、ookmark) = then msgbox 性别不能为空！, vbokonly + vbexclamation, exit sub end if if not isdate(trim(datagrid1.columns(抵达日).celltext(datagrid1.bookmark) then msgbox 请按照格式hh-mm输入抵达日, vbokonly + vbexclamation, exit sub end if if not isdate(trim(datagrid1.columns(离店日).celltext(datagrid1.bookmark) then msgbox 请

30、按照格式hh-mm输入离店日, vbokonly + vbexclamation, exit sub end if rs_client.update msgbox 添加信息成功！, vbokonly + vbexclamation, datagrid1.allowaddnew = false datagrid1.allowupdate = falseelse msgbox 没有添加信息！, vbokonly + vbexclamation, end if command1.caption = 新增记录 command2.enabled = true command3.enabled = tru

31、e command4.enabled = falseend ifadderror:if err.number 0 then msgbox err.descriptionend ifend subprivate sub command2_click()dim answer as stringon error goto cmdmodifyif command2.caption = 修改记录 then answer = msgbox(确定要修改吗？, vbyesno, ) if answer = vbyes then command2.caption = 确定 command1.enabled =

32、false command3.enabled = false command4.enabled = true datagrid1.allowupdate = true else exit sub end ifelse if not isnull(datagrid1.bookmark) then rs_client.update end if command2.caption = 修改记录 command1.enabled = true command3.enabled = true command4.enabled = false datagrid1.allowupdate = false m

33、sgbox 修改成功！, vbokonly + vbexclamation, end ifcmdmodify:if err.number 0 then msgbox err.descriptionend ifend subprivate sub command3_click()dim answer as stringon error goto delerroranswer = msgbox(确定要删除吗？, vbyesno, )if answer = vbyes then datagrid1.allowdelete = true rs_client.delete rs_client.updat

34、e datagrid1.refresh msgbox 成功删除！, vbokonly + vbexclamation, datagrid1.allowdelete = falseelse exit subend ifdelerror:if err.number 0 then msgbox err.descriptionend ifend subprivate sub command4_click()if command4.caption = 确定 then rs_client.cancel datagrid1.rebind datagrid1.allowaddnew = false datag

35、rid1.allowupdate = false command1.caption = 新增记录 command2.enabled = true command3.enabled = true command4.enabled = falseelseif command2.caption = 确定 then rs_client.cancel datagrid1.rebind datagrid1.refresh datagrid1.allowupdate = false command2.caption = 修改记录 command1.enabled = true command3.enable

36、d = true command4.enabled = falseend ifframe2.enabled = trueend subprivate sub command5_click()unload meend subprivate sub form_load()dim sql as stringon error goto loaderrorsql = select * from 散客资料rs_client.cursorlocation = aduseclientrs_client.open sql, conn, adopenkeyset, adlockpessimistic 打开数据库设

37、定datagrid控件属性datagrid1.allowaddnew = false 不可增加datagrid1.allowdelete = false 不可删除datagrid1.allowupdate = falseset datagrid1.datasource = rs_clientcommand4.enabled = falseset datagrid1.datasource = nothingrs_client.closeend sub5.3.2 团客入住图5.4 团客入住界面登陆代码实现option explicitdim rs_dclient as new adodb.reco

38、rdsetprivate sub command1_click()on error goto adderrorif command1.caption = 新增记录 then 当此按钮的状态为为“增加记录”时 command1.caption = 确定 按钮名称改为“确定” command2.enabled = false 删除与修改按钮不可用 command3.enabled = false command4.enabled = true 取消按钮可用 datagrid1.allowaddnew = true datagrid1.allowupdate = true 设定datagrid可以增

39、加记录elseif not isnull(datagrid1.bookmark) then if trim(datagrid1.columns(团队名称).celltext(datagrid1.bookmark) = then msgbox 团队名称不能为空！, vbokonly + vbexclamation, exit sub end if if trim(datagrid1.columns(负责人姓名).celltext(datagrid1.bookmark) = then msgbox 负责人姓名不能为空！, vbokonly + vbexclamation, exit sub end

40、 if if trim(datagrid1.columns(证件号码).celltext(datagrid1.bookmark) = then msgbox 证件号码不能为空！, vbokonly + vbexclamation, exit sub end if if trim(datagrid1.columns(房间号码).celltext(datagrid1.bookmark) = then msgbox 房间号码！, vbokonly + vbexclamation, exit sub end if rs_dclient.update msgbox 添加信息成功！, vbokonly +

41、 vbexclamation, datagrid1.allowaddnew = false datagrid1.allowupdate = falseelse msgbox 没有添加信息！, vbokonly + vbexclamation, end if command1.caption = 新增记录 command2.enabled = true command3.enabled = true command4.enabled = falseend ifadderror:if err.number 0 then msgbox err.descriptionend ifend subpriv

42、ate sub command2_click()dim answer as stringon error goto cmdmodifyif command2.caption = 修改记录 then answer = msgbox(确定要修改吗？, vbyesno, ) if answer = vbyes then command2.caption = 确定 command1.enabled = false command3.enabled = false command4.enabled = true datagrid1.allowupdate = true else exit sub end

43、 ifelse if not isnull(datagrid1.bookmark) then rs_dclient.update end if command2.caption = 修改记录 command1.enabled = true command3.enabled = true command4.enabled = false datagrid1.allowupdate = false msgbox 修改成功！, vbokonly + vbexclamation, end ifcmdmodify:if err.number 0 then msgbox err.descriptionen

44、d ifend subprivate sub command3_click()dim answer as stringon error goto delerroranswer = msgbox(确定要删除吗？, vbyesno, )if answer = vbyes then datagrid1.allowdelete = true rs_dclient.delete rs_dclient.update datagrid1.refresh msgbox 成功删除！, vbokonly + vbexclamation, datagrid1.allowdelete = falseelse exit

45、 subend ifdelerror:if err.number 0 then msgbox err.descriptionend ifend subprivate sub command4_click()if command4.caption = 确定 then rs_dclient.cancel datagrid1.rebind datagrid1.allowaddnew = false datagrid1.allowupdate = false command1.caption = 新增记录 command2.enabled = true command3.enabled = true command4.enabled = falseelseif command2