JSJ06-343@vb酒店客房餐饮管理系统(论文+源代码)
收藏
资源目录
压缩包内文档预览：
编号：507665
类型：共享资源
大小：2.15MB
格式：ZIP
上传时间：2015-11-11
上传人：QQ28****1120
认证信息
个人认证
孙**（实名认证）
辽宁
IP属地：辽宁
12
积分
- 关 键 词：
-
毕业设计论文
- 资源描述：
-
JSJ06-343@vb酒店客房餐饮管理系统(论文+源代码),毕业设计论文
- 内容简介：
-
酒店客房餐饮管理系统使用说明 一 本系统分为前台和后台两部分：前台用来实现客户预订、入住等操作，后台用来维护基础数据等。 二 采用 SQL SERVER+BDE 数据引擎，因此在使用前要配置好 ODBC 和 BDE。 数据库源配置： 三具体做法： 1 首先确保目标系统中装有 SQL SERVER 和 DELPHI。 2 将数据库附加到 SQL SERVER 中数据库命名为 PMISData。（数据文件为 DataBase 目录下的 PMISData.mdf 和 PMISData_log.ldf） 3 新建一个 SQL SERVER 登陆名： HotelAdmin; 密码： 123qwe。（ 这一步可略，在接下来的配置 SQL SERVER ODBC 时可写 SQL SERVER 的 SA用户登陆 ） 4 配置 SQL SERVER 的 ODBC 用户数据源，取名任意（如 HotelRoom）打开 ODBC 数据源管理器。 nts 点击“添加”填写如下。 下一步填写如下 下一步填写如下 nts 点击下一步，再点击完成，则出现下面的窗口。 测试：如果通过则显示如下 nts 5 配置 BDE 打开 BDE 管理器，如下图： 点击 Object 菜单的 New：则弹出如下对话框 nts 选择 SQL SERVER，再点 OK，显示如下： 在左边的树列表中的框中输入名称，取名为 PMISDB。然后在右边的列表中点击 ODBC DSN栏的左边区域，则显示所有的 SQL SERVER 的 ODBC 的数据源。 nts 选择刚才创建的 SQL SERVER ODBC 数据源（这里是 HOTELROOM） 最后点击“ OBJECT”菜单的“ APPLY”，再选择保存配置。 BDB配置完毕！ 6 动行后台数据管理程序。管理员的帐号和密码是： admin； 123。如下图： 7 整个系统（后台和前台）的数据库配置完毕！ nts酒店客房餐饮管理系统实现 酒店客房餐饮管理系统功能完善，能管理普通酒店的客房住宿和餐饮等服务。本系统采用 DELPHI 和 SQL SERVER 工具开发，分为前台和后台管理。前台与后台管理程序相对独立，均共用一个数据库。下面对该系统的部份功能和模块以及代码进行分析。 一前台管理 1 数据模块 该模块是整个程序数据的提供者，以及包括大部分的处理函数和实现功能。 单元文件名： u_data.pas,数据模块名： DM_main。 部分代码分析： 返回指表中某字段的最大值，返回值为整型。因此该函数只能应用字段为整型的表 。 function TDM_main.GetMaxId(aTable,aField:string):integer; var sSql:string; begin Result:=0; sSql:=select max(%s) from %s; with Q_getmax do begin SQL.Text:=Format(sSql,aField,aTable); Open; if not IsEmpty then Result:=Fields0.AsInteger+1; Close; end; end; 接下来这个函数也是返回最大值，但是其为一个订单的最大编号为字符型。 function TDM_main.GetMaxOrderId:string; var id:String; count:Integer; begin with Q_count_order do begin Open; count:=Fields0.Value; Close; end; id:=000+IntToStr(count); id:=Copy(id, length(id)-3, 4); nts id:=F+FormatDateTime(yymmdd,now)+id; Result:=id; end; 系统登陆函数：在进行系统的操作处理时，必须登陆。该函数对用户输入的用户名和密码数据库验证。其密码是进行加密的（加密模块稍后分析） function TDM_main.Login(user, passwd:String):String; var Flag:Boolean; begin if Database.Connected=false then Database.Connected:=True; passwd:=Copy(passwd+passwd, 1, 10); /加密处理 passwd:=Encrypt(passwd, 111); with Q_login do begin Close; Params.ParamValuesID:=user; Params.ParamValuesPASSWD:=passwd; Open; /在用户请中查询该用户和密码是否存在 Flag:=( not IsEmpty); if Flag then begin Login:=FieldValuesNAME; IsPass:=Flag; end else begin Login:=; Application.MessageBox(请重新输入！ , 登录失败 , MB_OK); end; Close; end; end; 系统登出： procedure TDM_main.Logout; begin Database.Connected:=False; /断开数据库的连接 end; 2 加密模块： 单元文件名： crypt.pas。 简单的加密算法。 ntsconst 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; Result:=; for i:=1 to length(s) do begin j:=Integer(si); Result:=Result + Char(65+(j div 26)+Char(65+(j mod 26); end; end; 3 主模块 系统的主界面，包括系统登陆。在没有进行登陆之前 4 个功能按钮为灰色。 nts第一个按钮为客房管理，其次是餐饮管理，再次是客户查询，最后是收费管理。 4 客房管理模块 客房管理包括客房预定，入住，调整。其界面如下： 操作介绍： 预定：首先在证件编号文体框中输入相关的证件编号，按回车键，显示如下窗口： nts输入完整后单击添加则返回上一个界面，相关的数据将自动填写。然后在右边选择相应的客房等级。在网格中将显示该等级的所有空闲房号。选择一个房间，再点击“新建”按钮，然后点击“添加”。客房预定完毕。 入住： 在证件编号文体框中输入相关的证件编号，按回车键。如果该客户已经预定则自动显示信息，否则将弹出上面的窗口要求输入信息。 5 餐饮管理 包括选菜、点菜、打单： nts下面是其相代码说明： procedure TF_foodorder.btnOkClick(Sender: TObject); var id:integer; total:single; begin if sid= then begin B_neworderClick(nil); end; /订单明细 id:=DM_main.GetMaxId(order_detail,id); with Q_foodetail do begin Append; 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 do begin Edit; total:=DM_main.GetSumPrice(sid); Fields3.AsFloat:=total; Post; end; end; /撤销选择的一项菜目 procedure TF_foodorder.btnCancelClick(Sender: TObject); var total:Single; begin with Q_foodetail do nts begin if IsEmpty then Exit; if not Active then begin ParamByName(sid).Value:=sid; Open; end; Delete; end; total:=DM_main.GetSumPrice(sid); with DM_main.T_foodorder do begin if 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 do begin Open; Append; Fields0.AsString:=sid; Fields1.AsString:=DateTimeToStr(Now); Fields2.AsString:=Trim(edtName.Text); Post; end; with Q_foodetail do begin Close; ParamByName(sid).Value:=sid; Prepare; Open; end; end; nts打单：票据示例如下。 二后台管理 1 数据模块 该模块是整个程序数据的提供者，以及包括大部分的处理函数和实现功能。 单元文件名： u_data.pas,数据模块名： DM_main。 部分代码分析： 设置前台操作员的密码： procedure TDM_main.SetOperatorPassword(password:String); begin password:=Copy(password+password, 1, 10); password:=Encrypt(password, 111); /加密单元 with T_operator do begin Edit; FieldValuesPASSWD:=password; end; end; 根据客房 ID 筛选客房： procedure TDM_main.SetModifyFilter(RoomID:String); begin with T_room_modify do begin Close; if length(RoomID)0 then begin Filter:=ID=+RoomID+; Filtered:=True; end else nts Filtered:=False; Open; end; end; 获得客房级别： procedure TDM_main.GetRoomLevel(RoomLevel:TStrings); begin RoomLevel.Clear; RoomLevel.Add(全部级别 ); with Q_room_level do begin Open; First; while not Eof do begin RoomLevel.Add(FieldValuesDESCRIPT); Next; end; Close; end; end; 客房统计图实现函数： /StarDate： 开始日期； EndDate：结束日期； procedure TDM_main.GetRoomStat(StartDate,EndDate:TDate; TimeStep, StatType:Boolean;RoomLevel:Integer; BarSeries:TBarSeries); var StatResult:integer; MidDate:TDate; StatLabel:String; begin BarSeries.Clear; while StartDateEndDate do begin MidDate:=GetNextDate(StartDate, TimeStep); if StatType then StatResult:=SumTurnover(StartDate, MidDate) else StatResult:=SumUsedRoom(StartDate, MidDate, RoomLevel); if TimeStep then StatLabel:=FormatDateTime(dd, StartDate)+日 else nts StatLabel:=FormatDateTime(mm, StartDate)+月 ; BarSeries.AddY(StatResult,StatLabel); StartDate:=MidDate; end; end; 换算下个月（日）日期： function TDM_main.GetNextDate(StartDate:TDate;TimeStep:Boolean):TDate; var TimeYear,TimeMonth:String; begin if TimeStep then Result:=StartDate+1 else begin TimeYear:=FormatDateTime(yyyy, StartDate); TimeMonth:=FormatDateTime(mm, StartDate); if TimeMonth=12 then begin TimeYear:=IntToStr(StrToInt(TimeYear)+1); TimeMonth:=01; end else TimeMonth:=IntToStr(StrToInt(TimeMonth)+1); Result:=StrToDate(TimeYear+-+TimeMonth+-01); end; end; 2 系统登陆模块 该系统登陆将连接数据库的管理员用户表进行验证： procedure TF_login.b_loginClick(Sender: TObject); var sSql:string; begin if (Trim(i_admin.Text)=)or(i_passwd.Text=) then begin MessageDlg(请输入管理员帐号和密码！ , mtWarning, mbOK, mbHelp, 6); i_admin.SetFocus; Exit; end; sSql:=select * from admin_user where name=%s and passwd=%s; with DM_main.Q_admin do begin nts SQL.Text:=Format(sSql,Trim(i_admin.Text),i_passwd.Text); Open; if IsEmpty then begin MessageDlg(连接错误！请确认管理员帐号和密 码！ , mtWarning, mbOK, mbHelp, 6); i_admin.SetFocus; Exit; end else begin Close; self.Close; end; end; end; 登陆界面： 3 主控程序 后台管理主窗口如下： nts后台管理程序采用 MDI 风格窗体。 并采用事件管理机制 ActionList 管理所有功能模块的点击事件： procedure TF_main.RoomAddExecute(Sender: TObject); begin Application.CreateForm(TF_add, F_add); RoomAdd.Enabled:=False; end; procedure TF_main.RoomModifyExecut
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号