职工考勤管理系统
- 格式:doc
- 大小:1.28 MB
- 文档页数:11
1 职工考勤管理系统
一、系统介绍
管理员可通过登录名与密码进入考勤系统,通过输入职工编号及日期时间来记录员工的考勤情况,也可以对员工的职员信息,考勤统计信息,管理员信息,进行查询,增添,删改,报表预览等操作。
二、设计分析
1)需求总结,设计系统功能,画出如下功能模块结构图
针对职工管理系统的功能图,现具体描述其功能:
1、管理员登陆:系统对其合法性进行检查
2、考勤录入:管理员通过录入职工编号及时间记录考勤信息
3、考勤统计:通过一些条件查询职工考勤记录并预览报表
4、职员信息:可以查询修改所有职员的信息
5、管理员管理:可以修改管理员密码或增加管理员
2)全部表信息:
职员信息(职员编号,姓名,部门编号,职位,性别,民族,教育程度,联系电话)
考勤记录(职员编号,出勤日期,出勤时间)
公司部门(部门编号,部门名称)
管理员信息(管理员编号,管理员姓名,管理员密码)
3)实体E-R图 登陆
考勤管理 职员管理
职员信息 管理员管理 考勤录入 考勤统计 2 本系统根据上面的设计规划出的实体有:职员信息实体,考勤信息实体,管理员信息实体。
职工考勤实体E-R图
职员信息实体E-R图
管理员信息实体E-R图:
管理员
管理员编号 管理员姓名 管理员密码 职工编号
姓名
部门编号
职位 性别 民族 教育程度 联系电话 职员信息 考勤记录 职工编号 出勤时间
出勤日期 3 学生选课系统主要是为学生选课的管理提供全面、准确、科学的管理方法,方便快捷地处理选课的管理信息;避免了信息处理错误,提高了信息管理的工作效率,大大地节省人力和物力的开支。本章主要阐述了系统的业务流程,根据业务流程画出绘制出了E-R图。
三、模块代码及界面设计
通过管理系统总界面可以进入考勤录入,考勤统计,职工信息,管理员设置等功能。其主要实现窗口如下图
主界面
创建主界面主要是方便各种功能的选择,而后创建分界面来实现具体的系统功能。如下图:
考勤录入界面,录入按钮的事件代码:
Private Sub Command8_Click()
If Text0 = "" Or Text4 = "" Or Text10 = "" Then
MsgBox "记录数据不能为空!"
Else
CurrentDb.Execute "INSERT INTO 考勤记录 VALUES ('" & Text0 4 & "', '" & Text4 & "', '" & Text10 & "')"
Text0 = ""
Text4 = ""
Text10 = ""
Text0.SetFocus
MsgBox "考勤录入成功!"
End If
End Sub
考勤统计界面,该界面包括考勤统计,考勤统计查询子窗体,其中查询按钮的事件代码为:
Private Sub Command15_Click() 5
Me.考勤统计查询子窗体.Requery '这句是关键
End Sub
职工信息界面,类似考勤统计界面,包含一个窗体及一个子窗体,主要事件代码为:
Private Sub Command17_Click()
Me.职工信息查询子窗体.Requery
End Sub 6
系统管理员设置界面,其中修改按钮的事件代码为:
Private Sub Command13_Click()
If IsNull(Trim(Me.Text7)) Then
DoCmd.Beep
MsgBox ("请输入用户名称!")
Else
If IsNull(Trim(Me.Text9)) Then
DoCmd.Beep
MsgBox ("请输入原密码!")
Else
If IsNull(Trim(Me.Text11)) Then
DoCmd.Beep
MsgBox ("请输入新密码!") 7 Else
'以下是用来与[登陆表]做对比的
Me.RecordSource = "select * from 管理员信息 where 管理员姓名= '" & Me.Text7 & "' and 管理员密码='" & Me.Text9
& "'"
'Set rs = GetRS(str)
If Me.Recordset.EOF Then
DoCmd.Beep
MsgBox ("用户名或密码有误,请重新输入!")
Me.Text7 = ""
Me.Text9 = ""
Me.Text7.SetFocus
Exit Sub
Else
CurrentDb.Execute "update 管理员信息 set 管理员密码 = '" & Text11 & "' where 管理员姓名='" & Me.Text7 & "'"
MsgBox "密码修改成功"
Me.Text7 = ""
Me.Text9 = ""
Me.Text11 = ""
End If
End If 8 End If
End If
End Sub
登录窗口主要是用来登录主界面的一个关卡,其中登陆按钮引发的事件代码是:
Private Sub Command1_Click()
If IsNull(Trim(Me.Text3)) Then
DoCmd.Beep
MsgBox ("请输入用户名称!")
Else
If IsNull(Trim(Me.Text5)) Then
DoCmd.Beep 9 MsgBox ("请输入密码!")
Else
'以下是用来与[登陆表]做对比的
Me.RecordSource = "select * from 管理员信息 where 管理员姓名= '" & Me.Text3 & "' and 管理员密码='" & Me.Text5 & "'"
'Set rs = GetRS(str)
If Me.Recordset.EOF Then
DoCmd.Beep
MsgBox ("没有这个用户或密码有误,请重新输入!")
Me.Text3 = ""
Me.Text5 = ""
Me.Text3.SetFocus
Exit Sub
Else
DoCmd.Close
check = True '设置登陆标志
DoCmd.OpenForm ("管理系统总界面")
End If
End If
End If
End Sub
其主界面如图4-8所示。 10
图4-14登录窗口界面
四、总结:
这个系统是职工考勤管理系统,要求对职工进行出勤时间日期的记录,另外还带有职员,管理员信息的添加,删除等操作。刚开始设计这个系统感到没有头绪,不得要领,并且没有足够的知识来运用,于是查找了很多的书籍,希望能有所帮助。随着自己慢慢查找资料,对access的了解也日益增加,能够把系统的部分功能渐渐的写出来了。在此过程中也出现了一些困难,比如嵌入子窗体,连接数据库表,一开始的时候不会连接,后来参考了一些书籍和一些范例中的方法才连接成功。 在这次课程设计中,虽然系统完成了,但还是有不足的地方。在写一些代码时,有些地方应该用到的语句不懂,所以只能用自己会的来编写,从而放弃了最适宜的语句,使得整个系统有了些瑕疵。这让我明白了一门课程还是要完全掌握吃透了才行啊。由于时间比较紧,加上个人能力还需进一步的完善,致使这个系统的功能还显得不够全面。
总的来说,这次职工考勤管理系统的设计与实现完成了。通过本次 11 的毕业设计,我不仅掌握了设计的基本步骤,更重要的是学会了解科学的系统设计方法,加深了我对软件开发的认识与理解。