对考生文件夹中的“student”表、“course”表和“score”表新建一个表单“bd2”。在表单上有一页框,页框内有3个选项卡,标题分别为“学生”“课程”和“成绩”。表单运行时对应的3个页面上分别显示“student”表、“course”表和“score”表。
表单上还有一个选项按钮组,共有3个单选项,标题分别为“学生”“课程”“成绩”。当单击该选项按钮组选择某一选项时,页框将在对应页面上显示对应表,如单击“课程”选项时,页框将在课程页面上显示课程信息。表单上有一个命令按钮,标题为“关闭”,单击此按钮,表单将退出。
参考答案:
①选择【文件】→【新建】命令,选择“表单”,单击“新建文件”按钮打开表单设计器,单击表单控件工具栏上的“页框”控件图标,为表单添加一个页框PageFramel,单击表单控件工具栏上的“命令按钮组”控件图标,为表单添加一个命令按钮组CommandGroupl,单击表单控件工具栏上的“命令按钮”控件图标,为表单添加一个命令按钮Commandl,单击表单控件工具栏上的“表格”控件图标,再添加一个表格控件Gridl。 ②选择页框PageFramel,在页框属性窗口中修改“PageCount”属性值为“3”,选择页框PageFramel,单击右键·在弹出的快捷菜单中选择“编辑”,单击“Pagel”,在页框属性窗口中修改“Caption”属性值为“学生”;单击“Page2”,在页框属性窗口中修改“Caption”属性值为“课程”;单击“Page3”,在页框属性窗口中修改“Caption”属性值为“成绩”。 ③选择命令按钮组CommandGroupl,单击右键,在弹出的快捷菜单中选择“生成器”打开命令组生成器对话框,单击“按钮”选项卡,设置按钮的数目为3,在“标题”列下修改3个按钮的标题分别为“学生”“课程”和“成绩”,单击“确定”按钮关闭命令组生成器对话框。 ④选择命令按钮,在按钮属性窗口中将命令按钮Commandl的Caption属性值修改为“关闭”,如图2-1所示。双击“关闭”命令按钮,在Click事件中输入.代码:ThisForm.Release,用来关闭表单。 ⑤选择表格Gridl,在表格属性窗口中修改“RecordSourceType”属性值为“4”。 ⑥选择命令按钮组CommandGroupl,在命令按钮组属性窗口中双击“Click Event”,打开Click事件过程代码编辑窗口,输入以下代码: ThisForm.Gridl.ColumnCount=-1 ThisForm.Gridl.RecordSourceType=0 DO CASE CASE ThisForm.CommandGroupl.value=I ThisForm.Gridl.RecordSource="student" ThisForm.PageFramel.Activepage=1 CASE ThisForm.CommandGroupl.value=2 ThisForm.Grid1.RecOrdS01arce="course"
ThisForm.PageFramel.Activepage=2 CASE ThisForm.CommandGroupl.value=3 ThisForm.Gridl.RecordSource="score" ThisForm.PageF ⑦选择【表单】→【执行表单】命令,系统首先要。求ramel.Activepage=3 ENDCASE ThisForm.Gridl.Refresh 保存该表单文件,在弹出的“另存为”对话框中输入表单文件名“bd2”,保存在考生文件夹下,然后运行表单。