当前位置:首页>> >>


vb酒店客房餐饮管理系统(论文 源代码).rar

收藏

资源目录
    文档预览:
    编号:20180913212521196    类型:共享资源    大小:1.87MB    格式:RAR    上传时间:2018-09-13
    尺寸:148x200像素    分辨率:72dpi   颜色:RGB    工具:   
    35
    金币
    关 键 词:
    vb 酒店客房 餐饮 管理 系统 论文 源代码
    资源描述:
    酒店客房餐饮管理系统实现酒店客房餐饮管理系统功能完善,能管理普通酒店的客房住宿和餐饮等服务。本系统采用 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;beginif 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;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
    展开阅读全文
    1
      金牌文库所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
    0条评论

    还可以输入200字符

    暂无评论,赶快抢占沙发吧。

    关于本文
    本文标题:vb酒店客房餐饮管理系统(论文 源代码).rar
    链接地址:http://www.gold-doc.com/p-138947.html
    关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服客服 - 联系我们
    copyright@ 2014-2018 金牌文库网站版权所有
    经营许可证编号:浙ICP备15046084号-3
    收起
    展开