Question

这道题怎么做啊？请VF的高手指点下。。我真的很想知道

考核盘根目录上有学生贷款的数据库文件LOAN.DBF，其结构如下：

字段名 类型 宽度 小数 说明

XH C 6 学号

XM C 8 姓名

XB C 2 性别

ZY C 4 专业

DKE N 8 2 贷款额

编写一个程序SR.PRG存放在考核盘根目录下，功能是由用户从键盘输入学生姓名后，查找该学生，若找到，显示该学生的姓名、专业、贷款额若没有找到，显示无此学生，单击“退出”按钮，结束程序运行。

Answer 1

*sp.prg
clear
use
accept "请输入要查找的学生姓名" to a
locate for xm=a
if found()
disp fields xm,zy,dke
else
messagebox("无此学生",1+256,"提示")
endif
use
return