对考生目录下的数据库“school”建立文件名为“bd2”的表单。表单含有一个表格控件,用于显示用户查询的信息;表单上有一个按钮选项组,含有“课程信息”、“学生信息”和“成绩信息”3个选项按钮;表单上有两个命令按钮,标题为“浏览”和“关闭”。
选择“课程信息”选项按钮并单击“浏览”按钮时,在表格中显示“course”表的“课程编号”、“课程名称”字段;
选择“学生信息”选项按钮并单击“浏览”按钮时,表格中显示“student”表的“学号”、“姓名”、“性别”和“出生日期”字段;
选择“成绩信息”选项按钮并单击“浏览”按钮时,表格中显示“姓名”、“课程名称”及该生该门课的“成绩”。
单击“关闭”按钮退出表单。
【操作步骤】
①选择【文件】→【新建】命令,选择“表单”,单击“新建文件”按钮打开表单设计器;单击表单控件工具栏上的“选项按钮组”控件图标,为表单添加一个选项按钮组0ption–Group1;单击表单控件工具栏上的“命令按钮”控件图标,为表单添加两个命令按钮Command1和Command2;单击表单控件工具栏上的“表格”控件图标,再添加一个表格控件Grid1。
②选择选项按钮组0ptionGroup1,单击右键,在弹出的快捷菜单中选择“生成器”打开选项按钮组生成器对话框,单击“按钮”选项卡,设置按钮的数目为3个,在“标题”列下修改3个按钮的标题分别为“课程信息”、“学生信息”和“成绩信息”,单击“确定”按钮关闭命令组生成器对话框。
③分别选择两个命令按钮,在按钮属性窗口中将命令按钮Command1的Caption属性值修改为“浏览”、Command2的Caption属性值修改为“关闭”,如图33-1所示。双击“关闭”命令按钮,在Click事件中输入代码:ThisForm.Release,用来关闭表单。
④选择表格控件“Grid1”,在表格控件属性窗口中将“RecordSource”属性值修改为“〝″”,将“RecordSourceType”属性值修改为“1”。
⑤双击“浏览”命令按钮,在Click事件中输入代码:
DO CASE
CASE ThisForm.OptionGroup1.value=1
SELECT课程编号,课程名称INTO CURSOR tmp FROM course
CASE ThisForm.OptionGroup1.value=2
SELECT学号,姓名,性别,出生日期INTO CURSOR trap FROM student
CASE ThisForm.OptionGroup1.value=3
SELECT姓名,课程名称,成绩INTO CURSOR tmp FROM student,score,course WHERE student.学号=score.学号AND course.课程编号=score.课程编号
ENDCASE
ThisForm:Grid1.RecordSourceType=1
ThisForm.Grid1.RecordSource=〝tmp″
ThisForm.Grid1.Refresh
⑥选择【表单】→【执行表单】命令,系统首先要求保存该表单文件,在弹出的“另存为”对话框中输入表单文件名“bd2”,保存在考生文件夹下,然后运行表单。