3. COMMAND2 CLICK 事件代碼:

　　THISFORM.RELEASE

　　操作步驟如下：

　　(1) 新建表單

　　(2) 數(shù)據(jù)環(huán)境設(shè)置：

　　將表文件“學(xué)生”、“課程”、“成績”添加到數(shù)據(jù)環(huán)境中。

　　(3) 按題目要求在表單中加入控件：

　　命令按紐組Commandgroup1;

　　從數(shù)據(jù)環(huán)境中將“學(xué)生”表的“姓名”字段、“課程”表的“課程名”字段、“成績”表的“學(xué)號”字段、“成績”表的“課程號”字段、“成績”表的“成績”字段分別拖入表單對應(yīng)位置。

　　(4) 主要屬性設(shè)置：

　　表單 Form1 的Caption 屬性設(shè)置為 “學(xué)生成績表編輯表單”

　　命令按紐組Commandgroup1的ButtonCount 屬性設(shè)置為 “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 學(xué)生

　　INDEX ON 學(xué)號 TO XHI

　　SELECT 課程

　　INDEX ON 課程號 TO KCI

　　SELECT 成績

　　SET RELATION TO 學(xué)號 INTO 學(xué)生, 課程號 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