《酒店客房餐饮管理系统》由会员分享，可在线阅读，更多相关《酒店客房餐饮管理系统（18页珍藏版）》请在金锄头文库上搜索。
1、资料范本本资料为word版本，可以直接编辑和打印，感谢您的下载酒店客房餐饮管理系统地点：时间：说明：本资料适用于约定双方经过谈判，协商而共同承认，共同遵守的责任与 义务，仅供参考，文档可直接下载或修改，不需要的部分可直接删除，使用时 请详细阅读内容酒店客房餐饮管理系统实现酒店客房餐饮管理系统功能完善，能管理普通酒店的客房住宿和餐饮等服 务。本系统采用DELPHI和SQL SERVER 工具开发，分为前台和后台管理。前台 与后台管理程序相对独立，均共用一个数据库。下面对该系统的部份功能和模 块以及代码进行分析。一.前台管理数据模块该模块是整个程序数据的提供者，以及包括大部分的处理函数和实现功 能
2、。单元文件名：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:二Fields0.AsInteger
3、+1;Close;end;end;接下来这个函数也是返回最大值，但是其为一个订单的最大编号为字符 型。function TDM_main.GetMaxOrderId:string;varid:String;count:Integer;beginwith Q_count_order dobeginOpen;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;系统登陆函数：在进行系
4、统的操作处理时，必须登陆。该函数对用户输入 的用户名和密码数据库验证。其密码是进行加密的(加密模块稍后分析)function TDM_main.Login(user, passwd:String):String;varFlag:Boolean;beginif Database.Connected二false thenDatabase.Connected:二True;passwd:二Copy(passwd+passwd, 1, 10);加密处理passwd:二Encrypt(passwd, 111);with Q_login dobeginClose;Params.ParamValuesID:二
5、user;Params.ParamValuesPASSWD:二passwd;Open;/在用户请中查询该用户和密码是否存在Flag:=( not IsEmpty);if Flag thenbeginLogin:二FieldValuesNAME;IsPass:=Flag;endelsebeginLogin:二，;Application.MessageBox(请重新输入！，登录失败，MB_OK);end;Close;end;end;系统登出：procedure TDM_main.Logout;beginDatabase.Connected:二False;断开数据库的连接end; 加密模块： 单元文
6、件名：crypt.pas。 简单的加密算法。 const C1 = 52845; C2 = 22719; function Encrypt( 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;Resul
7、t:=；for i:=1 to length(s) dobeginj:=Integer(si);Result:=Result + Char(65+(j div 26)+Char(65+(j mod 26);end;end;主模块系统的主界面，包括系统登陆。在没有进行登陆之前4个功能按钮为灰 色。第一个按钮为客房管理，其次是餐饮管理，再次是客户查询，最后是收费 管理。客房管理模块客房管理包括客房预定，入住，调整。其界面如下：操作介绍：预定：首先在证件编号文体框中输入相关的证件编号，按回车键，显示如 下窗口：输入完整后单击添加则返回上一个界面，相关的数据将自动填写。然后在 右边选择相应的客房等级。
8、在网格中将显示该等级的所有空闲房号。选择一个 房间，再点击“新建”按钮，然后点击“添加”。客房预定完毕。入住：在证件编号文体框中输入相关的证件编号，按回车键。如果该客户 已经预定则自动显示信息，否则将弹出上面的窗口要求输入信息。餐饮管理包括选菜、点菜、打单：下面是其相代码说明:procedure TF_foodorder.btnOkClick(Sender: TObject);varid:integer;total:single;beginif sid=thenbeginB_neworderClick(nil);end;订单明细id:二DM_main.GetMaxId(order_detail
9、,id);with Q_foodetail dobeginAppend;Fields0.AsInteger:二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 dobeginEdit;total:=DM_main.GetSumPri
10、ce(sid);Fields3.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
11、 dobeginif not 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 dobeginOpen;Append;Fields0.AsString:二sid;Fields1.AsString:二DateTimeToStr(Now);Fields2.AsStrin
12、g:二Trim(edtName.Text);Post;end;with Q_foodetail dobeginClose;ParamByName(sid).Value:二sid;Prepare;Open;end;end;打单：票据示例如下。二.后台管理数据模块该模块是整个程序数据的提供者，以及包括大部分的处理函数和实现功 能。单元文件名：u_data.pas，数据模块名：DM_main。部分代码分析：设置前台操作员的密码：procedure TDM_main.SetOperatorPassword(password:String);beginpassword:二Copy(password+pa
13、ssword, 1, 10);password:二Encrypt(password, 111);/加密单元with T_operator dobeginEdit;FieldValuesPASSWD:二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
14、;Open;end;end;获得客房级别：procedure TDM_main.GetRoomLevel(RoomLevel:TStrings);beginRoomLevel.Clear;RoomLevel.Add(全部级别)；with Q_room_level dobeginOpen;First;while not Eof dobeginRoomLevel.Add(FieldValuesDESCRIPT);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 StartDateEndDate dobeginMi
