酒店客房餐饮管理系统

酒店客房餐饮管理系统实现酒店客房餐饮管理系统功能完善，能管理普通酒店的客房住宿和餐饮等服务。

本系统采用DELPHI和SQL SERVER工具开发，分为前台和后台管理。

前台与后台管理程序相对独立，均共用一个数据库。

下面对该系统的部份功能和模块以及代码进行分析。

一．前台管理1．数据模块该模块是整个程序数据的提供者，以及包括大部分的处理函数和实现功能。

单元文件名：u_data.pas,数据模块名：DM_main。

部分代码分析：返回指表中某字段的最大值，返回值为整型。

因此该函数只能应用字段为整型的表。

function TDM_main.GetMaxId(aTable,aField:string):integer;varsSql:string;beginResult:=0;sSql:='select max(%s) from %s';with Q_getmax dobeginSQL.Text:=Format(sSql,[aField,aTable]);Open;if not IsEmpty thenResult:=Fields[0].AsInteger+1;Close;end;end;接下来这个函数也是返回最大值，但是其为一个订单的最大编号为字符型。

function TDM_main.GetMaxOrderId:string;varid:String;count:Integer;beginwith Q_count_order dobeginOpen;count:=Fields[0].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:String):String;varFlag:Boolean;if Database.Connected=false thenDatabase.Connected:=True;passwd:=Copy(passwd+passwd, 1, 10); //加密处理passwd:=Encrypt(passwd, 111);with Q_login dobeginClose;Params.ParamValues['ID']:=user;Params.ParamValues['PASSWD']:=passwd;Open; //在用户请中查询该用户和密码是否存在 Flag:=( not IsEmpty);if Flag thenbeginLogin:=FieldValues['NAME'];IsPass:=Flag;endelsebeginLogin:='';Application.MessageBox('请重新输入！', '登录失败', MB_OK);end;Close;end;end;系统登出：procedure TDM_main.Logout;beginDatabase.Connected:=False; //断开数据库的连接end;2．加密模块：单元文件名：crypt.pas。

简单的加密算法。

constC1 = 52845;C2 = 22719;function Encrypt( S: String; Key: Word): String;//S：加密的字符串；Key：密钥varI: Integer;j: Integer;beginResult := S;for I := 1 to Length(S) dobeginResult[I] := char(byte(S[I]) xor (Key shr 8));Key := (byte(Result[I]) + Key) * C1 + C2;end;s:=Result;Result:='';for i:=1 to length(s) dobeginj:=Integer(s[i]);Result:=Result + Char(65+(j div 26))+Char(65+(j mod 26));end;3．主模块系统的主界面，包括系统登陆。

在没有进行登陆之前4个功能按钮为灰色。

第一个按钮为客房管理，其次是餐饮管理，再次是客户查询，最后是收费管理。

4．客房管理模块客房管理包括客房预定，入住，调整。

其界面如下：操作介绍：预定：首先在证件编号文体框中输入相关的证件编号，按回车键，显示如下窗口：输入完整后单击添加则返回上一个界面，相关的数据将自动填写。

然后在右边选择相应的客房等级。

在网格中将显示该等级的所有空闲房号。

选择一个房间，再点击“新建”按钮，然后点击“添加”。

客房预定完毕。

入住：在证件编号文体框中输入相关的证件编号，按回车键。

如果该客户已经预定则自动显示信息，否则将弹出上面的窗口要求输入信息。

5．餐饮管理包括选菜、点菜、打单：下面是其相代码说明：procedure TF_foodorder.btnOkClick(Sender: TObject); varid:integer;total:single;beginif sid='' thenbeginB_neworderClick(nil);end;//订单明细id:=DM_main.GetMaxId('order_detail','id');with Q_foodetail dobeginAppend;Fields[0].AsInteger:=id;Fields[1].AsString:=sid;Fields[2].AsString:=dbtext1.Caption;Fields[3].AsString:=edtNum.Text;Fields[4].AsString:=dbtext4.Caption;Post;DisableControls;Close;Open;EnableControls;end;//更新总订单的总金额with DM_main.T_foodorder dobeginEdit;total:=DM_main.GetSumPrice(sid);Fields[3].AsFloat:=total;Post;end;end;//撤销选择的一项菜目procedure TF_foodorder.btnCancelClick(Sender: TObject); vartotal:Single;beginwith Q_foodetail dobeginif IsEmpty thenExit;if not Active thenbeginParamByName('sid').Value:=sid;Open;end;Delete;end;total:=DM_main.GetSumPrice(sid);with DM_main.T_foodorder dobeginif not Active then Open;Locate('id',sid,[]);Edit;Fields[3].AsFloat:=total;Post;end;end;procedure TF_foodorder.B_neworderClick(Sender: TObject); begin//新建总订单sid:=DM_main.GetMaxOrderId;with DM_main.T_foodorder dobeginOpen;Append;Fields[0].AsString:=sid;Fields[1].AsString:=DateTimeToStr(Now);Fields[2].AsString:=Trim(edtName.Text);Post;end;with Q_foodetail dobeginClose;ParamByName('sid').Value:=sid;Prepare;Open;end;end;打单：票据示例如下。

二．后台管理1．数据模块该模块是整个程序数据的提供者，以及包括大部分的处理函数和实现功能。

单元文件名：u_data.pas,数据模块名：DM_main。

部分代码分析：设置前台操作员的密码：procedure TDM_main.SetOperatorPassword(password:String);beginpassword:=Copy(password+password, 1, 10);password:=Encrypt(password, 111); //加密单元with T_operator dobeginEdit;FieldValues['PASSWD']:=password;end;end;根据客房ID 筛选客房：procedure TDM_main.SetModifyFilter(RoomID:String);beginwith T_room_modify dobeginClose;if length(RoomID)>0 thenbeginFilter:='ID='''+RoomID+'''';Filtered:=True;endelseFiltered:=False;Open;end;end;获得客房级别：procedure TDM_main.GetRoomLevel(RoomLevel:TStrings);beginRoomLevel.Clear;RoomLevel.Add('全部级别');with Q_room_level dobeginOpen;First;while not Eof dobeginRoomLevel.Add(FieldValues['DESCRIPT']);Next;end;Close;end;end;客房统计图实现函数：//StarDate：开始日期；EndDate：结束日期；procedure TDM_main.GetRoomStat(StartDate,EndDate:TDate;TimeStep, StatType:Boolean;RoomLevel:Integer;BarSeries:TBarSeries);varStatResult:integer;MidDate:TDate;StatLabel:String;beginBarSeries.Clear;while StartDate<EndDate dobeginMidDate:=GetNextDate(StartDate, TimeStep);if StatType thenStatResult:=SumTurnover(StartDate, MidDate)elseStatResult:=SumUsedRoom(StartDate, MidDate, RoomLevel);if TimeStep thenStatLabel:=FormatDateTime('dd', StartDate)+'日'elseStatLabel:=FormatDateTime('mm', StartDate)+'月';BarSeries.AddY(StatResult,StatLabel);StartDate:=MidDate;end;end;换算下个月（日）日期：function TDM_main.GetNextDate(StartDate:TDate;TimeStep:Boolean):TDate; varTimeYear,TimeMonth:String;beginif TimeStep thenResult:=StartDate+1elsebeginTimeYear:=FormatDateTime('yyyy', StartDate);TimeMonth:=FormatDateTime('mm', StartDate);if TimeMonth='12' thenbeginTimeYear:=IntToStr(StrToInt(TimeYear)+1);TimeMonth:='01';endelseTimeMonth:=IntToStr(StrToInt(TimeMonth)+1);Result:=StrToDate(TimeYear+'-'+TimeMonth+'-01');end;end;2．系统登陆模块该系统登陆将连接数据库的管理员用户表进行验证：procedure TF_login.b_loginClick(Sender: TObject);varsSql:string;beginif (Trim(i_admin.Text)='')or(i_passwd.Text='') thenbeginMessageDlg('请输入管理员帐号和密码！', 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 dobeginSQL.Text:=Format(sSql,[Trim(i_admin.Text),i_passwd.Text]);Open;if IsEmpty thenbeginMessageDlg('连接错误！请确认管理员帐号和密码！', mtWarning, [mbOK, mbHelp], 6); i_admin.SetFocus;Exit;endelsebeginClose;self.Close;end;end;end;登陆界面：3．主控程序后台管理主窗口如下：后台管理程序采用MDI风格窗体。