計(jì)算機(jī)等級(jí)考試二級(jí)VFP上機(jī)試題及解題思路(8)

　　多表操作程序設(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é)生”、“課程”、“成績”添加到數(shù)據(jù)環(huán)境中。

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

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

　　命令按紐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 成績

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

　　DO WHILE ! EOF()

　　SELECT 課程

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

　　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="該生的總平均成績?yōu)?"+STR(S/(L-1),5,1)

　　ELSE

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

　　ENDIF

　　SELECT 學(xué)生

　　THISFORM.REFRESH