PB常用代码.docx

pb 常用的一些代码 窗口的open 事件或者【浏览】和【查询】按钮的click 事件 dw_1.settransobject(sqlca)//指定事务对象 dw_1.retrieve()//检索数据 【添加】按钮的click 事件 dw_1.insertrow(0) dw_1.setfocus() dw_1.scrolltorow(dw_1.rowcount()) if dw_1.updata()=1 then messagebox(提示,保存成功！) cb_1.enabled=true cb_3.enabled=false esle messagebox(提示,保存失败，请核实！) end if dw_1.setcolumn(1)//将第一列设置为当前列 cb_1.enabled=false cb_3.enabled=true//cb_3 为保存控件 【保存】按钮的click 事件 if dw_1.update()=1 then messagebox(提示,保存成功！) cb_1.enabled=true cb_3.enabled=false else messagebox(提示,保存失败，请核实！) end if 【删除】按钮的click 事件 if dw_1.deleterow(0) then//其中0 表示删除当前行 if dw_1.update()=1 then messagebox(提示,删除成功！) else messagebox(提示,删除失败！) end if else messagebox(提示,删除失败) end if 【退出】???钮click 事件 close(parent) 【上一条】按钮的click 事件 dw_1.scrollpriorrow() dw_1.selectrow(0,false)//0 表示选取或者取消所有行，dw_1.selectrow(1,true)//第一行高亮显 示 dw_1.selectrow(dw_1.getrow(),true) 【下一条】按钮的click 事件 dw_1.scrollnextrow() dw_1.selctrow(0,false) dw_1.selectrow(dw_1.getrow(),true) 【升序】按钮的click 事件 本例按商品编号升序排列 dw_1.setransobject(sqlca) dw_1.setsort(商品编号 A)//setsort 函数用来定义数据窗口如何排序，sort()函数则实际对数 据窗口进行排序。A 表示升序,D 表示降序。 dw_1.sort() dw_1.retrieve() 下拉数据窗口的selectionchanged 事件，用于动态绑定数据窗口 string sjckdx sjckdx=trim(ddlb_1.text) if sjckdx=商品信息表 then dw_1.dataobject=spxxb_data//在程序运行时动态绑定数据窗口对象spxxb_data elseif sjckdx=供应商信息表 then dw_1.dataobject=gysxxb_data//在程序运行时绑定数据窗口对象gysxxb_data end if 控制数据窗口中数据列的显示颜色关键技术 打开数据窗口对象画板，选择数据窗口对象中要为其设置显示颜色的字段列，然后再属性页 中选择【font 】选项卡background Color 后的expression 中填入代码，例如： if( 数 量4,rgb(240,0,0),if(数量3,rgb(0,240,0),rgb(50,50,250))) 使用下列数据窗口选择商品名称实现快速输入 在属性页中选择【edit】，在【style type】下拉列表框中选择【dropdowndw】 在数据录入时对行进行计算 数据窗口控件的rbuttondown 事件，实现行数据的自动计算其代码如下： decimal jj,je long sl,i,rowcnt rowcnt=dw_1.rowcount()//获取数据窗口中的记录总数 if rowcnt0 then dw_1.scrolltorow(1) for i=1 to rowcnt jj=dw_1.getitemnumber(i,5)//从数据窗口中取值 sl=dw_1.getitemnumber(i,6) je=dec(mid(string(jj*sl),1,pos(string(jj*sl),.,1) 2)) dw_1.setitem(i,7,je)//为数据窗口赋值 next end if 为数据窗口建立一个用户自定义事件us_dw,event id 选择pbm_dwnprocessenter 其代码如下， 实现行