- 博客(0)
- 资源 (2)
空空如也
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
2010-02-22
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人