酒店客房餐饮管理系统实现(14)(1)14560.pdf

《酒店客房餐饮管理系统实现(14)(1)14560.pdf》由会员分享，可在线阅读，更多相关《酒店客房餐饮管理系统实现(14)(1)14560.pdf（13页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

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

2、: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:String;count:Integ

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

4、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 IsEmpty);if Flag then begin Login

5、:=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。简单的加密算法。3/13 const C1=52845;C2=22719;function Encrypt(S:String;Key:Word):String;/S：加密的

6、字符串；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:=Result+Char(65+(j div 26)+Char(65+(j mod 26);end;end;3 主模块 系统的主界面，包括系统登陆。在没

7、有进行登陆之前 4 个功能按钮为灰色。4/13 第一个按钮为客房管理，其次是餐饮管理，再次是客户查询，最后是收费管理。4 客房管理模块 客房管理包括客房预定，入住，调整。其界面如下：操作介绍：预定：首先在证件编号文体框中输入相关的证件编号，按回车键，显示如下窗口：5/13 输入完整后单击添加则返回上一个界面，相关的数据将自动填写。然后在右边选择相应的客房等级。在网格中将显示该等级的所有空闲房号。选择一个房间，再点击“新建”按钮，然后点击“添加”。客房预定完毕。入住：在证件编号文体框中输入相关的证件编号，按回车键。如果该客户已经预定则自动显示信息，否则将弹出上面的窗口要求输入信息。5 餐饮管理

8、包括选菜、点菜、打单：6/13 下面是其相代码说明：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.AsInteger:=id;Fields1.AsString:=sid;Fields2.AsString:=dbtext1.

9、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;Post;end;end;/撤销选择的一项菜目 procedure TF_foodorder.btnCancelClick(Sender:TOb

10、ject);var total:Single;begin with Q_foodetail do 7/13 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 not Active then Open;Locate(id,sid,);Edit;Fields3.AsFloat:=total;Post;end;end

11、;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.AsString:=Trim(edtName.Text);Post;end;with Q_foodetail do begin Close;ParamByName(sid).Valu

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

13、n 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:=True;end else 9/13 Filtered:=False;Open;end;end;获得客房级别：procedure TDM_main.GetRoomLevel(RoomLev

14、el: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：开始日期；EndDate：结束日期；procedure TDM_main.GetRoomStat(StartDate,EndDate:TDate;TimeStep,StatType:Boolean;RoomLev

15、el:Integer;BarSeries:TBarSeries);var StatResult:integer;MidDate:TDate;StatLabel:String;begin BarSeries.Clear;while StartDateEndDate do begin MidDate:=GetNextDate(StartDate,TimeStep);if StatType then StatResult:=SumTurnover(StartDate,MidDate)else StatResult:=SumUsedRoom(StartDate,MidDate,RoomLevel);i

16、f TimeStep then StatLabel:=FormatDateTime(dd,StartDate)+日 else 10/13 StatLabel:=FormatDateTime(mm,StartDate)+月;BarSeries.AddY(StatResult,StatLabel);StartDate:=MidDate;end;end;换算下个月（日）日期：function TDM_main.GetNextDate(StartDate:TDate;TimeStep:Boolean):TDate;var TimeYear,TimeMonth:String;begin if TimeS

17、tep then Result:=StartDate+1 else begin TimeYear:=FormatDateTime(yyyy,StartDate);TimeMonth:=FormatDateTime(mm,StartDate);if TimeMonth=12 then begin TimeYear:=IntToStr(StrToInt(TimeYear)+1);TimeMonth:=01;end else TimeMonth:=IntToStr(StrToInt(TimeMonth)+1);Result:=StrToDate(TimeYear+-+TimeMonth+-01);e

18、nd;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(请输入管理员 XX 和密码！,mtWarning,mbOK,mbHelp,6);i_admin.SetFocus;Exit;end;sSql:=select*from admin_user where name=%s and passwd=%s;with

19、DM_main.Q_admin do begin 11/13 SQL.Text:=Format(sSql,Trim(i_admin.Text),i_passwd.Text);Open;if IsEmpty then begin MessageDlg(连接错误！请确认管理员 XX 和密码！,mtWarning,mbOK,mbHelp,6);i_admin.SetFocus;Exit;end else begin Close;self.Close;end;end;end;登陆界面：3 主控程序 后台管理主窗口如下：12/13 后台管理程序采用 MDI 风格窗体。并采用事件管理机制 ActionLi

20、st 管理所有功能模块的点击事件：procedure TF_main.RoomAddExecute(Sender:TObject);begin Application.CreateForm(TF_add,F_add);RoomAdd.Enabled:=False;end;procedure TF_main.RoomModifyExecute(Sender:TObject);begin Application.CreateForm(TF_modify,F_modify);RoomModify.Enabled:=False;end;procedure TF_main.HelpAboutExecut

21、e(Sender:TObject);begin F_about.ShowModal;end;procedure TF_main.SystemExitExecute(Sender:TObject);begin Close;end;13/13 procedure TF_main.OtherOperatorExecute(Sender:TObject);begin Application.CreateForm(TF_operator,F_operator);OtherOperator.Enabled:=False;end;procedure TF_main.OtherCodeExecute(Send

22、er:TObject);begin Application.CreateForm(TF_code,F_code);OtherCode.Enabled:=False;end;procedure TF_main.RoomStatExecute(Sender:TObject);begin Application.CreateForm(TF_stat,F_stat);RoomStat.Enabled:=False;end;后台数据管理包括：客房管理、餐饮管理、操作员管理，基础数据维护等。4 客房统计表 该统计表能统计某个时间段的所有客房的营业额和使用频率，通过生成统计表以支持上层决策。如下图：（其实现代码以上有介绍）