毕业设计论文

1、目录摘 要 1Asbtract 2第一章 引 言 31 2 Access 2000 的介绍 3第 二 章 研究现状及设计目标 421 人事管 理系统简介 42 11 人 事管理 系统 的发展 历史 4212 人力资源开发的目的 42.2 人事管 理相关 软件 简介 523 企业信 息化发展 6第 三 章 要解决的几个关键问题 63 1 应 用 人 事 管 理 系 统 的 必 要 63.2 系统 可行 性分析 73.3 系统详细调查 7功 能 需 求 7数 据 需 求 7运 行 环 境 7第四章 系统结构与模型 74.1 人事管理系统的详细调查 74.2 系统逻 辑模型 的提 出 743 模块设

2、计 94.4 数 据 库 实 现 104.5 数 据 字典 10第 五 章 系统实现技术 125 1 开 发环境 的选 择 12前 端 开 发 工 具 Visual Basic 6.0简 介 12后 台 数 据 库 引 擎 Access 简 介 125.2 人 事 管 理 系 统 模 块 设 计 举 例 12建立 公共模 块 12添加 公共模 块 125.3 系 统 运 行 与 维 护 26初始数据的输入 26怎 样 进 入 系 统 26怎 样 使 用 本 系 统 27系 统 的 主 要 维 护 27第六章 性能测试与分析 27结束语 28参 考 文 献 29致 谢 错 误！未定义书签。随着计

3、算机技术的不断发展，计算机作为知识经济时代的产物，已被广泛应用于 社会各个行业和领域。随着我国国企改革的深入和社会主义市场经济的日趋繁荣，导 致各企业间的竞争日益激烈，迫使企业采取先进的计算机硬件设备以及高质量的辅助 软件来管理企业的各项运作，以提高本企业的劳动生产率以及人员效率。人事管理系 统软件作为一种管理软件正在各企事业单位中得到越来越广泛的应用。本论文是从现代企业管理中的人事管理现状出发，针对人事管理的复杂程序， 经过详细的系统调查，开发出的操作简单而且方便实用的一个人事管理系统。对企业中的考勤信息、请假信息、加班信息、出差信息、调动信息进行管理。本 系统用Visual Basic 6

4、.0编写，后台数据库选用Access 2000。英文摘要。关键词：人事管理系统、管理信息系统、电子数据处理、数据库、AsbtractAlready is been apply in the social each profession and realms extensively.Reform along with the our country state-ow ners en terprise thorough is gradually prosperous with the socialism market economy, cause the competiti on betwee n

5、 each bus in ess en terprisesin creas in glyvigorous,force the assista nee software of the calculator hardware equipme nts and high qua ntity that the bus in ess en terprise adopts the forerunner to man age various operati ons of the bus in ess en terprise, to raise labor rate of producti on and per

6、s onn els efficie ncies of this bus in ess enterprise.The personal management system software is a kind of management software just get the more and more exte nsive applicati on in each bus in ess un it.This thesis is from the moder n bus in ess en terprise prese nt con diti on, aim at the pers onal

7、 man ageme nt of the complicated procedure operati on, pass by detailed system in vestigate, develop simple and convenient practical such a pers onal man ageme nt system.The head tool of this system development is Visual Basic 6.0, the engine of the backstage database software choose to use is Acces

8、s 2000.This system through tests, and run stability, and have already got the approbati on.Keywords : Personal managementsystem, the management informationsystem, the electronics dataprocess ing, database。第一章引言计算机技术已经进入实用阶段，同时大型企业用手工来计算和发放薪资既费时费 力又非常容易出差错，为了解决这个矛盾同时由于个人电脑的普及，数据库技术、客 户/服务器技术，特别是Inter

9、net/lntranet技术的发展，友好的用户界面，强有力的报表生成工具、分析工具和信息的共享使得人力资源管理人员得以摆脱繁重的日常工 作，集中精力从战略的角度来考虑企业人力资源规划和政策。 1. 1 Visual base 的介绍VB6.0已经成为功能强大、使用人数众多的主流编程工具。它提供了向导自动生成代码，支持拖放 技术、属性检查、实时语法检查等内置自动化技术，大大降低了编写代码的工作量，同时它还提供了极 其丰富的控件，使得VB6.0成为最简捷、最有效的开发Windows应用程序工具。随着网络技术的不断发 展，VB6.0的应用范围已从开发单机软件发展的开发网上分布式应用软件。VB6.0不

10、但受到广大初、中级计算机爱好者的欢迎，也越来越受到高级程序员的欢迎。 1. 2 Access 2000 的介绍用Access2000作为后台数据库。数据库是信息管理系统的后台，存储着所有的信息，在信息管理 系统中有着很重要的地位。数据库设计的好坏，直接影响到这个系统的运行效率。良好的数据库设计， 可以提高数据信息的存储效率保证数据信息的完整性和一致性。Access2000是0fice2000中文版的组件之一。与以前的 Access版本相比，Access2000不仅界面更加友好，而且功能也有了加强，尤其是网 络功能有明显的提高，使 Access2000与互联网的结合更加紧密。Access2000

11、是一个中、小型数据库管理系统，使用方便、功能强大，与其它数据库有良好的接口。通过Access2000功能强大的工具，用户可以方便的使用和管理数据库，如创建和编辑数据表、设计和使用各种查询工具进行查询操作、设计和使用窗体、制作和打印报表、设计和使用宏、设计和使用Web页等。Access2000具有完整的数据库应用开发工具，用户可以方便的设计、修改、浏览一个记录数据的基本表；可以在表数据中进行各种筛选和查询操作；可以设计和使用各种窗体以实现数据显示和操作；可以根据表数据设计打印各种报表；可以设计和使用宏，对表进行一系列特定的操作。Access2000内有强大的操作向导，为用户提供了丰富的数据库基本

12、表模板。用户只需简单的操作就可建立数据库中所使用的各种基本表、窗体和报表。在Access2000中，可以设定、修改基本表之间的关联，从而实现在多个相关表之间的关系查询。Access2000中的宏可以实现操作的自动化，使操作更加简单、快捷。Access2000不仅可以处理自身的数据库文件，还可以处理其它一些数据库系统管理软件所建立的数据库文件，能识别dBase、FoxBase、FoxPro、Paradox、Btrieve 等数据库格式文件，并且支持开放式数据库互连性标准的SQL。Access2000能与工作站、数据库服务器或主机上的各种数据库互相连接，并可用于建立客户/服务器应用程序中的工作站部

13、分。第二章研究现状及设计目标 2. 1人事管理系统简介随着市场竞争的日趋激烈，人已成为实现企业自身战略目标的一个非常关键的因 素。企业中人心的向背和员工对工作的投入程度在很大程度上决定了该企业的兴衰与 成败。如何能保持本企业员工的工作责任感，激励他们的工作热情，减少人才的流失， 已成为困扰企业主管和人力资源经理的一个日益尖锐的问题。企业管理从根本上来讲 就是对人的管理。2 . 1 . 1人事管理系统的发展历史人力资源管理系统的发展历史可以追溯到20世纪60年代末期。由于当时计算机技 术已经进入实用阶段，同时大型企业用手工来计算和发放薪资既费时费力又非常容易 出差错，为了解决这个矛盾，第一代的人

14、力资源管理系统应运而生。当时由于技术条 件和需求的限制，用户非常少，而且那种系统充其量也只不过是一种自动计算薪资的 工具，既不包含非财务的信息，也不包含薪资的历史信息，几乎没有报表生成功能和 薪资数据分析功能。但是，它的出现为人力资源的管理展示了美好的前景，即用计算 机的高速度和自动化来代替手工的巨大工作量，用计算机的高准确性来避免手工的错 误和误差，使大规模集中处理大型企业的薪资成为可能。第二代的人力资源管理系统出现于20世纪70年代末。由于计算机技术的飞速发展， 无论是计算机的普及性，还是计算机系统工具和数据库技术的发展，都为人力资源管 理系统的阶段发展提供了可能。第二代人力资源管理系统基

15、本上解决了第一代系统的 主要缺陷，对非财务的人力资源信息和薪资的历史信息都给予了考虑，其报表生成和 薪资数据分析功能也都有了较大的改善。但这一代的系统主要是由计算机专业人员开 发研制的，未能系统地考虑人力资源的需求和理念，而且其非财务的人力资源信息也 不够系统和全面。人力资源管理系统的革命性变革出现在20世纪90年代末。由于市场竞争的需要， 如何吸引和留住人才，激发员工的创造性、工作责任感和工作热情已成为关系企业兴 衰的重要因素，人才已经成为企业最重要的资产之一。“公正、公平、合理”的企业管 理理念和企业管理水平的提高，使社会对人力资源管理系统有了更高的需求；同时由 于个人电脑的普及，数据库技

16、术、客户/服务器技术，特别是In ternet/l ntranet技术的发展，使得第三代人力资源管理系统的出现成为必然。第三代人力资源管理系统的 特点是从人力资源管理的角度出发，用集中的数据库处理几乎所有与人力资源相关的 数据（如薪资福利、招聘、个人职业生涯的设计、培训、职位管理、绩效管理、岗位 描述、个人信息和历史资料）统一管理起来，形成了集成的信息源。友好的用户界面， 强有力的报表生成工具、分析工具和信息的共享使得人力资源管理人员得以摆脱繁重 的日常工作，集中精力从战略的角度来考虑企业人力资源规划和政策。2. 1. 2人力资源开发的目的人力资源管理是企业管理中的一个重要内容，随着时代的进步

17、，企业也逐渐变得庞大起来。如何 管理好企业内部员工的信息，成为企业管理中的一个大问题。在这种情况下，开发一个人力资源管理系 统就显得非常必要。人力资源管理系统就是把企业离散的人员信息加以集中分类的处理，通过它的管理，可以将分类 处理后的信息，直观的提供给管理人员，加强对企业用人的优化分配，充分发挥人的作，提高企业整体工作效率，创造价值。本系统结合公司实际的人事、制度，经过实际的需求分析，采用功能强大的Visual Basic6.0作为开发工具而开发出来的单机版人事管人事理系统。整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发，完成人力资源管理的全过程，包括新进员工加入时人事档案的建

18、立、老员工的转出、职位等的变动引起职工信息的修改、员工信息查询、统计等人力资源管理工作以及新进员工人事的新增、老员工人事修改、删除等人力资源管理工作。经过实际使用证明，本文所设计的人力资源管理系统可以满足公司人力资源管理方面的需要。 2.2人事管理相关软件简介近几年来，国内外与人力资源管理有关的系统和程序的发展都非常迅速，众多的软 件有如雨后春笋般地不断涌现。这些软件尽管各有特点，但从功能上来分析，大致可 分为如下五种：1. 薪资和福利计算程序。这类程序通常可用于管理企业薪资和福利计算的全过程， 其中包括企业的薪资和福利政策设定、自动计算个人所得税、自动计算社会保险等代 扣代缴项目。通常，这些

19、程序还可以根据公司的政策设置并计算由年假、事假、病假、 婚假、丧假等带薪假期以及迟到、早退、旷工等形成的对薪资和福利的扣减，能够设 定企业的成本中心并按成本中心将薪资和总账连接起来，直接生成总账凭证，还能存 储完备的历史信息供查询和生成报表；这类系统也可处理部分简单的人事信息。2. 培训管理系统。培训管理系统一般通过培训需求调查、预算控制、结果评估和 反馈以及培训结果记载等手段，实现培训管理的科学化，并且和人力资源信息有机地 联系起来，为企业人力资源的配备和员工的升迁提供科学的依据。3. 考勤管理程序。为了有效地记载员工的出勤情况，很多企业配置了打卡机，考 勤机等设备。考勤管理程序一般都与这些

20、设备相接，根据事先的编排的班次信息，过 滤掉错误数据，生成较为清晰的员工出勤报告，并可转入薪资和福利程序中，使考勤 数据与薪资计算直接挂钩。其生的文档还可作为历史信息保存，用于分析，统计和查 询。4. 人力资源管理系统。人力资源管理系统从科学的人力资源管理角度出发，从企 业的人力资源规划开始，一般包括招聘、岗位描述、培训、技能、绩效评估、个人信 息、薪资和福利、各种假期、到离职等与员工个人相关的信息，并以一种相容的、一 致的、共享的、易访问和检索的方式储存到集中的数据库中，从而将企业内员工的信 息统一的管理起来。其灵活的报表生成功能和分析功能使得人力资源管理人员可以从 繁琐的日常工作中解脱出来

21、，将精力放到更富有挑战性和创造性的人力资源分析、规 划、员工激励和战略等工作中去。5. 完整的历史信息记载了员工从面试开始到离职整个周期的薪资、福利、岗位变 迁、绩效等信息。同时由于这类系统可管理较全面的人力资源和薪资数据，因而还可 以生成许多综合性的报表供企业决策人员参考，如生成按岗位的平均历史薪资图表， 员工配备情况的分析图表，个人绩效与学历、技能、工作经验、接受过的培训等关系 的分析等等。 2. 3企业信息化发展随着信息时代的到来，企业的信息化已被提上日程。企业自然会考虑下述问题：在规划方案中，哪些功能是必需的？哪些并不适合自己的公司？遗漏了哪些必需功 能？企业建立管理信息系统时，现行的

22、工作流程还需要怎么调整才能使工作效率真正 提高？企业管理信息系统将来的运行、维护、升级、改造成本有多高？选择什么样的 管理信息系统软件平台开发自己的管理信息系统最可靠而且经济？而只有对以下三个 问题进行分析，才有助于推动企业的信息化。1、信息是现代企业管理的核心。在开始着手规划和建立企业的管理信息系统时， 要坚信信息技术的发展将在企业的管理过程中起着越来越重要的地位，而且越来越决 定着企业管理的效果和效率。在提高和改善企业管理的过程中，应该明白如何采用管 理信息系统这一有效管理工具，以及它是如何在企业的管理中起作用的。随着企业规 模的扩大，其管理组织会变得越来越庞大和困难，而信息的处理与使用也

23、变得越来越 重要。2、在规划和建设一个企业的管理信息系统时，有可能误认为企业的管理信息系统 就是在企业原有管理模式上加入计算机信息处理。其实，一个好的管理信息系统绝不 是企业原有的管理模式和计算机信息处理的简单相加，建立管理信息系统的目的是通 过实现对企业信息处理的现代化而达到高效完成管理工作，所以一个好的管理信息系 统的模型一定要能够与当今信息技术紧密相连，并能够充分利用其优良性能。3、企业信息化是一个过程。企业的信息化规划和建设是一个不断改进、逐步提高 的过程。在这样一个复杂的系统中存在着大量的作用因素，只能通过长斯不断的努力 才能达到目的，在企业信息化的规划和建设过程中，不可将职工的计算

24、机和软件使用 培训等视为可有可无，信息化的发展使计算机和软件成为企业日常管理中的必然。第三章要解决的几个关键问题 3. 1应用人事管理系统的必要现在不少企业管理人员已经认识到采用人力资源管理系统的必要性，纷纷开发或选 购适合本企业特点的人力资源管理系统。人事管理系统具体以下优点：1、采用人事管理系统，可以用集中的数据库将与人力资源管理相关的信息全面、 有机地联系起来，有效地减少了信息更新和查找中的重复劳动，保证了信息的相容性， 从而大大地提高了工作效率，还能使原来不可以提供的分析报告成了可能。2、人事管理系统有着易访问、易查询的信息库。在没有采用和实施人事管理系统 之前，当企业管理人员要统计数

25、字时，往往依赖于某个人或某些人来获取。这种依赖 于人的过程往往会因为花费的时间较长或某个人不在办公室而不能及时完成。在采用 和实施人事管理系统之后，就会将依赖于人的过程改为依赖于计算机系统的过程。企 业管理人员只要获取了相应的权限，就可以随时进入系统，直接查阅相应的信息。实 施了人事管理系统之后，不仅可以得到较为全面的、详细的、未经过过滤的第一手人 事信息，发现不公平的现象，甚至还可以从中得到某些灵感和启发，从而改进企业的 管理。这种透明性还可以规避企业管理中潜在的风险。3、采用和实施人事管理系统不仅仅是为了提高工作效率。应该看到，在实施人事 管理系统之后，经过整合的、较为全面、准确、一致和相

26、容的信息不仅可以让企业领 导对本企业人力资源的现状有一个比较全面和准确的认识，同时也可以生成综合的分 析报表供企业领导人在决策时参考。这就提高了企业的管理水平。 3.2系统可行性分析人事管理系统在企业中占有极其重要的地位，它关系着企业内部每个职员的档案， 其中包括新职员的增加，职员档案的查找，职员的详细资料等等。对于企业来讲，人 事管理系统是不可缺少的组成部分，它有效地管理企业的员工，对企业内部人事的流 动和分配起着重要的管理作用，它正确地反映着企业的人事变化。 3.3系统详细调查3.3.1 功能需求基于以上的开发目标，系统开发的范围确定如下：1、本系统只涉及人事资料部分，不包括工资计算等项目

27、；2、本系统提供强大的查询功能，可进行不同类型查询，提供多种索引；3、本系统提供记录的添加，删除和修改；本系统可单条或多条输出个人资料， 并可打印相关报表。3.3.2 数据需求通过调查和研究，本系统仅提供一个数据库，但该数据库包含各项所需信息， 表名为 person.3.3.3 运行环境本系统对计算机的要求并不高，只要是在Windows 98/XP/2000操作系统中都可运行。第四章系统结构与模型 4.1人事管理系统的详细调查对现行管理业务进行详细调查是了解系统需求和进行 系统分析和设计的重要基础 工作，因此要对企业的人事管理工作进行全面、细致而充分的调查研究。系统调研采 取的主要方法是到现场

28、去，通过座谈、询问、观察甚至直接参与管理活动，自上而下、 逐步细化的进行了解。 4.2系统逻辑模型的提出系统分析的主要成果是系统的逻辑模型。本系统的逻辑模型主要是以系统的数据流图和数据字典为主要描述工具。即在对人事管理方式和业务流程进行认真分析和研究的基础上，排除现有组织机构和业务分工所造成的信息障碍。完全从业务管理功能和管理对象出发，按照信息系统中应有的数据流和数据结构来勾画系统的概貌。（附密码验证流程图）_d开） N进入人事管理系统图4-1密码验证流程图企业人事管理系统 E-R流程图：邮编住址Email参加工作时间电话姓名进入公司时间性别籍贯名称员工年龄部门类别生日学历专业职务部门起薪时间

29、编号图4-2企业人事管理系统E R图 4. 3模块设计按照功能分析及数据库的设计结果，为本系统设计如下模块，最终得到如下图所 示的功能模块图：（附图）企业人事管理系统员工考勤信息管理员工调动信息管理系统图4-3企业人事管理系统模块图添加用A修改密码从总体结构图容易列出应用程序的菜单，由总体结构图转换到菜单时，其对应情 况如下：系统对应菜单文件，子系统层对应菜单标题，功能层对应子菜单项。本系统 所使用的模块包括：系统模块，员工调动信息模块，员工考勤模块，员工基本信息模 块等。1、系统：系统启动的时候有一个管理员用户，使用这个用户登录后，可以添加其它 用户，而且每一个用户都可以更改自己的密码。2、

30、员工基本信息（1）添加员工信息：系统自动生成员工编号，管理员可以添加员工的基本信息，包 括姓名、性别、籍贯、年龄、生日、住址、E-mail 、学历、专业、进入本公司时间等。（2）修改员工信息：选择一个员工，可以修改这个员工的基本信息。（3）查询员工信息：可以根据员工的编号、姓名或者进入公司的时间进行查询员 工基本信息。并且可以针对查询结果进行修改和删除操作。（4）删除员工信息：直接从列表中选中需要删除的员工信息，然后进行删除操作， 或者首先查询需要删除的员工信息，然后再删除。3、员工考勤信息：添加考勤信息：主要分为上下班信息和其他考勤信息.上下班信息主要记录每个员 工每天上下班的时间，而其他考

31、勤信息包含有请假、加班、出差信息。（1）修改考勤信息：当考勤信息出现错误需要修改的时候，可以从这里修改相应 的记录。（2）查询考勤信息：分为删除上下班信息和删除其他考勤信息。（3）删除考勤信息：分为删除上下班信息和删除其他考勤信息。（4）设置上下班时间：设置公司上下班时间。4、员工调动信息（1）添加调动信息：添加企业员工的原有部门、原有职务、新部门、新职务等信 息。（2）修改调动信息：修改相应的员工调动信息。3 ）查询调动信息：查询某个员工的调动信息或者某段时间内企业内部的调动情 况。 4.4数据库实现本程序采用Access作为数据库引擎，其主要原因是考虑到现在的大多数办公室应 用系统软件均支

32、持Access数据库，所以只要应用于格式符合的计算机系统上即可运行， 并且由于Access与VB皆是微软公司开发出来的软件，所以它们之间的兼容性非常好， 容易配合使用。在本程序数据库中，还采用了数据库链接系统，它维护了数据的独立性，而且可 以与其他程序链接，达到数据的关联，方便地应用于其他的程序中。由于本系统只是进行一般的数据库操作，对速度要求并不十分高，所以数据库中未调 用 Windows API函数。 4.5数据字典数据流图中的全部数据流及其组成部分的数据元素，数据存储，数据加工，通过数 据字典描述清楚，以便于此后系统设计的进行。下边是数据项的数据字典：1、管理添加、修改、查询、删除员工基

33、本信息：进行删除加入员工的内容情况，入数据：编号+姓名+性别+籍贯+年龄+生日+学历+专业+住址+邮编+电话+ EMAIL+参加工作时间+进入公司时间+起 薪时间+部门+职务。2、考勤信息也是（添加 +修改+查询+删除）。3、 调动信息也是同样的，可以根据企业的需要而进行（添加+删除+查询+修改）来进行企业内部 的调整。4、 登陆=用户名+登陆密码（可以在内部进行添加和修改密码）。用户添加=输入用户名+密码+确认密码。修改密码=输入旧密码+新密码+确认密码。员工的基本信息包括：编号、姓名、性别、籍贯、年龄、生日、学历、专业、住址、邮编、电话、EMAIL、参加工作时间、进入公司时间、起薪时间、部

34、门、职务。下边列有详细列表：表1员工基本信息表字段名类型长度说明员工编号文本8个字节每个员工都有唯一的一个编号，编号是某位员工的唯一 标识。员工姓名文本8个字节每个员工都有唯一的姓名，若出现重名现象，我们可以 查看此员工的编号进行区别。性别文本2个字节性别仅有两种情况，为了便于录入，在设计时可以米用 单选按钮或卜拉列表框的方式。籍贯文本12个字节员工的出生地。年龄数字2个字节员工的岁数，最低年龄为16岁。此外还要统计退休的 人员岁数，所以取值范围为16-99.生日日期/时间8个字节:员工的出生日期。学历文本8个字节因为员工的学历分为高中，中专，大专，本科，硕士， 博士，博士后这几种情况。专业文

35、本20个字节r员工取得现有学历时所学的专业。住址文本26个字节员工现在的家庭住址，若员工的家庭住址变动，再进行 改动。邮编文本6个字节员工家庭住址的邮政编码。因现在我国的邮政编码为6个字节。电话文本12个字节现在的电话大部分为 7位或8位，再加上其它的所以设 为12位。Email文本20个字节员工的邮箱地址。参加工作时间日期/时间16个字节员工参加工作时间。进入公司时间日期/时间16个字节员工进入本公司时间，注意与参加工作时间不冋。部门文本12个字节员工所在的部门，员工可能在不同的部门中调动，根据 定期的员工信息登记表进行修改。起薪时间日期/时间16个字节员工从事相应的工作可以领取相应的薪金的

36、时间。职务文本16个字节员工在相应的工作岗位所承担的职责。第五章系统实现技术 5. 1开发环境的选择前端开发工具 Visual Basic 6.0简介Visual Basic 是在世界范围内广泛使用的一种强 大的编程语言，它为 Win dows 应用程序的开发提供了最迅速和便捷的方法。Visual Basic 是基于 Win dows 的开发 语言，所以有必要与Win dows 环境保持一定的相似性。简单地说就是三个关键的概念： 窗口、事件和消息。Visual Basic 与传统的编程评议不同，它使用交互式方法开发应用程序，使得 三个步骤之间不再有明显的界限。在大多数语文里，如果编写代码时发生

37、了错误，则 在开始编译应用程序时该错误就会被编译器捕获，此时必须查找并改正该错误，然后 再次进行编译，对每一个发现的错误都要重复这样的过程。Visual Basic 在编程者输 入代码时便进行解释，即时捕获并突出显示大多数语法或拼写错误，这看起来就像一 位专家在实时监视代码的输入。除即时捕获错误外，Visual Basic 也在输入代码时部 分地编译该代码。当准备运行和测试应用程序时，只需极短时间即可完成编译。如果 编译器发现了错误，则将错误突出显示于代码中。由于 Visual Basic的交互特性，因此可以发现在开发应用程序时，可以频繁地运行应用程序。通过这种方式，代码运 行的效果可以在开发

38、时进行测试，而不必等到编译完成以后。后台数据库引擎Access简介Access 2000 是一套简单易学的数据库软件除了可以单机作业之外，也增强了 与后端的SQL Server 7.0服务器的链接功能，方便建立主从式结构的数据库环境。Access 是一套管理数据库的应用软件，即数据库管理系统。数据库是指一群可组织有系统的数据集合。Access 中，整理好的数据将按数据的用途，分别存于不同的表中，Access 数 据库中包含多个表及其它数据库对象。 5.2人事管理系统模块设计举例5.2.1 建立公共模块运行VisualBasic 后，选择“文件” “新建工程”菜单，然后从工程模板中 选择“标准E

39、XE”项，单击“确定”按钮。VisualBasic 就会自动生成一个窗体，这个 窗体的属性采用的都是默认设置。在这个实例中，先删除这个窗体，然后选择“文件” t “保存工程”菜单，在出现的“文件另存为”对话框中输入这个工程项目的名称 stuff_mis, 并且选择要保存这个工程的目录，单击“保存”按钮，保存工程。为了提高代码的效率方便维护，在 VisualBasic 中可以用公用模块来存放工程 中经常使用的函数、过程和全局变量等。在这个系统中，每个功能模块都要使用数据 库，因此可以使用一个公用有数据操作函数，来执行一系列的SQL语句。5.2.2 添加公共模块在项目资源管理器中为这个工程添加一个

40、模块，保存为Module1.bas.保存用户名称添加和修改的标志保存SQL语句保存查询考勤结果SQL语句 保存查询其他考勤结果SQL语句保存上下班记录编号保存请假记录编号保存加班记录编号保存出差记录编号数据库是否打开标志代码如下：Public gUserName As Stri ngPublic flag As In tegerPublic gSQL As Stri ngPublic kqsql As Stri ngPublic kqsql2 As StringPublic ArecordID As In tegerPublic LrecordID As In teger Public Ore

41、cordID As In tegerPublic ErecordID As In tegerPublic iflag As In tegerPublic Fu nction Tran sactSQL(ByVal SQL As Stri ng) As ADODB.RecordsetDim con As ADODB.Co nn ectio nDim rs As ADODB.RecordsetDim strC onn ecti on As Stri ngDim strArray() As Stri ngSet con = New ADODB.Connection创 建连接Set rs = New A

42、DODB.Recordset创建 记录集On Error GoTo Tran sactSQL_ErrorSource= &App.Path & Perso n.mdbstrArray = Split(SQL)con.Open strConnection打 开连接If StrComp(UCase$(strArray(0), select, vbTextCompare) = 0 The n rs.Ope n Trim$(SQL), con, adOpe nKeyset, adLockOptimisticSet TransactSQL = rs返回 记录集iflag = 1Elsecon .Exec

43、ute SQL执 行命令iflag = 1End IfTran sactSQL_Exit:Set rs = Noth ingSet con = Noth ingExit Fun cti onTran sactSQL_Error:MsgBox 查询 错误：” & Err.Descriptioniflag = 2Resume Tran sactSQL_ExitEnd Function判断是否为回车键Public Sub TabToE nter(Key As In teger)If Key = 13 The nSendKeys TAB转换为 Tab 键End IfEnd SubSub mai n()

44、Dim fLogi n As New frmLogi nfLogin.Show vbModual显示窗体End Sub1.登录窗体：图5- 1登陆窗口图有关本窗体的代码如下：Opti on ExplicitDim pwdCo unt As In tegerPrivate Sub cmdCa ncel_Click()Un load MeExit SubEnd SubPrivate Sub cmdOK_Click()Dim SQL As Stri ngDim rs As ADODB.RecordsetIf Trim(UserName.Text = ) The nMsgBox 没有输 入用户 名称，

45、请重 新输入vbOKOnly+vbExclamationUserName.SetFocusElse查询Set rs = Tran sactSQL(SQL)If iflag = 1 The nIf rs.EOF = True The nmsgBox 没有这个用户，请重新输入！ ,vbOKOnly+vbExclamationUserName.SetFocusElseIf Trim(rs.Fields(1) = Trim(PassWord.Text) The nrs.CloseMe.HidegUserName = Trim(UserName.Text)保存用 户名称FrmMain .ShowUn l

46、oad MeElseMsgBox 密码不 正确，请重新输入！ , vbOKOnly+vbExclamation.End IfEnd IfElseUn load MeEnd IfEnd IfpwdCount=pwdCount+1判 断输入次数If pwdCou nt = 3 The nUn load MeExit SubEnd IfEnd SubPrivate Sub Form_Load()pwdCo unt = 0 gUserName =End SubPrivate Sub PassWord_KeyDow n( KeyCode As In teger, Shift As In teger) T

47、abToE nter KeyCodeEnd SubPrivate Sub UserName_KeyDow n(KeyCode As In teger, Shift As In teger)TabToE nter KeyCodeEnd Sub2.系统主界面的设计效果图5-2系统主界面设计效果图Private SQL As Stri ngPrivate Sub About_Click() frmAbout.Show frmAbout.ZOrder 0 End Sub关于窗体Private Sub Add_Alter_Click() flag = 1frmAlteratio n.Captio n =

48、 frmAlteration .Show frmAlterati on .ZOrder 0End Sub添加调动信息添加员工调动信息Private Sub Add_Stuff_Click()flag = 1frmStuff_i nfo.ShowfrmStuff_i nfo.ZOrder 0End Sub添加员工信息Private Sub Add_User_Click()添加用户Dim fAdd As New frmAddUser fAdd.ShowfAdd.ZOrder 0End SubPrivate Sub AddAtte nda nce_Click() flag = 1FrmAtte nd

49、an ce.ShowFrmAtte ndan ce.ZOrder 0End Sub添加上下班信息Private Sub AddOtherKQ_Click() flag = 1 frmOtherKQ.Show frmOtherKQ.ZOrder 0End Sub添加其他考勤信息Private Sub Chage_Alter_Click() frmAlterati on Result.Show frmAlteratio nResult.ZOrder 0 End Sub修改调动信息Private Sub Change_PWD_Click()修改密码Dim fCha ngePWD As New frm

50、Cha ngePWD fCha ngePWD.ShowEnd SubPrivate Sub Change_Stuff_Click()修改 员工信息frmCheckStuff.topic =选择修 改条件”frmCheckStuff.Caption = ”修改员 工基本信息SQL = select * from StuffI nfo order by SID frmResult.createList (SQL) frmResult.Show frmResult.ZOrder 0 frmCheckStuff.Show frmCheckStuff.ZOrder 0End SubPrivate Sub

51、 Cha ngeAtte nda nce_Click() frmAResult.Show frmAResult.ZOrder 0End SubPrivate Sub cha ngeOtherKQ_Click()修改上下班信息修改其他考勤信息frmOKQResult.Show frmOKQResult.ZOrder 0End SubPrivate Sub Check_Alter_Click() frmCheckAlter.Show frmCheckAlter.ZOrder 0End Sub查询调动信息Private Sub Check_Checkin_Click() frmCheckKQ.Sho

52、w frmCheckKQ.ZOrder 0End Sub查询其他考勤信息Private Sub Check_Stuff_Click()SQL = select * from StuffI nfo frmResult.createList (SQL) frmResult.Show frmCheckStuff.Show frmResult.ZOrder 1 frmCheckStuff.ZOrder 0End Sub查询员工信息Private Sub Del_Alter_Click() frmAlterati on Result.Show frmAlteratio nResult.ZOrder 0删

53、除调动信息End SubPrivate Sub Del_Stuff_Click() frmCheckStuff.topic = frmCheckStuff.Captio n = ” SQL = select * from StuffI nfo frmResult.createList (SQL) frmResult.Show frmCheckStuff.Show frmResult.ZOrder 1 frmCheckStuff.ZOrder 0End Sub删除员工信息选择删除条件”删除员工基本信息Private Sub dellnOut_Click()删 除上下 班信息Dim SQL As

54、Stri ngSQL = select * from Atte ndancelnfo order by ID descCall frmAResult. ListTopicCall frmAResult.ShowData(SQL) frmAResult.Show frmAResult.ZOrder 0End SubPrivate Sub delOtherKQ_Click() frmOKQResult.Show frmOKQResult.ZOrder 0End SubPrivate Sub MDIForm_Load()End SubPrivate Sub SetTime_Click() frmSetTime.Show frmSe