老大，你这得自己动手，遇到困难，你可以在此问网友，像你这样想不劳而获的想法，是没人会帮你编写的，其实这是一个最简单的编程，一个表单，在表单中加入一个TEXTBOX和一个COMMANDBUTTON按钮及GRID控件，就可以搞定。我写一下简单的代码如下：

在表单位的LOAD方法中加入如下代码：
PUBLIC cDbfFile,cUseAias
cDbfFile="d:\stu.dbf"&&比如你的数据库文件在D:盘上
cUseAias=SYS(2015)&&取一个随机唯一字符，是用来给打开你数据库作别名的。当然不用也可以，这只是我的习惯
use (cDbfFile) in 0 alias (cUseAias)

再在命令按钮CLICK事件中加入的代码：
LOCAL cFoundName,cSQL_Alias
cSQL_Alias=sys(2015)&&取一个随机唯一字符，用来代表生成查询的临时表别名。
cFoundName=alltrim(thisform.text1.value)&&取你在文本框中输入的要查询的学生姓名
IF ISBLANK（cFoundName）
    MESSAGEBOX("请输入要查询的学生姓名！",64,"提示")
    thisform.text1.setfocus()
    RETURN .F.
ENDIF
select * from (cUseAias) where 姓名=cFoundName INTO CURSOR (cSQL_Alias)
IF RECCOUNT(cSQL_Alias)=0
    MESSAGEBOX("没有此学生！",64,"提示")    
    RETURN .F.
ENDIF
THISFROM.GRID1.RecordSource=""
this.Parent.grid1.RecordSourceType=1
this.Parent.grid1.RecordSource=cSQL_Alias
RETURN .T.