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

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

2、varsSql:string;beginResult:=0;sSql:=selectmax(%s)from%s;withQ_getmaxdobeginSQL.Text:=Format(sSql,aField,aTable);Open;ifnotIsEmptythenResult:=Fields0.AsInteger+1;Close;end;end;接下来这个函数也是返回最大值，但是其为一个订单的最大编号为字符型。functionTDM_main.GetMaxOrderId:string;varid:String;count:Integer;beginwithQ_count_orderdobeg

3、inOpen;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;系统登陆函数：在进行系统的操作处理时，必须登陆。该函数对用户输入的用户名和密码数据库验证。其密码是进行加密的(加密模块稍后分析)functionTDM_main.Login(user,passwd:String):String;varFlag:Boolean;beginifDatabase.Connected=fal

4、sethenDatabase.Connected:=True;passwd:=Copy(passwd+passwd,1,10);/加密处理passwd:=Encrypt(passwd,111);withQ_logindobeginClose;Params.ParamValuesID:=user;Params.ParamValuesPASSWD:=passwd;Open;/在用户请中查询该用户和密码是否存在Flag:=(notIsEmpty);ifFlagthenbeginLogin:=FieldValuesNAME;IsPass:=Flag;endelsebeginLogin:=;Applic

5、ation.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)dobegi

6、nResultI:=char(byte(SI)xor(Keyshr8);Key:=(byte(ResultI)+Key)*C1+C2;end;s:=Result;Result:=;fori:=1tolength(s)dobeginj:=Integer(si);Result:=Result+Char(65+(jdiv26)+Char(65+(jmod26);end;end;主模块系统的主界面，包括系统登陆。在没有进行登陆之前4个功能按钮为灰色。第一个按钮为客房管理，其次是餐饮管理，再次是客户查询，最后是收费管理。客房管理模块客房管理包括客房预定，入住，调整。其界面如下：操作介绍：预定：首先在证件

7、编号文体框中输入相关的证件编号，按回车键，显示如下窗口：输入完整后单击添加则返回上一个界面，相关的数据将自动填写。然后在右边选择相应的客房等级。在网格中将显示该等级的所有空闲房号。选择一个房间，再点击“新建”按钮，然后点击“添加”。客房预定完毕。入住：在证件编号文体框中输入相关的证件编号，按回车键。如果该客户已经预定则自动显示信息，否则将弹出上面的窗口要求输入信息。.餐饮管理包括选菜、点菜、打单:下面是其相代码说明：procedureTF_foodorder.btnOkClick(Sender:TObject);varid:integer;total:single;beginifsid=the

8、nbeginB_neworderClick(nil);end;订单明细id:=DM_main.GetMaxId(order_detail,id);withQ_foodetaildobeginAppend;Fields0.AsInteger:=id;Fields1.AsString:=sid;Fields2.AsString:=dbtext1.Caption;Fields3.AsString:=edtNum.Text;Fields4.AsString:=dbtext4.Caption;Post;DisableControls;Close;Open;EnableControls;end;/更新总订

9、单的总金额withDM_main.T_foodorderdobeginEdit;total:=DM_main.GetSumPrice(sid);Fields3.AsFloat:=total;Post;end;end;/撤销选择的一项菜目procedureTF_foodorder.btnCancelClick(Sender:TObject);vartotal:Single;beginwithQ_foodetaildobeginifIsEmptythenExit;ifnotActivethenbeginParamByName(sid).Value:=sid;Open;end;Delete;end;

10、total:=DM_main.GetSumPrice(sid);withDM_main.T_foodorderdobeginifnotActivethenOpen;Locate(id,sid,);Edit;Fields3.AsFloat:=total;Post;end;end;procedureTF_foodorder.B_neworderClick(Sender:TObject);begin/新建总订单sid:=DM_main.GetMaxOrderId;withDM_main.T_foodorderdobeginOpen;Append;Fields0.AsString:=sid;Field

11、s1.AsString:=DateTimeToStr(Now);Fields2.AsString:=Trim(edtName.Text);Post;end;withQ_foodetaildobeginClose;ParamByName(sid).Value:=sid;Prepare;Open;end;end;打单：票据示例如下。|p*ge1of1二.后台管理.数据模块该模块是整个程序数据的提供者，以及包括大部分的处理函数和实现功能。单元文件名：u_data.pas数据模块名：DM_main。部分代码分析：设置前台操作员的密码：procedureTDM_main.SetOperatorPassw

12、ord(password:String);beginpassword:=Copy(password+password,1,10);password:=Encrypt(password,111);力口密单元withT_operatordobeginEdit;FieldValuesPASSWD:=password;end;end;根据客房ID筛选客房：procedureTDM_main.SetModifyFilter(RoomID:String);beginwithT_room_modifydobeginClose;iflength(RoomID)0thenbeginFilter:=ID=+Roo

13、mID+;Filtered:=True;endelseFiltered:=False;Open;end;end;获得客房级别：procedureTDM_main.GetRoomLevel(RoomLevel:TStrings);beginRoomLevel.Clear;RoomLevel.Add(全部级别);withQ_room_leveldobeginOpen;First;whilenotEofdobeginRoomLevel.Add(FieldValuesDESCRIPT);Next;end;Close;end;end;客房统计图实现函数：/StarDate：开始日期；EndDate：结束

14、日期；procedureTDM_main.GetRoomStat(StartDate,EndDate:TDate;TimeStep,StatType:Boolean;RoomLevel:Integer;BarSeries:TBarSeries);varStatResult:integer;MidDate:TDate;StatLabel:String;beginBarSeries.Clear;whileStartDateEndDatedobeginMidDate:=GetNextDate(StartDate,TimeStep);ifStatTypethenStatResult:=SumTurno

15、ver(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;

16、TimeStep:Boolean):TDate;varTimeYear,TimeMonth:String;beginifTimeStepthenResult:=StartDate+1elsebeginTimeYear:=FormatDateTime(yyyy,StartDate);TimeMonth:=FormatDateTime(mm,StartDate);ifTimeMonth=12thenbeginTimeYear:=IntToStr(StrToInt(TimeYear)+1);TimeMonth:=01;endelseTimeMonth:=IntToStr(StrToInt(TimeM

17、onth)+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*froma

18、dmin_userwherename=%sandpasswd=%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;登陆界面：3.主控程序后台管理主窗口如下:后台管理程序采用MDI风格窗体。并采用事件管理

19、机制ActionList管理所有功能模块的点击事件:procedureTF_main.RoomAddExecute(Sender:TObject);beginApplication.CreateForm(TF_add,F_add);RoomAdd.Enabled:=False;end;procedureTF_main.RoomModifyExecute(Sender:TObject);beginApplication.CreateForm(TF_modify,F_modify);RoomModify.Enabled:=False;end;procedureTF_main.HelpAboutExecute(Sender:TObject);beginF_about.ShowModal;end;procedureTF_main.SystemExitExecute(Sender:TObject);beginClose;end;proce