人事管理_毕业设计论文-人事管理系统

目录 摘 要1Asbtract2第一章 引 言312 Access 2000 的介绍3第二章 研究现状及设计目标421 人事管理系统简介4211 人事管理系统的发展历史4212 人力资源开发的目的42.2人事管理相关软件简介523 企业信息化发展6第三章 要解决的几个关键问题631应用人事管理系统的必要63.2 系统可行性分析73.3 系统详细调查73.3.1 功能需求73.3.2 数据需求73.3.3 运行环境7第四章系统结构与模型74.1人事管理系统的详细调查74.2系统逻辑模型的提出743模块设计94.4 数据库实现104.5 数据字典10第五章 系统实现技术1251 开发环境的选择125.1.1 前端开发工具 Visual Basic 6.0 简介125.1.2 后台数据库引擎Access简介125.2 人事管理系统模块设计举例125.2.1 建立公共模块125.2.2 添加公共模块125.3 系统运行与维护265.3.1 初始数据的输入265.3.2 怎样进入系统265.3.3 怎样使用本系统275.3.4 系统的主要维护27第六章 性能测试与分析27结束语28参考文献29致 谢30摘 要随着计算机技术的不断发展，计算机作为知识经济时代的产物，已被广泛应用于社会各个行业和领域。随着我国国企改革的深入和社会主义市场经济的日趋繁荣，导致各企业间的竞争日益激烈，迫使企业采取先进的计算机硬件设备以及高质量的辅助软件来管理企业的各项运作，以提高本企业的劳动生产率以及人员效率。人事管理系统软件作为一种管理软件正在各企事业单位中得到越来越广泛的应用。本论文是从现代企业管理中的人事管理现状出发，针对人事管理的复杂程序，经过详细的系统调查，开发出的操作简单而且方便实用的一个人事管理系统。对企业中的考勤信息、请假信息、加班信息、出差信息、调动信息进行管理。本系统用Visual Basic 6.0编写，后台数据库选用Access 2000。英文摘要。关键词：人事管理系统、管理信息系统、电子数据处理、数据库、AsbtractAlready is been apply in the social each profession and realms extensively.Reform along with the our country state-owners enterprise thorough is gradually prosperous with the socialism market economy, cause the competition between each business enterprises increasingly vigorous, force the assistance software of the calculator hardware equipments and high quantity that the business enterprise adopts the forerunner to manage various operations of the business enterprise, to raise labor rate of production and personnels efficiencies of this business enterprise.The personal management system software is a kind of management software just get the more and more extensive application in each business unit.This thesis is from the modern business enterprise present condition, aim at the personal management of the complicated procedure operation, pass by detailed system investigate, develop simple and convenient practical such a personal management system.The head tool of this system development is Visual Basic 6.0, the engine of the backstage database software choose to use is Access 2000.This system through tests, and run stability, and have already got the approbation.Keywords：Personal management system, the management information system, the electronics data processing, database。 第一章 引 言计算机技术已经进入实用阶段，同时大型企业用手工来计算和发放薪资既费时费力又非常容易出差错，为了解决这个矛盾同时由于个人电脑的普及，数据库技术、客户/服务器技术，特别是Internet/Intranet技术的发展，友好的用户界面，强有力的报表生成工具、分析工具和信息的共享使得人力资源管理人员得以摆脱繁重的日常工作，集中精力从战略的角度来考虑企业人力资源规划和政策。11 Visual base 的介绍VB6.0已经成为功能强大、使用人数众多的主流编程工具。它提供了向导自动生成代码，支持拖放技术、属性检查、实时语法检查等内置自动化技术，大大降低了编写代码的工作量，同时它还提供了极其丰富的控件，使得VB6.0成为最简捷、最有效的开发Windows应用程序工具。随着网络技术的不断发展，VB6.0的应用范围已从开发单机软件发展的开发网上分布式应用软件。VB6.0不但受到广大初、中级计算机爱好者的欢迎，也越来越受到高级程序员的欢迎。12 Access 2000 的介绍用Access2000作为后台数据库。数据库是信息管理系统的后台，存储着所有的信息，在信息管理系统中有着很重要的地位。数据库设计的好坏，直接影响到这个系统的运行效率。良好的数据库设计，可以提高数据信息的存储效率保证数据信息的完整性和一致性。Access2000是Office2000中文版的组件之一。与以前的Access版本相比，Access2000不仅界面更加友好，而且功能也有了加强，尤其是网络功能有明显的提高，使Access2000与互联网的结合更加紧密。Access2000是一个中、小型数据库管理系统，使用方便、功能强大，与其它数据库有良好的接口。通过Access2000功能强大的工具，用户可以方便的使用和管理数据库，如创建和编辑数据表、设计和使用各种查询工具进行查询操作、设计和使用窗体、制作和打印报表、设计和使用宏、设计和使用Web页等。Access2000具有完整的数据库应用开发工具，用户可以方便的设计、修改、浏览一个记录数据的基本表；可以在表数据中进行各种筛选和查询操作；可以设计和使用各种窗体以实现数据显示和操作；可以根据表数据设计打印各种报表；可以设计和使用宏，对表进行一系列特定的操作。Access2000内有强大的操作向导，为用户提供了丰富的数据库基本表模板。用户只需简单的操作就可建立数据库中所使用的各种基本表、窗体和报表。在Access2000中，可以设定、修改基本表之间的关联，从而实现在多个相关表之间的关系查询。Access2000中的宏可以实现操作的自动化，使操作更加简单、快捷。Access2000不仅可以处理自身的数据库文件，还可以处理其它一些数据库系统管理软件所建立的数据库文件，能识别dBase、FoxBase、FoxPro、Paradox、Btrieve等数据库格式文件，并且支持开放式数据库互连性标准的SQL。Access2000能与工作站、数据库服务器或主机上的各种数据库互相连接，并可用于建立客户/服务器应用程序中的工作站部分。第二章 研究现状及设计目标21 人事管理系统简介随着市场竞争的日趋激烈，人已成为实现企业自身战略目标的一个非常关键的因素。企业中人心的向背和员工对工作的投入程度在很大程度上决定了该企业的兴衰与成败。如何能保持本企业员工的工作责任感，激励他们的工作热情，减少人才的流失，已成为困扰企业主管和人力资源经理的一个日益尖锐的问题。企业管理从根本上来讲就是对人的管理。211 人事管理系统的发展历史人力资源管理系统的发展历史可以追溯到20世纪60年代末期。由于当时计算机技术已经进入实用阶段，同时大型企业用手工来计算和发放薪资既费时费力又非常容易出差错，为了解决这个矛盾，第一代的人力资源管理系统应运而生。当时由于技术条件和需求的限制，用户非常少，而且那种系统充其量也只不过是一种自动计算薪资的工具，既不包含非财务的信息，也不包含薪资的历史信息，几乎没有报表生成功能和薪资数据分析功能。但是，它的出现为人力资源的管理展示了美好的前景，即用计算机的高速度和自动化来代替手工的巨大工作量，用计算机的高准确性来避免手工的错误和误差，使大规模集中处理大型企业的薪资成为可能。第二代的人力资源管理系统出现于20世纪70年代末。由于计算机技术的飞速发展，无论是计算机的普及性，还是计算机系统工具和数据库技术的发展，都为人力资源管理系统的阶段发展提供了可能。第二代人力资源管理系统基本上解决了第一代系统的主要缺陷，对非财务的人力资源信息和薪资的历史信息都给予了考虑，其报表生成和薪资数据分析功能也都有了较大的改善。但这一代的系统主要是由计算机专业人员开发研制的，未能系统地考虑人力资源的需求和理念，而且其非财务的人力资源信息也不够系统和全面。人力资源管理系统的革命性变革出现在20世纪90年代末。由于市场竞争的需要，如何吸引和留住人才，激发员工的创造性、工作责任感和工作热情已成为关系企业兴衰的重要因素，人才已经成为企业最重要的资产之一。“公正、公平、合理”的企业管理理念和企业管理水平的提高，使社会对人力资源管理系统有了更高的需求；同时由于个人电脑的普及，数据库技术、客户/服务器技术，特别是Internet/Intranet技术的发展，使得第三代人力资源管理系统的出现成为必然。第三代人力资源管理系统的特点是从人力资源管理的角度出发，用集中的数据库处理几乎所有与人力资源相关的数据（如薪资福利、招聘、个人职业生涯的设计、培训、职位管理、绩效管理、岗位描述、个人信息和历史资料）统一管理起来，形成了集成的信息源。友好的用户界面，强有力的报表生成工具、分析工具和信息的共享使得人力资源管理人员得以摆脱繁重的日常工作，集中精力从战略的角度来考虑企业人力资源规划和政策。212 人力资源开发的目的人力资源管理是企业管理中的一个重要内容，随着时代的进步，企业也逐渐变得庞大起来。如何管理好企业内部员工的信息，成为企业管理中的一个大问题。在这种情况下，开发一个人力资源管理系统就显得非常必要。人力资源管理系统就是把企业离散的人员信息加以集中分类的处理，通过它的管理，可以将分类处理后的信息，直观的提供给管理人员，加强对企业用人的优化分配，充分发挥人的作，提高企业整体工作效率，创造价值。 本系统结合公司实际的人事、制度，经过实际的需求分析，采用功能强大的Visual Basic6.0作为开发工具而开发出来的单机版人事管人事理系统。整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发，完成人力资源管理的全过程，包括新进员工加入时人事档案的建立、老员工的转出、职位等的变动引起职工信息的修改、员工信息查询、统计等人力资源管理工作以及新进员工人事的新增、老员工人事修改、删除等人力资源管理工作。经过实际使用证明，本文所设计的人力资源管理系统可以满足公司人力资源管理方面的需要。2.2人事管理相关软件简介近几年来，国内外与人力资源管理有关的系统和程序的发展都非常迅速，众多的软件有如雨后春笋般地不断涌现。这些软件尽管各有特点，但从功能上来分析，大致可分为如下五种：1. 薪资和福利计算程序。这类程序通常可用于管理企业薪资和福利计算的全过程，其中包括企业的薪资和福利政策设定、自动计算个人所得税、自动计算社会保险等代扣代缴项目。通常，这些程序还可以根据公司的政策设置并计算由年假、事假、病假、婚假、丧假等带薪假期以及迟到、早退、旷工等形成的对薪资和福利的扣减，能够设定企业的成本中心并按成本中心将薪资和总账连接起来，直接生成总账凭证，还能存储完备的历史信息供查询和生成报表；这类系统也可处理部分简单的人事信息。2. 培训管理系统。培训管理系统一般通过培训需求调查、预算控制、结果评估和反馈以及培训结果记载等手段，实现培训管理的科学化，并且和人力资源信息有机地联系起来，为企业人力资源的配备和员工的升迁提供科学的依据。3. 考勤管理程序。为了有效地记载员工的出勤情况，很多企业配置了打卡机，考勤机等设备。考勤管理程序一般都与这些设备相接，根据事先的编排的班次信息，过滤掉错误数据，生成较为清晰的员工出勤报告，并可转入薪资和福利程序中，使考勤数据与薪资计算直接挂钩。其生的文档还可作为历史信息保存，用于分析，统计和查询。4. 人力资源管理系统。人力资源管理系统从科学的人力资源管理角度出发，从企业的人力资源规划开始，一般包括招聘、岗位描述、培训、技能、绩效评估、个人信息、薪资和福利、各种假期、到离职等与员工个人相关的信息，并以一种相容的、一致的、共享的、易访问和检索的方式储存到集中的数据库中，从而将企业内员工的信息统一的管理起来。其灵活的报表生成功能和分析功能使得人力资源管理人员可以从繁琐的日常工作中解脱出来，将精力放到更富有挑战性和创造性的人力资源分析、规划、员工激励和战略等工作中去。5. 完整的历史信息记载了员工从面试开始到离职整个周期的薪资、福利、岗位变迁、绩效等信息。同时由于这类系统可管理较全面的人力资源和薪资数据，因而还可以生成许多综合性的报表供企业决策人员参考，如生成按岗位的平均历史薪资图表，员工配备情况的分析图表，个人绩效与学历、技能、工作经验、接受过的培训等关系的分析等等。23 企业信息化发展随着信息时代的到来，企业的信息化已被提上日程。企业自然会考虑下述问题：在规划方案中，哪些功能是必需的？哪些并不适合自己的公司？遗漏了哪些必需功能？企业建立管理信息系统时，现行的工作流程还需要怎么调整才能使工作效率真正提高？企业管理信息系统将来的运行、维护、升级、改造成本有多高？选择什么样的管理信息系统软件平台开发自己的管理信息系统最可靠而且经济？而只有对以下三个问题进行分析，才有助于推动企业的信息化。1、信息是现代企业管理的核心。在开始着手规划和建立企业的管理信息系统时，要坚信信息技术的发展将在企业的管理过程中起着越来越重要的地位，而且越来越决定着企业管理的效果和效率。在提高和改善企业管理的过程中，应该明白如何采用管理信息系统这一有效管理工具，以及它是如何在企业的管理中起作用的。随着企业规模的扩大，其管理组织会变得越来越庞大和困难，而信息的处理与使用也变得越来越重要。2、在规划和建设一个企业的管理信息系统时，有可能误认为企业的管理信息系统就是在企业原有管理模式上加入计算机信息处理。其实，一个好的管理信息系统绝不是企业原有的管理模式和计算机信息处理的简单相加，建立管理信息系统的目的是通过实现对企业信息处理的现代化而达到高效完成管理工作，所以一个好的管理信息系统的模型一定要能够与当今信息技术紧密相连，并能够充分利用其优良性能。3.企业信息化是一个过程。企业的信息化规划和建设是一个不断改进、逐步提高的过程。在这样一个复杂的系统中存在着大量的作用因素，只能通过长斯不断的努力才能达到目的，在企业信息化的规划和建设过程中，不可将职工的计算机和软件使用培训等视为可有可无，信息化的发展使计算机和软件成为企业日常管理中的必然。第三章 要解决的几个关键问题31应用人事管理系统的必要现在不少企业管理人员已经认识到采用人力资源管理系统的必要性，纷纷开发或选购适合本企业特点的人力资源管理系统。人事管理系统具体以下优点：1、采用人事管理系统，可以用集中的数据库将与人力资源管理相关的信息全面、有机地联系起来，有效地减少了信息更新和查找中的重复劳动，保证了信息的相容性，从而大大地提高了工作效率，还能使原来不可以提供的分析报告成了可能。2、人事管理系统有着易访问、易查询的信息库。在没有采用和实施人事管理系统之前，当企业管理人员要统计数字时，往往依赖于某个人或某些人来获取。这种依赖于人的过程往往会因为花费的时间较长或某个人不在办公室而不能及时完成。在采用和实施人事管理系统之后，就会将依赖于人的过程改为依赖于计算机系统的过程。企业管理人员只要获取了相应的权限，就可以随时进入系统，直接查阅相应的信息。实施了人事管理系统之后，不仅可以得到较为全面的、详细的、未经过过滤的第一手人事信息，发现不公平的现象，甚至还可以从中得到某些灵感和启发，从而改进企业的管理。这种透明性还可以规避企业管理中潜在的风险。3、采用和实施人事管理系统不仅仅是为了提高工作效率。应该看到，在实施人事管理系统之后，经过整合的、较为全面、准确、一致和相容的信息不仅可以让企业领导对本企业人力资源的现状有一个比较全面和准确的认识，同时也可以生成综合的分析报表供企业领导人在决策时参考。这就提高了企业的管理水平。3.2 系统可行性分析人事管理系统在企业中占有极其重要的地位，它关系着企业内部每个职员的档案，其中包括新职员的增加，职员档案的查找，职员的详细资料等等。对于企业来讲，人事管理系统是不可缺少的组成部分，它有效地管理企业的员工，对企业内部人事的流动和分配起着重要的管理作用，它正确地反映着企业的人事变化。3.3 系统详细调查3.3.1 功能需求基于以上的开发目标，系统开发的范围确定如下：1、本系统只涉及人事资料部分，不包括工资计算等项目；2、本系统提供强大的查询功能，可进行不同类型查询，提供多种索引；3、本系统提供记录的添加，删除和修改；本系统可单条或多条输出个人资料，并可打印相关报表。3.3.2 数据需求通过调查和研究，本系统仅提供一个数据库，但该数据库包含各项所需信息，表名为person.3.3.3 运行环境本系统对计算机的要求并不高，只要是在Windows 98/XP/2000操作系统中都可运行。第四章 系统结构与模型4.1人事管理系统的详细调查对现行管理业务进行详细调查是了解系统需求和进行系统分析和设计的重要基础工作，因此要对企业的人事管理工作进行全面、细致而充分的调查研究。系统调研采取的主要方法是到现场去，通过座谈、询问、观察甚至直接参与管理活动，自上而下、逐步细化的进行了解。4.2系统逻辑模型的提出系统分析的主要成果是系统的逻辑模型。本系统的逻辑模型主要是以系统的数据流图和数据字典为主要描述工具。即在对人事管理方式和业务流程进行认真分析和研究的基础上，排除现有组织机构和业务分工所造成的信息障碍。完全从业务管理功能和管理对象出发，按照信息系统中应有的数据流和数据结构来勾画系统的概貌。（附密码验证流程图） 开 始N 提 示提示登录本程序输 入是否退出?Y输入用户密码退出系统显示错误调用密码检测子程序进入人事管理系统图4-1密码验证流程图企业人事管理系统E-R流程图:Email电话参加工作时间住址邮编编号 进入公司时间姓名性别籍贯名称m部门年龄员工类别生日学历 专业职务部门起薪时间图4-2 企业人事管理系统ER图43模块设计按照功能分析及数据库的设计结果，为本系统设计如下模块，最终得到如下图所示的功能模块图： (附图)企业人事管理系统员工基本信息管理员工考勤信息管理员工调动信息管理系统添加员工基本信息修改员工基本信息查询员工基本信息删除员工基本信息添加员工考勤信息修改员工考勤信息查询员工考勤信息删除员工考勤信息添加员工调动信息修改员工调动信息查询员工调动信息删除员工调动信息添加用户、修改密码 图4-3企业人事管理系统模块图从总体结构图容易列出应用程序的菜单，由总体结构图转换到菜单时，其对应情况如下：系统对应菜单文件，子系统层对应菜单标题，功能层对应子菜单项。本系统所使用的模块包括：系统模块，员工调动信息模块，员工考勤模块，员工基本信息模块等。1、系统：系统启动的时候有一个管理员用户,使用这个用户登录后,可以添加其它用户,而且每一个用户都可以更改自己的密码。2、员工基本信息（1）添加员工信息:系统自动生成员工编号,管理员可以添加员工的基本信息,包括姓名、性别、籍贯、年龄、生日、住址、E-mail、学历、专业、进入本公司时间等。（2）修改员工信息：选择一个员工，可以修改这个员工的基本信息。（3）查询员工信息：可以根据员工的编号、姓名或者进入公司的时间进行查询员工基本信息。并且可以针对查询结果进行修改和删除操作。（4）删除员工信息：直接从列表中选中需要删除的员工信息，然后进行删除操作，或者首先查询需要删除的员工信息，然后再删除。3、员工考勤信息：添加考勤信息:主要分为上下班信息和其他考勤信息.上下班信息主要记录每个员工每天上下班的时间,而其他考勤信息包含有请假、加班、出差信息。（1）修改考勤信息：当考勤信息出现错误需要修改的时候，可以从这里修改相应的记录。（2）查询考勤信息：分为删除上下班信息和删除其他考勤信息。（3）删除考勤信息：分为删除上下班信息和删除其他考勤信息。（4）设置上下班时间：设置公司上下班时间。4、员工调动信息（1）添加调动信息：添加企业员工的原有部门、原有职务、新部门、新职务等信息。（2）修改调动信息：修改相应的员工调动信息。（3）查询调动信息：查询某个员工的调动信息或者某段时间内企业内部的调动情况。4.4 数据库实现本程序采用Access作为数据库引擎，其主要原因是考虑到现在的大多数办公室应用系统软件均支持Access数据库，所以只要应用于格式符合的计算机系统上即可运行，并且由于Access与VB皆是微软公司开发出来的软件，所以它们之间的兼容性非常好，容易配合使用。在本程序数据库中，还采用了数据库链接系统，它维护了数据的独立性，而且可以与其他程序链接，达到数据的关联，方便地应用于其他的程序中。由于本系统只是进行一般的数据库操作，对速度要求并不十分高，所以数据库中未调用Windows API函数。4.5 数据字典数据流图中的全部数据流及其组成部分的数据元素，数据存储，数据加工，通过数据字典描述清楚,以便于此后系统设计的进行。下边是数据项的数据字典:1、管理添加、修改、查询、删除员工基本信息：进行删除加入员工的内容情况，入数据：编号+姓名+性别+籍贯+年龄+生日+学历+专业+住址+邮编+电话+ EMAIL+参加工作时间+进入公司时间+起薪时间+部门+职务。2、考勤信息也是（添加+修改+查询+删除）。3、调动信息也是同样的，可以根据企业的需要而进行（添加+删除+查询+修改）来进行企业内部的调整。4、登陆=用户名+登陆密码（可以在内部进行添加和修改密码）。用户添加=输入用户名+密码+确认密码。修改密码=输入旧密码+新密码+确认密码。员工的基本信息包括：编号、姓名、性别、籍贯、年龄、生日、学历、专业、住址、邮编、电话、EMAIL、参加工作时间、进入公司时间、起薪时间、部门、职务。下边列有详细列表：表1 员工基本信息表字段名类 型长 度说 明员工编号文本8个字节每个员工都有唯一的一个编号，编号是某位员工的唯一标识。员工姓名文本8个字节每个员工都有唯一的姓名，若出现重名现象，我们可以查看此员工的编号进行区别。性别文本2个字节性别仅有两种情况，为了便于录入,在设计时可以采用单选按钮或下拉列表框的方式。籍贯文本12个字节 员工的出生地。年龄数字2个字节员工的岁数, 最低年龄为16岁。此外还要统计退休的人员岁数,所以取值范围为16-99.生日日期/时间8个字节员工的出生日期。学历文本8个字节因为员工的学历分为高中，中专，大专，本科，硕士，博士，博士后这几种情况。专业文本20个字节员工取得现有学历时所学的专业。住址文本26个字节员工现在的家庭住址，若员工的家庭住址变动，再进行改动。邮编文本6个字节员工家庭住址的邮政编码。因现在我国的邮政编码为6个字节。电话文本12个字节 现在的电话大部分为7位或8位，再加上其它的所以设为12位。Email文本 20个字节员工的邮箱地址。参加工作时间日期/时间 16个字节员工参加工作时间。进入公司时间日期/时间16个字节员工进入本公司时间，注意与参加工作时间不同。部门文本 12个字节员工所在的部门，员工可能在不同的部门中调动，根据定期的员工信息登记表进行修改。起薪时间日期/时间16个字节员工从事相应的工作可以领取相应的薪金的时间。职务文本16个字节员工在相应的工作岗位所承担的职责。 第五章 系统实现技术51 开发环境的选择5.1.1 前端开发工具 Visual Basic 6.0 简介Visual Basic 是在世界范围内广泛使用的一种强大的编程语言，它为 Windows 应用程序的开发提供了最迅速和便捷的方法。Visual Basic 是基于 Windows 的开发语言，所以有必要与 Windows 环境保持一定的相似性。简单地说就是三个关键的概念：窗口、事件和消息。Visual Basic 与传统的编程评议不同，它使用交互式方法开发应用程序，使得三个步骤之间不再有明显的界限。在大多数语文里，如果编写代码时发生了错误，则在开始编译应用程序时该错误就会被编译器捕获，此时必须查找并改正该错误，然后再次进行编译，对每一个发现的错误都要重复这样的过程。Visual Basic 在编程者输入代码时便进行解释，即时捕获并突出显示大多数语法或拼写错误，这看起来就像一位专家在实时监视代码的输入。除即时捕获错误外，Visual Basic 也在输入代码时部分地编译该代码。当准备运行和测试应用程序时，只需极短时间即可完成编译。如果编译器发现了错误，则将错误突出显示于代码中。由于 Visual Basic 的交互特性，因此可以发现在开发应用程序时，可以频繁地运行应用程序。通过这种方式，代码运行的效果可以在开发时进行测试，而不必等到编译完成以后。5.1.2 后台数据库引擎Access简介Access 2000 是一套简单易学的数据库软件除了可以单机作业之外，也增强了与后端的SQL Server 7.0 服务器的链接功能，方便建立主从式结构的数据库环境。Access 是一套管理数据库的应用软件，即数据库管理系统。数据库是指一群可组织有系统的数据集合。Access 中，整理好的数据将按数据的用途，分别存于不同的表中，Access 数据库中包含多个表及其它数据库对象。5.2 人事管理系统模块设计举例5.2.1 建立公共模块 运行VisualBasic后，选择“文件”“新建工程”菜单，然后从工程模板中选择“标准EXE”项，单击“确定”按钮。VisualBasic就会自动生成一个窗体，这个窗体的属性采用的都是默认设置。在这个实例中，先删除这个窗体，然后选择“文件”“保存工程”菜单，在出现的“文件另存为”对话框中输入这个工程项目的名称stuff_mis,并且选择要保存这个工程的目录，单击“保存”按钮，保存工程。为了提高代码的效率方便维护，在VisualBasic中可以用公用模块来存放工程中经常使用的函数、过程和全局变量等。在这个系统中，每个功能模块都要使用数据库，因此可以使用一个公用有数据操作函数，来执行一系列的SQL语句。5.2.2 添加公共模块 在项目资源管理器中为这个工程添加一个模块，保存为Module1.bas.代码如下：Public gUserName As String 保存用户名称Public flag As Integer 添加和修改的标志Public gSQL As String 保存SQL语句Public kqsql As String 保存查询考勤结果SQL语句Public kqsql2 As String 保存查询其他考勤结果SQL语句Public ArecordID As Integer 保存上下班记录编号Public LrecordID As Integer 保存请假记录编号Public OrecordID As Integer 保存加班记录编号Public ErecordID As Integer 保存出差记录编号Public iflag As Integer 数据库是否打开标志Public Function TransactSQL(ByVal SQL As String) As ADODB.RecordsetDim con As ADODB.ConnectionDim rs As ADODB.RecordsetDim strConnection As StringDim strArray() As StringSet con = New ADODB.Connection 创建连接Set rs = New ADODB.Recordset 创建记录集On Error GoTo TransactSQL_Error strConnection= Provider=Microsoft.jet.oledb.4.0;Data Source= & App.Path & Person.mdb strArray = Split(SQL) con.Open strConnection 打开连接 If StrComp(UCase$(strArray(0), select, vbTextCompare) = 0 Then rs.Open Trim$(SQL), con, adOpenKeyset, adLockOptimistic Set TransactSQL = rs 返回记录集 iflag = 1 Else con.Execute SQL 执行命令 iflag = 1 End IfTransactSQL_Exit: Set rs = Nothing Set con = Nothing Exit FunctionTransactSQL_Error: MsgBox 查询错误： & Err.Description iflag = 2 Resume TransactSQL_ExitEnd FunctionPublic Sub TabToEnter(Key As Integer) If Key = 13 Then 判断是否为回车键 SendKeys TAB 转换为Tab键 End IfEnd SubSub main() Dim fLogin As New frmLogin fLogin.Show vbModual 显示窗体End Sub1.登录窗体：图51 登陆窗口图有关本窗体的代码如下:Option ExplicitDim pwdCount As IntegerPrivate Sub cmdCancel_Click() Unload Me Exit SubEnd SubPrivate Sub cmdOK_Click() Dim SQL As String Dim rs As ADODB.Recordset If Trim(UserName.Text = ) ThenMsgBox 没有输入用户名称，请重新输入vbOKOnly+vbExclamation UserName.SetFocus Else 查询用户 Set rs = TransactSQL(SQL) If iflag = 1 Then If rs.EOF = True ThenmsgBox 没有这个用户，请重新输入！,vbOKOnly+vbExclamation UserName.SetFocus Else If Trim(rs.Fields(1) = Trim(PassWord.Text) Then rs.Close Me.Hide gUserName = Trim(UserName.Text)保存用户名称 FrmMain.Show Unload Me Else MsgBox 密码不正确，请重新输入！, vbOKOnly+vbExclamation, End If End If Else Unload Me End If End If pwdCount=pwdCount+1 判断输入次数 If pwdCount = 3 Then Unload Me Exit Sub End IfEnd SubPrivate Sub Form_Load() pwdCount = 0 gUserName = End SubPrivate Sub PassWord_KeyDown(KeyCode As Integer, Shift As Integer) TabToEnter KeyCodeEnd SubPrivate Sub UserName_KeyDown(KeyCode As Integer, Shift As Integer) TabToEnter KeyCodeEnd Sub2.系统主界面的设计效果图52系统主界面设计效果图Private SQL As StringPrivate Sub About_Click() 关于窗体 frmAbout.Show frmAbout.ZOrder 0End SubPrivate Sub Add_Alter_Click() 添加调动信息 flag = 1 frmAlteration.Caption = 添加员工调动信息 frmAlteration.Show frmAlteration.ZOrder 0End SubPrivate Sub Add_Stuff_Click() 添加员工信息 flag = 1 frmStuff_info.Show frmStuff_info.ZOrder 0End SubPrivate Sub Add_User_Click() 添加用户 Dim fAdd As New frmAddUser fAdd.Show fAdd.ZOrder 0End SubPrivate Sub AddAttendance_Click() 添加上下班信息 flag = 1 FrmAttendance.Show FrmAttendance.ZOrder 0End SubPrivate Sub AddOtherKQ_Click() 添加其他考勤信息 flag = 1 frmOtherKQ.Show frmOtherKQ.ZOrder 0End SubPrivate SubChage_Alter_Click() 修改调动信息 frmAlterationResult.Show frmAlterationResult.ZOrder 0End SubPrivate SubChange_PWD_Click() 修改密码 Dim fChangePWD As New frmChangePWD fChangePWD.ShowEnd SubPrivate SubChange_Stuff_Click() 修改员工信息 frmCheckStuff.topic = 选择修改条件 frmCheckStuff.Caption = 修改员工基本信息 SQL = select * from StuffInfo order by SID frmResult.createList (SQL) frmResult.Show frmResult.ZOrder 0 frmCheckStuff.Show frmCheckStuff.ZOrder 0End SubPrivate SubChangeAttendance_Click() 修改上下班信息 frmAResult.Show frmAResult.ZOrder 0End SubPrivate SubchangeOtherKQ_Click() 修改其他考勤信息 frmOKQResult.Show frmOKQResult.ZOrder 0End SubPrivate SubCheck_Alter_Click() 查询调动信息 frmCheckAlter.Show frmCheckAlter.ZOrder 0End SubPrivate Sub Check_Checkin_Click() 查询其他考勤信息 frmCheckKQ.Show frmCheckKQ.ZOrder 0End SubPrivate SubCheck_Stuff_Click() 查询员工信息 SQL = select * from StuffInfo frmResult.createList (SQL) frmResult.Show frmCheckStuff.Show fr