VBA实验报告 信息管理系统.docx
《VBA实验报告 信息管理系统.docx》由会员分享，可在线阅读，更多相关《VBA实验报告 信息管理系统.docx（13页珍藏版）》请在冰豆网上搜索。
VBA实验报告信息管理系统
实验一：
Access综合练习
1、实验背景
练习access
【实验步骤】
Step1：
创建数据库
先建立数据库“本人姓名．MDB”，如：
赵卿.MDB
Step2：
建立如下三个表的表结构
人事表
工资表
部门表
字段名称
数据类型
字段大小
字段名称
数据类型
字段大小
小数位数
字段名称
数据类型
字段大小
部门号
文本
2
部门号
文本
2
部门号
文本
2
职工编号
文本
4
职工编号
文本
4
部门
文本
20
姓名
文本
8
基本工资
数字
单精度
2
性别
文本
2
奖金
数字
单精度
2
注意：
人事表中的职务、职称等字段均定义成组合框，并添加相应的值。
民族
文本
10
书报费
数字
单精度
2
出生日期
日期时间
中日期
洗理费
数字
单精度
2
学历
文本
6
房补
数字
单精度
2
职务
文本
8
会费
数字
单精度
2
职称
文本
8
住房基金
数字
单精度
2
备注
备注
照片
OLE对象
1.人事表
2.工资表
3.部门表
Step3：
分别为三个表添加如下记录
Step4：
将“人事表”和“工资表”的职工编号字段设置为主键。
Step5：
通过“部门号”、“职工编号”字段，建立三个表之间的关系。
打开表格工具下的“表”，点击“关系”，在“显示表”中朱哥添加三个表，将部门表的“部门号”拖到工资表的“部门号”，在弹出的小窗口中选择“参照完整性”，同样，将工资表的“职工编号”与人事表的“职工编号”相连，点击“参照完整性”，结果如下图所示。
Step6：
查询少数民族的职工的姓名、性别、学历和职称。
点击“创建”下的“查询设计”，在弹出的窗口中点击“人事表”，在下方列表分别输入姓名，性别，学历，职称，民族，在民族的条件下输入“not”汉族””，如下图所示。
最终结果如下图
Step7：
查询男职工的姓名、学历和职务。
打开查询向导，点击“人事表”，分别输入姓名，学历，职务，性别，性别的条件输为“”男””，如下图所示
最终结果如下图所示
Step8：
在“人事表”中插入一条记录（01,0009，王五，女，瑶族，1979-01-01，博士，教师，副教授）
在“工资表”中添加相关记录，再在“人事表”中添加相关记录，最终结果如下图所示
Step9：
统计女职工人数。
点击“查询向导”，“人事表”，字段中选择“性别”，点击左右键选择“汇总”，条件中输入“”女””，在第二个字段中输入“人数:
Count（“女”）”，总计行选择“Expression”，如下图所示
最终结果如下图
Step10：
将“工资表”中“洗理费”修改为“卫生费”。
修改字段名为“卫生费”
Step11：
查询女职工的姓名、基本工资和奖金。
创建查询，添加“人事表”和“工资表”，字段行分别输入“性别”，“姓名”，“基本工资”，“奖金”，在“性别”的条件中输入“”女””，如下图所示
最终结果如下图所示
Step12：
查询奖金超过300的职工的姓名以及所在部门。
建立查询，添加三个表，在下方字段中输入“奖金”，“姓名”，“部门”，“奖金”的条件下输入“>300”，如下图所示
最终结果如下图
Step13：
通过sql语句为“工资表”建立一个“实发工资”字段。
（实发工资＝基本工资＋奖金＋洗理费＋书报费＋房补－住房基金－会费）
创建查询，打开SQL视图，输入如下
新建立一个查询，定义实发工资，如下图所示
运行更新数据后，打开“工资表”，结果如下图所示
【实验心得】
通过本次实验，我们再一次复习了access，并掌握了如何建立查询，如何用SQL语言更新数据，这次实验使我们更加熟练运用access。
升级会员 