(1)追加记录的CLICK()
LOCATE ALL FOR 班级编号=THISFORM.TEXT1.VALUE
IF EOF()
APPEND BLANK
REPLACE 班级编号 WITH THISFORM.TEXT1.VALUE,;
专业名称 WITH THISFORM.TEXT2.VALUE,;
辅导员 WITH THISFORM.TEXT3.VALUE
ENDIF
(2)删除记录的CLICK()
LOCATE ALL FOR 班级编号=THISFORM.TEXT1.VALUE
IF !EOF()
DELETE
PACK
ENDIF
(3)修改记录的CLICK()
LOCATE ALL FOR 班级编号=THISFORM.TEXT1.VALUE
IF !EOF()
REPLACE 班级编号 WITH THISFORM.TEXT1.VALUE,;
专业名称 WITH THISFORM.TEXT2.VALUE,;
辅导员 WITH THISFORM.TEXT3.VALUE
ENDIF
(4)返回的CLICK()
THISFORM.RELEASE
(5)上一条等命令按钮的CLICK()
DO CASE
CASE THIS.VALUE=1 &&上一条
IF RECNO()>1
SKIP -1
ENDIF
CASE THIS.VALUE=1 &&下一条
IF RECNO()<RECCOUNT()
SKIP
ENDIF
CASE THIS.VALUE=1 &&第一条
GO TOP
CASE THIS.VALUE=1 &&最后一条
GO BOTTOM
ENDCASE
THISFORM.TEXT1.VALUE=班级编号
THISFORM.TEXT2.VALUE=专业名称
THISFORM.TEXT3.VALUE=辅导员