职工考勤管理系统

  • 格式: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 的毕业设计,我不仅掌握了设计的基本步骤,更重要的是学会了解科学的系统设计方法,加深了我对软件开发的认识与理解。