设计名为“bd1”的表单。表单标题为“学习情况浏览”。表单中有一个选项组控件、一个表格、两个命令按钮“成绩查询”和“关闭”。其中,选项组控件有两个按钮“升序”和“降序”。根据选择的选项组控件,将选修了“VFP入门”的学生的“学号”“姓名”和“成绩”按成绩排

admin2010-05-08  43

问题 设计名为“bd1”的表单。表单标题为“学习情况浏览”。表单中有一个选项组控件、一个表格、两个命令按钮“成绩查询”和“关闭”。其中,选项组控件有两个按钮“升序”和“降序”。根据选择的选项组控件,将选修了“VFP入门”的学生的“学号”“姓名”和“成绩”按成绩排序显示到表格中并存入“result.dbf”文件中。

选项

答案①选择【文件】→【新建】命令,选择“表单”,单击“新建文件”按钮打开表单设计器,单击表单控件工具栏上的“命令按钮组”控件图标,为表单添加一个命令按钮组CommandGroup1;单击表单控件工具栏上的“命令按钮”控件图标,为表单添加两个命令按钮Command1和Command2;单击表单控件工具栏上的“表格”控件图标,再添加一个表格控件Grid1。 ②选择命令按钮组CommandGroup1,单击右键,在弹出的快捷菜单中选择“生成器”打开命令组生成器对话框,单击“按钮”选项卡,设置按钮的数目为“2”,在“标题”列下修改3个按钮的标题分别为“升序”“降序”,单击“确定”按钮关闭命令组生成器对话框。 ③分别选择两个命令按钮.在按钮属性窗口中将命令按钮Command1的Caption属性值修改为“成绩查询”,Command2的Capdon属性值修改为“关闭”,如图95-1所示。双击“关闭”命令按钮,在Click事件中输入代码:ThisForm.Release,用来关闭表单。 [*] ④双击“成绩查询”命令按钮,在Click事件中输入代码: DO CASE CASE ThisForm.CommandGroup1.value=1 SELECT student.学号,姓名,成绩INTO TABLE resuit FROM student,score,course WHERE student.学号=scorc.学号AND scote.课程编号=course.课程编号AND课程名称="VFP入门"ORDER BY成绩 CASE ThisForm.CommandGroup1.value=2 SELECT student.学号,姓名,成绩INTO TABLE result FROM student,score,course WHERE student.学号=score.学号AND scorc.课程编号=course.课程编号AND课程名称="VFP入门" ORDER BY成绩DESC ENDCASE ThisForm.Grid1.RecordSourceType=0 ThisForm.Grid1.RecordSource="result" ThisForm.Grid1.Refresh ⑤选择【表单】→【执行表单】命令,系统首先要求保存该表单文件,在弹出的“另存为”对话框中输入表单文件名“bd1”,保存在考生文件夹下,然后运行表单。 ⑥执行“成绩查询”菜单命令后,系统自动将查询结果保存在所建立的新数据表文件“result.dbf”中。

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

最新回复(0)