1、 第 1 页 共 40 页 课程设计报告 课程名称： PowerBuilder10.5程序设计基础 设计题目： 酒店餐饮管理系统 专业： 信息与计算科学 班级： 信 122 姓名： 杜雅笛 学号： 2012314201 指导教师： 孙宏凯 河北建筑工程学院数理系 2014 年 7 月 第 2 页 共 40 页 课程设计题目（问题）描述 随着人们生活的富裕，人们出入酒店也越来越多， 随之而来，酒店管理人员管理酒店的事情越来越多，为了帮助酒店管理人员更好的管理酒店，我们设计了这个酒店管理系统。 它实现了对值班人员的调配与管理和对菜单的变更，以及对订餐，订餐的修改、取消、查询及在收费时的立账，打折设
2、定的等方面的功能。 本 组 成 员 情 况 姓 名 学号 承 担 的 任 务 成 绩 杜雅笛 2012314201 登陆界面、系统维护、打印、帮助模块的代码编写及系统的调试 郭晓丽 2012314206 登陆界面、订餐管理、收费管理模块的代码编写及系统的调试 莫鹏飞 2012314220 资料查询、登陆界面、代码编写及系统的调试 教 师 评 语 签名： 注：本设计报告中各个部分如果页数不够，请大家自行扩页，原则是一定要把报告写详细，能说明本组设计的成果和特色，能够反应小组中每个人的工作。报告中应该叙述设计中的每个模块。设计报告将是评定每个人成绩的一个重要组成部分。 第 3 页 共 40 页 一
3、、本 组 设 计 的 功 能 描 述 （含所有实现的模块的功能） 登录界面的功能： 在登陆界面正确输入用户名与口令就可以登陆主界 面，如用户名与口令不匹配则有提醒，点开免费注册界面，可以录入新的管理人员的信息，退出注册界面输入刚注册的用户名和口令就可登陆主界面。 系统主界面的功能： 系统维护 : 值班员信息维护： 实现对值班员的添加、删除功能 菜谱信息维护： 实现对已有菜单的查询、添加和删除 修改口令： 实现对用户口令的更改。 订单管理 : 订餐： 实现对订餐信息的添加 订餐修改： 实现对已经订餐的信息的修改 订餐取消： 实现对已经订餐的信息的取消 订餐查询： 实现对订餐订单按桌号、菜谱号、菜
4、名 的查询 收费管理 : 折扣设定： 实现了对用餐人员的折扣设定 客户信息： 显示客户信息 打印 : 打印客户消费账单 二、本 组 设 计 的 主 要 特 色 第 4 页 共 40 页 主要特色有如下 ： 1、登陆界面可以注册新用户 2、在登陆主界面是弹出交班管理制度的界面 3、可对值班人员、菜谱信息进行添加，删除 4、可对 订餐情况进行添加、删除、查询等功能 5、对客户的费用进行打折，打印客户消费单 三、系 统 分 析 与 设 计 第 5 页 共 40 页 2.1 数据库的设计与连接 （ 1）在 SQL SEVER 2005 开发环境下打开对象资源管理器，依据创建数据库的步骤，创建物理数据库
5、 XSCJ，在 PowerBuilder 开发环境下打开数据库画板，依次定义 ODBC 数据源，定义 DB Profile ，连接数据库。 根据功能需求 ，在数据库中先创建 5 个表 表 1 订餐信息表 DC 表 2 菜谱信息表 CP 列名 数据类型 可否为空 说明 KH_NO CHAR(20) NOT NULL 客户号（主键） DC_DESK CHAR(20) NULL 桌号 JS_DZ CHAR(3) NULL 打折情况 TOTAL CHAR(5) NULL 总计 JS_DATE DATETIME NULL 日期 表 3 结算信息表 JS 列名 数据类型 可否为空 说明 KH_NO CHA
6、R(10) NOT NULL 客户号（主键） KH_NAME CHAR(20) NULL 姓名 KH_SEX CHAR(2) NULL 性别 KH_AGE CHAR(3) NULL 年龄 KH_JOB CHAR(20) NULL 职务 列名 数据类型 可否为空 说明 DC_DESK Char(20) Not null 桌号（主键） CP_NO Char(10) Not null 菜谱号 CP_NAME Char(20) null 菜名 DC_NUMBER Char(3) null 数量 DC_DATE datetime Null 订餐日期 列名 数据类型 可否为空 说明 CP_NO CHAR(
7、10) NOT NULL 菜谱号（主键） CP_NAME CHAR(20) NULL 菜名 CP_KIND CHAR(20) NULL 种类 CP_PRICE NUMBER(10) NULL 价格 CP_DETAIL CHAR(50) NULL 备注 第 6 页 共 40 页 KH_TEL CHAR(20) NULL 联系电话 KH_COMPANY CHAR(20) NULL 工作电话 表 4 荣誉客户信息表 KH 列名 数据类型 可否为空 说明 ZBY_NAME CHAR(20) NOT NULL 值班员名（主键） ZBY_PAWD CHAR(10) NUT NULL 口令 表 5 值班员表
8、 ZBY 实体和实体之间的关系 E-R 图 系统详细设计 （ 1）单击菜单“ File New”，选择应用程序对象模板画板，单击“ OK”按钮在出现的对话框中完成应用程序对象名、库文件名的设置 . （ 2）单击“ Finish”按钮，进入应用程序对象设计画面。 1、 在应用程序对象 的 Open 事件中输入如下的程序代码 / Profile jiudian SQLCA.DBMS = “ODBC“ SQLCA.AutoCommit = False SQLCA.DBParm = “ConnectString=DSN=jiudian;UID=;PWD=“ connect; open(w_open)
9、sleep(1) close(w_open) open(w_login) 该语句就是打开 w_open 窗口的语句。“欢迎登陆餐饮管理系统”如图： 第 7 页 共 40 页 2、登录窗口的设计。 登录窗口如图 (1)在 W_login 窗口的 Open 事件中输入如下的程序代码 Environment l_env int l_ScrWidth,l_ScrHeight setRedraw(false) 第 8 页 共 40 页 GetEnvironment(l_env) /取得屏幕的高度和宽度 l_ScrWidth=PixelsToUnits(l_env.ScreenWidth,XpixelsT
10、oUnits!) l_ScrHeight=PixelsToUnits(l_env.ScreenHeight,YpixelsToUnits!) Move(l_scrwidth - this.width)/2,(l_scrheight - this.height)/2) /移动窗口到屏幕中间 setredraw(true) /打开窗口刷新 (2)按钮控件 cb_1（确定）的 Click 事件中的程序代码如下： string l_id,l_passward string l_passward0 int i l_id=trim(sle_1.text) l_passward=trim(sle_2.tex
11、t) if l_id=“ then messagebox(“提示 “,“请输入用户名 !“) return end if sle_1.setfocus() if l_passward=“ then messagebox(“提示 “,“请输入密码 !“) return end if sle_2.setfocus() select count(*) into :i from zby where rtrim(zby_name) = :l_id using sqlca; if i1 then messagebox(“提示 “,“该用户不存在 !“) sle_1.text=“ sle_2.text=“
12、sle_1.setfocus() 第 9 页 共 40 页 return end if select zby_pawd into :l_passward0 from zby where rtrim(zby_name)=:l_id using sqlca; if trim(l_passward0)=l_passward then open(w_main) close(parent) integer li_FileNum string ls_Emp_Input long ll_FLength ll_FLength = FileLength(“D:Microsoft SQL Server1.txt“
13、) li_FileNum = FileOpen(“D:Microsoft SQL Server1.txt“,StreamMode!,read!, shared!) IF ll_FLength 32767 THEN FileRead(li_FileNum, ls_Emp_Input) filewrite(li_FileNum,ls_Emp_Input) messagebox(“,ls_Emp_Input,None!) return END IF /显示交班管理制度 else messagebox(“警告 “,“密码错误 ,请重新输入法 !“) sle_2.text=“ sle_2.setfocu
14、s() end if （ 3）按钮控件 cb_2（取消）的 Click 事件中的程序代码如下： Halt 用于终止应用程序的执行 . (4) 按钮控件 cb_3（免费注册）的 Click 事件中的程序代码如下： open(w_zhuche)用来打开注册窗口 . 交班管理制度显示的制作。 第 10 页 共 40 页 (5)在该系统文件目录下新建一个 ”1.txt”在里面输入相应的内容。 在登录窗口的 cb_1（确定）下的代码 integer li_FileNum string ls_Emp_Input long ll_FLength ll_FLength = FileLength(“D:Microsoft SQL Server1.txt“) li_FileNum = FileOpen(“D:Microsoft SQL Server1.txt“,StreamMode!,read!, shared!) IF ll_FLength 32767 THEN FileRead(li_FileNum, ls_Emp_Input) filewrite(li_FileNum,ls_Emp_Input) messagebox(“,ls_Emp_Input,None!) return END IF 这段代码就是在进入系统时显示该信息 ,如下图 , 3.注册窗口的设计
