计算机等级考试二级VFP上机试题及解题思路(8)

　　3. COMMAND2 CLICK 事件代码:

　　THISFORM.RELEASE

　　操作步骤如下：

　　(1) 新建表单

　　(2) 数据环境设置：

　　将表文件“学生”、“课程”、“成绩”添加到数据环境中。

　　(3) 按题目要求在表单中加入控件：

　　命令按纽组Commandgroup1;

　　从数据环境中将“学生”表的“姓名”字段、“课程”表的“课程名”字段、“成绩”表的“学号”字段、“成绩”表的“课程号”字段、“成绩”表的“成绩”字段分别拖入表单对应位置。

　　(4) 主要属性设置：

　　表单 Form1 的Caption 属性设置为 “学生成绩表编辑表单”

　　命令按纽组Commandgroup1的ButtonCount 属性设置为 “7”

　　(5) 主要事件代码：

　　1. FORM1 INIT 事件代码:

　　SET SAFETY OFF

　　THISFORM.COMMANDGROUP1.COMMAND4.ENABLED=.F.

　　THISFORM.COMMANDGROUP1.COMMAND5.ENABLED=.F.

　　C="添加删除退出表头前翻表尾后翻"

　　FOR N=1 TO THISFORM.COMMANDGROUP1.BUTTONCOUNT

　　THISFORM.COMMANDGROUP1.BUTTONS(N).CAPTION=SUBSTR(C,4*(N-1)+1,4)

　　ENDFOR

　　SELECT 学生

　　INDEX ON 学号 TO XHI

　　SELECT 课程

　　INDEX ON 课程号 TO KCI

　　SELECT 成绩

　　SET RELATION TO 学号 INTO 学生, 课程号 INTO 课程

　　THISFORM.REFRESH

　　2. COMMANDGROUP1 CLICK 事件代码:

　　SELECT 成绩

　　DO CASE

　　CASE THIS.VALUE=1

　　APPEND BLANK

　　CASE THIS.VALUE=2

　　DELETE

　　CASE THIS.VALUE=3

　　THISFORM.RELEASE

　　CASE THIS.VALUE=4

　　GO TOP

　　THIS.COMMAND4.ENABLED=.F.

　　THIS.COMMAND5.ENABLED=.F.

　　THIS.COMMAND6.ENABLED=.T.

　　THIS.COMMAND7.ENABLED=.T.

　　CASE THIS.VALUE=5

　　SKIP -1

　　IF BOF()

　　THIS.COMMAND4.ENABLED=.F.

　　THIS.COMMAND5.ENABLED=.F.

　　ENDIF

　　THIS.COMMAND6.ENABLED=.T.

　　THIS.COMMAND7.ENABLED=.T.

　　CASE THIS.VALUE=6

　　GO BOTTOM

　　THIS.COMMAND4.ENABLED=.T.

　　THIS.COMMAND5.ENABLED=.T.

　　THIS.COMMAND6.ENABLED=.F.

　　THIS.COMMAND7.ENABLED=.F.

　　CASE THIS.VALUE=7

　　SKIP

　　IF EOF()

　　THIS.COMMAND6.ENABLED=.F.

　　THIS.COMMAND7.ENABLED=.F.

　　ENDIF

　　THIS.COMMAND4.ENABLED=.T.

　　THIS.COMMAND5.ENABLED=.T.

　　ENDCASE

　　THISFORM.REFRESH