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

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

　　在考生文件夹下完成下列操作：

　　1. 建立一个表单名和文件名均为myform的表单(如图2所示)。表单的标题是"评委打分情况"，表单中有两个命令按钮(Command1和Command2)和两个单选钮(Option1和Option2)。Command1和Command2的标题分别是"生成表"和"退出"，Option1和Option2的标题分别是"按评分升序"和"按评分降序"。

　　2. 为"生成表"命令按钮编写程序，程序的功能是根据简单应用题生成的result.dbf表按指定的排序方式生成新的表，单选钮选择"按评分升序"时，依次按最高分、最低分和平均分3个字段升序排序生成表six_a，单选钮选择"按评分降序"时，依次按最高分、最低分和平均分3个字段降序排序生成表six_d。

　　3. 运行表单，选择"按评分升序"单选钮，单击"生成表"命令按钮;再选择"按评分降序"单选钮，单击"生成表"命令按钮(注意必须执行)。

　　本题主要考核点：

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

　　本题解题思路：

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

　　第二步：点击工具栏按钮"表单控件工具栏"，在弹出的"表单控件"对话框中，选中"选项按钮组"控件，在表单设计器中拖动鼠标，这样在表单上得到一个"选项按钮组"控件optiongroup1，用类似的方法为表单加入一个"命令按钮"控件command2。相关控件的属性值如下表所示：

　　对象 属性 属性值

　　myform Caption 评委打分情况

　　myform Name myform

　　MyOption.option1 Caption 按评分升序

　　MyOption.option2 Caption 按评分降序

　　Command1 Caption 生成表

　　Command2 Caption 退出

　　***命令按钮command1(生成表)的Click事件代码如下****

　　DO CASE

　　CASE THISFORM.Optiongroup1.VALUE=1

　　SELECT *;

　　FROM result;

　　ORDER BY Result.最高分, Result.最低分, Result.平均分;

　　INTO TABLE six_a.dbf

　　CASE THISFORM.Optiongroup1.VALUE=2

　　SELECT *;

　　FROM result;

　　ORDER BY Result.最高分 DESC, Result.最低分 DESC, Result.平均分 DESC;

　　INTO TABLE six_d.dbf

　　ENDCASE

　　最后运行表单，选择"按评分升序"单选钮，单击"生成表"命令按钮;再选择"按评分降序"单选钮，单击"生成表"命令按钮。