酒店管理系统Delphi软件毕业设计

1、南京理工大学课程设计说明书学号：学号：学院系：专业：题目：酒店治理系统2021年10月目录-i、概述1二、需求分析3三、系统设计7四、系统实施16五、系统测试42六、收获和体会51七、附录51八、参考文献51一、概述1、工程背景：酒店兴衰,关键是治理.建设一间现代化的酒店,需要的是钱,而要经营治理好一间酒店,关键是治理.酒店治理是现代酒店的命脉,治理水平的上下,决定着酒店经营的成败.酒店是企业,同样是要重视治理的工作,增强治理.现代治理者即是财富,当代的治理者更是直接的财富.治理的意义,简单地讲,管就是主事,理就是治事,合起来为主管和治理人与事.随着中国参加WTO和经济全球化格局的形成,越来越

2、多白人感到21世纪国际酒店的竞争剧烈,从设备豪华到价格竞争开展到人才全方位的竞争.要竞争就必须创新.创新,是酒店的生命.商场如战场,成功的治理者及其管理需要刚柔结合.一个酒店,无论是土地,还是设备,还是流动资金,他们的实质都是静态资产.人们认为财务治理首要的是讲管好钱.其实钱是属于静态资产,钱是不会跑的,它又没有长脚.如果说钱会跑,是由于有人去动他,所以不是钱的问题,仍然是治理的问题.钱是不能主动创造价值的,即使是被投资于很好的项目,也是治理彳的决定,也是由人在那里治理.所以,唯有治理的行为才能创造价值.现在的酒店治理进入e时代,未来酒店业的竞争必将进入一个新的阶段,伴随着我国旅游业的高速开展

3、,宾馆酒店行业的效劳档次迫切需要提升.在宾馆酒店竞争日趋剧烈的今天,要成为佼佼者,就必须与高新技术紧密结合.硬件设施落后、治理水平滞后、效劳质量低下的酒店将被逐步淘汰,传统的纯手工或简单的计算工具,已经不适应现代经济高速开展的要求,必须运用现代化治理手段,配备完善的自动化设备,提升酒店的效劳水平与质量,从而赢得高信誉、强实力、好效益！本系统目地是为了一些酒店还没有使用治理软件,仍靠手工处理业务.2、编写目的：为酒店提供一种方便快捷的效劳治理软件3、软件定义：酒店治理系统4、开发环境：Windows2000/XP二、需求分析1、问题的提出：如何能让酒店客户效劳更快捷有效、让各方面信息一目了然呢需

4、要哪些方面的功能才能使治理员只要轻轻敲打计算机就可以轻松完事？2、系统的业务功能分析：老板界面：治理员信息、员工管理、财政治理,酒店菜单含客房资料、用户资料、用户登记入住、结账等工程,顾客可进行自己信息查询和进行员工评价.酒店治理酒店治理系统自助查询顾客登陆员工登陆3、系统的业务流程分析：输入治理员姓名、密码,判断是普通员工还是老板,老板那么进入老板界面,可进行员工治理、治理员治理和财政治理,如果是普通员工那么登录主界面,根据需要点击客房资料、用户资料、用户登记、结账等选项,进入选项,进行更新或查询.员工登陆酒店治理开始自助查询顾客登陆与评价员工r1客房资料小顾客资料顾客登记顾客消费顾客结账历

5、史记录4、需完成的功能：系统的总体是为效劳人员提供一个方便快捷的治理工具,使得用户能够快速准确完成顾客入住、结账等烦杂工作.具体有以下根本功能：用户登记：完成顾客的入住登记操作,主要是记录顾客信息、分配房间和其他信息.账务结算：结算账务、整理客房资料客房资料：日常信息维护,主要是修改房间状态、删除房间等.顾客信息：存档顾客信息员工信息：存档员工信息,以便对员工考勤工资等进行治理用户评价：用户对工作人员的评价,记入员工信息表中5、数据字典1数据流定义表编号数据流名内部名组成L01客房信息E01、E12E20L02顾客资料E01-E11L03顾客登记L01、L02L04顾客消费E01、E02、E0

6、6、E21E26L05治理员信息E27E29L06员工信息E27、E30-E36L07财务结算E37-E472数据元素定义编号数据元素名数据类型类长备注E01订单号Int4不允许空E02顾客姓名Char10E03证件类型E04证件号E05住址E06房问号E07入住时间E08预付金额E09退房日期E10是否在住1E11密码E12房间类型E13价格E14是含可住E15床数E16后无空调E17后无E18后无电视_E19后无卫生问E20后无网线E21住宿费E22效劳费用E23餐饮费用E24总消费E25总缴费E26余额E27治理员姓名名E28治理密码E29权限IntE30编号char10不允许空E31性

7、别E32部门E33职务E34评价E35根本工资E36工资E37财政编号不允许空E38净收入E39总收入E40总支出E41餐饮部收入E42住帽部收入E43娱乐部收入E44效劳部收入E45工资支出E46维护支出E47购货支出三、系统设计1、数据表：E-R图密码住址评价2、数据库的关系模式：治理员编码,用户名,密码,权限,部门；客房信息房问号,房间类型,价格,是否可用,床数,有无空调,有无电话,有无电视,有无卫生间,有无网线；客户信息订单号,姓名,证件类型,证件号,住址,房问号,入住时间,预付金额,退房日期,是否在住,密码,评价；用户消费订单号,房问号,顾客姓名,住宿费,效劳费用,餐饮费用,总消费,

8、总缴费,余额；员工信息编号,姓名,性别,部门,职务,评价,根本工资,工资；财政结算财政编号,总收入,净收入,总支出,餐饮部收入,娱乐部收入,住宿部收入,效劳部收入,工资支出,维护支出,购货支出；3、表的物理设计：防设计表治理员信息“,位置是“酒店治理系统中、上列名射据类型长度允许空|50用户名varchar50varchar50varchar50varchar50愉设计表,客户信息,位置是“酒店治理系统“0|回iri列名数据类型长度允许空二隔订单号varchar50顾客姓名varchar50证件类型varchar50证件号varchar50住址varchar50房间号varchar50入住时间

9、varchar50预付金额varchar50退房日期varchar50是否在住varchar50密码varchar501评价varchar50通1设计表用户消费,位置1“酒店硒啄苑.列名1数据类型长度允许空订单号varchar50住宿费char10效劳用费char10餐饮用费char10总缴费char10总消费char10余额char10猫设计表员工信息“,位置是酒店治理系纾中、(local/上列名颤振类型长度允许空&占0编书varchar50姓名v.ychar50性别varchar50M部门firebar50V职务varchar50f评价float8根本工资float8M工贲float3M徜

10、设计表.财务结篁.位置是,酒店治理系统列名数娓类型长度允许空|财政编号char10；争收入char10总收入char10y总支出char10餐饮却收入char10M住宿部收入char10眼势部收入char10Mu娱乐部收入char10工资支出char10/7维护支出char10购货支出char10/2、数据库权限,触发器:ES3数据库权限：W彖星性迺店治理系就对象.里宫房信息db可引用全剖用尸/用尸定义的教据直角色吐岷切仅列出比照对象具有根限的用户7用户定义豹式片库用地/pubh可LpublicSELE.INSERTUPDATEDELE.EXECDPI*wr研用闩数据等角色/Pub.对象居住-

11、酒店治理东疣对象9)：DJ31：权限I对象9):国书QfB息(dbo)：列出全部用户,用户定义的数据库角色,pubhc(U)一仅列出有此时鬟县有权限的用户/用之主义的的据庄角色/public.).用户湎樨主龟包PublSELL.邛NS匚RGUPDATDZLEZEXECTDRr与治理员信息(dbo)(5列出全部用户/用户定义的数据库角色/public(U)C仅列出时此对象具有权限的用户/用户定义的数据与角色,public(Lh死户蹶据在角色/Pub.SELL.INSERTLPDATElDaE-.lEXECDRI时象展性一西店盥f系统一权限I对象(.)国员工信息(dbo)三|另出全都用尸/用尸定义

12、的双据库角色/pubh(U)r仅列出对此对冢具有权限的用户/用户定义的散提库用色/pubk(L)效据库角色&bSELE“INSERTUPDATEDELE.p(ECDRI触发器:,;巳假设,王1触后不至性3、软件功能设计顾客登陆酒店治理员工治理顾客登记(2)、功能表:系统模块实现功能功能描述登陆登陆治理员页面输入治理员姓名、密码,登录治理员页面,进行治理登陆顾客界面输入顾客的订单号和密码,进入顾客界面治理员信息管理治理、查看管理员信息对治理员性查询,修改员工信息治理员工信息对员工信息查询,添加,删除,修改财政结算治理财政信息:查询,修改财政信息客房资料治理、查看客房资料对客房各种属性查询,添加,

13、删除,修改客房资料,跳转客户登记页面顾客资料治理顾客信息对顾客信息进行添加,删除,修改,查询等功能顾客登记顾客登记登记新顾客的信息用户消费顾客消费治理对顾客消费进行更新治理、结算治理历史记录查询以往历史对以往顾客住房历史进行查询顾客结账顾客结账对顾客消费、缴费运算,并显示余额,以便对客户收退款顾客查询用户信息查询可对用户信息进行查询,述可以修改密码顾客评价评价员工效劳态度顾客可以通过自己的一票表扬或力匕评一名员工四、系统实施登陆界面：登陆界面分为治理员登陆和顾客登陆.治理员用用户名和密码登陆,权限为1的是老板,登陆进去后是治理员信息,权限为2的是治理员,登陆进去后是酒店菜单,进行酒店日常工作.

14、顾客用订单号和密码登陆,可以进行顾客本人的信息查询.代码：procedureTForm14.BitBtn1Click(Sender:TObject);varnum,user,pass:string;beginuser:=edit1.Text;pass:=edit2.Text;ifradiobutton1.checked=truethenbeginadoquery1.close;adoquery1.SQL.clear;adoquery1.SQL.Text:=select权限from治理员信息where用户名二+user+“and密码二“+pass+；adoqueryl.Open;num:=ado

15、query1.fieldbyname权限.AsString;ifnum=thenshowmessage用户名或密码错误!;ifnum=1thenform6.show;ifnum=2thenForm15.show;endelsebeginadoquery1.close;adoquery1.SQL.clear;adoquery1.SQL.Text:=select*from客户信息where订单号=+user+and密码=+pass+；adoquery1.Open;long:=adoquery1.fieldbyname订单号.AsString;num:=adoquery1.fieldbyname密码

16、.AsString;ifnum=thenbeginshowmessage用户名或密码错误!;endelsebeginform8.show;endend;edit1.clear;edit2.clear;close;end;procedureTForm14.BitBtn2ClickSender:TObject;beginedit1.clear;edit2.clear;close;end;登录回回顾客登陆治理员信息：治理员界面,老板可以进行查询,修改治理员信息,也可以查看员工信息和财政结算,然后可以到酒店菜单,进行酒店日常效劳.治理员可以进行查询,修改治理员信息,然后可以到酒店菜单,进行酒店日常效劳

17、.老板代码：procedureTForm6.Button1Click(Sender:TObject);varname,secert,power,num:string;beginname:=edit1.Text;secert:=edit2.Text;power:=edit3.Text;num:=edit4.Text;adoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.text:=select*+name+or密码=+secert+num+;adoquery1.Open;edit1.text:=adoquery1.fieldbyname(edit2.

18、text:=adoquery1.fieldbyname(edit3.text:=adoquery1.fieldbyname(edit4.text:=adoquery1.fieldbyname(end;from治理员信息where用户名or权限=+power+or编码用户名).AsString;密码).AsString;权限).AsString;编码).AsString;procedureTForm6.Button2Click(Sender:TObject);varname,secert,num:string;beginname:=edit1.Text;secert:=edit2.Text;SE

19、T密码用户名=+name+;num:=edit3.Text;adocommand1mandText:=UPDATE管理员信息+secert+,权限=+num+whereadocommand1.execute;用户名).AsString;密码).AsString;权限).AsString;编码).AsString;showmessage(修改成功);edit1.text:=adoquery1.fieldbyname(edit2.text:=adoquery1.fieldbyname(edit3.text:=adoquery1.fieldbyname(edit4.text:=adoquery1.f

20、ieldbyname(end;procedureTForm6.Button5Click(Sender:TObject);beginadoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.text:=select*from治理员信息;adoquery1.Open;end;治理员代码:procedureTForm15.Button1Click(Sender:TObject);varname,secert,power,num:string;beginname:=edit1.Text;secert:=edit2.Text;power:=edit3.Text;

21、num:=edit4.Text;adoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.text:=select*=+name+or密码=+secert+二+num+；adoquery1.Open;edit1.text:=adoquery1.fieldbyname(edit2.text:=adoquery1.fieldbyname(edit3.text:=adoquery1.fieldbyname(edit4.text:=adoquery1.fieldbyname(end;from治理员信息where用户名or权限=+power+or编码用户名).A

22、sString;密码).AsString;权限).AsString;编码).AsString;procedureTForm15.Button2Click(Sender:TObject);varsecert:string;beginsecert:=edit2.Text;adocommand1mandText:=UPDATE治理员信息SET密码二+secert+where用户名=+name+“；adocommand1.execute;用户名).AsString;密码).AsString;权限).AsString;编码).AsString;showmessage(修改成功);edit1.text:=

23、adoquery1.fieldbyname(edit2.text:=adoquery1.fieldbyname(edit3.text:=adoquery1.fieldbyname(edit4.text:=adoquery1.fieldbyname(end;procedureTForm15.Button5Click(Sender:TObject);beginadoquery1.Close;治理员信息;adoquery1.SQL.Clear;adoquery1.SQL.text:=select*fromadoquery1.Open;end;回注I1w曾淳录信m员工信息：这里可以查询,修改,删除酒店

24、员工的各种信息.代码：procedureTForm11.Button1Click(Sender:TObject);varnum,user:string;beginuser:=edit1.text;num:=edit2.text;adoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.text:=select*from员工信息where编号=+user+or姓名=+num+;编号).AsString;姓名).AsString;性另U).AsString;职务).AsString;部门).AsString;工资).AsString;根本工资).AsStr

25、ing;评价).AsString;adoqueryl.Open;edit3.Text:=adoquery1.fieldbyname(edit4.Text:=adoquery1.fieldbyname(edit5.Text:=adoquery1.fieldbyname(edit6.Text:=adoquery1.fieldbyname(edit7.Text:=adoquery1.fieldbyname(edit8.Text:=adoquery1.fieldbyname(edit9.Text:=adoquery1.fieldbyname(edit10.Text:=adoquery1.fieldby

26、name(end;procedureTForm11.Button2Click(Sender:TObject);beginform7.show;close;end;procedureTForm11.Button3Click(Sender:TObject);beginadoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.text:=select*from员工信息；adoquery1.Open;end;procedureTForm11.Button4Click(Sender:TObject);vard1,d2,d3,d4,d5,d6,d7,d8:stri

27、ng;begind1:=edit3.text;d2:=edit4.text;d3:=edit5.text;d4:=edit6.text;d5:=edit7.text;d6:=edit8.text;d7:=edit9.text;d8:=edit10.text;adocommand1mandText:=insertinto员工信息(编号,姓名,性另U,职务,部门,工资,根本工资,评价)values(+d1+,+d2+,+d3+,+d4+,+d5+,+d6+,+d7+,+d8+);adocommand1.execute;showmessage(保存完毕);d1:=;d2:=;d3:=d4:=d5:=

28、d6:=d7:=d8:=end;procedureTForm11.Button6Click(Sender:TObject);vard1,d2,d3,d4,d5,d6,d7,d8:string;begind1:=edit3.text;d2:=edit4.text;d3:=edit5.text;d4:=edit6.text;d5:=edit7.text;d6:=edit8.text;d7:=edit9.text;d8:=edit10.text;adocommand1mandText:=UPDATE5工信息SET编号=H+d1+,姓名=+d2+,性别=+d3+,职务=+d4+,部门=+d5+工资=+

29、d6+1根本工资=+d7+评价=+d8+where编号=+d1+;adocommand1.execute;showmessage(保存完毕);d1:=;d2:=;d3:=;d4:=;d5:=;d6:=;d7:=;d8:=;end;procedureTForm11.Button5Click(Sender:TObject);varnum:string;beginnum:=edit3.Text;adocommand1mandText:=deletefrom员工信息where编号=+num+;adocommand1.execute;showmessage(删除成功);end;财政结算：这里可以查询,修

30、改,删除各个月份的酒店财政状况代码：显示触口剧11.州蚌I懂？I金procedureTForm12.Button1Click(Sender:TObject);varuser:string;beginuser:=edit1.text;adoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.text:=select*from财务结算where财政编号=+user+;adoquery1.Open;edit2.Text:=adoquery1.fieldbyname(edit3.Text:=adoquery1.fieldbyname(edit4.Text:=a

31、doquery1.fieldbyname(edit5.Text:=adoquery1.fieldbyname(edit6.Text:=adoquery1.fieldbyname(edit7.Text:=adoquery1.fieldbyname(edit8.Text:=adoquery1.fieldbyname(edit9.Text:=adoquery1.fieldbyname(edit10.Text:=adoquery1.fieldbyname(edit11.Text:=adoquery1.fieldbyname(edit12.Text:=adoquery1.fieldbyname(end;

32、财政编号).AsString;净收入).AsString;总收入).AsString;总支出).AsString;餐饮部收入).AsString;住宿部收入).AsString;效劳部收入).AsString;娱乐部收入).AsString;工资支出).AsString;维护支出).AsString;购货支出).AsString;procedureTForm12.Button2Click(Sender:TObject);beginform7.show;close;end;procedureTForm12.Button3Click(Sender:TObject);beginadoquery1.C

33、lose;adoquery1.SQL.Clear;adoquery1.SQL.text:=select*from财务结算;adoqueryl.Open;end;procedureTForm12.Button4Click(Sender:TObject);vard1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11:string;begind1:=edit2.text;d2:=edit3.text;d3:=edit4.text;d4:=edit5.text;d5:=edit6.text;d6:=edit7.text;d7:=edit8.text;d8:=edit9.text;d9:=

34、edit10.text;d10:=edit11.text;d11:=edit12.text;adocommand1mandText:=insertinto财务结算(财政编号,净收入,总收入,总支出,餐饮部收入,住宿部收入,效劳部收入,娱乐部收入,工资支出,维护支出,购货支出)values(+d1+,+d2+,+d3+,+d4+,+d5+,+d6+d7+d8+d9+J+d10+d11+)；adocommand1.execute;showmessage(添力口成功);d1:=;d2:=;d3:=;d4:=;d5:=;d6:=;d7:=;d8:=;d9:=;d10:=;d11:=;end;proce

35、dureTForm12.Button5Click(Sender:TObject);varnum:string;beginnum:=edit3.Text;adocommand1mandText:=deletefrom贝才务结算where贝才政编号=+num+;adocommand1.execute;showmessage删除成功;end;procedureTForm12.Button6ClickSender:TObject;vard1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11:string;begind1:=edit2.text;d2:=edit3.text;d3:=edi

36、t4.text;d4:=edit5.text;d5:=edit6.text;d6:=edit7.text;d7:=edit8.text;d8:=edit9.text;d9:=edit10.text;d10:=edit11.text;d11:=edit12.text;adocommand1mandText:=UPDAT财政结算SET财政编号=+d1+,净收入=+d2+,总收入=+d3+,总支出=+d4+,餐饮部收入=+d5+,住宿部收入=+d6+,效劳部收入=+d7+,娱乐部收入=+d8+,工资支出=+d8+,维护支出=+d8+,购货支出=+d8+where财政编号=+d1+;adocomman

37、d1.execute;showmessage修改成功;d1:=;d2:=;d3:=;d4:=;d5:=;d6:=;d7:=;d8:=;d9:=;d10:=;d11:=;end;密帚娜儿；工由支出,顾客消帝重客的昨酒店菜单：酒店菜单分为六个选项：客房资料,顾客资料,顾客登记,顾客消费,历史记录,顾客结账,主要进行酒店运营.承财卜拉神马此入I包.begI加班1a川.I.骂初我国各即比.-,D0KDDDmmICODDD700009客房信息：客房信息模块可进行客房的查询,添加,修改,删除代码：procedureTForm4.Button1Click(Sender:TObject);varuseful,

38、fj1,fj2,fj3,dan,shu,si:string;beginifcheckbox1.checked=truethenbeginuseful:=是；endelse1优3m卷造迫Ific.臣史.疗一凶出beginuseful:=否；end;ifcheckbox2.checked=truethenbeginfj1:=普通问；endelsebeginfj1:=end;ifcheckbox3.checked=truethenbeginfj2:=中等问；endelsebeginfj2:=end;ifcheckbox4.checked=truethenbeginfj3:=贵宾问；endelsebe

39、ginfj3:=end；ifcheckbox5.checked=truethenbegindan:=单人问;endelsebegindan:=end；ifcheckbox6.checked=truethenbeginshu:=双人问;endelsebeginshu:=end;ifcheckbox7.checked=truethenbeginsi:=四人问；endelsebeginsi:=end;adoqueryl.Close;adoqueryl.SQL.Clear;adoquery1.SQL.text:=select*from客房信息where是否可用=+useful+and房间类型=+fj1

40、+or房间类型=+fj2+or房间类型=+fj3+and床数=+dan+or床数=+shu+or床数=+si+“；adoquery1.Open;end;顾客信息：顾客信息可以查询,修改,添加,删除,现有在住人员信息.代码：procedureTForm3.Button1ClickSender:TObject;varnum,user:string;beginuser:=edit1.text;num:=edit2.text;adoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.text:=select*from客户信息where证件号=+user+or顾

41、客姓名=+num+;adoquery1.Open;edit3.Text:=adoquery1.fieldbyname订单号号.AsString;edit4.Text:=adoquery1.fieldbyname(edit5.Text:=adoquery1.fieldbyname(edit6.Text:=adoquery1.fieldbyname(edit7.Text:=adoquery1.fieldbyname(edit8.Text:=adoquery1.fieldbyname(edit9.Text:=adoquery1.fieldbyname(edit10.Text:=adoquery1.fieldbyname(edit11.Text:=adoquery1.fieldbyname(edit12.Text:=adoquery1.fieldbyname(顾客姓名).AsString;证件类型).AsString;证件号).AsString;住址).AsString;房问号).AsString;入住时间).AsString;预