班级名称： 计科092班指导老师： 张婧婧。
实验名称： access实验成绩。
实验日期： 12月9日—12月23日学号： 094632243
实验学时： 8学时姓名： 李晓峰。
一、实验目的：
学习使用access开发管理信息系统的一般方法及步骤，对该课程所学习的知识实现综合性应用。
二、准备内容：
根据学习情况从备选题目中选择承担力所能及的开发设计任务，从而熟悉管理信息系统开发的过程，包括系统功能分析、系统功能模块设计、数据库需求分析与设计、各功能模块编码实现、系统的发布等过程。通过系统的开发综合应用该课程中如下重要技术：
1、创建数据库、表以及建立表间关系的方法。
2、设计各种窗体的方法。
3、设计各种查询的方法。
4、简单的vba编程方法。
5、设计报表的方法。
6、使用切换面板管理器的方法。
三、实验要求及评分标准：
本实验体现了学生课程的综合设计能力及对access的掌握程度，以下是对本实验设计的要求和评价指标。
1.实验的不同或同类数据库如有高度雷同的现象，相关设计者和抄袭者均对此行为负责，考核成绩为0分。
2.设计中应包括基本的数据表、查询、窗体、报表、宏等基本单元，若缺少相关内容会酌情扣分。
3.设计作品需要满足可能的系统用户的使用需要，功能过于简单者会酌情扣分。
4.设计能够独立完成，系统设计过程思路清晰，功能相对合理的作品以80分为参考点，增加运用算法（如统计、求和）或增加 vba**的书写、及添加模块功能将会得到加分。
班级名称： 计科092指导老师： 张婧婧。
实验名称： access实验成绩。
实验日期： 12月9日—12月23日学号： 094632243
实验学时： 8学时姓名： 李晓峰。
企业人力资源管理系统。
系统主要要求能完成以下几个功能：
1．企业部门基本信息查询与修改；
2．职工基本信息查询、更新和删除；
3. 员工的绩效考核以及考勤信息的管理。
3．员工工资的发放查询与信息更新；
4．部门的报表查看，职工标签报表，工资发放报表查看，图表报表查看员工年龄。（实现了在报表中简单的统计）；
系统功能模块图：
1.系统的安全性：本系统仅有管理员操作和管理，对公司的人力资源进行简单的管理。
2.数据的完整性：根据各表之间的关系，首先要进行员工信息的录入，只在当对员工信息考核完毕后，才可以进行考勤，工资发放等管理，从而保证整个系统数据的完整性。
各表之间的关系如上图所示，以职工信息表为中心，其余各表产生一对多，一对一等关系，从而完成数据的关联以及数据完成性。并可以进行级联更新。
功能简介：子窗体：单击中间子窗体的记录，对应的下面的各项文本框显示单击的记录的信息。
新建：新建单击后，文本框记录组中的各信息置空，同时为控件解锁，此时可以进行记录的录入。
修改：单击修改后，文本框记录组中的各控件解锁（未单击之前是锁定状态不可进行更改），修改完毕后，单击保存即可保存修改后的记录。
保存：单击保存后，文本框记录组中的记录会添加到对应的表中，并且需要进行对数据的检查（数据库记录集是否为空，根据记录是否存在提示是否覆盖）。
删除：单击删除后，文本框记录组中与数据表记录是对应的，则删除对应的记录。
搜索：根据选定的条件进行搜索相应的信息，此功能是根据查询功能实现，查询功能中，采用了多条件可重复并联的限制来实现根据条件进行查询，使得查询更加人性化。
关闭：退出当前菜单，返回上一菜单。
窗体载入：private sub form_load()
on error goto err_form_load
'锁定窗体上的控件。
me![部门编号].locked = true
me![备注].locked = true
me![部门名称].locked = true
'使窗体上的控件的值为空。
me![部门编号].value = null
me![备注].value = null
me![部门名称].value = null
me![text6].value = null
me![text8].value = null
exit_form_load:
exit sub
err_form_load:
msgbox
resume exit_form_load
end sub
删除功能：private sub cmdclassmsgmngdelete_click()
on error goto err_cmdclassmsgmngdelete_click
'打开“部门”表。
set rs = new
strtemp = select * from 部门表"
strtemp, adopenkeyset, adlockoptimistic
'“部门”表中没有记录，则提示记录可删除。
if <=0 then
msgbox "部门表记录为空，无记录可删除！",vbokonly, "提示！"
else'在“部门”表中查找并删除当前记录。
do while not (
if (rs("部门编号") me![bumenweihu]![部门编号]) then
elseend if
loopend if
'释放记录集空间。
set rs = nothing
exit_cmdclassmsgmngdelete_click:
exit sub
err_cmdclassmsgmngdelete_click:
msgbox
resume exit_cmdclassmsgmngdelete_click
end sub
保存功能：private sub cmdclassmsgmngs**e_click()
on error goto err_cmdclassmsgmngs**e_click
xtong = false
'打开“部门”表。
set rs = new
strtemp = select * from 部门表"
strtemp, adopenkeyset, adlockoptimistic
'提示有些文本框必须填写内容，否则提示信息。
if isnull(me![部门编号]) then
msgbox "必填字段对应的文本框不能为空，请重新输入！",vbokonly, "系统警告"
msgbox "必填字段的文本框有：部门编号", vbokonly, "提示"
me![部门编号].setfocus
else'如果“部门”表为空，则xtong的值为false
if <=0 then
xtong = false
else'在“部门”表查找是否存在与待保存的记录相同。
for itemp = 0 to - 1
if (rs("部门编号") me![部门编号]) then
xtong = true
itemp = 1
elseend if
next itemp
end if
'在“部门”表中如果已经存在，则提示是否修改。
if xtong = true then
if msgbox("记录已存在，是否要进行修改", vbyesno, "确认！")vbyes then
rs("部门编号") me![部门编号]
rs("部门名称") me![部门名称]
rs("备注") me![备注]
access大作业
计算机应用基础ii access大作业。请将文件名改为 学号 姓名 上课时段 机号 一 表的操作 为不影响后面的题目，老师已经做好了，此题可不做 1 打开 产品 表，增加 终止供货 字段，是 否 型，默认值false。2 把 产品 表中 商 字段的数据类型改为 查阅向导 使该字段的值来自于 商 表中...
access大作业
冬季恋歌剧情介绍。1.初恋初恋，对每一个人来说都是非常难忘的。尽管每一个初恋都是那么纯洁 缠绵，可是随着时间的推移初恋的记忆还是会不断退色。可是如果平生第一次让你心颤的人，忽然离开这个世界，你会如何？而过了10年以后，在你即将要结婚的时候和他长得一模一样的人又忽然出现在你面前，你又会怎样？仅凭相同的...
access大作业
计算机应用基础ii access大作业。一 查询操作 创建并运行 1 建立名为 佳佳乐优惠供货订单 的选择查询，查找佳佳乐公司在第三季度交货的折扣大于零的订单，显示 订单号 产品名称 公司名称 交货月份 单价 数量 折扣，按产品名称升序排列。效果如下 2 建立名为 停止供货 的更新查询 对 产品 表...