计算机等级考试二级VFP上机试题及解题思路(8)

　　多表操作程序设计题

　　操作步骤如下：

　　(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