(精品)酒店收费管理系统精品(2013年优秀毕业设计)

酒店收费信息管理系统1.系统概述1.1系统及需求分析1.2系统设计的背景1.3系统的功能简介1.4系统开发的目标2.系统分析2.1业务流程分析2.2数据流程分析2.2.1数据流程图2.2.2数据字典表2.3数据存储分析2.4功能分析3系统设计3.1总体设计3.2详细设计4系统的实现41系统开发环境42系统测试43 系统运行与维护44系统的转换方案5.结束参考文献1系统概述：本系统是一个综合性的酒店收费管理系统，针对中国酒店实际需要来开发的，为用户提供迅速、高效的服务，减免手工处理的繁琐与误差，及时、准确地反映酒店的工作情况、经营情况，从而提高酒店的服务质量，并配合现代化的酒店管理，获得更好的经济效益。它集成了客户、入住、退房、收费、效益等多方面的管理信息，因而具有较强的实用性和先进性。1.1 系统及需求分析 1.1.1 系统需求 通过调查,要求系统需要有以下功能: 由于操作人员的计算机知识普遍较差,要求有良好的人机界面; 由于该系统的使用对象多,要求有较好的权限管理; 原始数据修改简单方便,支持多条件修改 方便的数据查询，支持多条件查询; 在相应的权限下，删除数据方便简单，数据稳定性好； 数据计算自动完成，尽量减少人工干预;1.1.2可行性分析本系统的设计是以财务为轴心，面向酒店客房业务的管理：以前台的接待，收银为核心，将住店客人的各类信息，住店期间发生的各项活动进行及时、有效的记录、反映、分析、统计。在此信息基础上，又向各个不同的管理角度提供对应的处理窗口，使各部门能及时获取本部门所需的信息，方便各部门进行工作的总结和分析，并为经理层的决策提供参考，使这一层的领导能总体把握整个酒店的运行状况，经营情况和存在的问题，更有利于采取相应的决策，进行总体协调。软件体现了一个国内酒店对管理系统的真正要求： 先进性：系统先进可靠，设计合理 适用性：功能齐全，模块式可拆卸 易用性：操作简单，容易维护 稳定性：系统成熟，稳定，安全性能好 本系统的设计是在Windows 98中文版操作系统环境下，使用Visual Foxpro 6.0中文版开发成功的。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言介绍如下：FOXPRO是在20世纪90年代开始进入我国，由FOXBASE演变而来，并完全兼容FOXBASE，是一种集成环境式数据库软件，是目前世界上最快的PC机数据库软件。FOXPRO提供了多种辅助开发工具，特别提供了SQL命令，有DOS和WINDOWS两种版本，在WINDOWS环境下FOXPRO可以充分利用WINDOWS的图像处理功能，使开发人员可以设计出十分友好、完善的MIS应用系统。FOXPRO属于小型数据库管理系统，适用于网络环境，支持文件服务器模式，它的数据库既可以放在局域网文件服务器上使用，也可以放在局域网上工作站上使用。FOXPRO特别适合小型MIS的开发，适用于无盘工作站的数据库管理系统。VISUAL FOXPRO是一个功能强大的数据库管理系统，它能迅速而又简单地建立用户的数据库，从而方便地使用和管理数据；它不仅支持客户/服务器模式，而且有与其他软件（如EXCEL）共享和交换数据的能力。VISUAL FOXPRO提供新的对象和事件处理模式，利用面向对象编程(OOP)的威力使用户能够最快速地建立和修改应用程序。VISUAL FOXPRO可借助工具条、对象、可视控件来自动完成界面的设计并执行各种任务，同时不牺牲任何数据库性能。不再只通过代码来完成任务，新环境让用户图形化地直接地操作文件、表、对象和类，直观地、创造性建立应用程序。可以从工具条上访问OLE控件和定制控件，从而可以利用MICROSOFT OFFICE和其它程序的各种功能。另外，可视的工具和加强的连接性，使用户可以与大多数后台数据库的客户/服务器应用程序连接，使32位ODBC程序能够集成来自各个系统的数据，包括客户/服务器数据库的数据、酵数据以及其他的数据。内建的工具可使本地数据升级到Microsoft SQL Server。同时，Visual FoxPro 对FOXPRO完全兼容。Visual FoxPro数据库管理系统既可以作为小型MIS的开发平台，也可以作为大型数据库系统的前端开发工具。1.2系统设计的背景现代化的酒店是集客房、餐饮、通讯、娱乐，商务文化及其他各种服务与设施为一体化的消费场所，组织庞大，服务项目多，信息量大，要想提高劳动生产，降低成本，提高服务质量和管理水平，进而促进经济效益，必须借助计算机来进行现代化的信息管理，本管理系统正是为此而设计的，本系统是一套适用于中、小型酒店使用的优秀系统，操作简单，灵活性好、系统安全性高，运行稳定。1.3系统的功能简介本系统主要可以实现以下的管理功能：系统功能、基本信息管理、查询、报表输出等等。1.3.1 项目规划本系统是一个典型的数据库应用程序,现规划如下:1.3.2住宿处理模块(ALT+Z)该模块的主要任务是实现本系统的核心业务，即住宿登记、结帐退房、住宿查询、结帐打印等功能。132报表统计（ALTT）：该模块的主要任务是实现本系统的统计功能，即日报表、月报表和年报表等三种统计功能。133系统设置（ALTS）：该模块的主要任务是实现本系统的客房设置功能，即房间状态设置、房间等级设置等二种功能。134退出（ALTQ）：本模块的主要功能是实现本系统的安全退出，从而恢复系统的初始状态。1.4系统开发的目标出于本系统是酒店客房管理的一个综合性的系统，本系统的设计目标将最终定位于完成以上所述的系统主要业务的基本模型上。2.系统分析2.1业务流程分析2.1.1客房管理业务流程图：输入计算机服务员经理身份证房间号客房部输出客人212退房管理业务流程图：输入计算机服务员财务人员登记号费用输出日期客人213入住管理业务流程图：客人输入计算机服务员经理登记号输出姓名及身份证号房间号2.2数据流程分析：2.2.1数据流程图：由于本系统的数据模块较多，下面仅以客房管理模块为例来进行编制。服务员财务人员客房管理系统经理客人情况收费情况查询报表输出客房管理系统0层数据流程图服务员财务经理1.0客房管理2.0收费管理3.0综合管理4.0统计分析D1客人D2费用D3费用查询者总经理客房管理系统1层数据流程图2.3数据存储分析：实体联系图1、数据模型设计。首先来做出客房管理系统的E-R图，分析这个问题的实体，从系统分析可以知道，客人的房间是由前台的服务员按照实际情况给出的，（前台和客房）服务员、客人、经理（包括财务人员）组成了这个系统的三个实体。2、再分析三个实体之间的联系。首先，这三个实体不是一个统一体，经理与客人没有直接的联系，经理必须通过服务员这个实体才能与客人建立联系，因而先不考虑。客人与服务员这两个实体是多对多联系；一位客人要多少个服务员服务，一个服务员要服务多位客人。而客房号是这两个实体连接的属性。因为客房既不是客人独有的，也不是服务生独有的。这个E-R图可画成下图。客人服务员客房入住mn客房管理系统中客人与客房的E-R图2.4功能分析：功能层次图酒店管理系统住宿处理报表设计退出系统设置住宿登记结帐退房住宿查询结帐打印日报表年报表月报表房间等级设置房间状态设置3系统设计3.1软件模块结构设计311系统方案确定。通过对系统的调研与分析，系统主要应完成的功能如下：系统功能、基本信息管理、查询、报表输出、帮助等功能。312软件结构设计。本系统在执行时，先根据不同的操作人员的需要来进行相应的模块，然后可以输入数据或者进行其它的查询或浏览等操作；总体来说，本系统属于一个事务型管理系统。接受数据处理中心客房管理退房管理收费管理打印报表 32数据库设计数据库采用了Microsoft Visual Foxpro自带的数据库，这是微软集成到Office中的一个桌面数据库，能够快速方便的和Office的其他套件综合使用。由于都是微软公司的软件作品，因此可以做到无缝链接。 321本系统中所涉及到的主要实体共有六个数据表，结构实体如下：guestsort客房类型表：客房类型，折扣率rmgrade客房等级表：房间类型，基本房价，备注，通用rmregister房间登记表：房间类型，客户姓名，客户类型，性别，基本房价，楼层，预住天数，入住时间，退房时间，续住，续住天数，超时，超时金额，结帐天数，实收金额，服务费，附加费，应收金额，折扣率，付款方式，帐号，证件类型，证件号，种族，籍贯，出生日期，住址，工作单位room房间表：房间号，房间类型，楼层，占用yeareport报表：房间号，一月，二月，三月，四月，五月，六月，七月，八月，九月，十月，十一月，十二月322各表的物理结构如下：Room客房表：字段名类型宽度小数位房间号字符4房间类型字符楼层字符占用逻辑型Guestsort表：字段名类型宽度小数位客户类型字符折扣率数字rmgrade表：字段名类型宽度小数位房间类型字符型基本房价货币型8备注备注型通用通用型Rmregister表：字段名类型宽度小数位房间号字符房间类型字符客房姓名字符客户类型字符性别字符基本房价字符楼层字符预住天数浮动入住时间日期时间型退房时间日期时间型续住逻辑型续住天数浮动型超时浮动型超时金额货币型结帐天数浮动型实用金额货币型服务费货币型附加费货币型应收金额货币型应收余额货币型折扣率数值型付款方式字符帐号字符证件类型字符证件号字符种族字符出生日期日期型住址字符工作单位字符Yearreport表：字段名类型宽度小数位房间号字符一月数值型二月数值型三月数值型四月数值型五月数值型六月数值型七月数值型八数值型九月数值型十月数值型十一月数值型十二月数值型4、系统的实现：本部分主要内容为本系统的运行界面以及主要界面的源代码。41系统主界面：本主界面可以体现出本系统的基本功能。图片如下：form1.init:if _screen.width=1024 this.width=1024 this.height=718endifs=substr(time(),1,2)f=substr(time(),4,2)m=substr(time(),7,2)thisform.text1.value=s+:+f+:+mthisform.refreshdo homenu.prg with thisform,.t.timer1.timer:s=substr(time(),1,2)f=substr(time(),4,2)m=substr(time(),7,2)thisform.text1.value=s+:+f+:+mthisform.refresh42住宿登记：该模块对本酒店的入住客户的个人详细信息进行登记和管理。 Form1.init:set dele onthisform.setall(readonly,.t.,textbox)thisform.setall(disabledbackcolor,rgb(255,255,255),textbox)thisform.setall(readonly,.t.,editbox)thisform.setall(disabledbackcolor,rgb(255,255,255),editbox)bo客户类型.readonly=.bo客户类型.disabledbackcolor=rgb(255,255,255)thisform.性别.enabled=.f.thisform.text房间号.inputmask=XXXXthisform.text楼层.inputmask=XXthisform.text房间类型.inputmask=XXXXXXthisform.text基本房价.inputmask=999,999.99thisform.text基本房价.Format=$thisform.text姓名.inputmask=XXXXXXXXXXXXXXXXthisform.text民族.inputmask=XXthisform.text出生日期.format=Dthisform.text证件类别.inputmask=XXXXXXXXXXXXXXXXthisform.text证件号.inputmask=XXXXXXXXXXXXXXXXXXXXthisform.text预住天数.inputmask=99.9thisform.text折扣率.inputmask=9.99thisform.text付款方式.inputmask=XXXXXXXXXXthisform.text实收金额.inputmask=999,999,999.99thisform.text实收金额.Format=$thisform.text应收金额.inputmask=999,999,999.99thisform.text应收金额.Format=$use rmgrade in 1sele rmgradeset order to FJLXbo房间类型.additem(房间类型)endscanuse room in 2sele roomset order to fjlxset relation to 房间类型 into rmgradeSET MULTILOCKS ON use rmregister in 3= CURSORSETPROP(Buffering, 5, rmregister)use guestsort in 4sele roomthisform.list1.rowsource=room.房间号,房间类型,楼层,占用thisform.list1.rowsourcetype=6roomtype=alltrim(bo房间类型.list(bo房间类型.listindex)tfilter=alltrim(房间类型)=+roomtype+ .and. !占用set filte to &tfilterthisform.list1.requerythisform.exfilter=tfiltersele rmregistergoto topif !empty(退房时间) thisform.label30.visible=.t.else thisform.label30.visible=.f.endifthisform.text房间号.value=房间号thisform.text楼层.value=楼层thisform.text房间类型.value=房间类型thisform.text基本房价.value=基本房价bo客户类型.additem(客户类型)bo客户类型.value=1thisform.text姓名.value=客户姓名if rmregister.性别=男 thisform.性别.value=1else thisform.性别.value=2endifthisform.text民族.value=种族thisform.text籍贯.value=籍贯thisform.text出生日期.value=出生日期thisform.text证件类别.value=证件类别thisform.text证件号.value=证件号thisform.edit住址.value=住址thisform.edit工作单位.value=工作单位thisform.text入住时间.value=入住时间thisform.text预住天数.value=预住天数thisform.text折扣率.value=折扣率thisform.text付款方式.value=付款方式thisform.text实收金额.value=实收金额thisform.text应收金额.value=应收金额command1.click:sele rmregistergoto topskip -1if !empty(退房时间) thisform.label30.visible=.t.else thisform.label30.visible=.f.endifthisform.text房间号.value=房间号thisform.text楼层.value=楼层thisform.text房间类型.value=房间类型thisform.text基本房价.value=基本房价bo客户类型.bo客户类型.additem(客户类型)bo客户类型.value=1thisform.text姓名.value=客户姓名if rmregister.性别=男 thisform.性别.value=1else thisform.性别.value=2endifthisform.text民族.value=种族thisform.text籍贯.value=籍贯thisform.text出生日期.value=出生日期thisform.text证件类别.value=证件类别thisform.text证件号.value=证件号thisform.edit住址.value=住址thisform.edit工作单位.value=工作单位thisform.text入住时间.value=入住时间thisform.text预住天数.value=预住天数thisform.text折扣率.value=折扣率thisform.text付款方式.value=付款方式thisform.text实收金额.value=实收金额thisform.text应收金额.value=应收金额command2.click:sele rmregisterif !bof()skip -1if !empty(退房时间) thisform.label30.visible=.t.else thisform.label30.visible=.f.endifthisform.text房间号.value=房间号thisform.text楼层.value=楼层thisform.text房间类型.value=房间类型thisform.text基本房价.value=基本房价bo客户类型.bo客户类型.additem(客户类型)bo客户类型.value=1thisform.text姓名.value=客户姓名if rmregister.性别=男 thisform.性别.value=1else thisform.性别.value=2endifthisform.text民族.value=种族thisform.text籍贯.value=籍贯thisform.text出生日期.value=出生日期thisform.text证件类别.value=证件类别thisform.text证件号.value=证件号thisform.edit住址.value=住址thisform.edit工作单位.value=工作单位thisform.text入住时间.value=入住时间thisform.text预住天数.value=预住天数thisform.text折扣率.value=折扣率thisform.text付款方式.value=付款方式thisform.text实收金额.value=实收金额thisform.text应收金额.value=应收金额elsemessagebox(已经到数据库头!,64,消息)endifcommand3.click:sele rmregisterif recn()recc()skipif !empty(退房时间) thisform.label30.visible=.t.else thisform.label30.visible=.f.endifthisform.text房间号.value=房间号thisform.text楼层.value=楼层thisform.text房间类型.value=房间类型thisform.text基本房价.value=基本房价bo客户类型.bo客户类型.additem(客户类型)bo客户类型.value=1thisform.text姓名.value=客户姓名if rmregister.性别=男 thisform.性别.value=1else thisform.性别.value=2endifthisform.text民族.value=种族thisform.text籍贯.value=籍贯thisform.text出生日期.value=出生日期thisform.text证件类别.value=证件类别thisform.text证件号.value=证件号thisform.edit住址.value=住址thisform.edit工作单位.value=工作单位thisform.text入住时间.value=入住时间thisform.text预住天数.value=预住天数thisform.text折扣率.value=折扣率thisform.text付款方式.value=付款方式thisform.text实收金额.value=实收金额thisform.text应收金额.value=应收金额elsemessagebox(已经到数据库尾!,64,消息)endifcommand4.click:sele rmregistergoto bottomif !empty(退房时间) thisform.label30.visible=.t.else thisform.label30.visible=.f.endifthisform.text房间号.value=房间号thisform.text楼层.value=楼层thisform.text房间类型.value=房间类型thisform.text基本房价.value=基本房价bo客户类型.bo客户类型.additem(客户类型)bo客户类型.value=1thisform.text姓名.value=客户姓名if rmregister.性别=男 thisform.性别.value=1else thisform.性别.value=2endifthisform.text民族.value=种族thisform.text籍贯.value=籍贯thisform.text出生日期.value=出生日期thisform.text证件类别.value=证件类别thisform.text证件号.value=证件号thisform.edit住址.value=住址thisform.edit工作单位.value=工作单位thisform.text入住时间.value=入住时间thisform.text预住天数.value=预住天数thisform.text折扣率.value=折扣率thisform.text付款方式.value=付款方式thisform.text实收金额.value=实收金额thisform.text应收金额.value=应收金额command5.click:sele rmregisterdo form searchrecnif !empty(退房时间) thisform.label30.visible=.t.else thisform.label30.visible=.f.endifthisform.text房间号.value=房间号thisform.text楼层.value=楼层thisform.text房间类型.value=房间类型thisform.text基本房价.value=基本房价bo客户类型.bo客户类型.additem(客户类型)bo客户类型.value=1thisform.text姓名.value=客户姓名if rmregister.性别=男 thisform.性别.value=1else thisform.性别.value=2endifthisform.text民族.value=种族thisform.text籍贯.value=籍贯thisform.text出生日期.value=出生日期thisform.text证件类别.value=证件类别thisform.text证件号.value=证件号thisform.edit住址.value=住址thisform.edit工作单位.value=工作单位thisform.text入住时间.value=入住时间thisform.text预住天数.value=预住天数thisform.text折扣率.value=折扣率thisform.text付款方式.value=付款方式thisform.text实收金额.value=实收金额thisform.text应收金额.value=应收金额command6.click:thisform.setall(readonly,.f.,textbox)thisform.setall(readonly,.f.,editbox)thisform.text房间号.readonly=.t.thisform.text楼层.readonly=.t.thisform.text房间类型.readonly=.t.thisform.text基本房价.readonly=.t.thisform.性别.enabled=.bo客户类型.readonly=.f.thisform.text折扣率.readonly=.t.thisform.text房间号.value=thisform.text楼层.value=thisform.text房间类型.value=thisform.text基本房价.value=0sele bo客户类型.bo客户类型.additem(客户类型)bo客户类型.value=1sele rmregisterthisform.text姓名.value=thisform.性别.value=1thisform.text民族.value=thisform.text籍贯.value=thisform.text出生日期.value=thisform.text证件类别.value=thisform.text证件号.value=thisform.edit住址.value=thisform.edit工作单位.value=thisform.text入住时间.value=datetime()thisform.text预住天数.value=0sele guestsortthisform.text折扣率.value=guestsort.折扣率sele rmregisterthisform.text付款方式.value=thisform.text实收金额.value=0thisform.text应收金额.value=0thisform.appedi=1 &追加模式sele rmregisterappend mand1.visible=.mand2.visible=.t.thisform.按钮1.visible=.mand7.click:thisform.setall(readonly,.f.,textbox)thisform.setall(readonly,.f.,editbox)thisform.text房间号.readonly=.t.thisform.text楼层.readonly=.t.thisform.text房间类型.readonly=.t.thisform.text基本房价.readonly=.t.thisform.性别.enabled=.bo客户类型.readonly=.f.thisform.text折扣率.readonly=.t.thisform.oldfjh=thisform.text房间号.value &保存未修改之前的房间号sele bo客户类型.bo客户类型.additem(客户类型)endscansele rmregisternCnt = 1DO WHILE nCnt (thisform.txt预住天数.value+thisform.txt续住天数.value)&判断是否超时memovertime=int(memout-memin)/3600-(thisform.txt预住天数.value+thisform.txt续住天数.value)*24)thisform.txt超时.value=memovertimemessagebox(该 +allt(房间号)+ 房客户入住超时 +allt(str(memovertime)+ 小时！,0+48+0,超时警告)&此处定要将memovertime内存变量(N型)转换为字符型(T)&而房间号本身就是字符型,所以不用变thisform.txt超时金额.value=thisform.txt基本房价.value*ceiling(memovertime/24)thisform.refreshelsethisform.txt超时金额.value=0endif*memcday=thisform.txt预住天数.value+thisform.txt续住天数.value+ceiling(thisform.txt超时.value)/24)memcday=ceiling(memtday)+thisform.txt续住天数.value+ceiling(thisform.txt超时.value)/24)thisform.txt结帐天数.value=memcdaythisform.txt应收金额.value=thisform.txt基本房价.value*thisform.txt折扣率.value*memcday+thisform.txt服务费.value+thisform.txt附加费.value if thisform.txt实收金额.valuethisform.txt应收金额.value messagebox(实收金额不足，请补收！,64,警告) mand1.visible=.t. mand2.visible=.f. mand5.visible=.f. mand4.enabled=.t. mand1.enabled=.t. return else mand1.visible=.f. mand2.visible=.t. mand5.visible=.t. mand1.enabled=.f. mand4.enabled=.f. endifthisform.txt应收余额.value=thisform.txt应收金额.value-thisform.txt实收金额.valuethisform.refreshelsereturnendifthisform.closable=.mand2.click:this.enabled=.mand1.enabled=.mand1.visible=.mand4.enabled=.t.thisfo