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

　　三、综合应用(1小题，计30分)

　　在考生文件夹下有学生管理数据库stu_five

　　(1)CHENGJI表(学号C(9)、课程号C(3)、成绩I)用于记录学生的考试成绩，其中

　　一个学生可以有多项记录(登记一个学生的多门成绩)。

　　(2)KECHENG表(课程号C(3)、课程名 C(10)、最高分I、学号C(9))的内容是所开课程，一门课程只有一个记录(表中有固定的已知数据)。

　　请编写并运行符合下列要求的程序：

　　设计一个名为form_my的表单，表单中有两个命令按钮，按钮的名称分别为

　　cmdYes和cmdNo，标题分别为"统计"和"关闭"。

　　程序运行时，单击"统计"按钮应完成下列操作：

　　(1)计算每门课程的最高分，并将结果存入KECHENG表的最高分字段，同时将得此最高分的学生的学号存入该表的学号字段。

　　(2)根据上面的计算结果，生成一个新的表jiangli，该表按顺序含有来自KECHENG表的课程名和最高分两个字段，并且按最高分降序排序。

　　单击"关闭"按钮，程序终止运行。

　　本题主要考核点：

　　表单的建立、程序设计中循环结构、条件结构的应用、SELECT语句的应用等知识点

　　解题思路：

　　第一步：利用表单设计器建立所要求的表单，将在表单上添加两个按钮控件。分别设置两个按钮控件的标题和名字属性。

　　第二步：双击标题为"统计"的按钮控件，在新打开的窗口中添加此按钮的CLICK事件代码:

　　SET TALK OFF

　　SELECT 2

　　USE KECHENG

　　&&在B工作区打开KECHENG表

　　INDEX ON 课程号 TO KC

　　&&以课程号为排序的依据对表KECHENG进行排序

　　SELECT 1

　　USE CHENGJI

　　&&在A工作区打开CHANEGJI表

　　DO WHILE NOT EOF() &&遍历CHENGJI表

　　SELECT 2

　　SEEK A->课程号 &&在KECHENG表中查找当前成绩表所在的课程号

　　IF 最高分成绩 THEN && 如果KECHENG表中的最高分小于当前CHENGJI表中的记录的成绩

　　REPLACE 最高分 WITH A->成绩,学号 WITH A->学号

　　ENDIF

　　SELECT 1

　　SKIP

　　ENDDO

　　SELECT 课程名,最高分 FROM KECHENG ORDER BY 最高分 INTO TABLE JIANGLI

　　&&SELECT语句的ORDER BY 子句可以指定查询结果的排序依据，默认是以指定排序依据的升序排序，

　　&&如果要指定为降序需要用DESC;INTO TABLE 表名 可以将结果集放入一个永久表中。结果集也可以

　　&&放入一个临时表中：INTO CURSOR 临时表名 ,也可以放入一个数组之中:INTO ARRAY 数组变量名

　　SET TALK ON

　　第三步：为标题为"退出"的按钮控件加入CLICK事件代码：

　　THISFORM.RELEASE &&退出表单

　　第三步：以form_my保存表单