宾馆管理系统说明书

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

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

3、类别，检索价格，以确定该客户入住客房收费标准，得到单价，用单价和入住天 数相乘，得到客户应缴纳金额。第二章：数据库设计和代码设计2.1数据库设计E-R2.1.1tl员工号员工宾馆（宾馆名，电话，地址）（客户编号，姓名，性别，年龄，国籍）（房号，级别，单价）员工（员工编号，姓名，性别，年龄，业绩）住帘（宾馆号，客户编号天教辭（员工编見宾馆影脯,購期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）员工编号：利用混合码来设计该代码。例如：员工编号代码为

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

6、 I I I b r1 I I- ri I I b -I I I- i I I b -I 卜七 IL用户姓名;用户密码确认权限CombolTextl确认权限click事件程序：Locate all for alltnm( 密码表.姓名)=alltrim(thisform.Combo1.value) If found ()If alltrim(thisform.text1.value)=alltrim( 密码表.密码)Thisform.releaseDo form系统总控表单ElseThisform.s pinn er1.value=thisform.s pinn er1.value+1If t

7、hisform.s pinn er1.value=3Messagebox( 口令不正确！+chr(13)+对不起，你无权使用,48,登陆信息Release thisformelseMessagebox( 口令不正确！请重新输入！,48,登陆信息)Tbo1.setfocusThisform.text1.value=Thisform.refreshEndifEndifEndif取消click事件程序:thisform.release3.1.3系统启动表单I I，_I f 十十是4一朴卜P+I+t4I+4+F1 +1 Lbm!F.*丄士；.!一4:于I*- 1十1.i HI IT J JJ I 丄

8、-H3 士 JI_i 1 mr.-I -I -I I I I I-1 4 I-与；話器冲砰if聲導b-FPIrEE PhpIb.十：戈十 h r ppk b ri s _1 i1 1 il!卜 + ;_科 Jf！ :紀计 用J - i: 口 m Q-illll_si+lis_I 1 n_I 1 - I ili I.-Ik*;十-s *I 咔 I |一-I -I 卜 片F卄：1存上：4J.-PIb 卜卜Fk卡 T #* 1 al sm JIHI ;耳 I d TI-i-111 w 丄一i- -_ - - TIIIIT ml _ - 亠 A 丁；訓 :# 丁才我i亠费 II J -!I J：聲！

9、- n F-1- - j J I, I . JL. q d b 4 L .冇耶.5 r :-n -:!J B :!-+T .+rr-+H-.IIioJUSaF；-I liH 1堆 in:H唏叱* q+妁+曽+”!r! I一崔崩澈丄二萨汪裁I菇;全屢鰹4”-.丄主舞貯亠i4 亠 4 L b L 亠 _ 4 ,III-f-* 育十二严十 _IIIW 4F * + -J-,- T-：卡,L R,r .d:-sigiJH新客户记录click事件程序：This .parent.paren bol.e nabled=.t.This.parent.parent.txt 姓名.enabled=.t.This.

10、parent.parent.txt 性另U .enabled=.t.This.parent.parent.txt 年龄.enabled=.t.This.parent.parent.txt 国籍.enabled=.t.en abled=.t.en abled=.t.en abled=.t.en abled=.t.en abled=.t.en abled=.t.en abled=.t.This.parent.parent.txt 客房级另UThis.parent.parent.txt 住房天数This.parent.parent.txt 标准价格This.parent.parent.txt 预收费

11、用This.parent.parent.txt 结算费用This.parent.parent.txt 住店日期This.parent.parent.txt 离店日期sele客户信息数据表If this.caption=新客户记录”This.ca pti on=保存新客户记录This .paren t. paren t.tag=str(rec no()Append bla nkElseThis.caption=新客户记录Tmand2.caption=修改新客户记录 EndifThis .parent.paren t.text1.value=*This .paren t. paren t.refr

12、esh修改新客户记录 click事件程序:If this.caption=修改新客户记录”This.caption=取消修改”Tmandl.caption=保存修改This .paren t. paren t.tag=str(rec no()ElseThis.caption=修改新客户记录”Tmand1.caption=新客户记录Tablerevert()This .paren t. paren t.refreshEndifGo val(this .parent.paren t.tag)this .paren t. paren t.refresh退出客户记录窗口click事件程序:thisfo

13、rm.release查找客户click事件程序：thisform.grd客户信息数据表.setfocus Do caseCase thisform .op ti ongroup 1.value=1Locate all for alltrim(客户信息数据表.房号)=alltrim(this .p are nt. paren t.text1.value) If fou nd()y=rec no()Go yMessagebox(客户已经找到，提示客户请先在登记处办理完相关手续，否则不能退房!Else”)Messagebox(未找到该客户，请确认！EndifCase thisform .op ti

14、ongroup 1.value=2Locate all for alltrim(客户信息数据表.姓名)=alltrim(this .p are nt. paren t.texti.value) If foun d() y=rec no()Go yMessagebox(客户已经找到，提示客户请先在登记处办理完相关手续，否则不能退房!Else)Messagebox(未找到该客户，请确认！EndifEndcase确认退房click事件程序：sele客户信息数据表if thisform .op ti on gro up 1.value=1sele房间供需情况表locate all for alltri

15、m(房间供需情况表 .房号)=alltrim(this.parent.parent.texti.value)If fou nd()Sele客户信息数据表”)+元/天messagebox(住店日期：+dtoc(住店日期)+chr(13)+标准价格：+str(标准价格 +chr(13)+住房天数：+str(住房天数)+天+chr(13)+预收费用：+str(预收费用)+元+chr(13)+找零：+str(预收费用-标准价格*住房天数)+元)X=rec no()Go xIf messagebox(当前客户确实要退房吗 ？!,32+4+256,开户确认)=6This .paren t. paren t

16、.text2.value=locate all for alltrim(客户信息数据表.房号)=alltrim(this.parent.parent.text1.value) y=rec no()go ythis.tag=this.parent.parent.grd 客户信息数据表.recordsource delete next 1p ackthis.parent.parent.grd 客户信息数据表.recordsource=this.tag release x release y thisform.refresh else)messagebox(当前客户未退房，房间仍被占用！thisfo

17、rm.refreshen difelse”)messagebox(对不起，无查找的房间号，请确认！en difelseif thisform.o ptio ngroup 1.value=2sele客户信息数据表locate all for alltrim(客户信息数据表.姓名)=alltrim(this.parent.parent.text1.value) if foun d()y=rec no()go ythisform.text1.value=alltrim(客户信息数据表.房号)if messagebox(当前客户确实要退房吗？！,32+4+256,开户确认)=6this.tag= th

18、is.parent.parent.grd 客户信息数据表.recordsourcedelete next 1p ackthis.parent.parent.grd 客户信息数据表.recordsource=this.tagthisform.refreshrelease ysele房间供需情况表locate all for alltrim(房间供需情况表 .房号)=alltrim(this.parent.parent.texti.value) x=rec no()go xthis .paren t. paren t.text2.value=release xthisform.refreshen

19、difelse”)messagebox(对不起，房间未找到，请确认!en difen difen dif结束操作click事件程序:thisform.release3.1.7宾馆收入统计表单执行统计click事件程序:Sele客户信息数据表Do caseCase thisform .op ti ongroup 1.value=1Set filter to day(住店日期)=day(thisform.text1.value)Sum结算费用to xThisform.text2.value=xCase thisform .op ti ongroup 1.value=2Set filter to m

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