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