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

admin2013-06-14  30

问题 设计名为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

解析
转载请注明原文地址:https://kaotiyun.com/show/ePop777K
0

最新回复(0)