实验五 ACCESS应用 实验要求： 1．创建一个名为“学生管理”的数据库。 2．创建一个“学生档案”数据表

在access里面用罗斯文数据库实例建立个或自己建一个：

1、启动ACCESS建空数据库，取名“学生管理”。

2、建一个表，如果有excel数据可直接导入或在设计视图里面建表，字段名：学号、姓名、性别、出生日期(在里面限定》1988-1-1')、家庭住址。取名“学生档案”至于记录，自己输入几个人的情况。

3、建一个表取名“学生成绩”，字段名：学号、课程A、课程B、课程C、课程D、课程E。至于记录，自己输入几个人的情况。

4、,5、建关联的查询。在查询设计视图中将“学生档案”的学号拖到“学生成绩”的学号字段上。sql语句为：SELECT 学生档案.学号, 学生档案.姓名, [学生成绩]![课程A]+[学生成绩]![课程B] AS 总成绩 FROM 学生档案 INNER JOIN 学号 ON 学生档案.学号 = 学生成绩.学号，可以查询学生成绩。

6、sql语句为：SELECT 学生档案.学号, 学生档案.姓名, [学生成绩]![课程A],[学生成绩]![课程B] FROM 学生档案 where ((year(now)-year(出生日期)>20 INNER JOIN 学号 ON 学生档案.学号 = 学生成绩.学号

7、用以更新查询即可。

8、建一窗体（设计视图）里面建一些说明标签，一些功能按钮：按钮的单击事件调用相应的宏事件（或用VBA代码）调用需要的查询，取名“主窗体”。

一个简单的数据库就建好了。access功能很多，一句两句说不清楚，找本教材看看。

假设命令按钮名为”Command1“,文本框图书编号的控件名是”图书编号“，子窗体名为”子窗体1“。实现代码如下：

Private Sub Command1_Click()

Dim strSql As String

strSql="select * from [1-2图书表] where 图书编号='" & Me.图书编号 & "'"

Forms!借书!子窗体1.Form.Recordsource=strSql

End Sub

请根据实际情况调整代码中的窗体名、控件名、表名和字段名。有疑问可以法追问。

请参考下列步骤：

安装MS OFFICE ACCESS程序；

创建新空白数据库（也可利用内置数据库模板快速创建含可用数据库对象的数据库）；

根据业务需要创建数据表并建立表间关系；

输入、导入数据；

利用数据库各种对象如表、查询、窗体、报表、宏、模块、页等维护、处理、加工和使用数据。

ACCESS既可以作为数据库应用程序后台使用，也可以作为前台使用，另外ACCESS除了是数据库管理系统外还是数据库应用程序开发平台，利用其自带开发工具VBA（VB的宏语言版本）非专业人员也能开发出性能优越的数据库应用程序。

---