第十一章 PowerBuilder介绍.ppt

文本属性: 客户编号取值：Sle_1.text 客户名称取值：Sle_2.text 地址取值：Sle_3.text 信誉度取值：Sle_4.text 联系人取值：Sle_5.text 联系电话取值：Sle_6.text 各按钮代码： [确定]代码: string khbh,mc,dz,xyd,lxr,tel long flg_rows khbh=sle_1.text mc=sle_2.text dz=sle_3.text xyd=sle_4.text lxr=sle_5.text tel=sle_6.text if khbh= then messagebox(提示,客户编号不能为空) sle_1.setfocus() return end if dw_1.setfilter(khbh=++khbh+) dw_1.filter() flg_rows=dw_1.retrieve() if flg_rows0 then messagebox(警告,该客户已存在，请重新输入) sle_1.setfocus() return end if insert into t_khb values(:khbh,:mc,:dz,:xyd,:lxr,:tel); if sqlca.sqlcode0 then rollback; messagebox(提示,数据没有保存) else commit; messagebox(提示,数据已经保存) sle_1.text= sle_2.text= sle_3.text= sle_4.text= sle_5.text= sle_6.text= end if [取消]代码： sle_1.text= sle_2.text= sle_3.text= sle_4.text= sle_5.text= sle_6.text= [退出]代码： Close（parent） ddplb_1控件： [查询]代码： string condition,condition0,condition00,condition1,condition2 string oper if ddplb_3.text=与 then oper=and else if ddplb_3.text=或 then oper=or end if end if if ddplb_1.text=客户编号 then condition0=khbh else if ddplb_1.text=客户名称 then condition0=khmc else if ddplb_1.text=信誉度 then condition0=xyd else if ddplb_1.text=联系人 then condition0=lxr else if ddplb_1.text=联系电话 then condition0=tel else if ddplb_1.text=地址 then condition0=khdz end if end if end if end if end if end if if ddplb_4.text=客户编号 then condition00=khbh else if ddplb_4.text=客户名称 then condition00=khmc else if ddplb_4.text=信誉度 then condition00=xyd else if ddplb_4.text=联系人 then condition00=lxr else if ddplb_4.text=联系电话 then condition00=tel else if ddplb_4.text=地址 then condition00=khdz end if end if end if end if end if end if //单条件查询 if ddplb_4.text= or ddplb_5.text= then condition=condition0+ +ddplb_2.text+ ++sle_1.text+ if ddplb_2.text=like then condition=condition0+ +ddplb_2.text+ ++sle_1.text+% end if //messagebox(,condition) //多条件查询 else condition1=condition0+ +ddplb_2.text+ ++sle_1.text+ if ddplb_2.text=like then condition1=condition0+ +ddplb