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