access职工考勤管理系统实验报告.doc

access职工考勤管理系统实验报告.doc

《access职工考勤管理系统实验报告.doc》由会员分享，可在线阅读，更多相关《access职工考勤管理系统实验报告.doc（11页珍藏版）》请在冰点文库上搜索。

Access实现职工考勤管理系统

一、系统介绍

管理员可通过登录名与密码进入考勤系统，通过输入职工编号及日期时间来记录员工的考勤情况，也可以对员工的职员信息，考勤统计信息,管理员信息，进行查询，增添，删改，报表预览等操作。

11

二、设计分析

1）需求总结，设计系统功能，画出如下功能模块结构图

登陆

考勤管理

职员管理

职员信息

管理员管理

考勤录入

考勤统计

针对职工管理系统的功能图，现具体描述其功能：

1、管理员登陆：

系统对其合法性进行检查

2、考勤录入：

管理员通过录入职工编号及时间记录考勤信息

3、考勤统计：

通过一些条件查询职工考勤记录并预览报表

4、职员信息：

可以查询修改所有职员的信息

5、管理员管理：

可以修改管理员密码或增加管理员

2）全部表信息：

职员信息（职员编号，姓名，部门编号，职位，性别，民族，教育程度，联系电话）

考勤记录（职员编号，出勤日期，出勤时间）

公司部门（部门编号，部门名称）

管理员信息（管理员编号，管理员姓名，管理员密码）

3）实体E-R图

本系统根据上面的设计规划出的实体有：

职员信息实体，考勤信息实体，管理员信息实体。

职工考勤实体E-R图

考勤记录

职工编号

出勤时间

出勤日期

职员信息实体E-R图

职工编号

姓名

部门编号

职位

性别

民族

教育程度

联系电话

职员信息

管理员信息实体E-R图：

管理员

管理员编号

管理员姓名

管理员密码

学生选课系统主要是为学生选课的管理提供全面、准确、科学的管理方法，方便快捷地处理选课的管理信息；避免了信息处理错误，提高了信息管理的工作效率，大大地节省人力和物力的开支。

本章主要阐述了系统的业务流程，根据业务流程画出绘制出了E-R图。

三、模块代码及界面设计

通过管理系统总界面可以进入考勤录入，考勤统计，职工信息，管理员设置等功能。

其主要实现窗口如下图

主界面

创建主界面主要是方便各种功能的选择,而后创建分界面来实现具体的系统功能。

如下图：

考勤录入界面，录入按钮的事件代码：

PrivateSubCommand8_Click（）

IfText0=""OrText4=""OrText10=""Then

MsgBox"记录数据不能为空！

"

Else

CurrentDb.Execute"INSERTINTO考勤记录VALUES（'"&Text0&"','"&Text4&"','"&Text10&"'）"

Text0=""

Text4=""

Text10=""

Text0.SetFocus

MsgBox"考勤录入成功！

"

EndIf

EndSub

考勤统计界面，该界面包括考勤统计，考勤统计查询子窗体，其中查询按钮的事件代码为：

PrivateSubCommand15_Click（）

Me.考勤统计查询子窗体.Requery'这句是关键

EndSub

职工信息界面，类似考勤统计界面，包含一个窗体及一个子窗体，主要事件代码为：

PrivateSubCommand17_Click（）

Me.职工信息查询子窗体.Requery

EndSub

系统管理员设置界面，其中修改按钮的事件代码为：

PrivateSubCommand13_Click（）

IfIsNull（Trim（Me.Text7））Then

DoCmd.Beep

MsgBox（"请输入用户名称！

"）

Else

IfIsNull（Trim（Me.Text9））Then

DoCmd.Beep

MsgBox（"请输入原密码！

"）

Else

IfIsNull（Trim（Me.Text11））Then

DoCmd.Beep

MsgBox（"请输入新密码！

"）

Else

'以下是用来与［登陆表］做对比的

Me.RecordSource="select*from管理员信息where管理员姓名='"&Me.Text7&"'and管理员密码='"&Me.Text9&"'"

'Setrs=GetRS（str）

IfMe.Recordset.EOFThen

DoCmd.Beep

MsgBox（"用户名或密码有误,请重新输入！

"）

Me.Text7=""

Me.Text9=""

Me.Text7.SetFocus

ExitSub

Else

CurrentDb.Execute"update管理员信息set管理员密码='"&Text11&"'where管理员姓名='"&Me.Text7&"'"

MsgBox"密码修改成功"

Me.Text7=""

Me.Text9=""

Me.Text11=""

EndIf

EndIf

EndIf

EndIf

EndSub

登录窗口主要是用来登录主界面的一个关卡，其中登陆按钮引发的事件代码是：

PrivateSubCommand1_Click（）

IfIsNull（Trim（Me.Text3））Then

DoCmd.Beep

MsgBox（"请输入用户名称！

"）

Else

IfIsNull（Trim（Me.Text5））Then

DoCmd.Beep

MsgBox（"请输入密码！

"）

Else

'以下是用来与［登陆表］做对比的

Me.RecordSource="select*from管理员信息where管理员姓名='"&Me.Text3&"'and管理员密码='"&Me.Text5&"'"

'Setrs=GetRS（str）

IfMe.Recordset.EOFThen

DoCmd.Beep

MsgBox（"没有这个用户或密码有误,请重新输入！

"）

Me.Text3=""

Me.Text5=""

Me.Text3.SetFocus

ExitSub

Else

DoCmd.Close

check=True'设置登陆标志

DoCmd.OpenForm（"管理系统总界面"）

EndIf

EndIf

EndIf

EndSub

其主界面如图4-8所示。

图4-14登录窗口界面

四、总结：

这个系统是职工考勤管理系统，要求对职工进行出勤时间日期的记录，另外还带有职员，管理员信息的添加，删除等操作。

刚开始设计这个系统感到没有头绪，不得要领，并且没有足够的知识来运用，于是查找了很多的书籍，希望能有所帮助。

随着自己慢慢查找资料，对access的了解也日益增加，能够把系统的部分功能渐渐的写出来了。

在此过程中也出现了一些困难，比如嵌入子窗体，连接数据库表，一开始的时候不会连接，后来参考了一些书籍和一些范例中的方法才连接成功。

在这次课程设计中，虽然系统完成了，但还是有不足的地方。

在写一些代码时，有些地方应该用到的语句不懂，所以只能用自己会的来编写，从而放弃了最适宜的语句，使得整个系统有了些瑕疵。

这让我明白了一门课程还是要完全掌握吃透了才行啊。

由于时间比较紧，加上个人能力还需进一步的完善，致使这个系统的功能还显得不够全面。

总的来说，这次职工考勤管理系统的设计与实现完成了。

通过本次的毕业设计，我不仅掌握了设计的基本步骤，更重要的是学会了解科学的系统设计方法，加深了我对软件开发的认识与理解。

数据库源代码及access系统请联系：

papawfan@