三、多表操作程序設計題

　　操作步驟如下：

　　(1) 新建表單

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

　　命令按紐Command1、Command2;

　　標簽 Label1、Label2、Label3;

　　組合框 Combo1;

　　文本框 Text1、Text2、Text3;

　　容器 Container1, 并在容器 Container1 中加入文本框 Text1、Text2、Text3、Text4、Text5、Text6、Text7、 Text8、Text9、Text10。

　　(3) 數據環境設置：

　　將表文件“學生”、“課程”、“成績”添加到數據環境中。

　　(4) 主要屬性設置：

　　表單 Form1 的Caption 屬性設置為 “學生成績查詢表單”

　　命令按紐Command1的Caption 屬性設置為 “確定”

　　命令按紐Command2的Caption 屬性設置為 “退出”

　　標簽Label1的Caption 屬性設置為 “選擇姓名”

　　標簽Label2的Caption 屬性設置為 “學號”

　　標簽Label3的Caption 屬性設置為 “姓名”

　　組合框 Combo1的RowSourceType屬性設置為 “6-字段”

　　組合框 Combo1的RowSource屬性設置為 “學生.姓名”

　　(5) 主要事件代碼

　　1. FORM1 INIT 事件代碼:

　　THISFORM.SETALL("Readonly",.T.,"Textbox")

　　FOR N=1 TO THISFORM.CONTAINER1.CONTROLCOUNT

　　THISFORM.CONTAINER1.CONTROLS(N).VISIBLE=.F.

　　ENDFOR

　　2. COMMAND1 CLICK 事件代碼:

　　SELECT 學生

　　XH=學號

　　XM=姓名

　　THISFORM.TEXT1.VALUE=XH

　　THISFORM.TEXT2.VALUE=XM

　　FOR N=1 TO THISFORM.CONTAINER1.CONTROLCOUNT

　　THISFORM.CONTAINER1.CONTROLS(N).VALUE=""

　　THISFORM.CONTAINER1.CONTROLS(N).VISIBLE=.F.

　　ENDFOR

　　S=0

　　L=1

　　SELECT 成績

　　LOCATE FOR ALLTRIM(學號)=ALLTRIM(XH)

　　DO WHILE ! EOF()

　　SELECT 課程

　　LOCATE FOR ALLTRIM(課程號)=ALLTRIM(成績.課程號)

　　KCM=課程名

　　SELECT 成績

　　THISFORM.CONTAINER1.CONTROLS(L).VALUE=KCM+":"+STR(成績,5,1)

　　THISFORM.CONTAINER1.CONTROLS(L).VISIBLE=.T.

　　S=S+成績

　　L=L+1

　　CONTINUE

　　ENDDO

　　IF L>1

　　THISFORM.TEXT3.VALUE="該生的總平均成績為:"+STR(S/(L-1),5,1)

　　ELSE

　　THISFORM.TEXT3.VALUE="該生沒有選修課程!"

　　ENDIF

　　SELECT 學生

　　THISFORM.REFRESH