企业考勤系统.doc

摘要摘要随着计算机技术的发展，计算机网络已经广泛地应用到社会的各个领域，网络已经成为人们日常工作、学习、生活中不可缺少的工具。企业考勤管理作为一个企业对人员管理的重点，当然也不能落后。针对企业考勤管理的需求，采用VB6.0技术开发工具和ACCESS作为后台数据库，设计的企业考勤系统。实现了对部门信息的管理、员工信息的管理、员工考勤信息的管理、员工工资的管理等。采用SQL语言实现了对数据的添加、查询、修改、删除等功能。本文从考勤系统研究的意义、企业考勤系统总体设计、数据库设计、功能模块的设计、用户界面的设计等方面详细介绍了该系统。从而希望该企业考勤系统能够正确有效的完成企业考勤的工作，更加有效地规范企业的管理、减少管理中的人为因素、提高企业的管理效率、降低企业的经营成本、提高企业的利润。关键字：VB；考勤管理；数据库23AbstractBecause of the rapid development of computer technology,Computer network is already broadly applied to various sectors of society, Network has become indispensable tool in the daily work, study, life . Register as a business enterprise management of staff management, of course, not backward. For the needs of enterprise attendance management ，the attendance management use VB6.0 as the tool of Technology development and ACCESS as the database. The main function has Management information, management staffs Information, attendance management and Wages management. Using SQL language we can add, query, modification and deletion data . This article introduced this system detailed from the system of attendance system enterprise checkingattendance significance of researching, the whole system design, database design, function module design. Using a computer implementation intelligent attendance management , More effectively to standardize enterprise management, reduce the management of human factors , enhance the enterprise the management efficiency and reduce the operating costs and improve enterprise profits. Keyword: VB;Attendance management;Database;目录摘要IAbstractII1绪论12研究的背景意义12.1考勤系统研究背景12.2考勤系统研究意义13企业考勤系统总体设计23.1系统设计背景介绍23.2系统功能分析23.3用户功能模块设计33.4数据流程设计53.5数据库设计64详细设计工作84.1数据模块创建84.2用户登录模块设计84.2.1设计思路84.2.2用户登录界面设计94.2.3考勤系统主界面设计114.2.4部门信息管理114.2.5员工信息管理144.2.6考勤信息管理154.2.7员工工资管理174.2.8系统管理194.2.9选项20总结21参考文献22致谢23自我介绍24河北科技师范学院欧美学院07届本科毕业生论文（设计）1绪论随着信息产业的飞速发展，信息化管理已经引入并应用到各行业管理领域。放眼周围，各行各业的管理不断地改变、影响着我们的观念与工作方式。为了有效地利用现代科学技术来推动和改进考勤方式，建立一个好的考勤管理系统就显得非常必要。企业考勤管理系统实现了企业考勤管理的电子化、信息化1。系统是以员工管理为中心，对员工进行考勤等管理。整个系统由部门信息管理、员工信息管理，考勤信息管理，员工工资管理，系统设置和选项六大模块构成，各功能模块紧密联系，以高效、简单、实用的风格引领你进入一个信息化管理时代。2研究的背景意义2.1考勤系统研究背景当今社会信息化已经成为一种潮流，信息技术革命的发展正在促使工业资本经济向信息经济、知识经济转变2。而利用计算机技术，通讯技术等现代化的信息技术手段来实现企业信息化建设与新型现代化管理，更是企业不可避免的生存竞争所要面对的当务之急。随着现代科技的进步，利用信息和计算机技术来进行企业员工考勤的管理也成为现代化企业运作必不可少的一部分。现代企业员工人数的激增与员工的频繁变动，使得企业的考勤统计管理工作日益繁杂，传统的企业考勤管理方法很难保证数据的准确与实时3。与此同时，随着计算机技术的飞速发展，计算机在企业考勤管理中的应用逐渐普及，利用计算机实现企业考勤管理势在必行。2.2考勤系统研究意义企业考勤系统是一个中小型企业单位不可缺少的部分，考勤管理是公司、企事业单位重要的一个环节。它的内容对于中小企业的决策者和管理者来说都至关重要。所以企业考勤管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件出勤，这种管理方式存在着许多缺点,如:效率低、保密性差、另外时间一长、将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难，而且容易丢失。随着计算机的普及和计算机科学技术的飞速发展，人们开始越来越多地利用计算机解决实际问题。用计算机对考勤数据进行统计分析处理，得到我们所需要的各种统计报表和考勤原始数据。因此，开发一个合适的、高质量的企业考勤管理系统进行企业员工的考勤管理，对企业的长远发展有重大的意义。开发一个界面友好，易于操作的企业考勤管理系统对企业的数据进行自动化处理变得十分重要，这正是本系统开发的目的和意义。通过此考勤管理系统的开发也将锻炼我们的实际动手能力，并将理论与实践很好的结合，对以后的学习和工作能力的培养也具有重要意义4。3企业考勤系统总体设计3.1系统设计背景介绍企业考勤系统就是信息管理与现代化办公设备相结合的例子。设计本系统希望使企业考勤管理人员可以从年复一年的输入、计算、统计等工作中解脱出来，由于企业考勤方面的数据众多，输入、统计极为不便，输入量大，计算量大。这些工作都以人力来完成将费时费力，而且容易出现错误和疏漏。本系统一次录入信息后，就可以反复多次在不同的信息库中使用。所有输入的信息都将按所属部门、专业、考勤日期、工资日期等详细分类，使客户可以根据需要进行管理操作。该企业考勤系统有助于减轻考勤管理人员的负担，提高工作效率。该企业考勤管理系统是对员工基本信息、部门基本信息、员工考勤信息、员工工资信息等进行管理和维护，实现考勤管理系统的基本功能。因此，该企业考勤系统的目的就是利用计算机对复杂烦琐的数据进行存储和处理，并利用计算机与现代化办公设备的连接实时刷新数据，从而提高企业的工作效率。3.2系统功能分析利用计算机实现企业考勤管理势在必行。对于企业来说，利用计算机支持企业，是适应现代企业制度要求、推动企业劳动型管理走向科学化、规范化的必要条件；而企业考勤管理是一项琐碎、复杂而又十分细致的工作，企业考勤录入,企业考勤管理,信息查询,请假等管理,一般不允许出错，如果实行手工操作,须手工填制大量的表格,这就会耗费工作人员大量的时间和精力，计算机进行这项工作的管理，不仅能够保证各项信息准确无误、快速输出，同时计算机具有手工管理所无法比拟的优点。例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高企业管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。 企业考勤系统主要完成考勤方面的相关功能(1) 按不同权限登录系统。(2) 部门信息管理。包括公司各部门的相关信息部门编号、部门名称、备注。对其提供的部门信息情况进行添加、查询、修改和删除操作。(3) 员工信息管理。包括员工本人各种的基本信息、所在部门、家庭住址等相关信息，全面合理的反应了员工的基本档案信息。对其提供的人员信息情况进行添加、查询、修改和删除操作。(4) 员工考勤管理。包括对员工每个月份的请假、加班、迟到早退次数以及旷工次数进行管理。反应员工的考勤情况。对其提供的人员考勤信息情况进行添加、查询、修改和删除操作，并可按考勤月份进行分类。(5) 员工工资管理。包括对员工的基本工资、加班费、考核费及相关的补贴费、基金费进行管理。统计员工的工资信息。对其提供的人员工资信息情况进行添加、计算、查询、修改和删除操作，并可按工资月份进行分类。(6) 系统维护。可对密码进行设置，对用户进行管理如添加新的用户，修改用户原有的密码，删除原有用户。还可查看登陆本系统的日志。(7) 选项。包括计算器、日历和状态栏等辅助工具。3.3用户功能模块设计本系统的主要功能包括部门信息管理、员工信息管理、考勤系统管理、员工工资管理、系统管理等如图1所示。 编辑部门信息 部门信息管理 浏览部门信息 编辑员工信息员工信息管理浏览员工信息用 户 登 陆编辑考勤信息考勤信息管理浏览考勤信息添 加 记 录员工工资管理 删 除 记 录 修 改 密 码添 加 用 户系 统 维 护 删 除 用 户 数 据 备 份 状 态 栏选 项 日 历退 出 系 统 图1 用户功能模块图部门信息管理模块：添加、删除、修改、查询及打印部门的相关信息。员工信息管理模块：添加、删除、修改、查询及打印员工的相关信息。考勤信息管理模块：添加、删除、修改、查询及打印员工考勤的相关信息。员工工资管理模块: 添加、删除、修改、查询及打印员工工资的相关信息。系统维护模块：修改员工密码、添加、删除用户信息、数据备份、数据恢复。选项：日历、计算器的应用。3.4数据流程设计 系统的数据流程图如图2所示。用户登陆 是否管理员 是 是否修改数据是否录入数据 是 是 录入数据修改数据 是否进行查询 是输入查询条件是是否删除数据是删除数据退出系统图2 数据流程图3.5数据库设计数据库在一个信息管理系统中占有非常重要的位置，数据库结构设计的好坏将直接对系统效率的实现产生影响。合理的数据库设计可以提高数据存储的效率，保证数据的完整性和一致性。另外，合理的数据库结构将非常有利于程序的实现5。Microsoft Access是一种关系式数据库，关系式数据库由一系列表组成，表又由一系列行和列组成，每一行是一个记录，每一列是一个字段，每个字段有一个字段名，字段名在一个表中不能重复。Access的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于Excel的电子表格，可以使数据库一目了然。另外，Access允许创建自定义报表用于打印或输出数据库中的信息。Access是桌面型数据库，操作灵活、转移方便、运行环境简单。3.5.1创建Access数据库表：根据设计要求，需要5个数据表：部门基本情况表、员工基本信息表、员工考勤信息表、员工工资信息表、口令信息表。这5个数据表的结构见表1-5。表1 部门基本情况表字段名称数据类型长度主键允许空部门编号文本6True否部门名称文本30是备注文本255是表2 员工基本信息表字段名称数据类型长度主键允许空员工编号文本6否员工姓名文本10否性别文本2是出生日期日期/时间短日期否民族文本10是政治面貌文本10是最后学历文本10是所学专业文本20是联系电话文本20是毕业学校文本30是籍贯文本50是家庭住址文本50是进入公司时间日期/时间短日期否部门名称文本30是职务名称文本30是备注文本255是表3 员工考勤信息表字段名称数据类型长度主键允许空员工编号文本6是员工姓名文本10是考勤日期文本6否部门名称文本50是出勤天数数字整型是假日加班数字整型是其它加班数字整型是出差天数数字整型是补休天数数字整型是请假次数数字整型是旷工天数数字整型是迟到次数数字整型是早退次数数字整型是备注文本255是表4 员工工资信息表字段名称数据类型长度主键允许空员工编号文本6是员工姓名文本10是计发日期文本6否部门名称文本50是底薪数字单精度型是奖金数字单精度型是补贴数字单精度型是加班费数字单精度型是房帖费数字单精度型是扣考核数字单精度型是养老金数字单精度型是医疗保险数字单精度型是住房公积金数字单精度型是税前小计数字单精度型是所得税数字单精度型是实发工资数字单精度型是表5 口令信息表字段名称数据类型长度主键允许空用户名文本20是密码文本10是权限文本6是4详细设计工作4.1数据模块创建将数据库连接、数据表和数据源等运行期不可见的组件都放在窗体设计界面上，虽然在调用时比较直观，但却为界面布局设计带来的麻烦，而且也不利于数据的统一管理。因此，在设计时，选择使用ADO来控制管理数据库6。ADO活动数据访问接口是Microsoft处理数据库信息的最新技术。采用OLE DB的数据访问模式。ADO主要的几个对象包括：Connection (制定连接数据库的来源) Command（发出命令信息从数据源获取所需数据） Recordset（由一组记录组成的记录集） Error（访问数据源时所返回的错误信息） Parameter（与命令对象有关的参数） Filed（记录集中某个字段的信息）。MSHFlexGrid控件可以对表格数据进行显示和操作。还可以将包含字符和图片的表格进行分类、合并以及格式化。具有很大的灵活性。当将其绑定到控件上时，MSHFlexGrid所显示的数据是只读的7。在程序模块中定义记录集，并在各个窗体中定义记录集变量，使输入数据能与数据库连接，并都用程序进行控制，这样不用数据控件都用代码控制大大提高了程序运行效率8。 部分有关代码如下：Dim rc As New ADODB.Recordset 定义记录集变量Cnndb.Open provider=microsoft.jet.oledb.4.0;data source = & App.Path & 企业考勤系统.mdb 确定数据库位置Dim rc As New ADODB.Recordset 定义记录集变量If rc.State = 1 Then rc.Close 判断当前表的状态是否打开，是则关闭rc.Open SQL, Cnndb, 3, 2 打开当前表4.2用户登录模块设计4.2.1设计思路每个用户登录系统都须经过身份验证。只有用户名和密码相对应才能进入系统。因为在系统设置中已经对系统使用权限进行了规定，所以，在用户登录的同时也决定了用户对系统使用的权限。当登录者是管理员身份时，他可以使用系统提供的所有功能，并能对所有用户进行管理。登录者是操作员时可以使用所有对数据的编辑功能，而如果登录者是一般用户时只能实现进行资料查询功能。4.2.2用户登录界面设计用户登陆界面，根据用户权限的不同，各个登陆者有不同使用范围。若用户名与密码不相符和，会提示用户名或密码错误。若错误次数超过六次，系统将自动退出，以免非法用户进入。用户登录界面设计如图3所示。图3用户登录界面设计 登陆主界面的相关代码Private Sub DataFind() 数据查找 Dim SQL As String If TxtYhm.Text = Then SQL = select * from 口令信息 where 用户名= or 用户名 is null Else SQL = select * from 口令信息 where 用户名= & TxtYhm.Text & End If If rc.State = 1 Then rc.Close rc.Open SQL, Cnndb, 3, 2 If rc.EOF Then MsgBox 用户名不存在!, vbInformation TxtYhm.SetFocus i = i + 1 If i = 5 Then End End If Exit Sub Else If TxtYhm.Text = And TxtMm.Text = Then SQL = select * from 口令信息 where (用户名 = or 用户名 is null) and (密码 = or 密码 is null) ElseIf TxtYhm = And TxtMm Then SQL = select * from 口令信息 where (用户名 = or 用户名 is null) and 密码 = & TxtMm.Text & ElseIf TxtYhm And TxtMm = Then SQL = select * from 口令信息 where 用户名 = & TxtYhm.Text & and (密码 = or 密码 is null) Else SQL = select * from 口令信息 where 用户名 = & TxtYhm.Text & and 密码 = & TxtMm.Text & End If If rc.State = 1 Then rc.Close rc.Open SQL, Cnndb, 3, 2 If rc.EOF Then MsgBox 密码不正确!, vbInformation TxtMm.SetFocus i = i + 1 If i = 5 Then End End If Exit Sub Else DLYongHuMing = rc.Fields(用户名).Value DLQuanXian = rc.Fields(权限).Value If rc.Fields(权限).Value = 管理员 Then QuanXian = (管理员) End If If rc.Fields(权限).Value = 操作员 Then QuanXian = (操作员) 主窗体.Men_Yhgl.Visible = False 主窗体.Men_Dlrz.Visible = False End If If rc.Fields(权限).Value = 一般用户 Then QuanXian = (一般用户) 主窗体.Men_Bjbmxx.Visible = False 主窗体.Men_Bjygxx.Visible = False 主窗体.Men_Bjkqxx.Visible = False 主窗体.Men_Bjgzxx.Visible = False 主窗体.Men_Sjbf.Visible = False 主窗体.Men_Sjhf.Visible = False 主窗体.Men_Gng.Visible = False 主窗体.Men_Yhgl.Visible = False 主窗体.Men_Dlrz.Visible = False End If YongHuMing = TxtYhm.Text MiMa = TxtMm.Text Call DataSave Unload Me 主窗体.Show End If End IfEnd Sub4.2.3考勤系统主界面设计根据系统模块结构，建立系统主界面。用户登录到系统后进入的就是主界面,所有功能一目了然9。当不同权限的用户登录到该界面时功能有所不同，其控制由“用户登录”界面控制。若用户没有此权限则相应的菜单不会显示。4.2.4部门信息管理部门信息编辑实现的功能是对公司各部门资料信息的存储与编辑，部门信息包括：部门编号（两位）、部门名称、备注。部门编号与部门名称都具有唯一性，不能重复。作为部门信息与员工信息有着密切的关系，每一名员工都从属一个部门。在该窗体内可以对部门信息进行相应的添加、查询、修改、删除、打印等操作10。如图4所示。图4 编辑部门信息图数据添加按钮：当操作员进入系统，根据设计要求，需要添加新的部门信息时，在编辑部门信息窗体上按添加按钮，便进入添加状态，文本框自动清空，添加按钮变为确定按钮，光标会停留在部门编号文本框上，此时系统已自动生成一个新的部门编号，只需输入部门名称和备注信息即可完成部门信息编辑操作，当然部门编号也是可以修改的。在按窗体上的确定按钮即可检查该部门信息是否合法并存入数据库，若输入的部门名称已经存在，则会有相应的提示，并且不能添加成功。否则按取消按钮。再点击添加按钮，用户可再次添部门信息记录。相关代码如下：Private Sub CmdAdd_Click() ChangeCheck = False If CmdAdd.Caption = 添加 Then CmdAdd.Caption = 确定 CmdExit.Caption = 取消 Call TxtKong Call AutoTxtbmbh Txtbmbh.SetFocus CmdFind.Enabled = False CmdChange.Enabled = False CmdDel.Enabled = False Else If CmdExit.Caption = 取消 Then If DataSaveCheck = False Then Exit Sub Call DataSave Call DataFresh( select * from 部门基本情况 ) CmdAdd.Caption = 添加 CmdExit.Caption = 返回 CmdFind.Enabled = True CmdChange.Enabled = True CmdDel.Enabled = True Call TxtKong Txtbmbh.SetFocus Call LCount End If End IfEnd Sub数据查询按钮：当管理员需要对某个部门进行查询时，可以在编辑部门信息窗体下部中找到查询按钮。先在对应的文本框中输入要进行数据查询的条件，输入完查询条件后，可以按照部门编号、部门名称进行相应的查询。点击查询按钮进行确定，系统便会查询出满足条件的部门记录，并列到数据表格中，无满足条件的部门记录时，则弹出对话框提示“查无此记录！”11。数据查询的相关代码如下：Private Sub DataFind() 数据查找 Dim M As Integer Dim SQL As String SQL = If Txtbmbh.Text Then SQL = SQL & and 部门编号 = & Trim(Txtbmbh.Text) & If Txtbmmc.Text Then SQL = SQL & and 部门名称 = & Trim(Txtbmmc.Text) & If TxtBz.Text Then SQL = SQL & and 备注 = & Trim(TxtBz.Text) & If SQL Then SQL = select * from 部门基本情况 where 部门编号 & SQL If rc.State = 1 Then rc.Close rc.Open SQL, Cnndb, 3, 2 If rc.EOF Then M = MsgBox(查无此记录, vbInformation) Exit Sub End If Call DataFresh(SQL) End IfEnd Sub数据修改按钮：当管理员需要对某个部门进行修改时，可以在编辑部门信息窗体下部中找到修改按钮。由于修改记录不可能在大量的数据中盲目的寻找，因此数据修改应该与数据查询按钮结合使用，先用查询功能进行对要修改记录的搜索，再在数据表格中选中要修改的部门记录，便把此部门记录读入文本框中，只需在文本框中直接进行数据修改便可，修改完后按修改按钮进行确定，系统并对修改后的数据进行合法性检测，合法则修改成功。并且部门的相关信息修改以后，员工信息管理窗体中的部门信息也会相应的修改。数据删除按钮：当管理员需要对某个或多个部门进行删除时，可以在编辑部门信息窗体下部中找到删除按钮。由于删除记录不可能在大量的数据中盲目的寻找，因此数据删除也有数据查找功能，先在对应的文本框中输入要进行数据删除的条件，再按删除按钮，系统便会列出满足删除条件的部门记录，并提示是否删除满足条件的全部部门记录，也可以一条一条删除部门记录，只要在数据表格中选中要删除的部门记录，在按一下删除按钮即可删除数据。清空按钮：点击清空按钮可使所有文本框清空，方便用户进行其它操作。打印按钮：可打印显示出来的部门的相关信息12。如图5所示。图 5 部门基本情况图浏览部门信息：窗体主要针对一般用户，只有浏览功能，因为一般用户只有浏览的权限。并能从此窗体中了解各部门现有人数，这是在编辑部门信息中无法获得的信息。4.2.5员工信息管理编辑员工信息实现的功能是对公司员工资料信息的存储与编辑，方便对员工的分类与管理。员工编号具有唯一性，不能重复。在此窗体中输入的信息都进过合法性检测，判断员工编号是否出现重复，位数是否为6位（前两位为部门编号，后四位为员工自身编号）等，如图6所示。图6 编辑员工信息图数据添加按钮：当操作员进入系统，根据设计要求，需要添加新的员工信息时，在编辑员工信息窗体上按添加按钮，便进入添加状态，文本框自动清空，添加按钮变为确定按钮，光标会越过员工编号停留在员工姓名文本框上，此时系统已自动生成一个新的员工编号，只需输入员工名称和其它信息即可完成员工信息编辑操作，在按窗体上的确定按钮即可检查该员工信息是否合法并存入数据库，并且如果相应的信息没有添加则会有相应的提示，并且光标将自动锁定到未添加的文本框中。否则按取消按钮。再点击添加按钮，用户可再次添员工信息记录。 数据查询按钮：当操作员需要对某个员工信息进行查询时，可以在编辑员工信息窗体下部中找到查询按钮。先在对应的文本框中输入要进行数据查询的条件，输入完查询条件后，点击查询按钮进行确定，系统便会查询出满足条件的员工记录，并列到数据表格中，无满足条件的员工记录时，则弹出对话框提示“查无此记录！”。数据修改按钮：当操作员需要对某个员工信息进行修改时，可以在编辑员工信息窗体下部中找到修改按钮。由于修改记录不可能在大量的数据中盲目的寻找，因此数据修改应该与数据查询按钮结合使用，先用查询功能进行对要修改记录的搜索，再在数据表格中选中要修改的员工记录，便把此员工记录读入文本框中，只需在文本框中直接进行数据修改便可，修改完后按修改按钮进行确定，系统并对修改后的数据进行合法性检测，合法则修改成功。数据删除按钮：当操作员需要对某个或多个员工信息进行删除时，可以在编辑员工信息窗体下部中找到删除按钮。由于删除记录不可能在大量的数据中盲目的寻找，因此数据删除也有数据查找功能，先在对应的文本框中输入要进行数据删除的条件，再按删除按钮，系统便会列出满足删除条件的员工记录，并提示是否删除满足条件的全部员工记录，也可以一条一条删除员工记录，只要在数据表格中选中要删除的员工记录，在按一下删除按钮即可删除数据。清空按钮：点击清空按钮可使所有文本框清空，方便用户进行其它操作。打印按钮：可打印显示出来的相关信息。浏览员工信息窗体主要针对一般用户，只有浏览功能，因为一般用户只有浏览的权限。并能根据部门名称、出生日期、来到