宾馆管理系统说明书(20200809083634)

1、第一章：系统分析1.1公司简介都市商务宾馆简介：者E市商务宾馆坐落于美丽的海滨城市大连，处于市区繁华中心地段，据地铁站400米，距水文化广场500米，距夜啤酒文化长廊700米，距中心客运站1.7公 里，距轻轨2.5公里，交通便利。宾馆内有会议室、观光茶楼、咖啡厅、各种档 次客房100间，是集会议接待，团队旅游，散客接待的理想场所。宾馆装修典雅， 并具有一支高水平的专业管理队伍， 随时欢迎入住，为您提供高品位的服务，让 您在旅途中住得舒适，真正体味到宾至如归的感觉。1.2组织结构图酒店总经理1.3功能结构图宾馆客房管理系统1.4业务流程图客户入住登记业务流程图:客户缴费业务流程图:1.5数据流程

2、图 顶层第1层客户入住过程数据流程图前台接待数据流程图:客房部处理数据流程图i11住房计- m丿i财务部财务处理数据流程图:1.6数据字典1、数据流条目数据流名：入住单组成：客房号+客房标准+已入住客房信息+入住时间+客户名 来源：前台去向：财务部2、文件条目文件名：前台账目组成：客房号+客房标准+单价+已入住客房+备注 存储方式：顺序存储频率：1次/天3、数据项条目数据项名：客房号类型：字符长度：10取值范围：00000999994、加工条目加工名：金额合计输入数据：客房价目表输出数据：前台账目加工逻辑：根据入住天数客房信息，检索客户文件，确定该用户入住客房标准、 类别，检索价格，以确定该客

3、户入住客房收费标准，得到单价，用单价和入住天 数相乘，得到客户应缴纳金额。第二章：数据库设计和代码设计2.1数据库设计2.1.1E-R图宾馆（宾馆名，电话，地址）客户（客户编号，姓名，性别，年龄，国籍）客房（房号，级别，单价）员工（员工编号，姓名，性别，年龄，业绩）住宿（欵号，客户编号,天如釉谒瑚轨郎見購，聘娜2.1.2表设计利用项目管理器，在数据项创建一个数据库（数据库名为“客房管理数据库”）保存在DATA 子目录下，并按下列要求在该数据库中创建个表保存在DATA子目录下。1）房间供需情况表字段名数据类型宽度由口 房号字符型3客房级别字符型1用房标志字符型12）客房信息数据表字段名数据类型宽

4、度由口 房号字符型10姓名字符型10性别字符型2年龄整型4国籍字符型10客房级别字符型1住房天数整型4标准价格货币型8预收费用货币型8结算费用货币型8住店日期日期型8离店日期日期型83）密码表字段名数据类型宽度姓名字符型10密码字符型62.2代码设计2.2.1设计原则惟一性：一个对象只有赋予它一个惟一的代码。合理性：代码与相应的分类体系相对应。可扩充性：应留有充分的余地，以备将来不断扩充的需要。简单性：结构尽可能简单，尽可能短，以减少各种差错。适用性：代码尽可能反映对象的特点，以助于记忆，便于填写。222设计举例1） 员工编号：利用混合码来设计该代码。例如：员工编号代码为：A00#，员工描述为

5、前台接待员工。BOO#，员工描述为：客房部工作人员。C00#,员工描述为财务部工作人员。2） 客户编号：利用混合码来设计该代码。例如：客户编号代码为：g0001，客户描述为尊贵 客户，y0001，描述为一般客户。3）客房编号代码设计：利用混合码来设计该代码。例如001A，描述为高级客房。001B，描述为中等客房。001C描述为一般客房。4） 缴费编号代码设计：利用助记码来设计该代码。例如：缴费编号代码为：101g0001，缴 费描述为最贵客户缴费。102 y0001，描述为一般客户缴费。第三章：程序设计3.1.1封面表单界面及程序设计3.1.2权限认证表单确认权限click事件程序：Locat

6、e all for alltrim( 密码表.姓名)=alltrim(thisform.Combo1.value) If found ()If alltrim(thisform.text1.value)=alltrim( 密码表.密码)Thisform.releaseDo form系统总控表单ElseThisform.spi nn er1.value=thisform.spi nn er1.value+1If thisform.spi nn er1.value=3Messagebox( 口令不正确!+chr(13)+对不起，你无权使用,48,登陆信息)Release thisformelseM

7、essagebox( 口令不正确！请重新输入！,48,登陆信息)Tbo1.setfocusThisform.text1.value=Thisform.refreshEndifEndifEndif取消click事件程序：thisform.release3.1.3系统启动表单Timer程序：thisform.spi nn er1.value=thisform.spi nn er1.value+1 if thisform.spi nn er1.value=100do form系统总控表单thisform.release en dif3.1.4系统总控表单Tsxt2Txt1客尸入

8、性客户查询与退房收入统计丟统初始牝用户权限錐护表单返出裂充系统总控表单客户入住click事件程序:do form客户登陆表单客户查询与退房click事件程序: do form客户查询退房结算表单收入统计click事件程序： do form宾馆收入统计表单系统初始化click事件程序: do form宾馆房间设置表单用户权限与维护表单click事件程序:do form用户权限维护表单退出系统click事件程序：this.pare nt.pare nt.release 3.1.5客户登录表单Ttl.标淮t貉聲费月新客户龙录修改新客户记录退出客户龙录窗口贡收费.xt匡藉客户登陆窗口新客户记录clic

9、k事件程序:This.pare nt.pare bol.e nabled=.t.This.parent.parent.txt 姓名.enabled=.t.This.parent.parent.txt 性另U .enabled=.t.This.parent.parent.txt 年龄.enabled=.t.This.parent.parent.txt 国籍.enabled=.t.This.parent.parent.txt 客房级另U .enabled=.t.This.parent.parent.txt 住房天数.enabled=.t.This.parent.parent.txt 标

10、准价格.enabled=.t.This.parent.parent.txt 预收费用.enabled=.t.This.parent.parent.txt 结算费用.enabled=.t.This.parent.parent.txt 住店日期.enabled=.t.This.parent.parent.txt 离店日期.enabled=.t. sele客户信息数据表If this.caption=新客户记录This.caption=保存新客户记录”This.pare nt.pare nt.tag=str(rec no()Appe nd bla nkElseThis.caption=新客户记录Th

11、mand2.caption=修改新客户记录 EndifThis.pare nt.pare nt.text1.value=*This.pare nt.pare nt.refresh修改新客户记录 click事件程序:If this.caption=修改新客户记录”This.caption=取消修改”Tmandl.caption=保存修改This.pare nt.pare nt.tag=str(rec no()ElseThis.caption=修改新客户记录”Tmandl.caption=新客户记录Tablereve

12、rt()This.pare nt.pare nt.refreshEndifGo val(this.pare nt.pare nt.tag)this.pare nt.pare nt.refresh退出客户记录窗口 click事件程序：广按姓名萱询Jthisform.release- 1房号姓容性别年沪国藉客房级别住房天数abTabFaETabiTiu3.1.6客户查询退房结算表单客户查询退房结算表单回金按房间查询j j ；nTwtl查找客户click事件程序：thisform.grd客户信息数据表.setfocusDo caseCase thisform.opti on group1.value

13、=1Locate all for alltrim(客户信息数据表.房号)=alltrim(this.parent.parent.text1.value)If fou nd()y=rec no()Go y)Messagebox(客户已经找到，提示客户请先在登记处办理完相关手续，否则不能退房！ElseMessagebox(未找到该客户，请确认！)EndifCase thisform.optiongroup1.value=2Locate all for alltrim( 客户信息数据表 .姓名 )=alltrim(this.parent.parent.text1.value) If found()

14、y=recno()Go yMessagebox(客户已经找到，提示客户请先在登记处办理完相关手续，否则不能退房！”)ElseMessagebox(未找到该客户，请确认！)EndifEndcase确认退房 click 事件程序：sele 客户信息数据表 if thisform.optiongroup1.value=1 sele 房间供需情况表locate all for alltrim( 房间供需情况表 .房号)= alltrim(this.parent.parent.text1.value)If found()Sele 客户信息数据表messagebox(住店日期：+dtoc(住店日期)+ch

15、r(13)+标准价格：+str(标准价格)+元/天 +chr(13)+住房天数：+str(住房天数)+天+chr(13)+预收费用：+str(预收费用)+元 +chr(13)+找零：+str(预收费用-标准价格*住房天数)+元)X=recno()Go xIf messagebox(当前客户确实要退房吗 ？!,32+4+256,开户确认)=6This.parent.parent.text2.value=locate all for alltrim( 客户信息数据表 .房号)= alltrim(this.parent.parent.text1.value) y=recno()go ythis.ta

16、g=this.parent.parent.grd 客户信息数据表 .recordsourcedelete next 1packthis.parent.parent.grd 客户信息数据表 .recordsource=this.tag release xrelease y thisform.refresh elsemessagebox(当前客户未退房，房间仍被占用！)thisform.refreshendifelsemessageboxC对不起，无查找的房间号，请确认！)endifelseif thisform.optiongroup1.value=2sele 客户信息数据表locate all

17、 for alltrim( 客户信息数据表 .姓名)= alltrim(this.parent.parent.text1.value) if found()y=recno()go ythisform.text1.value=alltrim( 客户信息数据表 .房号)if messagebox( 当前客户确实要退房吗？ !,32+4+256, 开户确认 )=6this.tag= this.parent.parent.grd 客户信息数据表 .recordsource delete next 1packthis.parent.parent.grd 客户信息数据表 .recordsource=thi

18、s.tag thisform.refreshrelease ysele 房间供需情况表locate all for alltrim( 房间供需情况表 .房号)= alltrim(this.parent.parent.text1.value) x=recno()go xthis.parent.parent.text2.value=release xthisform.refreshendifelsemessagebox(对不起，房间未找到，请确认！”)endifendifendif结束操作 click 事件程序：thisform.release 3.1.7 宾馆收入统计表单匸宾馆籾入统计表单匚!

19、5执行统计click事件程序:Sele客户信息数据表Do caseCase thisform.opti on group1.value=1Set filter to day(住店日期)=day(thisform.text1.value)Sum结算费用to xThisform.text2.value=xCase thisform.opti on group1.value=2Set filter to month(住店日期)=month(thisform.text1.value) Sum结算费用to xThisform.text2.value=xCase thisform.opti on grou

20、p1.value=3Set filter to year (住店日期 )=year(thisform.text1.value)Sum结算费用to xThisform.text2.value=xEndcaseThisform.refresh取消统计click事件程序：sele客户信息数据表set filter tothisform.release3.1.8宾馆房间设置表单:/宾馆居间设置表单Tlpn确认权限click事件程序：Locate all for alltrim( 密码表.姓名)=alltrim(thisform.Combo1.value)If found ()If alltrim(th