酒店客房餐饮管理系统实现样本

酒店客房餐饮管理系统实现 酒店客房餐饮管理系统功能完善，能管理普通酒店客房住宿和餐饮等服务。本系统采用DELPHI和SQLSERVER工具开发，分为前台和后台管理。前台与后台管理程序相对独立，均共用一种数据库。下面对该系统部份功能和模块以及代码进行分析。一．前台管理数据模块该模块是整个程序数据提供者，以及涉及大某些解决函数和实现功能。单元文献名：u_data.pas,数据模块名：DM_main。某些代码分析：返回指表中某字段最大值，返回值为整型。因而该函数只能应用字段为整型表。functionTDM_main.GetMaxId(aTable,aField:string):integer;varsSql:string;beginResult:=0;sSql:='selectmax(%s)from%s';withQ_getmaxdobeginSQL.Text:=Format(sSql,[aField,aTable]);Open;ifnotIsEmptythenResult:=Fields[0].AsInteger+1;Close;end;end;接下来这个函数也是返回最大值，但是其为一种订单最大编号为字符型。functionTDM_main.GetMaxOrderId:string;varid:String;count:Integer;beginwithQ_count_orderdobeginOpen;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;系统登陆函数：在进行系统操作解决时，必要登陆。该函数对顾客输入顾客名和密码数据库验证。其密码是进行加密（加密模块稍后分析）functionTDM_main.Login(user，passwd:String):String;varFlag:Boolean;beginifDatabase.Connected=falsethenDatabase.Connected:=True;passwd:=Copy(passwd+passwd，1，10); //加密解决passwd:=Encrypt(passwd，111);withQ_logindobeginClose;Params.ParamValues['ID']:=user;Params.ParamValues['PASSWD']:=passwd;Open; //在顾客请中查询该顾客和密码与否存在Flag:=(notIsEmpty);ifFlagthenbeginLogin:=FieldValues['NAME'];IsPass:=Flag;endelsebeginLogin:='';Application.MessageBox('请重新输入！'，'登录失败'，MB_OK);end;Close;end;end;系统登出：procedureTDM_main.Logout;beginDatabase.Connected:=False; //断开数据库连接end;加密模块：单元文献名：crypt.pas。简朴加密算法。constC1=52845;C2=22719;functionEncrypt(S：String；Key：Word)：String;//S：加密字符串；Key：密钥varI：Integer;j：Integer;beginResult:=S;forI:=1toLength(S)dobeginResult[I]:=char(byte(S[I])xor(Keyshr8));Key:=(byte(Result[I])+Key)*C1+C2;end;s:=Result;Result:='';fori:=1tolength(s)dobeginj:=Integer(s[i]);Result:=Result+Char(65+(jdiv26))+Char(65+(jmod26));end;end;主模块系统主界面，涉及系统登陆。在没有进行登陆之前4个功能按钮为灰色。第一种按钮为客房管理，另一方面是餐饮管理，再次是客户查询，最后是收费管理。客房管理模块客房管理涉及客房预定，入住，调节。其界面如下：操作简介：预定：一方面在证件编号文体框中输入有关证件编号，按回车键，显示如下窗口：输入完整后单击添加则返回上一种界面，有关数据将自动填写。然后在右边选取相应客房级别。在网格中将显示该级别所有空闲房号。选取一种房间，再点击“新建”按钮，然后点击“添加”。客房预定完毕。 入住：在证件编号文体框中输入有关证件编号，按回车键。如果该客户已经预定则自动显示信息，否则将弹出上面窗口规定输入信息。餐饮管理涉及选菜、点菜、打单：下面是其相代码阐明：procedureTF_foodorder.btnOkClick(Sender：TObject);varid:integer;total:single;beginifsid=''thenbeginB_neworderClick(nil);end;//订单明细id:=DM_main.GetMaxId('order_detail','id');withQ_foodetaildobeginAppend;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;//更新总订单总金额withDM_main.T_foodorderdobeginEdit;total:=DM_main.GetSumPrice(sid);Fields[3].AsFloat:=total;Post;end;end;//撤销选取一项菜目procedureTF_foodorder.btnCancelClick(Sender：TObject);vartotal:Single;beginwithQ_foodetaildobeginifIsEmptythenExit;ifnotActivethenbeginParamByName('sid').Value:=sid;Open;end;Delete;end;total:=DM_main.GetSumPrice(sid);withDM_main.T_foodorderdobeginifnotActivethenOpen;Locate('id',sid,[]);Edit;Fields[3].AsFloat:=total;Post;end;end;procedureTF_foodorder.B_neworderClick(Sender：TObject);begin//新建总订单sid:=DM_main.GetMaxOrderId;withDM_main.T_foodorderdobeginOpen;Append;Fields[0].AsString:=sid;Fields[1].AsString:=DateTimeToStr(Now);Fields[2].AsString:=Trim(edtName.Text);Post;end;withQ_foodetaildobeginClose;ParamByName('sid').Value:=sid;Prepare;Open;end;end;打单：票据示例如下。二．后台管理数据模块该模块是整个程序数据提供者，以及涉及大某些解决函数和实现功能。单元文献名：u_data.pas,数据模块名：DM_main。某些代码分析：设立前台操作员密码：procedureTDM_main.SetOperatorPassword(password:String);beginpassword:=Copy(password+password，1，10);password:=Encrypt(password，111); //加密单元withT_operatordobeginEdit;FieldValues['PASSWD']:=password;end;end;依照客房ID 筛选客房：procedureTDM_main.SetModifyFilter(RoomID:String);beginwithT_room_modifydobeginClose;iflength(RoomID)>0thenbeginFilter:='ID='''+RoomID+'''';Filtered:=True;endelseFiltered:=False;Open;end;end;获得客房级别：procedureTDM_main.GetRoomLevel(RoomLevel:TStrings);beginRoomLevel.Clear;RoomLevel.Add('所有级别');withQ_room_leveldobeginOpen;First;whilenotEofdobeginRoomLevel.Add(FieldValues['DESCRIPT']);Next;end;Close;end;end;客房记录图实现函数：//StarDate：开始日期；EndDate：结束日期；procedureTDM_main.GetRoomStat(StartDate,EndDate:TDate;TimeStep，StatType:Boolean;RoomLevel:Integer;BarSeries:TBarSeries);varStatResult:integer;MidDate:TDate;StatLabel:String;beginBarSeries.Clear;whileStartDate<EndDatedobeginMidDate:=GetNextDate(StartDate，TimeStep);ifStatTypethenStatResult:=SumTurnover(StartDate，MidDate)elseStatResult:=SumUsedRoom(StartDate，MidDate，RoomLevel);ifTimeStepthenStatLabel:=FormatDateTime('dd'，StartDate)+'日'elseStatLabel:=FormatDateTime('mm'，StartDate)+'月';BarSeries.AddY(StatResult,StatLabel);StartDate:=MidDate;end;end;换算下个月（日）日期：functionTDM_main.GetNextDate(StartDate:TDate;TimeStep:Boolean):TDate;varTimeYear,TimeMonth:String;beginifTimeStepthenResult:=StartDate+1elsebeginTimeYear:=FormatDateTime('yyyy'，StartDate);TimeMonth:=FormatDateTime('mm'，StartDate);ifTimeMonth='12'thenbeginTimeYear:=IntToStr(StrToInt(TimeYear)+1);TimeMonth:='01';endelseTimeMonth:=IntToStr(StrToInt(TimeMonth)+1);Result:=StrToDate(TimeYear+'-'+TimeMonth+'-01');end;end;系统登陆模块该系统登陆将连接数据库管理员顾客表进行验证：procedureTF_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*fromadmin_userwherename=''%s''andpasswd=''%s''';withDM_main.Q_admindobeginSQL.Text:=Format(sSql,[Trim(i_admin.Text),i_passwd.Text]);Open;ifIsEmptythenbeginMessageDlg('连接错误！请确认管理员帐号和密码！'，mtWarning，[mbOK，mbHelp]，6);i_admin.SetFocus;Exit;endelsebeginClose;self.Close;end;end;end;登陆界面：主控程序后台管理主窗口如下：后台管理程序采用MDI风格窗体。并采用事件管理机制ActionList管理所有功能模块点击事件：procedureTF_main.RoomAddExecute(Sender：TObject);beginApplication.CreateForm(TF_add，F_add);RoomAdd.Enabled:=False;end;procedureTF_main.RoomModifyExecute(Sender