内容发布更新时间 : 2024/12/22 3:00:41星期一 下面是文章的全部内容请认真阅读。
附录2 上机实验 中的“窗体”按钮,创建一个名为“学系—窗体”的窗体。该窗体的数据源就是“学系”表。
2.在“学生管理系统”数据库中,在“导航窗格”选定“专业”表后,使用“创建”选项卡上“窗体”组中的“其他窗体”按钮下拉菜单中的“数据表”命令,创建一个名为“专业—数据表窗体”的窗体。该窗体的数据源就是“专业”表。
3.在“学生管理系统”数据库中,在“导航窗格”选定“学生”表后,使用“创建”选项卡上“窗体”组中的“其他窗体”按钮下拉菜单中的“数据透视表”命令,创建一个名为“学生各班级男女人数—数据透视表”的数据透视表窗体,该数据透视表视图类似图5-18所示。该窗体的数据源就是“学生”表。
4.在“学生管理系统”数据库中,使用“创建”选项卡上“窗体”组中的“窗体设计”(即“设计视图”)创建一个名为“浏览学生基本情况—主/子窗体”的窗体,其窗体设计形如图5-43所示。要求创建一个主/子类型的窗体,主窗体的数据源是“学生”表,子窗体的数据来源是“修课成绩”表。当运行该窗体时,用户只能浏览查看信息,不允许对“学生”表和“修课成绩”表进行任何“修改”、“删除”和“添加”记录的操作。对主窗体不设置导航条,但要在窗体页脚节创建标题分别为“第一个记录”、“前一个记录”、“后一个记录”和“最后一个记录”的4个记录导航操作按钮,一个标题为“关闭窗体”的窗体操作按钮。在窗体页眉创建标题为“浏览学生基本信息”的标签,该标签的左边距属性值为3cm,上边距属性值为0.25cm。在窗体页眉创建显示当前日期的计算控件文本框,设置该文本框的左边距属性值为12cm,上边距属性值为0.6cm,设置该文本框的“格式”属性值为“长日期”。
可参考第5.3.1小节中的“例5-9”所介绍的方法。
305
Access数据库基础与应用教程 附录2.6 上机实验6
在“学生管理系统”数据库中,进行如下创建报表操作:
1.在“学生管理系统”数据库中,在“导航窗格”选定“学系”表后,使用“创建”选项卡上“报表”组中的“报表”按钮,创建一个名为“学系—报表”的报表。该报表的数据源就是“学系”表。
2.在“学生管理系统”数据库中,使用“创建”选项卡上“报表”组的“报表设计”按钮(即使用设计视图),以“学生”表为数据源,创建一个先按学号左边的前2个字符分组,再按性别分组统计各年级的男、女学生人数及其占该年级学生总人数的百分比的报表。报表名为“男女学生人数统计百分比报表”。该报表的结构形状类似图6-59所示。
如果在报表“设计视图”中,按“报表视图”按钮后,显出“试图执行…”对话框时,则打开该报表“设计视图”,在报表的“属性表”中,把“排序依据”右边框中的属性值删除掉,再 试试。
附录2.7 上机实验7
在“学生管理系统”数据库中,进行如下创建宏操作:
1.在“学生管理系统”数据库,创建一个操作序列独立宏,该宏包含3条操作命令,其中的第一条操作命令“OpenForm”是打开名为“学系—窗体”的窗体,第二条操作命令“Beep”是发出“嘟”声音,第三条操作命令“MessageBox”是显示含有“这是操作序列独立宏的例子”消息的消息框。该宏的名称是“操作序列独立宏”。
2.在“学生管理系统”数据库中,创建一个含有 If块的条件操作的独立宏,If块的条件表达式是“MsgBox(\是否要打开报表?\1)=1”,当该条件表达式的值为 True时,其对应的第一个操作是
306
附录2 上机实验 “OpenReport,”其操作参数设置:报表名称是“男女学生人数统计百分比报表”,视图是“打印预览”;其对应的第二个操作是“MessageBox”,其操作参数设置:消息是“已经打开了报表”。当该条件表达式的值为 False时,其对应的操作是“MessageBox”,其操作参数设置:消息是“没有打开报表”。该宏的名称是“含有 If块和Else块的条件操作的独立宏”。
3.在“学生管理系统”数据库,创建一个名为“含有子宏的独立宏”的宏,该宏包含2个子宏。第1个子宏名为“打开查询”,该子宏包括2个操作,其中第1个操作是以“数据表”视图打开名为“查询学系专业的班级情况”的查询,第2个操作是“Beep”。第2个子宏名为“打开窗体”,该宏包括3个操作,其中第1个操作是以“窗体”视图打开名为“浏览学生基本情况—主/子窗体”的窗体,第2个操作命令是“Beep”,第3个操作是“MessageBox”,用于显示含有“这是第二个子宏的例子”消息的消息框。
附录2.8 上机实验8
1.在“上机实验”文件夹中创建一个名为“VBA编程.accdb”的数据库。
2.在“VBA编程”数据库中,创建一个名为“显示或隐藏文本框”的窗体。在该窗体上创建一个文本框控件、3个命令按钮控件,命令按钮的标题分别设置为“显示”、“隐藏”和“关闭”,并为每个按钮分别编写单击事件过程的VBA程序代码。当运行该窗体时,单击“隐藏”按钮后文本框消失;单击“显示”按钮显示出文本框;单击“关闭”按钮关闭该窗体。
307
Access数据库基础与应用教程 3.在“VBA编程”数据库中,创建一个名为“算术运算”的窗体,如图附录2-5所示。在该窗体上创建3个文本框控件、2个标签控件、8个按钮控件。第1个标签
图附录2-5 “算术运算”窗体的设计视图
的标题为“+(注:”先定+,以后会随所选的
运算自动更改),第2个标签的标题为“=。”这8个命令按钮的标题分别设置为“+”、“?”、“*”、“/”、“\\”、“Mod、”“清除”和“关闭”(其中的“+”、“?”、“*”、“/”和“Mod”6个命令按钮是用于进行算术运算),并为每个按钮分别编写单击事件过程的VBA程序代码。当运行该窗体时,在第1个文本框和第2个文本框中分别输入数据后,如果单击“+”按钮,则将第1个标签的标题重新设置为“+”,在第3个文本框中显示两数之和;如果单击“*”按钮,则将第1个标签的标题重新设置为“*”,在第3个文本框中显示两数之积。单击“清除”按钮,清除3个文本框中的内容;单击“关闭”按钮关闭该窗体。
4.在“VBA编程”数据库中,创建一个名为“求1到n的所有偶数之和”的窗体。在该窗体上创建一个文本框控件、两个命令按钮控件,命令按钮的标题分别设置为“计算”和“关闭”,并为每个按钮分别编写单击事件过程的VBA程序代码。当运行该窗体时,单击“计算”按钮,显出一个含有“请输入一个大于1的正整数”信息的输入对话框,当用户在该输入对话框输入一个正整数并单击“确定”按钮后,在该窗体的文本框中显示指定范围内的所有偶数之和。单击“关闭”按钮关闭该窗体。
5.在“VBA编程”数据库中,创建一个名为“由大到小排序”的窗体。在该窗体上创建两个文本框控件、两个命令按钮控件,命令按钮的标题分别设置为“降序排序”和“关闭”,并为每个按钮分别编写单击事件过程的VBA程序代码。当运行该窗体时,单击“降序排序”按钮,连续10次显出一个含有“请输入一个数”提示信息的输入对话框,供用户分别输入10个数。然后在该窗体的第1个
308
附录2 上机实验 文本框中显示排序前的原数据序列的数(每两个数用空格分隔),按冒泡法排序并在该窗体的第2个文本框中显示排序后的数据序列的数(每两个数用空格分隔),。单击“关闭”按钮关闭该窗体。
可参考第8.5.7小节中的“例8-15所介绍的方法。
6.在“VBA编程”数据库中,创建一个名为“产生20个随机三位整数”的窗体。在该窗体上创建一个文本框控件、两个命令按钮控件,命令按钮的标题分别设置为“产生随机三位整数”和“关闭”,并为每个按钮分别编写单击事件过程的VBA程序代码。当运行该窗体时,单击“产生随机三位整数”按钮,在该窗体的文本框中显示20个随机三位整数,每两个随机三位整数之间要用“,”分隔开。单击“关闭”按钮关闭该窗体。请注意:三位整数的下限值是100,上限值是999。
要求:编写产生一个随机三位整数的Sub子过程,在标题为“产生随机三位整数”的按钮的单击事件过程的VBA程序代码中,通过循环语句进行20次的Sub子过程调用。子过程名由用户自定。
可参考“表8-16”下边的说明和第8.5.9小节中的“例8-22”所介绍的方法。
7.在“VBA 编程”数据库中,创建一个名为“求圆的周长函数”窗体。在该窗体上创建一个文本框控件、两个命令按钮控件,命令按钮的标题分别设置为“求圆周长”和“关闭”,并为每个按钮分别编写单击事件过程的VBA程序代码。当运行该窗体时,单击“求圆周长”按钮,显示InputBox输入对话框供用户输入一个圆半径的数值,单击该对话框中的“确定”按钮,在该窗体的文本框中显示对该圆半径所求出的圆周长值。(注:圆周率π=3.14159。)
要求:编写一个求圆周长的标准函数过程,该函数过程包含一个圆半径的参数,单精度型。
309