stor "Y"to YN
use "E:\visulFox Pro\學(xué)生庫.dbf"
index on 學(xué)號 to sno
do whil upper (YN) ="Y"
acce "請輸入要查詢的學(xué)生號" to cxstudent
seek cxstudent
if found()
disp
else
?"沒有要查的學(xué)生"
endif
wait "繼續(xù)查找么？繼續(xù)請按Y/y結(jié)束請按N/n"to YN
endd
?"謝謝，再見！"