t7.txt

来自「本次上载的是和通录有关的在VF环境下的一个有用的源程序」· 文本 代码 · 共 15 行

t7.prg
clear  
use txlgl 
xm="   "
@5,10 say "请输入待查询的姓名：" get 姓名 default space (20)
read
姓名=alltrim(姓名)
select txlgl.姓名,txlgl.电话,txlgl.地址,txlgl.邮编
from txlgl 
where txlgl.姓名=姓名
if found ()
 browse 
 else wait "该人不在通信录中！" window 
 exit 
use