word格式完美整理
dw_1.setfocus() （4）删除按钮代码： long net net=messagebox(\你确定要删除吗\//提示是否要删除 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_count>0 then if dw_1.update()=1 then commit using sqlca; messagebox(\提示\已成功保存\纪录\ else rollback using sqlca; messagebox(\提示\保存失败\ end if end if 6.菜谱信息维护窗口w_choose_receive设计 ddlb_1、ddlb_2属性相同，其Items属性页如下图所示。 可编辑版
word格式完美整理
ddlb_3、ddlb_4属性也相同，其Items属性页如下图所示。 ddlb_5的Items属性页如下图所示 其他的控件如窗口上所示。所链接的数据窗口对象在编辑状态下，如图下所示 该数据窗口对象所链接的数据库表格为CP，其数据源表示如下： SELECT \ \ \ \ \ FROM \ 可编辑版
word格式完美整理
（1）Open事件： dw_1.settransobject(sqlca) ddlb_1.text=\菜谱号\ddlb_4.text=\ddlb_5.text=\（2）查询代码 int i string lookforcondition//定义参数：查询条件综合结果 string lookforitem1,lookforitem2,lookforitem3//定义参数：要查询的列 string lookforwhat1,lookforwhat2,lookforwhat3//定义参数：要查询的内容 string lookforhow1,lookforhow2,lookforhow3//定义参数：查询的符号 string lookforoperator1,lookforoperator2//定义参数：不同查询条件组合操作符号 lookforhow1=ddlb_3.text lookforhow2=ddlb_4.text if ddlb_5.text=\与\ lookforoperator1=\elseif ddlb_5.text=\或\ lookforoperator1=\elseif ddlb_5.text=\非\ lookforoperator1=\end if if ddlb_1.text=\菜谱号\ lookforitem1=\ lookforwhat1=\elseif ddlb_1.text=\菜名\ lookforitem1=\ lookforwhat1=\elseif ddlb_1.text=\种类\ lookforitem1=\ lookforwhat1=\elseif ddlb_1.text=\价格\ lookforitem1=\ lookforwhat1=sle_1.text elseif ddlb_1.text=\备注\ lookforitem1=\ lookforwhat1=\end if if ddlb_2.text=\菜谱号\ lookforitem2=\ lookforwhat2=\elseif ddlb_2.text=\菜名\ lookforitem2=\ lookforwhat1=\elseif ddlb_2.text=\种类\ 可编辑版
word格式完美整理
lookforitem2=\ lookforwhat2=\elseif ddlb_2.text=\价格\ lookforitem2=\ lookforwhat2=\elseif ddlb_2.text=\备注\ lookforitem2=\ lookforwhat2=\end if if ddlb_2.text=\ lookforcondition=lookforitem1+lookforhow1+lookforwhat1 else lookforcondition=lookforitem1+lookforhow1+lookforwhat1+\\end if dw_1.setfilter(lookforcondition) filter(dw_1) i=dw_1.retrieve() if i<1 then messagebox(\提示\没有相关记录!\ 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设计 可编辑版
word格式完美整理
（1）修改按钮代码： string correct_pswd,ls_user,ls_pswd ls_user=trim(sle_1.text) ls_pswd=trim(sle_2.text) if ls_user=\ messagebox(\用户名不能为空!\ return end if if ls_pswd=\ messagebox(\请输入原口令!\ return end if if sle_4.text<>sle_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_pswd<>ls_pswd then messagebox(\警告\原口令不正确!\ else update zby set zby_pawd =:sle_3.text where rtrim(zby_name)=:ls_user; 可编辑版
相关推荐：
loading