access作业

作业3
数据访问页
一、完成下列数据访问页的制作。

1、以表“A班学生信息”为数据源，使用自动创建数据访问页方式创建“A班学生数据页”。

2、以表“教师信息表”为数据源，使用向导创建数据访问页方式创建按职称分组的“教师
信息数据页“。

二、创建“A班学生综合信息页”。

在上面已创建的“A班学生数据页”的基础是哪个进行如下操作，所创建的数据访问页如图一所示。

1、在“A班学生数据页”中添加两个按钮，其功能分别是：“添加记录”和“保存记录”。

2、添加一个滚动文字标题“欢迎光临A班！”，滚动方式设置为：alternate。

3、添加“常青树”主题作为数据访问页的背景。

4、插入三个超链接：
●以热点图形的方式链接到政法大学主页。

●链接到“A班学生成绩页”（提示：先以“A班成绩表为数据源创建“A班学生成绩页”）。

●给我写信（链接到自己的电子邮箱）。

宏
一、使用宏制作控制面板
首先制作用户登录窗体，要求：打开数据库后该窗体自动弹出。

该窗体用户名是你的姓名，密码是你的学号。

用户名及密码正确时，点击“确定”按钮，可以打开主控面板（见图1），用户名及密码不正确时，弹出消息框显示“用户名及密码不正确，请重新输入”。

登录窗体
使用多级控制面板控制流程如下：
1、制作一个“主控面板”窗体，见样式图一。

图一
2、制作一个二级控制面板“报表打印”，如图二所示。

设计要求：
⑴“返回”按钮（关闭“报表打印”窗体，返回“主控面板”窗体）可用“向导”实现。

⑵前面三个按钮使用“记事本”图标（红色）或“飞机”图标。

⑶去掉导航按钮、记录选择器、滚动条和分割线等。

⑷插入任选图片（在左侧）装饰面板。

图二
3、制作一个二级控制面板“数据浏览”，如图三所示。

设计要求：
⑴使用一个“选项组”实现功能选择。

⑵插入一幅图片作为装饰（图片自定）。

⑶去掉导航按钮、记录选择器、滚动条和分隔线。

图三
4、设计一个二级控制面板“信息查询”，见图四。

设计要求：
⑴去掉导航按钮、记录选择器、滚动条和分隔线。

⑵插入一幅图片作为背景。

⑶有返回主控面板的按钮。

⑷前面三个按钮使用“地球”图片。

图四
5、建立五个宏组“查询”、“浏览”、“打印”、“退出系统”和“主控面板”。

宏组的设计要求：
⑴宏组名“查询”，包括三个宏名。

学号：打开查询“按学号查”。

姓名：打开查询“按姓名查”。

性别：打开查询“按性别查”。

挂接到二级控制面板“信息查询”相应按钮上。

⑵宏组名“浏览”，包括三个宏名。

学生：以“只读”的数据模式打开窗体“A班学生信息”。

选课：以“只读”的数据模式打开窗体“学生选课情况”。

教师：以“只读”的数据模式打开窗体“教师信息表”。

挂接到二级控制面板“数据浏览”相应按钮上。

⑶宏组名“打印”，包括三个宏名。

成绩：“以打印预览”视图打开报表“学生个人成绩表（含子报表）”。

汇总：“以打印预览”视图打开报表“A班成绩统计表”。

工资：“以打印预览”视图打开报表“工资统计表”。

挂接到二级控制面板“报表打印”相应按钮上。

⑷宏组名“退出系统”，包括一个宏名。

退出系统：保存并关闭数据库后退出Accsee应用程序。

⑸宏组名“主控面板”，包括三个宏名。

浏览：打开二级控制面板窗体“数据浏览”
查询：打开二级控制面板窗体“信息查询”
打印：打开二级控制面板窗体“报表打印”
挂接到一级控制面板“主控面板”相应按钮上。

二、使用宏制作自定义菜单
1、制作如表一所示的自定义菜单体系。

表一自定义菜单体系
图五
模块与VBA
一、创建一个名为“封面”的窗体
具体要求如下：
1、该窗体只包含一张背景图片和一个命令按钮，并且去掉该窗体导航按钮、滚动条、
分隔线和记录选定器等，见图一。

图一
2、对该窗体中的命令按钮“请输入你的年龄：”添加事件过程，当用户单击该命令按
钮时，弹出一个“年龄”信息框，如图二所示，系统能根据用户输入的不同的年龄段显示不同的信息框。

在年龄信息框中，如果用户输入的年龄小于25岁，打开信
息框显示“刻苦学习！”，如图三所示；如果用户输入的年龄在25～65岁之间，打
开信息框显示“努力工作！”；如果用户输入的年龄大于65岁，则打开信息框显示
“安享晚年！”（提示：主体语句如图四所示）。

图二
图三
图四
Private Sub Command1_Click()
Dim age As Integer
age = InputBox("请输入您的年龄：", "年龄", 20)
If age > 65 Then
MsgBox ("安享晚年！")
ElseIf age < 25 Then
MsgBox ("刻苦学习！")
Else
MsgBox ("努力工作！")
End If
End Sub
Private Sub Command1_Click()
If [text0]="张三" And [text2]="123" Then
Docmd.openform “主控”
Else
MsgBox ("输入有误，请重新输入！")
End If
End Sub
二、编程
1、 使用VBA 的模块，编制一个计算圆面积的程序。

2、 将上述圆面积的程序编制为一个函数过程，通过人机对话实现计算。

3、 编程：打开“A 班学生信息”窗体。

4、 编程：打开“工资表”报表。

5、 使用VBA 的模块，编制一个验证个人密码的程序。

各控件属性设置如下表所示。

6． 编程：输入某门课程的百分制成绩mark ，要求显示对应的等级评定，评定的条件如下：（试用多种方法）
等级=
7．根据年龄使用多分支语句选择看什么电影。

设年龄大于等于18岁的可以看所有的电影；
年龄在12至17岁之间的，可以看限制级电影；年龄小于12岁的只能看普通级电影。

8．分别用多种方法编写循环打印从1—20的整数的程序。

9．用循环结构打印九九乘法表。

优 mark ≥90 良 80≤mark<90 中 70≤mark<80 及格 60≤mark<70 不及格 mark<60。