你取消数据环境,取消数据捆绑,这样做看是不是达到你的要求:
(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
感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@