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

摘要在现代企业管理中，企业信息化是提高企业管理效率的重要手段。随着企业人事管理的日趋复杂和企业人员的增多，企业的考勤管理变得越来越复杂。规范的考勤管理是现代企业提高管理效益的重要保障，而传统的人工管理存在着效率低、不易统计、成本高和易出错等弊端，已经无法适应现代企业的需求。随着计算机技术和通信技术的迅速发展，将传统的人工考勤管理信息化，建立一个高效率的、无差错的考勤管理系统，能够有效地帮助企业实现“公正考勤，高效薪资”的管理理念，使企业的管理水平登上一个新的台阶。本课程设计主要是对企业员工的考勤管理。本系统的设计只要是为了实现管理和查询企业员工的工作出勤情况。主要功能有：刷卡记录管理、加班管理、请假管理、用户登录和注册功能以及月考勤统计表的查询。本系统的数据库是用MicrosoftAccess2007软件进行创建和设计，分别包括刷卡记录信息表，加班信息表，请假信息表，月考勤统计表和登录信息表五个表。通过系统ODBC数据源管理工具把已创建的数据源与系统数据库相连。然后利用VisualBasic软件对系统的窗口进行设计，包括登录界面、注册新用户界面、主界面、浏览窗体和查询窗体等，可以通过这些窗体进行登录操作，对输入的用户信息进行验证，和注册新用户操作，以及最重要的操作是对数据库中信息进行修改与查询。并可以对数据进行添加与删除，做到及时更新员工考勤信息。关键词：考勤管理，MicrosoftAccess2007软件，VisualBasic软件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表结构设计刷卡信息表结构如图2.7所示。刷卡记录职员编号日期刷卡时间8522015/12/77点57分8532015/12/77点41分8542015/12/77点10分8552015/12/77点30分图2.8刷卡信息表图加班信息表结构如图2.8所示。加班管理职员编号加班日期加班时数加班原因8522015/11/22工作未完成8532015/11/102工作未完成8542015/11/112工作未完成8552015/11/262工作未完成图2.8加班信息表图请加信息表结构如图2.9所示。请假管理职员编号请假日期请假时数请假原因8522015/12/12生病8532015/12/21生病8552015/12/51生病图2.9请假信息表图月考勤统计表结构如图2.10所示。月考勤统计表职员编号日期迟到次数早退次数旷工次数请假次数加班时间8522015/12/7100128532015/12/7000128542015/12/7000028552015/12/700012图2.10月考勤统计表图登录表结构如图2.11所示。登录表用户名密码13090101021234563．系统各功能模块的详细设计3.1各窗体的设计此考勤管理系统共包括13个窗体，分别是登录、注册、刷卡记录信息查询、加班信息查询、请假信息查询、月考勤信息查询和MDI主窗体。3.2各窗体实现及代码3.2.1登录窗体打开登录界面后，输入用户名和密码，点击登录按钮，进入MDI主窗体，如图3.1所示。图3.1登录界面图代码：DimmicountAsIntegerPrivateSubCommand1_Click()DimstrAsStringstr=select*from登录where用户名='&Text1.Text&'Adodc1.RecordSource=strAdodc1.RefreshIfAdodc1.Recordset.BOF=TrueThenMsgBox用户名错误,请重新输入,vbExlamation,警告Text1.Text=Text2.Text=Text1.SetFocusElseIfTrim(Adodc1.Recordset.Fields(密码))=Text2.TextThenMDIForm1.ShowUnloadMeMDIForm1.g.Enabled=TrueMDIForm1.c.Enabled=TrueElseMsgBox密码错误，请重新输入,vbExlamation,警告Text2.Text=Text2.SetFocusEndIfEndIfmicount=micount+1Ifmicount=3ThenUnloadMeEndSubPrivateSubCommand2_Click()UnloadMeEndSub3.2.2MDI主窗体主窗体含有主菜单：[文件]、[数据管理]、[数据查询]。[文件]菜单包含子菜单登录、注册、退出。[数据管理]菜单包含子菜单有：刷卡信息管理、加班信息管理和请假信息管理。[数据查询]包含子菜单有：刷卡信息查询、加班信息查询、请假信息查询和月考勤信息查询。如图3.2所示。图3.2MDI主窗体图代码：PrivateSubc1_Click()刷卡信息.ShowEndSubPrivateSubc2_Click()加班信息.ShowEndSubPrivateSubc3_Click()请假信息.ShowEndSubPrivateSubg1_Click()刷卡信息查询.ShowEndSubPrivateSubg2_Click()加班信息查询.ShowEndSubPrivateSubg3_Click()请假信息查询.ShowEndSubPrivateSubg4_Click()月考勤信息查询.ShowEndSubPrivateSubMDIForm_Load()g.Enabled=Falsec.Enabled=FalseEndSubPrivateSubw1_Click()注册.ShowEndSubPrivateSubw2_Click()登录.ShowEndSubPrivateSubw3_Click()UnloadMeEndSub3.2.3新用户注册在主窗体上点击查单文件下的注册，进入注册界面，输入用户名、密码和确认密码，点击确定，注册成功。如图3.3所示。图3.3新用户注册图代码：PrivateSubCommand1_Click()DimsqlstrAsStringIfText1=ThenMsgBox请输入用户名!,vbExclamation,确认用户名Text1.SetFocusExitSubElsesqlstr=Select*from登录where用户名='&Text1.Text&'Adodc1.RecordSource=sqlstrAdodc1.RefreshIfAdodc1.Recordset.EOF=FalseThenMsgBox用户名已存在,请重新输入!,vbExclamation,检验用户名Text1=Text1.SetFocusText2=Text3=ExitSubEndIfEndIfIfText2Text3ThenMsgBox二次输入的密码不一致,请重新输入,vbExclamation,检验密码Text2=:Text3=Text2.SetFocusExitSubElseIfText2=ThenMsgBox密码不能为空！,vbExclamation,检验密码Text2.SetFocusElseAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(用户名)=Trim(Text1)Adodc1.Recordset.Fields(密码)=Trim(Text2)Adodc1.Recordset.UpdateMsgBox成功注册新用户！,vbInformation,添加用户Me.HideMDIForm1.ShowUnloadMeEndIfEndSubPrivateSubCommand2_Click()UnloadMeMDIForm1.ShowEndSub3.2.4刷卡信息点击MDI主窗体的数据管理菜单下的刷卡信息，出现刷卡信息界面如图3.4所示，如有修改，点击修改，弹出图3.5所示界面便于增加、删除、前移和后移的功能。图3.4图3.5代码:PrivateSubCommand1_Click()Adodc1.Recordset.MoveFirstCommand1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=TrueCommand4.Enabled=TrueLabel5.Caption=记录：&Adodc1.Recordset.AbsolutePosition&/&Adodc1.Recordset.RecordCountEndSubPrivateSubCommand10_Click()Adodc1.RefreshCommand6.Enabled=TrueCommand7.Enabled=TrueCommand8.Enabled=TrueCommand9.Enabled=FalseCommand10.Enabled=FalseText1.Locked=TrueText2.Locked=TrueText3.Locked=TrueText4.Locked=Tru