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

Author: 青岛市19中学高一.五班翁晓毅 Date: 1995-02-10

        字段名   类型               宽度
        学号      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