关于查询的一个示例 Tiger5392 (C)Copyright 2006-2006
(1)新建一个表单,添加你需要的标签、文本框、命令按钮组等。还要添加一个过程TEXTREFRESH。假设其中TEXT7是你要输入查询的内容。

(2)THISFORM.INIT里写
PUBLIC MM
CLOSE ALL
IF FILE("你的表.DBF")
  USE 你的表.DBF
ELSE
  *CREATE TABLE 你的表 (你的字段名......
ENDIF
THISFORM.TEXT1.INPUTMASK="XXXXXXXXX"  &&根据你的第一个字段的要求设定
*其他文本框,包括TEXT7在内的INPUMASK都如此设定
THISFORM.TEXTREFRESH

(3)THISFORM.TEXTREFRESH里写
THISFORM.TEXT1.VALUE=第一个字段
THISFORM.TEXT2.VALUE=第二个字段
*其他需要显示其内容的字段赋值给对应的文本框...............

(4)命令按钮组COMMANDGROUP1.CLICK里写
DO CASE
CASE THIS.VALUE=1  &&第一个
  GO TOP
CASE THIS.VALUE=2  &&上一个
  SKIP-1
  IF BOF()
    GO TOP
  ENDIF
CASE THIS.VALUE=3  &&下一个
  SKIP
  IF EOF()
    GO BOTTOM
  ENDIF
CASE THIS.VALUE=4  &&最后一个
  GO BOTTOM
CASE THIS.VALUE=5  &&查询
  MM=ALLTRIM(THISFORM.TEXT7.VALUE)
  IF EMPTY(MM)
    SET FILTER TO
  ELSE
    SET FILTER TO MM$学号
  ENDIF
  GO TOP
CASE THIS.VALUE=6  &&结束
  THISFORM.RELEASE
ENDCASE
THISFORM.TEXTREFRESH