VFP 中一对多表单命令按钮的代码实现

来源：百度知道 编辑：UC知道 时间：2024/05/26 11:05:43
我建立了两个表，一个是学生表，为父表；另一个是成绩表，为子表。通过学号进行关联。父表通过文本框绑定数据源显示，子表通过表格控件绑定数据源显示数据。能够实现上一条，下一条功能。但是查询、修改、增加、删除实现不了。困扰了我好多天了，跪求这些按钮的实现代码，谁能帮我解决了这个问题，把分都给他。谢谢！

我认为你最好不要用绑定数据源的方式显示.我给你解决吧:
1.设定几个文件框和一个表格控件,没有任何的绑定
2.在表单的INIT事件中输入如下代码:
set date to ansi
set cent on
SET HOURS TO 24
SET EXAC ON
SET MARK TO "-"
THISFORM.GRID1.RECORDSOURCE=''
THISFORM.GRID1.READONLY=.T.
SELE 0
use 成绩表
INDEX ON 学号 TAG 成绩表
THISFORM.GRID1.RECORDSOURCE='成绩表'
THISFORM.GIRD1.REFRESH
SELE 0
USE 学生表
SET RELA TO 学号 INTO 成绩表
***以上代码是进行表单初始化
3.增加一个上一条按纽,CLICK代码如下
SELE 学生表
IF BOF()
=MESSAGEBOX("已是第一条数据",0,"提示信息")
RETURN
ENDIF
SKIP -1
THISFORM.TEXT1.VALUE=学生表.姓名
THISFORM.TEXT2.VALUE=学生表.学号
THISFORM.GRID1.REFRESH
4.增加一个下一条按纽
SELE 学生表
IF EOF()
=MESSAGEBOX("已是最后一条数据",0,"提示信息")
RETURN
ENDIF
SKIP 1
THISFORM.TEXT1.VALUE=学生表.姓名
THISFORM.TEXT2.VALUE=学生表.学号
THISFORM.GRID1.REFRESH
5.增加一个修改按纽,CLICK代码如下
THISFORM.GIRD1.READONLY