标题数据库线索查询的一种简便方法

　　字段名　 类型　　 宽度
　　学号　　C　　 6
　　姓名　　C　　 20
　　成绩　　N　　 5，2
　　当你运行这一程序时，屏幕上揭示“线索查询：姓名=”，
　　如你输入“王力”就会检索出如下结果：
　　1　　01，　 王力学　　97.5
　　2　　02，　 王权力　　100
　　3　　05，　 王学民　　90
　　以上程序在一般PC机型的FOXBASE中均能运行通过：
　　SET EXACT OFF
　　SET TALK　OFF
　　KM=“”
　　BM=“”
　　CLEAR
　　USE 成绩库
　　DO WHILE.T.
　　GO 1
　　STORE SPACE(10) TO BM
　　@4，10 SAY“查询线索：姓名=”
　　ACCEPT TO BM
　　STOR TRIM (BM) TO BM
　　BM =UPPER(BM)
　　LOCATE FOR BM $(姓名)
　　STOR 1 TO N ，H
　　CLEAR
　　DO WHILE ，NOT ，EOF ()
　　IF N〉8·AND· H =1
　　STOR 1 TO N
　　STOR 40 TO H
　　ENDIF
　　IF N〉8 ·AND· H=40
　　WAIT“请按任一键继续！”
　　STOR 1 TO　H，N
　　CLEA
　　ENDIF
　　@N，H SAY “”+学号+“”+姓名+“”+STR(成绩，5，2)
　　STOR N+1 TO N
　　CONT INUE
　　ENDDO
　　INK=INKEY(100)
　　CLEA
　　STOR SPACE(2)TO SF
　　@4，10 SAY “继续吗？(Y/N)” GET SF
　　READ
　　IF UPPER(SF)=“Y”
　　LOOP
　　ENDIF
　　EXIT
　　ENDDO