数据库课程设计 职工考勤系统

摘要

在现代企业管理中，企业信息化是提高企业管理效率的重要手段。随着企业人事管理的日趋复杂和企业人员的增多，企业的考勤管理变得越来越复杂。规范的考勤管理是现代企业提高管理效益的重要保障，而传统的人工管理存在着效率低、不易统计、成本高和易出错等弊端，已经无法适应现代企业的需求。随着计算机技术和通信技术的迅速发展，将传统的人工考勤管理信息化，建立一个高效率的、无差错的考勤管理系统，能够有效地帮助企业实现“公正考勤，高效薪资”的管理理念，使企业的管理水平登上一个新的台阶。本课程设计主要是对企业员工的考勤管理。

本系统的设计只要是为了实现管理和查询企业员工的工作出勤情况。主要功能有：刷卡记录管理、加班管理、请假管理、用户登录和注册功能以及月考勤统计表的查询。本系统的数据库是用Microsoft Access 2007软件进行创建和设计，分别包括刷卡记录信息表，加班信息表，请假信息表，月考勤统计表和登录信息表五个表。通过系统ODBC数据源管理工具把已创建的数据源与系统数据库相连。然后利用Visual Basic软件对系统的窗口进行设计，包括登录界面、注册新用户界面、主界面、浏览窗体和查询窗体等，可以通过这些窗体进行登录操作，对输入的用户信息进行验证，和注册新用户操作，以及最重要的操作是对数据库中信息进行修改与查询。并可以对数据进行添加与删除，做到及时更新员工考勤信息。

关键词：考勤管理，Microsoft Access 2007软件，Visual Basic软件

1.系统功能概述

1.1系统功能

考勤管理系统主要是实现刷卡记录、加班和请假的管理以及员工月考勤统计。设计为MDI窗体，含有主菜单：[文件]、[管理考勤信息]、[查询考勤信息]。[文件]菜单包含以下子菜单及其功能：

[注册]:打开“注册新用户”窗体

[关闭]：结束程序运行

[登录]：登录主界面

[管理考勤信息]包含以下子菜单：

[刷卡信息]菜单：显示刷卡信息浏览和编辑窗体

[加班信息]菜单：显示加班信息浏览和编辑窗体

[请假信息]菜单：显示请假信息浏览和编辑窗体

[查询考勤信息] 包含以下子菜单：

[刷卡信息查询]菜单：显示刷卡信息查询窗体

[加班信息查询]菜单：显示加班信息查询窗体

[请假信息查询]菜单：显示请假信息查询窗体

[月考勤信息查询]菜单：显示月考勤信息查询窗体

1.2系统结构总图

考勤管理系统的结构总图，如图1.1所示：

图1.1 考勤管理系统的结构总体

2.数据库设计

2.1 需求分析

随着现代数据的信息化和大数据时代的到来，各个企业也逐渐实行信息化管理。而企业考勤管理一直以来就遵循着传统的人工管理制度，这种人工管理方法已经不再是高效、快速解决问题的最好选择。随着各企业的快速发展和企业员工频繁交替更换，使得企业对考勤管理系统有着更高的要求，来达到企业利益最大化和职工利益的公平性。数据库管理系统能快速的帮助管理者处理数据，提高工作效率，实现公平公正的管理制度。

2.2E-R模型

刷卡记录信息管理E-R图，如图2.1所示。加班信息管理E-R图，如图2.2所示。请假信息管理E-R图，如图2.3所示。月考勤统计信息E-R图，如图2.4所示。登录E-R图，如图2.5所示。全局E-R图，如图2.6所示。

图2.1 刷卡记录信息管理实体属性图

图2.2 加班信息管理实体属性图

图2.3 请假信息管理实体属性图

图2.4 月考勤统计信息管理实体属性图

图2.5 登录实体属性图

图2.6 全局E-R图

2.3关系模型

一个实体性转换为一个关系模式。实体的属性就是关系的属性，实体的码就是关系的码。根据E-R图向关系模型转换的原则，就是把E-R图转换为关系模型。

刷卡记录信息：职员编号、刷卡时间、刷卡日期（主键为职员编号）加班信息：职员编号、加班时数、加班日期、加班原因（主键为职员编号）

请假信息：职员编号、请假日期、请假次数、请假原因（主键为职员编号）

月考勤统计信息：职员编号、日期、加班时间、请假次数、旷工次数、

迟到次数、早退次数（主键为职员编号）登录：用户名、密码（主键为用户名）

2.4表结构设计

3．系统各功能模块的详细设计

3.1 各窗体的设计

此考勤管理系统共包括13个窗体，分别是登录、注册、刷卡记录信息查询、加班信息查询、请假信息查询、月考勤信息查询和MDI主窗体。

3.2 各窗体实现及代码

3.2.1登录窗体

打开登录界面后，输入用户名和密码，点击登录按钮，进入MDI主窗体，如图3.1所示。

图3.1登录界面图

代码：

Dim micount As Integer

Private Sub Command1_Click()

Dim str As String

str = "select * from 登录where 用户名='" & Text1.Text & "'"

Adodc1.RecordSource = str

Adodc1.Refresh

If Adodc1.Recordset.BOF = True Then

MsgBox "用户名错误,请重新输入", vbExlamation, "警告"

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

Else

If Trim(Adodc1.Recordset.Fields("密码")) = Text2.Text Then

MDIForm1.Show

Unload Me

MDIForm1.g.Enabled = True

MDIForm1.c.Enabled = True

MsgBox "密码错误，请重新输入", vbExlamation, "警告"

Text2.Text = ""

Text2.SetFocus

End If

End If

micount = micount + 1

If micount >= 3 Then Unload Me

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

3.2.2 MDI主窗体

主窗体含有主菜单：[文件]、[数据管理]、[数据查询]。[文件]菜单包含子菜单登录、注册、退出。[数据管理]菜单包含子菜单有：刷卡信息管理、加班信息管理和请假信息管理。[数据查询]包含子菜单有：刷卡信息查询、加班信息查询、请假信息查询和月考勤信息查询。如图3.2所示。

图3.2 MDI主窗体图

代码：

Private Sub c1_Click()

刷卡信息.Show

End Sub

Private Sub c2_Click()

加班信息.Show

End Sub

Private Sub c3_Click()

请假信息.Show

End Sub

Private Sub g1_Click()

刷卡信息查询.Show

End Sub

Private Sub g2_Click()

加班信息查询.Show

End Sub

Private Sub g3_Click()

请假信息查询.Show

End Sub

Private Sub g4_Click()

月考勤信息查询.Show

End Sub

Private Sub MDIForm_Load()

g.Enabled = False

c.Enabled = False

End Sub

Private Sub w1_Click()

注册.Show

End Sub

Private Sub w2_Click()

登录.Show

End Sub

Private Sub w3_Click()

Unload Me

End Sub

3.2.3新用户注册

在主窗体上点击查单文件下的注册，进入注册界面，输入用户名、密码和确认密码，点击确定，注册成功。如图3.3所示。

图3.3 新用户注册图

代码：

Private Sub Command1_Click()

Dim sqlstr As String

If Text1 = "" Then

MsgBox "请输入用户名!", vbExclamation, "确认用户名"

Text1.SetFocus

Exit Sub

Else

sqlstr = "Select * from 登录where 用户名='" & Text1.Text & "'"

Adodc1.RecordSource = sqlstr

Adodc1.Refresh

If Adodc1.Recordset.EOF = False Then

MsgBox "用户名已存在,请重新输入!", vbExclamation, "检验用户名"

Text1 = ""

Text1.SetFocus

Text2 = ""

Text3 = ""

Exit Sub

End If

End If

If Text2 <> Text3 Then

MsgBox "二次输入的密码不一致,请重新输入", vbExclamation, "检验密码"

Text2 = "": Text3 = ""

Text2.SetFocus

Exit Sub

ElseIf Text2 = "" Then

MsgBox "密码不能为空！", vbExclamation, "检验密码"

Text2.SetFocus

Else

Adodc1.Recordset.AddNew

Adodc1.Recordset.Fields("用户名") = Trim(Text1)

Adodc1.Recordset.Fields("密码") = Trim(Text2)

Adodc1.Recordset.Update

MsgBox "成功注册新用户！", vbInformation, "添加用户"

Me.Hide

MDIForm1.Show

Unload Me

End If

End Sub

Private Sub Command2_Click()

Unload Me

MDIForm1.Show

End Sub

3.2.4 刷卡信息

点击MDI主窗体的数据管理菜单下的刷卡信息，出现刷卡信息界面如图3.4所示，如有修改，点击修改，弹出图3.5所示界面便于增加、删除、前移和后移的功能。

图3.4

图3.5

代码:

Private Sub Command1_Click()

Adodc1.Recordset.MoveFirst

Command1.Enabled = False

Command2.Enabled = False

Command3.Enabled = True

Command4.Enabled = True

Label5.Caption = "记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount

End Sub

Private Sub Command10_Click()

Adodc1.Refresh

Command6.Enabled = True

Command7.Enabled = True

Command8.Enabled = True

Command9.Enabled = False

Command10.Enabled = False

Text1.Locked = True

Text2.Locked = True

Text3.Locked = True

Text4.Locked = True

End Sub

Private Sub Command2_Click()

Adodc1.Recordset.MovePrevious

Command3.Enabled = True

Command4.Enabled = True

If Adodc1.Recordset.BOF Then

Adodc1.Recordset.MoveFirst

Command1.Enabled = False

Command2.Enabled = False

End If

Label5.Caption = "记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount

End Sub

Private Sub Command3_Click()

Adodc1.Recordset.MoveNext

Command1.Enabled = True

Command2.Enabled = True

If Adodc1.Recordset.EOF Then

Adodc1.Recordset.MoveLast

Command3.Enabled = False

Command4.Enabled = False

End If

Label5.Caption = "记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount

End Sub

Private Sub Command4_Click()

Adodc1.Recordset.MoveLast

Command1.Enabled = True

Command2.Enabled = True

Command3.Enabled = False

Command4.Enabled = False

Label5.Caption = "记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount

End Sub

Private Sub Command5_Click()

Dim n As Integer

n = Text5.Text

Adodc1.Recordset.Move n

Label5.Caption = "记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount

End Sub

Private Sub Command6_Click()

Adodc1.Recordset.AddNew

Command6.Enabled = False

Command7.Enabled = False

Command8.Enabled = False

Command9.Enabled = True

Command10.Enabled = True

End Sub

Private Sub Command7_Click()

x = MsgBox("确实要删除当前记录吗？", vbYesNo + vbQuestion, "确认") If x = vbYes Then

Adodc1.Recordset.Delete

Adodc1.Recordset.MoveNext

If Adodc1.Recordset.EOF Then

Adodc1.Recordset.MoveLast

End If

Else

Adodc1.Refresh

End If

End Sub

Private Sub Command8_Click()

Text1.Locked = False

Text2.Locked = False

Text3.Locked = False

Text4.Locked = False

Command6.Enabled = False

Command7.Enabled = False

Command8.Enabled = False

Command9.Enabled = True

Command10.Enabled = True

End Sub

Private Sub Command9_Click()

Adodc1.Recordset.Update

Command6.Enabled = True

Command7.Enabled = True

Command8.Enabled = True

Command9.Enabled = False

Command10.Enabled = False

Text1.Locked = True

Text2.Locked = True

Text3.Locked = True

Text4.Locked = True

End Sub

Private Sub Form_Load()

Command1.Enabled = False

Command2.Enabled = False

Command3.Enabled = True

Command4.Enabled = True

Command6.Enabled = True

Command7.Enabled = True

Command8.Enabled = True

Command9.Enabled = False

Command10.Enabled = False

Label5.Caption = "记录：" & Adodc1.Recordset.AbsolutePosition & "/" &

Adodc1.Recordset.RecordCount

End Sub

3.2.5加班信息管理

点击MDI主窗体的数据管理菜单下的加班信息管理，出现加班信息管理界面，可以进行增加，删除，修改，前移后移等功能。如图3.6所示。

图3.6

图3.7

代码同上。

3.2.6请假信息管理

点击MDI主窗体的数据管理菜单下的请假信息管理，出现请假信息管理界面，可以进行增加，删除，修改，前移后移等功能。如图3.7所示。

图3.7

3.2.7刷卡信息查询

点击MDI主窗体的数据查询菜单下的刷卡信息查询，出现刷卡信息查询界面，可以进行增加，删除，修改，前移后移等功能。如图3.8所示。

代码：

Private Sub Command1_Click()

Dim str As String

str = " Select * From 刷卡记录"

str = str & " Where " & Combo1.Text & " Like'" & Text1 & "%' "

Adodc1.RecordSource = str

Adodc1.Refresh

End Sub

Private Sub Command3_Click()

Unload Form8

MDIForm1.Show

End Sub

Private Sub Form_Load()

Combo1.AddItem "职员编号"

Combo1.AddItem "无"

Text1.Text = ""

Combo1.Text = ""

End Sub

3.2.8加班信息查询

点击MDI主窗体的数据查询菜单下的加班信息查询，出现加班信息查询界面，可以进行增加，删除，修改，前移后移等功能。如图3.9所示。

代码：

Private Sub Cmd1_Click()

Dim str As String

str = " Select * From 加班管理"

str = str & " Where " & Combo1.Text & " Like'" & Text1 & "%' "

Adodc1.RecordSource = str

Adodc1.Refresh

End Sub

Private Sub Form_Load()

Combo1.AddItem "职员编号"

Combo1.AddItem "无"

Text1.Text = ""

Combo1.Text = ""

End Sub

Private Sub Command3_Click()

Unload Form6

MDIForm1.Show

End Sub

3.2.9请假信息查询

点击MDI主窗体的数据查询菜单下的请假信息查询，出现请假信息查询界面，可以进行增加，删除，修改，前移后移等功能。如图3.10所示。

代码：

Private Sub Command1_Click()

Dim str As String

str = " Select * From 请假管理"

str = str & " Where " & Combo1.Text & " Like'" & Text1 & "%' "

Adodc1.RecordSource = str

Adodc1.Refresh

End Sub

Private Sub Form_Load()

Combo1.AddItem "职员编号"

Combo1.AddItem "无"

Text1.Text = ""

Combo1.Text = ""

End Sub

Private Sub Command4_Click()

Unload Form7

MDIForm1.Show

End Sub

3.2.10月考勤信息查询

点击MDI主窗体的数据查询菜单下的月考勤信息查询，出现月考勤信息查询界面，可以进行增加，删除，修改，前移后移等功能。如图3.11所示。

代码：

Private Sub Command1_Click()

Dim str As String

str = " Select * From 月考勤统计表"

str = str & " Where " & Combo1.Text & " Like'" & Text1 & "%' " Adodc1.RecordSource = str

Adodc1.Refresh

End Sub

Private Sub Command2_Click()

Unload Form12

MDIForm1.Show

End Sub

Private Sub Form_Load()

Combo1.AddItem "职员编号"

Combo1.AddItem "无"

Text1.Text = ""

Combo1.Text = ""

End Sub

结论

本系统的主要功能是建立考勤管理系统，对刷卡信息、加班信息、请假信息和月考勤信息的管理和查询。通过这次课程设计使我对数据库和VB有了更深一层的认识，锻炼了我的思维能力和动手能力。其中最重要的是学会了如何建立数据库、连接数据库、修改数据库和查询数据库，并且运用VB软件建立窗体。