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