* 不知道怎么回事，附件上传不了！
* 表名：HY.DBF
* 结构：必须有的2个字段【会员号 C】，【账户余额值N】即可，其他长度位数自定
* PROG1.PRG代码如下：
if !used('hy')
use hy in 0
endif
sele hy
input '输入数值：' to mye
accept'输入会员号：' to mhy
loca for allt(会员号)=allt(m.mhy)
if !found()
?'会员不存在！'
else
?'原余额：',账户余额值
replace 账户余额值 with 账户余额值+mye
?'现余额：',账户余额值
endif
return
* VFP 调试通过
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024