酒店管理系统介绍.doc

酒店客房餐饮治理系统实现 酒店客房餐饮治理系统功能完善,能治理一般酒店的客房住宿和餐饮等服务。本系统采纳DELPHI和SQLSERVER工具开发,分为前台和后台治理。前台与后台治理程序相对独立,均共用一个数据库。下面对该系统的部份功能和模块以及代码进行分析。,以及包括大部分的处理函数和实现功能。单元文件名:,数据模块名:DM_main。部分代码分析:返回指表中某字段的最大值,返回值为整型。因此该函数只能应用字段为整型的表。(aTable,aField:string):integer;varsSql:string;beginResult:=0;sSql:='selectmax(%s)from%s';:=Format(sSql,[aField,aTable]);Open;ifnotIsEmptythenResult:=Fields[0].AsInteger+1;Close;end;end;接下来那个函数也是返回最大值,然而其为一个订单的最大编号为字符型。: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;系统登陆函数:在进行系统的操作处理时,必须登陆。该函数对用户输入的用户名和密码数据库验证。其密码是进行加密的(加密模块稍后分析)(user,passwd:String):String;varFlag:Boolean;=:=True;passwd:=Copy(passwd+passwd,1,10); //加密处理passwd:=Encrypt(passwd,111);withQ_logindobeginClose;['ID']:=user;['PASSWD']:=passwd;Open; //在用户请中查询该用户和密码是否存在Flag:=(notIsEmpty);ifFlagthenbeginLogin:=FieldValues['NAME'];IsPass:=Flag;endelsebeginLogin:='';('请重新输入!','登录失败',MB_OK);end;Close;end;end;系统登出:;:=False; //断开数据库的连接end;加密模块:单元文件名:。简单的加密算法。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个功能按钮为灰色。第一个按钮为客房治理,其次是餐饮治理,再次是客户查询,最后是收费治理。客房治理模块客房治理包括客房预定,入住,调整。其界面如下:操作介绍:预定:首先在证件编号文体框中输入相关的证件编号,按回车键,显示如下窗口:输入完整后单击添加则返回上一个界面,相关的数据将自动填写。然后在右边选择相应的客房等级。在网格中将显示该等级的所有空闲房号。选择一个房间,再点击“新建”按钮,然后点击“添加”。客房预定完毕。 入住:在证件编号文体框中输入相关的证件编号