我看不懂这一段代码,帮我解释一下吧
long lx ly
lx=(w_main.width-this.width)/2
ly=(w_main.height-this.height)/2
if lx<0 then lx=0
if ly<0 then ly=0
this.move(lx,ly)
dw_1.settransobject(sqlca)
dw_1.retrieve()
dw_1.scrolltorow(dw_1.rowcount())
cb_1.text=message.stringparm
this.title=message.stringparm+操作
问题点数:0、回复次数:5Top
1 楼cgh6223(米)回复于 2004-12-01 10:05:20 得分 0
将控件居中,并检索数据。然后由传递过来的值为CB_1和当前控件标题的名称!~~Top
2 楼shouhuzhe(守护者)回复于 2004-12-01 10:19:09 得分 0
控件居中,然后设置窗口标题,cb名称,提取数据Top
3 楼zvictory125(维柯特瑞)回复于 2004-12-01 10:24:57 得分 0
long 11
if this.text="出库" then
ii=dw_1.getitemnumber(dw_1.getrow(),3)-long(sle_2.text)
if ii<0 then
messagebox("提示","库存不足")
return 0
end if
dw_1.setitem(dw_1.getrow(),3,ii)
if dw_1.update()=1 then
commit;
else
rollback;
end if
else
if b_insert = false then
ii=dw_1.getitemnumber(dw_1.getrow(),3)+long(sle_2.text)
dw_1.setitem(dw_1.getrow(),3,ii)
end if
if dw_1.update()=1 then
commit;
else
rollback;
end if
end fi
sle_1.text=""
sle_2.text=""Top
4 楼wu_zh2609(蓝色的风)回复于 2004-12-01 11:38:23 得分 0
控件居中,并检索数据,滚动到最后一行。然后由传递过来的值为cb_1值和当前控件标题的名称!Top
5 楼wu_zh2609(蓝色的风)回复于 2004-12-01 11:41:04 得分 0
如果是出库,就先判断库存是否足,然后对dw_1进行保存Top




