酒店餐饮部酒店客房餐饮管理系统实现.docx

1、酒店餐饮部酒店客房餐饮管理系统实现酒店客房餐饮管理系统实现 酒店客房餐饮管理系统功能完善，能管理普通酒店的客房住宿和餐饮等服务。本系统采用DELPHI和SQL SERVER工具开发，分为前台和后台管理。前台与后台管理程序相对独立，均共用一个数据库。下面对该系统的部份功能和模块以及代码进行分析。一前台管理1数据模块该模块是整个程序数据的提供者，以及包括大部分的处理函数和实现功能。单元文件名：u_data.pas,数据模块名：DM_main。部分代码分析：返回指表中某字段的最大值，返回值为整型。因此该函数只能应用字段为整型的表。function TDM_main.GetMaxId(aTable,a

2、Field:string):integer;var sSql:string;begin Result:=0; sSql:=select max(%s) from %s; with Q_getmax do begin SQL.Text:=Format(sSql,aField,aTable); Open; if not IsEmpty then Result:=Fields0.AsInteger+1; Close; end;end;接下来这个函数也是返回最大值，但是其为一个订单的最大编号为字符型。function TDM_main.GetMaxOrderId:string;var id:Strin

3、g; count:Integer;begin with Q_count_order do begin Open; count:=Fields0.Value; Close; end; id:=000+IntToStr(count); id:=Copy(id, length(id)-3, 4); id:=F+FormatDateTime(yymmdd,now)+id; Result:=id;end;系统登陆函数：在进行系统的操作处理时，必须登陆。该函数对用户输入的用户名和密码数据库验证。其密码是进行加密的（加密模块稍后分析）function TDM_main.Login(user, passwd:

4、String):String;var Flag:Boolean;begin if Database.Connected=false then Database.Connected:=True; passwd:=Copy(passwd+passwd, 1, 10); /加密处理 passwd:=Encrypt(passwd, 111); with Q_login do begin Close; Params.ParamValuesID:=user; Params.ParamValuesPASSWD:=passwd; Open; /在用户请中查询该用户和密码是否存在 Flag:=( not IsE

5、mpty); if Flag then begin Login:=FieldValuesNAME; IsPass:=Flag; end else begin Login:=; Application.MessageBox(请重新输入！, 登录失败, MB_OK); end; Close; end;end;系统登出：procedure TDM_main.Logout;begin Database.Connected:=False; /断开数据库的连接end;2加密模块：单元文件名：crypt.pas。简单的加密算法。const C1 = 52845; C2 = 22719;function En

6、crypt( S: String; Key: Word): String;/S：加密的字符串；Key：密钥var I: Integer; j: Integer;begin Result := S; for I := 1 to Length(S) do begin ResultI := char(byte(SI) xor (Key shr 8); Key := (byte(ResultI) + Key) * C1 + C2; end; s:=Result; Result:=; for i:=1 to length(s) do begin j:=Integer(si); Result:=Resul

7、t + Char(65+(j div 26)+Char(65+(j mod 26); end;end;3主模块系统的主界面，包括系统登陆。在没有进行登陆之前4个功能按钮为灰色。第一个按钮为客房管理，其次是餐饮管理，再次是客户查询，最后是收费管理。4客房管理模块客房管理包括客房预定，入住，调整。其界面如下：操作介绍：预定：首先在证件编号文体框中输入相关的证件编号，按回车键，显示如下窗口：输入完整后单击添加则返回上一个界面，相关的数据将自动填写。然后在右边选择相应的客房等级。在网格中将显示该等级的所有空闲房号。选择一个房间，再点击“新建”按钮，然后点击“添加”。客房预定完毕。 入住：在证件编号文体

8、框中输入相关的证件编号，按回车键。如果该客户已经预定则自动显示信息，否则将弹出上面的窗口要求输入信息。5餐饮管理包括选菜、点菜、打单：下面是其相代码说明：procedure TF_foodorder.btnOkClick(Sender: TObject);var id:integer; total:single;begin if sid= then begin B_neworderClick(nil); end; /订单明细 id:=DM_main.GetMaxId(order_detail,id); with Q_foodetail do begin Append; Fields0.AsIn

9、teger:=id; Fields1.AsString:=sid; Fields2.AsString:=dbtext1.Caption; Fields3.AsString:=edtNum.Text; Fields4.AsString:=dbtext4.Caption; Post; DisableControls; Close; Open; EnableControls; end; /更新总订单的总金额 with DM_main.T_foodorder do begin Edit; total:=DM_main.GetSumPrice(sid); Fields3.AsFloat:=total;

10、Post; end;end;/撤销选择的一项菜目procedure TF_foodorder.btnCancelClick(Sender: TObject);var total:Single;begin with Q_foodetail do begin if IsEmpty then Exit; if not Active then begin ParamByName(sid).Value:=sid; Open; end; Delete; end; total:=DM_main.GetSumPrice(sid); with DM_main.T_foodorder do begin if no

11、t Active then Open; Locate(id,sid,); Edit; Fields3.AsFloat:=total; Post; end;end;procedure TF_foodorder.B_neworderClick(Sender: TObject);begin /新建总订单 sid:=DM_main.GetMaxOrderId; with DM_main.T_foodorder do begin Open; Append; Fields0.AsString:=sid; Fields1.AsString:=DateTimeToStr(Now); Fields2.AsStr

12、ing:=Trim(edtName.Text); Post; end; with Q_foodetail do begin Close; ParamByName(sid).Value:=sid; Prepare; Open; end;end;打单：票据示例如下。二后台管理1数据模块该模块是整个程序数据的提供者，以及包括大部分的处理函数和实现功能。单元文件名：u_data.pas,数据模块名：DM_main。部分代码分析：设置前台操作员的密码：procedure TDM_main.SetOperatorPassword(password:String);begin password:=Copy(

13、password+password, 1, 10); password:=Encrypt(password, 111); /加密单元 with T_operator do begin Edit; FieldValuesPASSWD:=password; end;end;根据客房ID 筛选客房：procedure TDM_main.SetModifyFilter(RoomID:String);begin with T_room_modify do begin Close; if length(RoomID)0 then begin Filter:=ID=+RoomID+; Filtered:=T

14、rue; end else Filtered:=False; Open; end;end;获得客房级别：procedure TDM_main.GetRoomLevel(RoomLevel:TStrings);begin RoomLevel.Clear; RoomLevel.Add(全部级别); with Q_room_level do begin Open; First; while not Eof do begin RoomLevel.Add(FieldValuesDESCRIPT); Next; end; Close; end;end;客房统计图实现函数：/StarDate：开始日期；En

15、dDate：结束日期；procedure TDM_main.GetRoomStat(StartDate,EndDate:TDate; TimeStep, StatType:Boolean;RoomLevel:Integer; BarSeries:TBarSeries);var StatResult:integer; MidDate:TDate; StatLabel:String;begin BarSeries.Clear; while StartDateEndDate do begin MidDate:=GetNextDate(StartDate, TimeStep); if StatType

16、 then StatResult:=SumTurnover(StartDate, MidDate) else StatResult:=SumUsedRoom(StartDate, MidDate, RoomLevel); if TimeStep then StatLabel:=FormatDateTime(dd, StartDate)+日 else StatLabel:=FormatDateTime(mm, StartDate)+月; BarSeries.AddY(StatResult,StatLabel); StartDate:=MidDate; end;end;换算下个月（日）日期：fun

17、ction TDM_main.GetNextDate(StartDate:TDate;TimeStep:Boolean):TDate;var TimeYear,TimeMonth:String;begin if TimeStep then Result:=StartDate+1 else begin TimeYear:=FormatDateTime(yyyy, StartDate); TimeMonth:=FormatDateTime(mm, StartDate); if TimeMonth=12 then begin TimeYear:=IntToStr(StrToInt(TimeYear)

18、+1); TimeMonth:=01; end else TimeMonth:=IntToStr(StrToInt(TimeMonth)+1); Result:=StrToDate(TimeYear+-+TimeMonth+-01); end;end;2系统登陆模块该系统登陆将连接数据库的管理员用户表进行验证：procedure TF_login.b_loginClick(Sender: TObject);var sSql:string;begin if (Trim(i_admin.Text)=)or(i_passwd.Text=) then begin MessageDlg(请输入管理员帐号

19、和密码！, mtWarning, mbOK, mbHelp, 6); i_admin.SetFocus; Exit; end; sSql:=select * from admin_user where name=%s and passwd=%s; with DM_main.Q_admin do begin SQL.Text:=Format(sSql,Trim(i_admin.Text),i_passwd.Text); Open; if IsEmpty then begin MessageDlg(连接错误！请确认管理员帐号和密码！, mtWarning, mbOK, mbHelp, 6); i_

20、admin.SetFocus; Exit; end else begin Close; self.Close; end; end;end;登陆界面：3主控程序后台管理主窗口如下：后台管理程序采用MDI风格窗体。并采用事件管理机制ActionList管理所有功能模块的点击事件：procedure TF_main.RoomAddExecute(Sender: TObject);begin Application.CreateForm(TF_add, F_add); RoomAdd.Enabled:=False;end;procedure TF_main.RoomModifyExecute(Send

21、er: TObject);begin Application.CreateForm(TF_modify, F_modify); RoomModify.Enabled:=False;end;procedure TF_main.HelpAboutExecute(Sender: TObject);begin F_about.ShowModal;end;procedure TF_main.SystemExitExecute(Sender: TObject);begin Close;end;procedure TF_main.OtherOperatorExecute(Sender: TObject);b

22、egin Application.CreateForm(TF_operator, F_operator); OtherOperator.Enabled:=False;end;procedure TF_main.OtherCodeExecute(Sender: TObject);begin Application.CreateForm(TF_code, F_code); OtherCode.Enabled:=False;end;procedure TF_main.RoomStatExecute(Sender: TObject);begin Application.CreateForm(TF_st

23、at, F_stat); RoomStat.Enabled:=False;end;后台数据管理包括：客房管理、餐饮管理、操作员管理，基础数据维护等。4客房统计表该统计表能统计某个时间段的所有客房的营业额和使用频率，通过生成统计表以支持上层决策。如下图：（其实现代码以上有介绍）附赠酒店管理的八大要点酒店管理无小事，酒店管理的任一个方面都可能至关重要，酒店管理的每一个细节都可能关乎成败。归纳起来，酒店管理离不开以下八件事：酒店质量管理酒店取得成功的关键是什么?是能持续提供符合客户要求，能得到客户满意和信赖的高质量产品和服务。质量管理是酒店管理最基本的要素，最基本思路就是通过酒店店运行中的每一个过程

24、进行调查、分析，从而确定质量管理的总体状况。酒店能源管理加强能源管理是酒店规划建设以及运营阶段的一个永恒的话题。作为酒店的管理人员应该注重酒店的建筑节能，设备节能，人员节能，合理处理好能源的分配和使用。总之，能源管理的目标是使酒店在整个寿命周期的能源消耗及配套改造工程费用降到最低。酒店客户管理酒店通过提供产品和服务实现经营效益。客户作为产品和服务的接受者，对于酒店至关重要。拥有客户的酒店才拥有生存和发展的基础，而拥有稳定客户的酒店才具有进行市场竞争的宝贵资源。客户管理的实质是通过调查分析，进行客户开发、客户服务、客户促销、客户维护并促进客户价值的提升。技术研发管理酒店是劳动密集型产业，技术门槛

25、很低，如果其他行业具有实力的企业看重这块市场并投入竞争的话，短期内很快能研发出在技术、质量和成本方面超过基准经营水平的酒店，很快成为强有力的竞争对手，新酒店的成长速度往往是惊人的。如果酒店经营者不能利用暂时形成的技术和经验优势，抓住机遇不断研发出新产品，不断改进产品性能，改进技术研发管理能力，对酒店而言往往是致命的。服务现场管理一个酒店的服务质量对于酒店的利益多少有着十分大的联系。客户的满意程度也大多由此决定。服务质量形成于过程之中，对服务质量的控制，需要加强事先的过程设计，解决好影响过程的人、设施、材料、方法、环境等方面的问题。以一个好的服务体系去面对客户。酒店目标管理目标管理是现代企业管理

26、最集中的体现，企业在近期要达到一个什么样的目标，通过制定详细计划来体现管理者的意志，以及达标进取的目的。没有目标的管理，也就是没有质量的管理。部门和管理者1、对各部门的管理。在酒店的运行过程中，各部门之间的协调尤为重要。一个酒店是一个运做整体，各部门充当着重要的角色，无论哪一部门出现问题都会影响到酒店的整体运行。2、对管理者的自身管理。管理者要克服自满的情绪，必须注意酒店内部信息与外部环境的变化。不断学习和更新知识，不断追逐更高的工作目标，保持工作活力和旺盛的生命力。酒店的创新创新是在激烈的市场竞争中赢得优势的主要手段之一。对酒店业来说，创新具有特别重要的意义。因为酒店产品和服务可以轻易地被人模仿和复制。在产品容易被人仿制的情况下，管理者最忌出现既然我推出新产品，别人可以迅速仿制，那我就不去努力创新的态度。这种态度并不可取。管理者需要提倡的是另一种态度：持续不断地进行创新，走在同行业创新的前列，先声夺人，以新取胜。