四、综合应用题(共18分)
43对考生文件夹中的"student"表、"course"表和"score"表新建一个表单"bd2"。
在表单上有一页框,页框内有3个选项卡,标题分别为"学生"、"课程"和"成绩"。表单运行时对应的3个页面上分别显示"Student"表、"course"表和"score"表。表单上还有一个选项按钮组,共有3个单选项,标题分别为"学生"、"课程"、"成绩"。当单击该选项按钮组选择某一选项时,页框将在对应页面上显示对应表,如单击"课程"选项时,页框将在课程页面上显示课程信息。表单上有一个命令按钮,标题为"关闭",单击此按钮,表单将退出。 填写我的答案插入图片 本题共18分,参考答案: 请参考解析 系统解析:
【考点指引】本大题主要考查表单的设计及页框、按钮组、表格和命令按钮等控件的使用,重点是表格的数据源设置。
【操作步骤】
①选择【文件】→【新建】命令,选择"表单",单击"新建文件"按钮打开表单设计器,单击表单控件工具栏上的"页框"控件图标,为表单添加一个页框PageFrame1,单击表单
控件工具栏上的"命令按钮组"控件图标,为表单添加一个命令按钮组CommandGroupl,单击表单控件工具栏上的"命令按钮"控件图标,为表单添加一个命令按钮Commandl。单击表单控件工具栏上的"表格"控件图标,再添加一个表格控件Gridl。
②选择页框PageFrame1,在页框属性窗口中修改"PageCount"属性值为"3",选择页框PageFrame1,单击右键,在弹出的快捷菜单中选择"编辑",单击"Page1",在页框属性窗口中修改"Caption"属性值为"学生";单击"Page2",在页框属性窗口中修改"Caption"属性值为"课程";单击"Page3",在页框属性窗Vl中修改"Caption"属性值为"成绩"。
③选择命令按钮组CommandGroupl,单击右键,在弹出的快捷菜单中选择"生成器"打开命令组生成器对话框,单击"按钮"选项卡,设置按钮的数目为3,在"标题"列下修改3
个按钮的标题分别为"学生"、"课程"和"成绩",单击"确定"按钮关闭命令组生成器对话框。
④选择命令按钮,在按钮属性窗口中将命令按钮Commandl的Caption属性值修改为"关闭",如图2-1所示。双击"关闭"命令按钮,在Click事件中输入代码:ThisForm.Release,用来关闭表单。
⑤选择表格Gridl,在表格属性窗口中修改"Record-SourceType"属性值为"4"。
⑥选择命令按钮组CommandGroup1,在命令按钮组属性窗口中双击"Click Event",打开Click事件过程代码编辑窗口.输入以下代码:
ThisForm.Grid1.Co[umnCount=1
ThisForm.Grid1.RecordSourceType=0
D()(:ASE
CASE ThisForm.CommandGroup1.value=1
ThisForm.Grid1.RecordSource="student"
ThisForm.PageFrame1.Activepage=1
CASE ThisForm.CommandGroup1.value=2
ThisForm.Grid1.RecordSource="course"
ThisForm.PageFrame1.Activepage=2
CASE ThisForm.CommandGroup1.value=3
ThisForm.Grid1.RecordSource="score"
ThisForm.PageFrame1.Activepage=3
ENDCASE
ThisForm.Grid1.Refresh
⑦选择【表单】→【执行表单】命令,系统首先要求保存该表单文件,在弹出的"另存为"对话框中输入表单文件名"bd2",保存在考生文件夹下,然后运行表单。
相关推荐:
北京 | 天津 | 上海 | 江苏 | 山东 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
广东 | 河北 | 湖南 | 广西 | 河南 |
海南 | 湖北 | 四川 | 重庆 | 云南 |
贵州 | 西藏 | 新疆 | 陕西 | 山西 |
宁夏 | 甘肃 | 青海 | 辽宁 | 吉林 |
黑龙江 | 内蒙古 |