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

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

2、理。本系统的设计只要是为了实现管理和查询企业员工的工作出勤情况。主要功能有：刷卡记录管理、加班管理、请假管理、用户登录和注册 功能以及月考勤统计表的查询。本系统的数据库是用 microsoftaccess20XX软件进行创建和设计，分别包括刷卡记录信息 表，加班信息表，请假信息表，月考勤统计表和登录信息表五个表。通过系统 odBc 数据源管理工具把已创建的数据源与系统数据库相 连。然后利用 VisualBasic 软件对系统的窗口进行设计，包括登录界 面、注册新竭诚为您提供优质文档/双击可除用户界面、主界面、浏览窗体和查询窗体等，可以通过这竭诚为您提供优质文档/双击可除月考勤信息查询菜单：显示

3、月考勤信息查询窗体些窗体进行登录操作，对输入的用户信息进行验证，和注册新用户操 作，以及最重要的操作是对数据库中信息进行修改与查询。并可以对数据进行添加与删除，做到及时更新员工考勤信息。关键词：考勤管理，microsoftaccess20XX 软件，VisualBasic 软件1.系统功能概述1.1 系统功能考勤管理系统主要是实现刷卡记录、加班和请假的管理以及员工月考 勤统计。设计为 mdi 窗体，含有主菜单： 文件、 管理考勤信息、 查询考勤信息。文件菜单包含以下子菜单及其功能：注册：打开 注册新用户”窗体关闭:结束程序运行登录:登录主界面管理考勤信息包含以下子菜单：刷卡信息菜单：显示刷卡信

4、息浏览和编辑窗体加班信息菜单：显示加班信息浏览和编辑窗体请假信息菜单：显示请假信息浏览和编辑窗体查询考勤信息包含以下子菜单：竭诚为您提供优质文档/双击可除月考勤信息查询菜单：显示月考勤信息查询窗体刷卡信息查询菜单：显示刷卡信息查询窗体加班信息查询菜单：显示加班信息查询窗体请假信息查询菜单：显示请假信息查询窗体竭诚为您提供优质文档/双击可除1.2 系统结构总图考勤管理系统的结构总图，如图 1.1 所示：图 1.1 考勤管理系统的结构总体2.数据库设计2.1 需求分析随着现代数据的信息化和大数据时代的到来，各个企业也逐渐实行信 息化管理。而企业考勤管理一直以来就遵循着传统的人工管理制度，这种人工管

5、理方法已经不再是高效、 快速解决问题的最好选择。随着 各企业的快速发展和企业员工频繁交替更换，使得企业对考勤管理系 统有着更高的要求，来达到企业利益最大化和职工利益的公平性。数据库管理系统能快速的帮助管理者处理数据，提高工作效率，实现公平公正的管理制度。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 加班信息管理

6、实体属性图图 2.3 请假信息管理实体属性图图 2.4 月考勤统计信息管理实体属性图竭诚为您提供优质文档/双击可除息查询、加班信息查询、请假信息查询、月考勤信息查询和 mdi 主窗图 2.5 登录实体属性图 下页数据库课程设计职工考勤系统图 2.6 全局 E-R 图2.3 关系模型一个实体性转换为一个关系模式。实体的属性就是关系的属性，实体 的码就是关系的码。根据 E-R 图向关系模型转换的原则，就是把 E-R 图转换为关系模型。刷卡记录信息：职员编号、刷卡时间、刷卡日期（主键为职员编号） 加班信息：职员编号、加班时数、加班日期、加班原因（主键为职员 编号）请假信息：职员编号、请假日期、请假次

7、数、请假原因（主键为职员 编号）月考勤统计信息：职员编号、日期、加班时间、请假次数、旷工次数、 迟到次数、早退次数（主键为职员编号）登录：用户名、密码（主键为用户名）2.4 表结构设计3.系统各功能模块的详细设计3.1 各窗体的设计此考勤管理系统共包括 13 个窗体，分别是登录、注册、刷卡记录信体。竭诚为您提供优质文档/双击可除3.2 各窗体实现及代码 321 登录窗体打开登录界面后，输入用户名和密码，点击登录按钮，进入 mdi 主窗 体，如图 3.1 所示。图 3.1 登录界面图代码：dimmico un tas in tegerPrivateSubcomma nd1_click()dims

8、trasStri ngstr= “ select*fro 登录 where 用户名二' ”&Text1.Text &“ ' ”adodc1.RecordSource二stradodc1.Refreshifadodc1.Recordset.BoF二TrueThe nmsgBox”用户名错误，请重新输入” ,vbExlamation 警告”Text1.Text= “Text2.Text= “Text1.SetFocusElseifTrim(adodc1.Recordset.Fields(“密码” )=Text2.TextThenmFiorm1.Sho

9、wUnloadme竭诚为您提供优质文档/双击可除息查询、加班信息查询、请假信息查询、月考勤信息查询和 mdi 主窗mdiForm1.g.E nabled二TruemdiForm1.c.E nabled二TrueElse竭诚为您提供优质文档/双击可除PrivateSubg4_click()月考勤信息查询.ShowEndSubmsgBox”密码错误，请重新输入”，vbExlamation 警告”Text2.Text二“Text2.SetFocusE ndifE ndifmico un t=mico un t+1ifmico un t=3The nUn loadmeE ndSubPrivateSub

10、comma nd2_click()U nloadmeE ndSub3.2.2mdi 主窗体主窗体含有主菜单：文件、数据管理、数据查询。文件菜单包 含子菜单登录、注册、退出。数据管理菜单包含子菜单有：刷卡信 息管理、加班信息管理和请假信息管理。数据查询包含子菜单有： 刷卡信息查询、加班信息查询、请假信息查询和月考勤信息查询。女口 图 3.2 所示。图 3.2mdi 主窗体图代码：PrivateSubc1_click()刷卡信息.ShowEndSubPrivateSubc2_click()加班信息.ShowEndSubPrivateSubc3_click()请假信息.ShowEndSubPriva

11、teSubg1_click()刷卡信息查询.ShowEndSubPrivateSubg2_click()竭诚为您提供优质文档/双击可除ifadodc1.Recordset.EoF=FalseThe n加班信息查询.ShowEndSubPrivateSubg3_click()请假信息查询.ShowEndSubPrivateSubmdiForm_Load()g.E nabled二Falsec.E nabled二FalseEndSubPrivateSubw1_click()注册.ShowE ndSubPrivateSubw2_click()登录.ShowE ndSubPrivateSubw3_cli

12、ck()U nloadmeE ndSub3.2.3 新用户注册在主窗体上点击查单文件下的注册，进入注册界面，输入用户名、密码和确认密码，点击确定，注册成功。如图3.3 所示。图 3.3 新用户注册图代码：PrivateSubcomma nd1_click()dimsqlstrasStri ngifText1=“The nmsgBox”请输入用户名！”，vbExclamation 确认用户名”Text1.SetFocusExitSub上页下页数据库课程设计职工考勤系统Elsesqlstr=“Select*fr 登录 where 用户名二' ”&竭诚为您提供优质文档/双击可

13、除ifadodc1.Recordset.EoF=FalseThe nText1.Text &“ ' ”adodc1.RecordSource=sqlstradodc1.Refresh竭诚为您提供优质文档/双击可除adodc1.Recordset.Fields(用户名 ”)=Trim(Text1)msgBox”用户名已存在，请重新输入！”，vbExclamation|佥验用户名”Text 仁“Textl.SetFocusText2= “Text3= “ExitSubEndifEndififText2Text3ThenmsgBox”二次输入的密码不一致，请重新输入” ,vb

14、Exclamation 检验密码”Text2= “ :Text3= “Text2.SetFocusExitSubElseifText2= “The nmsgBox”密码不能为空！ ” ,vbExclamation 检验密码”Text2.SetFocus竭诚为您提供优质文档/双击可除adodcl.Recordset.moveFirstElseadodc1.Recordset.add newadodcl .Recordset.Fields(密码” “二Trim(Text2)adodcI.Recordset.UpdatemsgBox”成功注册新用户！ ” ,vbinformation,添加用户”me

15、.HidemdiForm1.ShowUni oadmeEndifEndSubPrivateSubcomma nd2_click()Uni oadmemdiForml.ShowEndSub3.2.4 刷卡信息点击 mdi 主窗体的数据管理菜单下的刷卡信息，出现刷卡信息界面如 图3.4 所示，如有修改，点击修改，弹出图 3.5 所示界面便于增加、 删除、前移和后移的功能。图3.4竭诚为您提供优质文档/双击可除adodcl.Recordset.moveFirst图 3.5代码：PrivateSubcomma nd1_click()竭诚为您提供优质文档/双击可除comma ndl.E nabled二F

16、alsecomma nd2.E nabled二Falsecomma nd3.E nabled二Truecomma nd4.E nabled二TrueLabel5.caption二记录：”&adodc1.Recordset.absolutePositi on&“ / ”&adodc1.Recordset.Recordco untEndSubPrivateSubcomma nd1O_click()adodc1.Refreshcomma nd6.E nabled二Truecomma nd7.E nabled二Truecomma nd8.E nabled二Truecomma n

17、d9.E nabled二Falsecomma nd1O.E nabled二FalseText1 Locked二TrueText2.Locked二TrueText3.Locked二True竭诚为您提供优质文档/双击可除Text 4 Locked二TrueEndSubPrivateSubcomma nd2_click() adodcI.Recordset.movePreviouscomma nd3.E nabled二True comma nd4.E nabled二Trueifadodc1.Recordset.BoFThe n adodc1.Recordset.moveFirst command1.

18、E nabled二False comma nd2.E nabled二False EndifLabel5.caption二记录：”& adodc1.Recordset.absolutePositi on&“ / ”& adodc1.Recordset.Recordco unt EndSubPrivateSubcomma nd3_click() adodc1.Recordset.move next command1.E nabled二True comma nd2.E nabled二Trueifadodc1.Recordset.EoFThe nadodcI.Recordset.moveLastcomma nd3.E nabled二Falsecomma nd4.E nabled二FalseEndifLabel5.caption二记录：”&竭诚为您提供优质文档/双击可除adodc1.Re