这个表单的代码如下:
在form的load事件下:
use kc.dbf
use cb.dbf
在unload事件下:
use
use
“确定”的Click事件下:
public i,j,k
i=int(val(thisform.text1.value))
j=val(thisform.text2.value)
select kc
locate all for kc.id==i
if foun()
if kc.sl<>0
replace kc.sl with kc.sl-1 while i==kc.id
select cb
locate for cb.id==i
replace cb.sjlr with cb.sjlr+j while i==cb.id
messagebox("数据删除成功!")
else
messagebox("货物已售完,请及时进货!")
endif
else
messagebox("输入编码错误!")
endif
thisform.text2.value=""
thisform.text1.value=""