内容发布更新时间 : 2024/6/25 14:18:40星期一 下面是文章的全部内容请认真阅读。

附录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