PowerBulder介绍.pptVIP

文本属性: 客户编号取值：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