2022年pb课程设计餐饮管理系统 .pdf

《2022年pb课程设计餐饮管理系统 .pdf》由会员分享，可在线阅读，更多相关《2022年pb课程设计餐饮管理系统 .pdf（40页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第 1 页 共 40 页课 程 设 计 报 告课程名称：PowerBuilder10.5 程序设计基础设计题目：酒店餐饮管理系统专业： 信息与计算科学班级：信 122 姓名：杜雅笛学号：2012314201 指导教师：孙宏凯河北建筑工程学院数理系2014 年 7 月名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 40 页 - - - - - - - - - 第 2 页 共 40 页课程设计题目（问题）描述随着人们生活的富裕，人们出入酒店也越来越多，随之而来，酒店管理人员管

2、理酒店的事情越来越多，为了帮助酒店管理人员更好的管理酒店，我们设计了这个酒店管理系统。它实现了对值班人员的调配与管理和对菜单的变更，以及对订餐，订餐的修改、取消、查询及在收费时的立账，打折设定的等方面的功能。本 组 成 员 情 况姓名学号承担的任务成 绩杜雅笛2012314201 登陆界面、系统维护、打印、帮助模块的代码编写及系统的调试郭晓丽2012314206 登陆界面、订餐管理、收费管理模块的代码编写及系统的调试莫鹏飞2012314220 资料查询、登陆界面、代码编写及系统的调试教师评语签名：注：本设计报告中各个部分如果页数不够，请大家自行扩页，原则是一定要把报告写详细，能说明本组设计的成

3、果和特色，能够反应小组中每个人的工作。报告中应该叙述设计中的每个模块。设计报告将是评定每个人成绩的一个重要组成部分。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 40 页 - - - - - - - - - 第 3 页 共 40 页一、本组 设 计 的 功 能 描 述（含所有实现的模块的功能）登录界面的功能：在登陆界面正确输入用户名与口令就可以登陆主界面，如用户名与口令不匹配则有提醒，点开免费注册界面，可以录入新的管理人员的信息，退出注册界面输入刚注册的用户名和口令就可

4、登陆主界面。系统主界面的功能：系统维护 :值班员信息维护：实现对值班员的添加、删除功能菜谱信息维护：实现对已有菜单的查询、添加和删除修改口令： 实现对用户口令的更改。订单管理 :订餐： 实现对订餐信息的添加订餐修改： 实现对已经订餐的信息的修改订餐取消： 实现对已经订餐的信息的取消订餐查询： 实现对订餐订单按桌号、菜谱号、菜名的查询收费管理 :折扣设定： 实现了对用餐人员的折扣设定客户信息： 显示客户信息打印 : 打印客户消费账单二、本组 设 计 的 主 要 特 色名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 -

5、 - - - - - - 第 3 页，共 40 页 - - - - - - - - - 第 4 页 共 40 页主要特色有如下：1、登陆界面可以注册新用户 2、在登陆主界面是弹出交班管理制度的界面 3、可对值班人员、菜谱信息进行添加，删除 4、可对订餐情况进行添加、删除、查询等功能 5、对客户的费用进行打折，打印客户消费单三、系 统 分 析 与 设 计名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 40 页 - - - - - - - - - 第 5 页 共 40 页2.

6、1 数据库的设计与连接（1）在 SQL SEVER 2005开发环境下打开对象资源管理器，依据创建数据库的步骤，创建物理数据库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

7、 NULL 日期表 3 结算信息表 JS列名数据类型可否为空说明KH_NO CHAR(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 订餐日期

8、列名数据类型可否为空说明CP_NO CHAR(10) NOT NULL 菜谱号（主键）CP_NAME CHAR(20) NULL 菜名CP_KIND CHAR(20) NULL 种类CP_PRICE NUMBER(10) NULL 价格CP_DETAIL CHAR(50) NULL 备注名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 40 页 - - - - - - - - - 第 6 页 共 40 页KH_TEL CHAR(20) NULL 联系电话KH_COMPANY

9、 CHAR(20) NULL 工作电话表 4 荣誉客户信息表 KH 列名数据类型可否为空说明ZBY_NAME CHAR(20) NOT NULL 值班员名（主键）ZBY_PAWD CHAR(10) NUT NULL 口令表 5 值班员表 ZBY 实体和实体之间的关系E-R 图系统详细设计（1）单击菜单“ FileNew” ，选择应用程序对象模板画板，单击“OK”按钮在出现的对话框中完成应用程序对象名、库文件名的设置. （2）单击“ Finish”按钮，进入应用程序对象设计画面。1、在应用程序对象 的 Open事件中输入如下的程序代码/ Profile jiudian SQLCA.DBMS =

10、ODBC SQLCA.AutoCommit = False SQLCA.DBParm = ConnectString=DSN=jiudian;UID=;PWD= connect; open(w_open) sleep(1) close(w_open) open(w_login)该语句就是打开w_open窗口的语句。“欢迎登陆餐饮管理系统”如图：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 40 页 - - - - - - - - - 第 7 页 共 40 页2、登录窗口

11、的设计。登录窗口如图(1)在 W_login 窗口的 Open事件中输入如下的程序代码Environment l_env int l_ScrWidth,l_ScrHeight setRedraw(false) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 40 页 - - - - - - - - - 第 8 页 共 40 页GetEnvironment(l_env) /取得屏幕的高度和宽度l_ScrWidth=PixelsToUnits(l_env.ScreenWidt

12、h,XpixelsToUnits!) 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(sl

13、e_2.text) 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= sle_1.set

14、focus() 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 40 页 - - - - - - - - - 第 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 l

15、i_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,Non

16、e!) return END IF /显示交班管理制度else messagebox(警告 ,密码错误 ,请重新输入法 !) sle_2.text= sle_2.setfocus() end if （3）按钮控件 cb_2（取消）的 Click 事件中的程序代码如下：Halt 用于终止应用程序的执行. (4) 按钮控件 cb_3（免费注册）的 Click 事件中的程序代码如下：open(w_zhuche) 用来打开注册窗口 . 交班管理制度显示的制作。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - -

17、- - - 第 9 页，共 40 页 - - - - - - - - - 第 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_FLe

18、ngth 0 then messagebox(警告 ,用户名已存在,请重试 !,Exclamation!) sle_1.text= sle_1.setfocus() return else messagebox(,恭喜你 ,该用户名可以使用!) return end if (2) 在” 提交” 按扭控件的 click 事件中输入如下代码 : string l_user l_user=sle_1.text 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 11 页，共 40 页 - -

19、- - - - - - - 第 12 页 共 40 页if sle_1.text= then messagebox(提示 ,请输入用户名!) return 1 end if string aa,bb aa=sle_2.text bb=sle_3.text if aa= then messagebox(提示 ,密码不能为空!) return 1 end if if aabb then messagebox(提示 ,输入的密码不一致nr 请重新输入 !) sle_2.text= sle_3.text= sle_2.setfocus() return end if insert INTO zby (

20、 zby_name, zby_pawd ) VALUES ( :l_user, :aa ) using sqlca; if sqlca.sqlcode=0 then messagebox(提示 ,注册成功 ,请牢记 rn 用户名 +sle_1.text+rn 密码 +sle_2.text) close(parent) else messagebox(提示 ,注册失败 !) return end if (3) 在” 取消” 按扭控件的 click 事件中输入如下代码 : close(parent) 4.主菜单的设计名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - -

21、- - - - - - - - 名师精心整理 - - - - - - - 第 12 页，共 40 页 - - - - - - - - - 第 13 页 共 40 页（1） “系统维护”菜单下“退出”子菜单的Click 事件程序代码：halt 其功能是关闭主窗口w_main，退出应用程序。（2） “系统维护”菜单下“值班员信息维护”子菜单的Click 事件程序代码：open(w_zby) （3） “系统维护”菜单下“菜谱信息维护”子菜单的Click 事件程序代码：open(w_choose_receive) (4) “系统维护”菜单下“修改口令”子菜单的Click 事件程序代码：名师资料总结 -

22、 - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 13 页，共 40 页 - - - - - - - - - 第 14 页 共 40 页open(w_changekl) （5） “订餐管理”菜单下“订餐”子菜单的Click 事件程序代码：open(w_dc) （6） “订餐管理”菜单下“订餐修改”子菜单的Click 事件程序代码：open(w_ujttyyytt) (7) “订餐管理”菜单下“订餐取消”子菜单的Click 事件程序代码：open(w_dc_qc) (8) “订餐管理”菜单下“订餐查询”

23、子菜单的Click 事件程序代码：open(w_dc_search) (9) “收款管理”菜单的“折扣设定”子菜单的Click 事件程序代码：open(w_zksd) (10)“收款管理”菜单下的“客户信息”子菜单的CLICK 事件程序代码：open(w_kh) (11) “打印”菜单的“打印帐单”子菜单的Click 事件程序代码：open(w_print) (12) “帮助”菜单的 ” 版本信息 ” 子菜单的 Click 事件程序代码：open(w_help) (13)快捷键及工具栏如图所示。还要建个w_main 窗口用来挂上菜单。该窗口类型为 mdihelp!。Title 为酒店餐饮管理系

24、统1.0。另外在窗口上布置一个图片控件，用来做为系统的背景。 在登录窗口的 “确定”按扭的 click 事件中有句 open(main)的代码，即为打开此窗口。5.值班员信息维护窗口w_zby的设计该窗口上的控件好上图所示，其显示部分是一个数据窗口。数据窗口对象zby 在编辑状态下如下图，名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 14 页，共 40 页 - - - - - - - - - 第 15 页 共 40 页该数据窗口对象所链接的数据库表格为ZBY ，其数据源表示如下：S

25、ELECT zby.zby_name, zby.zby_pawd FROM zby （1）open事件代码：dw_1.settransobject(sqlca) dw_1.retrieve() （2）窗口的 closequery 事件代码：int i_count long bb i_count=dw_1.modifiedcount()+dw_1.deletedcount() if i_count0 then bb=messagebox(提示 , 是否保存未保存的数据,question!,yesnocancel!,1) choose case bb case 1 if dw_1.update()

26、=1 then commit using sqlca; return 0 else rollback using sqlca; messagebox(提示 , 数据保存失败!) end if case 2 return 0 case 3 return 1 end choose end if （3）增加 按钮代码：dw_1.scrolltorow(dw_1.insertrow(0) dw_1.setcolumn(0) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 15 页，共 40

27、页 - - - - - - - - - 第 16 页 共 40 页dw_1.setfocus() （4）删除按钮代码：long net net=messagebox(, 你确定要删除吗,question!,yesno!,1) /提示是否要删除choose case net case 1 dw_1.deleterow(dw_1.getrow()/ 删除当前行case 2 return 1 end choose （5）保存按钮代码：int i_count i_count=dw_1.modifiedcount()+dw_1.deletedcount()/判断改变和删除的数目。if i_count0

28、then if dw_1.update()=1 then commit using sqlca; messagebox(提示 , 已成功保存 +string(i_count)+ 纪录 ) else rollback using sqlca; messagebox(提示 , 保存失败 ) end if end if 6.菜谱信息维护窗口w_choose_receive 设计ddlb_1、ddlb_2 属性相同，其 Items 属性页如下图所示。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - -

29、 第 16 页，共 40 页 - - - - - - - - - 第 17 页 共 40 页ddlb_3、ddlb_4 属性也相同，其 Items 属性页如下图所示。ddlb_5 的 Items属性页如下图所示其他的控件如窗口上所示。所链接的数据窗口对象在编辑状态下，如图下所示该数据窗口对象所链接的数据库表格为CP，其数据源表示如下：SELECT cp.cp_no, cp.cp_name, cp.cp_kind, cp.cp_price, cp.cp_detail FROM cp 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - -

30、名师精心整理 - - - - - - - 第 17 页，共 40 页 - - - - - - - - - 第 18 页 共 40 页（1）Open 事件：dw_1.settransobject(sqlca) ddlb_1.text= 菜谱号 ddlb_4.text= ddlb_5.text=and （ 2）查询代码int i string lookforcondition/ 定义参数：查询条件综合结果string lookforitem1,lookforitem2,lookforitem3/定义参数：要查询的列string lookforwhat1,lookforwhat2,lookforwh

31、at3/定义参数：要查询的内容string lookforhow1,lookforhow2,lookforhow3/定义参数：查询的符号string lookforoperator1,lookforoperator2/定义参数：不同查询条件组合操作符号lookforhow1=ddlb_3.text lookforhow2=ddlb_4.text if ddlb_5.text= 与 then lookforoperator1=and elseif ddlb_5.text= 或 then lookforoperator1=or elseif ddlb_5.text= 非 then lookforo

32、perator1=not end if if ddlb_1.text= 菜谱号 then lookforitem1=cp_no lookforwhat1=+sle_1.text+ elseif ddlb_1.text= 菜名 then lookforitem1=cp_name lookforwhat1=+sle_1.text+ elseif ddlb_1.text= 种类 then lookforitem1=cp_kind lookforwhat1=+sle_1.text+ elseif ddlb_1.text= 价格 then lookforitem1=cp_price lookforwha

33、t1=sle_1.text elseif ddlb_1.text= 备注 then lookforitem1=cp_detail lookforwhat1=+sle_1.text+ end if if ddlb_2.text= 菜谱号 then lookforitem2=cp_no lookforwhat2=+sle_2.text+ elseif ddlb_2.text= 菜名 then lookforitem2=cp_name lookforwhat1=+sle_2.text+ elseif ddlb_2.text= 种类 then 名师资料总结 - - -精品资料欢迎下载 - - - -

34、- - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 18 页，共 40 页 - - - - - - - - - 第 19 页 共 40 页lookforitem2=cp_kind lookforwhat2=+sle_2.text+ elseif ddlb_2.text= 价格 then lookforitem2=cp_price lookforwhat2=+sle_2.text+ elseif ddlb_2.text= 备注 then lookforitem2=cp_detail lookforwhat2=+sle_2.text+ end if

35、 if ddlb_2.text= or ddlb_4.text= then lookforcondition=lookforitem1+lookforhow1+lookforwhat1 else lookforcondition=lookforitem1+lookforhow1+lookforwhat1+ +lookforoperator1+ +lookforitem2+lookforhow2+lookforwhat2 end if dw_1.setfilter(lookforcondition) filter(dw_1) i=dw_1.retrieve() if i1 then messag

36、ebox(提示 ,没有相关记录!,Exclamation!) sle_1.text= sle_2.text= return end if （ 3）增加代码：dw_1.scrolltorow(dw_1.insertrow(0) dw_1.setcolumn(0) dw_1.setfocus() （ 4）“删除”按钮控件的Click 事件用于删除一个菜谱，程序代码与上述的“删除”按钮相同 . (5) “保存”按钮控件的Click 事件将用于保存用户所做的修改，程序代码与上述“保存”按钮相同 . (6) “退出”按钮控件的Click 事件将用于退出该程序窗口。7.修改口令 w_changek设计名师

37、资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 19 页，共 40 页 - - - - - - - - - 第 20 页 共 40 页（ 1）修改按钮代码：string correct_pswd,ls_user,ls_pswd ls_user=trim(sle_1.text) ls_pswd=trim(sle_2.text) if ls_user= then messagebox(,用户名不能为空!) return end if if ls_pswd= then messagebox(,

38、请输入原口令!) return end if if sle_4.textsle_3.text then messagebox(警告 ,两次输入的口令不一致,请重新输入 ) sle_3.text= sle_4.text= sle_3.setfocus() else select rtrim(zby_pawd) into :correct_pswd from zby where rtrim(zby_name)=:ls_user; if correct_pswdls_pswd then messagebox(警告 , 原口令不正确!) else update zby set zby_pawd =:s

39、le_3.text where rtrim(zby_name)=:ls_user; 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 20 页，共 40 页 - - - - - - - - - 第 21 页 共 40 页commit using sqlca; close(parent) messagebox(注意 , 你的口令已经修改,请牢记 !) end if end if (2)“取消”按扭用来退出该窗口。8、订餐 w_dc窗口设计所链接的的数据窗口对象在编辑状态如图该数据窗口对象

40、所链接的数据库表格为DC，其数据源表示如下：SELECT dc.dc_desk, dc.cp_no, dc.cp_name, dc.dc_num, dc.dc_data FROM dc 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 21 页，共 40 页 - - - - - - - - - 第 22 页 共 40 页（ 1）open 事件int g_rownumber g_rownumber=dw_1.insertrow(0) dw_1.settransobject(sqlca)

41、dw_1.setfocus() date g_dc_date g_dc_date=today() /在数据窗口的日期这列显示当前日期dw_1.scrolltorow(g_rownumber) dw_1.setcolumn(0) （ 2）下一道菜int g_rownumber g_rownumber=dw_1.insertrow(0) date g_dc_date g_dc_date=today() dw_1.setfocus() dw_1.scrolltorow(g_rownumber) dw_1.setcolumn(1) (3) “删除”按钮控件的Click 事件用于删除一个菜谱，程序代码与

42、上述的“删除”按钮控件相同 . (4) “保存”按钮控件的 Click 事件将用于保存用户所做的修改，程序代码与上述的“保存”按钮相同。(5) “退出”按钮控件的Click 事件将关闭该窗口。9、订餐修改窗口 w_ujttyyytt 设计Ddlb_1 和 ddlb_2 两个控件的属性一样,其 item 属性如下图 , 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 22 页，共 40 页 - - - - - - - - - 第 23 页 共 40 页所链接的数据窗口对象dc （ 1）

43、open 事件/设置事务对象dw_1.settransobject(sqlca) ddlb_1.text= ddlb_2.text= （ 2）显示订单int i string lookforcondition string lookforitem1,lookforitem2 string lookforwhat1,lookforwhat2 string lookforhow1,lookforhow2 lookforhow1=ddlb_1.text lookforhow2=ddlb_2.text lookforitem1=dc_desk lookforwhat1=+sle_1.text+ loo

44、kforitem2=dc_date lookforwhat2=datetime(+sle_2.text+ 00:00:00) if sle_2.text= then lookforcondition=lookforitem1+lookforhow1+lookforwhat1 else lookforcondition=lookforitem2+lookforhow2+lookforwhat2 /lookforitem1+lookforhow1+lookforwhat1+ +and+ + end if dw_1.setfilter(lookforcondition) filter(dw_1) i

45、=dw_1.retrieve() if i1 then messagebox(提示 ,没有相关记录!,Exclamation!) return end if （ 3）增加int g_rownumber g_rownumber=dw_1.insertrow(0) date g_dc_date g_dc_date=today() /为数据窗口的日期列显示当前日期dw_1.setfocus() dw_1.scrolltorow(g_rownumber) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - -

46、- - 第 23 页，共 40 页 - - - - - - - - - 第 24 页 共 40 页dw_1.setcolumn(1) (4) “删除”按钮控件的 Click 事件用于删除一个值班员， 程序代码与上面所述的 “删除”按钮控件相同 . (5) “保存”按钮控件的 Click 事件将用于保存用户所做的修改，程序代码与上面所述的“保存”按钮控件相同. (6) “退出”按钮控件的Click 事件将用于退出该程序窗口。10、订餐取消 w_dc_qc设计,控件如图所示 ,所连接的数据窗口为dc. ddlb_1 与 ddlb_2 的属性相同 .ddlb_1 的 item 属性图 a, ddlb

47、_2 的 item 属性图 b 图 a 图 b （ 1）open：dw_1.settransobject(sqlca) （ 2）确定int i if ddlb_1.text= then messagebox(,请选择要退餐的桌号!) return end if 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 24 页，共 40 页 - - - - - - - - - 第 25 页 共 40 页string l_dc_desk l_dc_desk=dc_desk=+ddlb_1.tex

48、t+ dw_1.setfilter(l_dc_desk) filter(dw_1) i=dw_1.retrieve() if il_dc_num2 then messagebox(警告 , 退定出错 ,请查看数量 !) return 1 end if UPDATE dc SET dc_number = : l_dc_num2 - :l_dc_num1 ; if dw_1.update()=1 then messagebox(,退定成功 !) close(parent) return end if 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - -

49、- - - - 名师精心整理 - - - - - - - 第 25 页，共 40 页 - - - - - - - - - 第 26 页 共 40 页return end if case 2 return 0 case 3 return 1 end choose 11、订餐查询 w_dc_search设计控件如上图所示.其中有一个选项卡,卡上有三页 ,三页的数据窗口控件所连接的数据窗口都是dc,界面如下图 , 该数据窗口对象所链接的数据库表格为CP 和 DC （ 1）open：tab_1.tabpage_1.dw_1.settransobject(sqlca) tab_1.tabpage_2.d

50、w_2.settransobject(sqlca) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 26 页，共 40 页 - - - - - - - - - 第 27 页 共 40 页tab_1.tabpage_3.dw_3.settransobject(sqlca) （ 2）按桌号查询int i string l_desk,condition l_desk=sle_1.text if l_desk= then messagebox(提示 ,请输入要查询的桌号!) return e