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

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

　　在考生文件夹下有学生管理数据库stu_7，该库中有CHENGJI表和XUESHENG表，

　　各表结构如下：

　　(1) CHENGJI表(学号C(9)、课程号C(3)、成绩N(7.2))，该表用于记录学生的考试成绩，单一个学生可以有多项记录(登记一个学生的多门成绩)。

　　(2) XUESHENG表(学号C(9)、姓名C(10)、平均分N(7.2))，该表是学生信息，一个学生只有一个记录(表中有固定的已知数据)。

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

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

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

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

　　(1) 根据CHENGJI表计算每个学生的平均分，并将结果存入XUESHENG表的平均分字段。

　　(2) 根据上面的计算结果，生成一个新的自由表 pingjun，该表的字段按顺序取自XUESHENG表的学号、姓名和平均分三项，并且按平均分升序排序，如果平均分相等，则按学号升序排序。单击"关闭"按钮，程序终止运行。

　　本题主要考核点：

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

　　解题思路：

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

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

　　SET TALK OFF &&在程序运行的情况下关闭命令执行的结果

　　SET SAFETY OFF &&当出现文件重名时不出现提示

　　OPEN DATABASE STU_7 &&打开数据库文件STU_7

　　USE XUESHENG &&在当前工作区打开XUESHENG表

　　DO WHILE NOT EOF() &&遍历学生表中的每一个记录这样可以对每一个学生进行操作

　　SELECT AVG(成绩) FROM CHENGJI;

　　WHERE 学号=XUESHENG.学号 INTO ARRAY Atemp

　　&&SELECT SQL语句中可以利用AVG()函数得到某一表达式的平均值

　　&&可以将结果集存入一个数组之中INTO ARRAY Atemp

　　REPLACE 平均分 WITH Atemp(1,1)

　　&&将所得到的平均分代替当前学号的在XUESHENG表中的平均分

　　SKIP

　　ENDDO

　　SELECT 学号,姓名,平均分 FROM XUESHENG;

　　ORDER BY 平均分,学号;

　　INTO TABLE PINGJUN

　　&&在SELECT SQL语句中可以利用ORDER BY 子句对结果集进行排序，如果有多个排序依据

　　&&在ORDER BY 中排在前面的优先级更高一些，另外默认的是以升序进行排序，如果要以降

　　&&序进行排序，需要显示指定DESC;对结果集可以直接放入到一个永久

　　&&表中:INTO TABLE 表名

　　CLOSE ALL

　　SET TALK ON

　　SET SAFETY ON

　　第三步：双击标题为"退出"的按钮控件，在新打开的窗口中添加此按钮的CLICK事件代码:THISFORM.RELEASE &&退出表单

　　第四步：以文件名form_stu保存表单，并执行表单。