access大作业李晓峰-094632243

《access大作业李晓峰-094632243》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、新疆农业大学计算机与信息工程学院班级名称：计科092班指导老师：张婧婧实验名称：ACCESS实验成绩：实验日期：12月9日—12月23日学号：094632243实验学时：8学时姓名：李晓峰一、实验目的：学习使用Access开发管理信息系统的一般方法及步骤，对该课程所学习的知识实现综合性应用。二、准备内容：根据学习情况从备选题目中选择承担力所能及的开发设计任务，从而熟悉管理信息系统开发的过程，包括系统功能分析、系统功能模块设计、数据库需求分析与设计、各功能模块编码实现、系统的发布等过程。通过系统的开发综合应用该课程中如下重要技术：1、创建数据库、表以及建立表间关系的方法。2、设

2、计各种窗体的方法。3、设计各种查询的方法。4、简单的VBA编程方法。5、设计报表的方法。6、使用切换面板管理器的方法三、实验要求及评分标准：本实验体现了学生课程的综合设计能力及对ACCESS的掌握程度，以下是对本实验设计的要求和评价指标。1.实验的不同或同类数据库如有高度雷同的现象，相关设计者和抄袭者均对此行为负责，考核成绩为0分。2.设计中应包括基本的数据表、查询、窗体、报表、宏等基本单元，若缺少相关内容会酌情扣分。3.设计作品需要满足可能的系统用户的使用需要，功能过于简单者会酌情扣分。4.设计能够独立完成，系统设计过程思路清晰，功能相对合理的作品以80分为参考点，增加运用

3、算法（如统计、求和）或增加VBA代码的书写、及添加模块功能将会得到加分。7新疆农业大学计算机与信息工程学院班级名称：计科092指导老师：张婧婧实验名称：ACCESS实验成绩：实验日期：12月9日—12月23日学号：094632243实验学时：8学时姓名：李晓峰企业人力资源管理系统系统需求功能要求系统主要要求能完成以下几个功能：1．企业部门基本信息查询与修改；2．职工基本信息查询、更新和删除；3.员工的绩效考核以及考勤信息的管理3．员工工资的发放查询与信息更新；4．部门的报表查看，职工标签报表，工资发放报表查看，图表报表查看员工年龄。（实现了在报表中简单的统计）；系统功能模块图

4、：人力资源管理系统企业部门基本信息管理企业职工基本信息管理职工考勤信息管理职工绩效考核信息管理职工历史工资发放查询有关企业报表的查看安全性和完整性要求1.系统的安全性：本系统仅有管理员操作和管理，对公司的人力资源进行简单的管理。2.数据的完整性：根据各表之间的关系，首先要进行员工信息的录入，只在当对员工信息考核完毕后，才可以进行考勤，工资发放等管理，从而保证整个系统数据的完整性。7新疆农业大学计算机与信息工程学院系统数据表关系各表之间的关系如上图所示，以职工信息表为中心，其余各表产生一对多，一对一等关系，从而完成数据的关联以及数据完成性。并可以进行级联更新。系统功能窗体展示：

5、7新疆农业大学计算机与信息工程学院功能简介：子窗体：单击中间子窗体的记录，对应的下面的各项文本框显示单击的记录的信息。新建：新建单击后，文本框记录组中的各信息置空，同时为控件解锁，此时可以进行记录的录入。修改：单击修改后，文本框记录组中的各控件解锁（未单击之前是锁定状态不可进行更改），修改完毕后，单击保存即可保存修改后的记录。保存：单击保存后，文本框记录组中的记录会添加到对应的表中，并且需要进行对数据的检查（数据库记录集是否为空，根据记录是否存在提示是否覆盖）。删除：单击删除后，文本框记录组中与数据表记录是对应的，则删除对应的记录。搜索：根据选定的条件进行搜索相应的信息，此功

6、能是根据查询功能实现，查询功能中，采用了多条件可重复并联的限制来实现根据条件进行查询，使得查询更加人性化。关闭：退出当前菜单，返回上一菜单。部分代码展示：窗体载入：PrivateSubForm_Load()OnErrorGoToErr_Form_Load'锁定窗体上的控件Me![部门编号].Locked=TrueMe![备注].Locked=TrueMe![部门名称].Locked=True'使窗体上的控件的值为空Me![部门编号].Value=NullMe![备注].Value=NullMe![部门名称].Value=NullMe![Text6].Value=NullMe!

7、[Text8].Value=NullExit_Form_Load:ExitSubErr_Form_Load:MsgBoxErr.DescriptionResumeExit_Form_LoadEndSub删除功能：PrivateSubCmdClassMsgMngDelete_Click()OnErrorGoToErr_CmdClassMsgMngDelete_Click'打开“部门”表Setrs=NewADODB.RecordsetStrTemp="Select*From部门表"rs.OpenStrTem