设计名为mystu的表单(控件名为form1,文件名为mystu)。表单的标题为“学生学习情况统计”。表单中有一个选项组控件(命名为myOption)和两个命令按钮“计算”(名称为Command1)和“退出”(名称为Command2)。其中,选项组控件有两个按钮“升序”(名称为Option1)和“降序”(名称为Option2) 运行表单时,首先在选项组控件中选择“升序”或“降序”,单击“计算”命令按钮后,按照成绩“升序”或“降序”(根据选项组控件)将选修了“C语言”的学生学号和成绩分别存入stu_sort1.dbf和stu_sort2.dbf文件中。 单击“退出”按钮关闭表单。
参考答案:
解析:第一步:在Visual FoxPro主窗口中按下组合键Ctrl+N,系统弹出“新建”对话框,在文件类型中选择“表单”,单击“新建文件”按钮,系统将打开表单设计器;或直接在命令窗口中输入“crea form mystu”。 第二步:单击工具栏按钮“表单控件工具栏”,在弹出的“表单控件”对话框中,选中“选项按钮组”控件,在表单设计器中拖动鼠标,这样在表单上得到一个“选项按钮组”控件optiongroup1,用类似的方法为表单加入一个“命令按钮”控件command2,两个“文本框”控件text1和text2。 相关控件的属性值如下所示: 对象 属性 属性值 Form1 Caption 学生学习情况统计 Optiongroup1 Name myOption MyOption.option1 Caption 升序 MyOption.option2 Caption 降序 Command1 Caption 计算 Command2 Caption 退出 ***命令按钮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