三、多表操作程序設(shè)計(jì)題

　　操作步驟如下：

　　(1) 新建表單

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

　　命令按紐Command1、Command2;

　　標(biāo)簽 Label1、Label2、Label3;

　　組合框 Combo1;

　　文本框 Text1、Text2、Text3;

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

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

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

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

　　表單 Form1 的Caption 屬性設(shè)置為 “學(xué)生成績(jī)查詢(xún)表單”

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

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

　　標(biāo)簽Label1的Caption 屬性設(shè)置為 “選擇姓名”

　　標(biāo)簽Label2的Caption 屬性設(shè)置為 “學(xué)號(hào)”

　　標(biāo)簽Label3的Caption 屬性設(shè)置為 “姓名”

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

　　組合框 Combo1的RowSource屬性設(shè)置為 “學(xué)生.姓名”

　　(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 學(xué)生

　　XH=學(xué)號(hào)

　　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 成績(jī)

　　LOCATE FOR ALLTRIM(學(xué)號(hào))=ALLTRIM(XH)

　　DO WHILE ! EOF()

　　SELECT 課程

　　LOCATE FOR ALLTRIM(課程號(hào))=ALLTRIM(成績(jī).課程號(hào))

　　KCM=課程名

　　SELECT 成績(jī)

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

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

　　S=S+成績(jī)

　　L=L+1

　　CONTINUE

　　ENDDO

　　IF L>1

　　THISFORM.TEXT3.VALUE="該生的總平均成績(jī)?yōu)?"+STR(S/(L-1),5,1)

　　ELSE

　　THISFORM.TEXT3.VALUE="該生沒(méi)有選修課程!"

　　ENDIF

　　SELECT 學(xué)生

　　THISFORM.REFRESH