t2.txt

本次上载的是和通录有关的在VF环境下的一个有用的源程序

t2.prg
clear 
use sb 
jlh=1
@2,10 say "请输入记录号：" get jlh
read 
go jlh
@4,10 say "请修改第" + str(jlh,1) +"个记录的数据:"
@6,10 say "姓名" get 姓名
@8,10 say "电话" get 电话 
@10,10 say "地址" get 地址
@12,10 say "邮编" get 邮编
read 
use