数据库课程设计职工考勤系统Word格式文档下载.docx

数据库课程设计职工考勤系统Word格式文档下载.docx

《数据库课程设计职工考勤系统Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《数据库课程设计职工考勤系统Word格式文档下载.docx（19页珍藏版）》请在冰点文库上搜索。

登录主界面

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

[刷卡信息]菜单：

显示刷卡信息浏览和编辑窗体

[加班信息]菜单：

显示加班信息浏览和编辑窗体

[请假信息]菜单：

显示请假信息浏览和编辑窗体

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

[刷卡信息查询]菜单：

显示刷卡信息查询窗体

[加班信息查询]菜单：

显示加班信息查询窗体

[请假信息查询]菜单：

显示请假信息查询窗体

[月考勤信息查询]菜单：

显示月考勤信息查询窗体

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登录界面图

代码：

dimmicountasinteger

PrivateSubcommand1_click（）dimstrasString

str=“select*from登录where用户名=&

#39;

”

&

Text1.Text&

“&

adodc1.RecordSource=stradodc1.Refresh

ifadodc1.Recordset.BoF=TrueThen

msgBox”用户名错误,请重新输入”,vbExlamation,”警告”

Text1.Text=““

Text2.Text=““

Text1.SetFocusElse

ifTrim（adodc1.Recordset.Fields（“密码”））=Text2.TextThenmdiForm1.ShowUnloadme

mdiForm1.g.Enabled=TruemdiForm1.c.Enabled=True

Else

msgBox”密码错误，请重新输入”,vbExlamation,”警告”

Text2.SetFocusEndifEndif

micount=micount+1

ifmicount>

=3ThenUnloadmeEndSub

PrivateSubcommand2_click（）UnloadmeEndSub

3.2.2mdi主窗体

主窗体含有主菜单：

[文件]、[数据管理]、[数据查询]。

[文件]菜单包含子菜单登录、注册、退出。

[数据管理]菜单包含子菜单有：

刷卡信息管理、加班信息管理和请假信息管理。

[数据查询]包含子菜单有：

刷卡信息查询、加班信息查询、请假信息查询和月考勤信息查询。

如图3.2所示。

图3.2mdi主窗体图

PrivateSubc1_click（）刷卡信息.ShowEndSub

PrivateSubc2_click（）加班信息.ShowEndSub

PrivateSubc3_click（）请假信息.ShowEndSub

PrivateSubg1_click（）刷卡信息查询.ShowEndSub

PrivateSubg2_click（）

加班信息查询.ShowEndSub

PrivateSubg3_click（）请假信息查询.ShowEndSub

PrivateSubg4_click（）月考勤信息查询.ShowEndSub

PrivateSubmdiForm_Load（）g.Enabled=Falsec.Enabled=FalseEndSub

PrivateSubw1_click（）注册.ShowEndSub

PrivateSubw2_click（）登录.ShowEndSub

PrivateSubw3_click（）UnloadmeEndSub

3.2.3新用户注册

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

如图3.3所示。

图3.3新用户注册图

PrivateSubcommand1_click（）dimsqlstrasStringifText1=““

Then

msgBox”请输入用户名!

”,vbExclamation,”确认用户名”

Text1.SetFocusExitSub

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

sqlstr=“Select*from登录where用户名=&

adodc1.RecordSource=sqlstr

adodc1.Refresh

ifadodc1.Recordset.EoF=FalseThen

msgBox”用户名已存在,请重新输入!

”,vbExclamation,”检验用户名”

Text1=““

Text1.SetFocus

Text2=““

Text3=““

ExitSub

Endif

ifText2

Text3Then

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

Text2=““:

Text2.SetFocus

ElseifText2=““

msgBox”密码不能为空！

”,vbExclamation,”检验密码”

adodc1.Recordset.addnew

adodc1.Recordset.Fields（“用户名”）=Trim（Text1）

adodc1.Recordset.Fields（“密码”）=Trim（Text2）

adodc1.Recordset.Update

msgBox”成功注册新用户！

”,vbinformation,”添加用户”

me.Hide

mdiForm1.Show

Unloadme

EndSub

PrivateSubcommand2_click（）

3.2.4刷卡信息

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

图

3.4

图3.5

代码:

PrivateSubcommand1_click（）

adodc1.Recordset.moveFirst

command1.Enabled=False

command2.Enabled=False

command3.Enabled=True

command4.Enabled=True

Label5.caption=“记录：

adodc1.Recordset.absolutePosition&

“/”

adodc1.Recordset.Recordcount

PrivateSubcommand10_click（）

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

adodc1.Recordset.movePrevious

ifadodc1.Recordset.BoFThen

PrivateSubcommand3_click（）

adodc1.Recordset.movenext

command1.Enabled=True

command2.Enabled=True

ifadodc1.Recordset.EoFThen

adodc1.Recordset.moveLast

command3.Enabled=False

command4.Enabled=False

PrivateSubcommand4_click（）

PrivateSubcommand5_click（）

dimnasinteger

n=Text5.Text

adodc1.Recordset.moven

PrivateSubcommand6_click（）

command6.Enabled=False

command7.Enabled=False

command8.Enabled=False

command9.Enabled=True

command10.Enabled=True

PrivateSubcommand7_click（）

x=msgBox（“确实要删除当前记录吗？

”,vbYesno+vbQuestion,”确认”）

ifx=vbYesThen

adodc1.Recordset.delete

PrivateSubcommand8_click（）

Text1.Locked=False

Text2.Locked=False

Text3.Locked=False

Text4.Locked=False

PrivateSubcommand9_click（）

PrivateSubForm_Load（）

3.2.5加班信息管理

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

如图3.6所示。

3.6

图3.7

代码同上。

3.2.6请假信息管理

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

如图3.7所示。

3.2.7刷卡信息查询

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

如图3.8所示。

dimstrasString

str=“

Select*From刷卡记录”

str=str&

“

where”

combo1.Text&

Like&

Text1&

“%&

adodc1.RecordSource=str

UnloadForm8

combo1.additem”职员编号”

combo1.additem”无”

combo1.Text=““

3.2.8加班信息查询

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

如图3.9所示。

PrivateSubcmd1_click（）

Select*From加班管理”

（）”

UnloadForm6

3.2.9请假信息查询

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

如图3.10所示。

Select*From请假管理”

UnloadForm7

3.2.10月考勤信息查询

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

如图3.11所示。

Select*From月考勤统计表”

UnloadForm12

结论

本系统的主要功能是建立考勤管理系统，对刷卡信息、加班信息、请假信息和月考勤信息的管理和查询。

通过这次课程设计使我对数据库和VB有了更深一层的认识，锻炼了我的思维能力和动手能力。

其中最重要的是学会了如何建立数据库、连接数据库、修改数据库和查询数据库，并且运用VB软件建立窗体。

参考文献

1.王珊.数据库系统简明教程.北京.高等教育出版，20XX.9

2.王珊，朱青.数据库系统概论学习指导与习题解答.北京.高等教育出版社，20XX；

3.weldomJL.dataBaseadministration.newYork.PlenumPress，1981;

4.cardenasa.dataBasemanagementSystems（SecondEdition）.allynandBacon，1985;

5.coddEF.aRelationalmodelofdataforLargeShareddataBanks.cacm13no.6,1970;

6.刘启愿，刘怡.数据库与信息系统的安全.数据库技术丛书之一.北京.科学出版社，1999。

上页