PB编写的称重软件（源代码）

long now_row now_row=dw_1.getrow( ) dw_1.accepttext( ) if isnull(dw_1.getitemstring(now_row,'ch')) then messagebox('提示','车号不可为空!') dw_1.setcolumn('ch') return else string now_weight decimal now_weight_dec now_weight=right(st_cheng.text,6) now_weight_dec=dec(now_weight) if add_lsk then cb_2.enabled=true cb_3.enabled=false dw_1.setitem(now_row,'pz',now_weight_dec) else cb_2.enabled=false cb_3.enabled=true decimal data_tz,data_jz data_tz=dw_1.getitemdecimal(now_row,'pz') if now_weight_dec>=data_tz then dw_1.setitem(now_row,'mz',now_weight_dec) dw_1.setitem(now_row,'pz',data_tz) data_jz=now_weight_dec - data_tz dw_1.setitem(now_row,'jz',data_jz) else dw_1.setitem(now_row,'mz',data_tz) dw_1.setitem(now_row,'pz',now_weight_dec) data_jz=data_tz - now_weight_dec dw_1.setitem(now_row,'jz',data_jz) end if end if end if