设计名为mystu的表单(控件名为form1,文件名为mystu)。表单的标题为“学生学习情况统计”。表单中有一个选项组控件(命名为myOption)和两个命令按钮“计算”(名称为Command1)和“退出”(名称为Command2)。其中,选项组控件有两个按钮“升序”(名称为Option1)和“降序”(名称为Option2)
运行表单时,首先在选项组控件中选择“升序”或“降序”,单击“计算”命令按钮后,按照成绩“升序”或“降序”(根据选项组控件)将选修了“C语言”的学生学号和成绩分别存入stu_sort1.dbf和stu_sort2.dbf文件中。
单击“退出”按钮关闭表单。
参考答案:第一步:在Visual FoxPro主窗口中按下组合键Ctrl+N,系统弹出“新建”对话框,在文件类型中选择“表单”,单击“新建文件”按钮,系统将打开表单设计器;或直接在命令窗口中输入“crea form mystu”。
第二步:单击工具栏按钮“表单控件工具栏”,在弹出的“表单控件”对话框中,选中“选项按钮组”控件,在表单设计器中拖动鼠标,这样在表单上得到一个“选项按钮组”控件optiongroupA,用类似的方法为表单加入一个“命令按钮”控件commandB,两个“文本框”控件textA和textB。
相关控件的属性值如下所示:
对象 属性 属性值
FormA Caption 学生学习情况统计
OptiongroupA Name myOption
MyOption.optionA Caption 升序
MyOption.optionB Caption 降序
CommandA Caption 计算
CommandB Caption 退出
***命令按钮commandA(计算)的Click事件代码如下****
DO CASE
CASE THISFORM.myOption.VALUE=A
SELECT 学生.学号,选课.成绩;
FROM 学生! 课程 INNER JOIN 学生! 选课;
INNER JOIN 学生! 学生;
ON 学生.学号=选课.学号;
ON课程.课程号=选课.课程号;
WHERE AT("C语言",课程.课程名称)>0;
ORDER BY 选课.成绩;
INTO TABLE stu_sortA
CASE THISFORM.myOption.VALUE=B
SELECT 学生.学号,选课.成绩;
FROM 学生! 课程 INNER JOIN 学生! 选课;
INNER JOIN 学生! 学生;
ON学生.学号=选课.学号;
ON 课程.课程号=选课.课程号;
WHERE AT("C语言",课程.课程名称)>0;
ORDER BY 选课.成绩 DESC;
INTO TABLE stu_sortB
ENDCASE
***命令按钮commandB(退出)的Click事件代码如下***
THISFORM.RELEASE