VFP6.0 表单设计

你的表最好不要用数字来开头，改为 stud.dbf

1、新建表单，在表单空白的地方单击鼠标右键，为表单添加数据环境，将stud.dbf添加到表单的数据环境，然后在数据环境里将各个字段一个个拖到表单上面，自己调整一下大小和位置

2、添加所需命令按钮，将它们的caption属性设置好

3、各个命令按钮的click事件代码如下

“首记录”按钮：

  GO top

  thisform.Refresh 

“上一记录”按钮：

SKIP -1

IF BOF( )

GO TOP

MESSAGEBOX("已到首记录！")

ENDIF

thisform.Refresh

“下一记录”按钮：

SKIP 1

IF EOF( )

GO BOTTOM

MESSAGEBOX("已到末记录！")

ENDIF

THISform.Refresh

“末记录”按钮：

GO BOTTOM 

thisform.Refresh 

添加记录按钮：

APPEND BLANK 

thisform.Refresh 

删除记录按钮：

SET DELETED ON 

isok=MESSAGEBOX("确定删除该记录吗？",4+32+0,"操作确认！")

IF isok=6

DELETE &&这里只是给记录添加删除标记，要物理删除的话需要在独占打开表的情况下执行pack命令

IF !EOF()

thisform.command3.Click  &&command3是指“下一条记录”那个命令按钮

ELSE

GO bottom

endif

ELSE

RETURN

ENDIF

thisform.Refresh 

在表单的unload事件写上：

use stud &&独占打开stud表

pack &&物理删除表中打上删除标记的记录

use &&关闭当前工作区的表

表单的INIT事件代码如下
USE 45DBF
THISFORM.TEXT1.VALUE=姓名
THISFORM.TEXT2.VALUE=数学
THISFORM.TEXT3.VALUE=语文
THISFORM.TEXT4.VALUE=THISFORM.TEXT2.VALUE+THISFORM.TEXT3.VALUE
第一条记录按钮CLICK代码如下
SELE 45DBF
GO TOP
THISFORM.TEXT1.VALUE=姓名
THISFORM.TEXT2.VALUE=数学
THISFORM.TEXT3.VALUE=语文
THISFORM.TEXT4.VALUE=THISFORM.TEXT2.VALUE+THISFORM.TEXT3.VALUE
THISFORM.TEXT1.REFRESH
THISFORM.TEXT2.REFRESH
THISFORM.TEXT3.REFRESH
THISFORM.TEXT4.REFRESH
下一条记录CLICK代码
SELE 45DBF
SKIP
IF NOT EOF()
THISFORM.TEXT1.VALUE=姓名
THISFORM.TEXT2.VALUE=数学
THISFORM.TEXT3.VALUE=语文
THISFORM.TEXT4.VALUE=THISFORM.TEXT2.VALUE+THISFORM.TEXT3.VALUE
THISFORM.TEXT1.REFRESH
THISFORM.TEXT2.REFRESH
THISFORM.TEXT3.REFRESH
THISFORM.TEXT4.REFRESH
ENDIF
上一第
SELE 45DBF
SKIP -1
IF NOT BOF()
THISFORM.TEXT1.VALUE=姓名
THISFORM.TEXT2.VALUE=数学
THISFORM.TEXT3.VALUE=语文
THISFORM.TEXT4.VALUE=THISFORM.TEXT2.VALUE+THISFORM.TEXT3.VALUE
THISFORM.TEXT1.REFRESH
THISFORM.TEXT2.REFRESH
THISFORM.TEXT3.REFRESH
THISFORM.TEXT4.REFRESH
ENDIF
最后一条
SELE 45DBF
GO BOTT
THISFORM.TEXT1.VALUE=姓名
THISFORM.TEXT2.VALUE=数学
THISFORM.TEXT3.VALUE=语文
THISFORM.TEXT4.VALUE=THISFORM.TEXT2.VALUE+THISFORM.TEXT3.VALUE
THISFORM.TEXT1.REFRESH
THISFORM.TEXT2.REFRESH
THISFORM.TEXT3.REFRESH
THISFORM.TEXT4.REFRESH
添加记录
SELE 45DBF
INSERT BLAN
REPL 姓名 WITH THISFORM.TEXT1.VALUE
REPL 数学 WITH THISFORM.TEXT2.VALUE
REPL 语文 WITH THISFORM.TEXT3.VALUE
REPL 总分 WITH THISFORM.TEXT2.VALUE+THISFORM.TEXT3.VALUE
删除记录
SELE 45DBF
DELE
PACK