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

　　三、综合应用

　　设计名为mystu的表单(控件名为form1,文件名为mystu)。表单的标题为"学生学习情况统计"。表单中有一个选项组控件(命名为myOption)和两个命令按钮"计算"(名称为Command1)和"退出"(名称为Command2)。其中, 选项组控件有两个按钮"升序"(名称为Option1)和"降序"(名称为Option2)。

　　运行表单时，首先在选项组控件中选择"升序"或"降序", 单击"计算"命令按钮后,按照成绩"升序"或"降序"(根据选项组控件)将选修了"C语言"的学生学号和成绩分别存入stu_sort1.dbf和stu_sort2.dbf文件中。

　　单击"退出"按钮关闭表单。

　　本题主要考核点：

　　表单的创建、控件的属性的修改、表单的退出、SQL查询等知识点

　　本题解题思路：

　　第一步：在Visual FoxPro主窗口中按下组合键Ctrl+N，系统弹出"新建"对话框，在文件类型中选择"表单"，点击"新建文件"按钮,系统将打开表单设计器;或直接在命令窗口中输入 crea form mystu。

　　第二步：点击工具栏按钮"表单控件工具栏"，在弹出的"表单控件"对话框中，选中"选项按钮组"控件，在表单设计器中拖动鼠标，这样在表单上得到一个"选项按钮组"控件optiongroup1，用类似的方法为表单加入一个"命令按钮"控件command2，二个"文本框"控件text1和text2。

　　相关控件的属性值如下表所示：

　　***命令按钮command1(计算)的Click事件代码如下****

　　DO CASE

　　CASE THISFORM.myOption.VALUE=1

　　SELECT 学生.学号, 选课.成绩;

　　FROM 学生!课程 INNER JOIN 学生!选课;

　　INNER JOIN 学生!学生 ;

　　ON 学生.学号 = 选课.学号 ;

　　ON 课程.课程号 = 选课.课程号;

　　WHERE AT("C语言",课程.课程名称) > 0;

　　ORDER BY 选课.成绩;

　　INTO TABLE stu_sort1

　　CASE THISFORM.myOption.VALUE=2

　　SELECT 学生.学号, 选课.成绩;

　　FROM 学生!课程 INNER JOIN 学生!选课;

　　INNER JOIN 学生!学生 ;

　　ON 学生.学号 = 选课.学号 ;

　　ON 课程.课程号 = 选课.课程号;

　　WHERE AT("C语言",课程.课程名称) > 0;

　　ORDER BY 选课.成绩 DESC;

　　INTO TABLE stu_sort2

　　ENDCASE

　　***命令按钮command2(退出)的Click事件代码如下***

　　THISFORM.RELEASE