access职工考勤管理系统实验报告.docx
《access职工考勤管理系统实验报告.docx》由会员分享，可在线阅读，更多相关《access职工考勤管理系统实验报告.docx（9页珍藏版）》请在冰豆网上搜索。
access职工考勤管理系统实验报告
Access实现职工考勤管理系统
一、系统介绍
管理员可通过登录名与密码进入考勤系统,通过输入职工编号及日期时间来记录员工的考勤情况，也可以对员工的职员信息,考勤统计信息，管理员信息,进行查询，增添,删改,报表预览等操作。
二、设计分析
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@163。
com
升级会员 