计算机应用技术毕业设计（论文）VB和Access人事档案管理系统

云南电大职业技术学院五年制高职教育计算机应用专业毕业作业（毕业设计）题 目：人事档案管理系统 姓 名： 学 号： 学 校： 指导教师： 职 称：系统分析师 作业日期：2010年4月29日 I 云南广播电视大学2005级毕业论文 摘 要人事档案管理系统是典型的信息管理系统,其系统开发主要包括数据库的规划设计与维护、客户端应用程序的开发两个方面，数据库的建立要求建立数据的一致性和完整性，且具有一定的安全性。经分析，使用Visual Basic 6.0作为前端的开发工具。数据库的使用为Microsoft office 2003 Access。Visual Basic 6.0提供的集成开发环境及支持面向对象的各种标准化的控件，达到对单位人事档案管理的目的，通进不断修正和改进，本系统最终可以完成一个小型的人事档案管理系统。 人事档案管理系统，是一个将企业生产和经营中的各种内、外部信息进行收集、加工、整理、传递，并有序地存储，以用于管理和决策，是企业增效的信息系统。它能够使企业更加及时、准确、全面、详实的了解所需的信息数据。同时管理信息系统对各种信息数据的进一步加工，能使企业领导层的生产、经营、管理决策依据更加充分，更具有合理性、科学性；从而为社会创造出更多的价值，为企业的发展创造出更多的机会。另外，管理信息系统可以使企业的管理更加科学化、合理化、制度化、规范化；为企业的管理水平跨上新台阶；持续、健康、稳定的发展奠定坚实基础。整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发，完成人事管理的全过程，包括新进职工加入时人事档案的建立、职位等的变动引起职工信息的修改、职工信息查询、统计等人事管理工作。经过实际使用证明，开发人事管理系统可以满足公司人事管理方面的需要。关键字：Visual Basic 6.0；Access2003数据库；DBGRID32控件AbstractPersonnel records management system is a typical information management system, which includes system development and maintenance of the database planning and design, client-side application development two aspects of the establishment of the database requires the establishment of data consistency and integrity, and has a certain security. The analysis, using Visual Basic 6.0 as front-end development tools. The use of the database for the Microsoft office 2003 Access. Visual Basic 6.0 integrated development environment to provide and support a variety of standardized object-oriented controls to achieve the unit personnel records management purposes, pass into the constantly revised and improved, the system could eventually complete a small personnel files management system. Personnel records management system is an enterprise production and operation of the various internal and external information gathering, processing, finishing, delivery, and orderly storage for use in management and decision-making, efficiency of enterprise information systems. It enables enterprises to be more timely, accurate, comprehensive, detailed understanding of the required information and data. At the same time management information system for all kinds of information and data for further processing, enabling the production of corporate leadership, management, management decision-making based on more fully, more rational, scientific; so as to create more value to the community, for enterprises development to create more opportunities. In addition, management information systems can make enterprise management more scientific, rationalization, institutionalization and standardization; the management level of enterprises enter a new stage; a sustained, healthy and stable development of lay a solid foundation. The entire system from the line with simple, user-friendly, flexible, practical and security requirements proceed to complete the entire process of personnel management, including new entrants to join trade unions, when the establishment of personnel files, job changes and other information on the changes caused by workers, staff information inquiry , statistics and other personnel management. After the actual use of evidence, develop personnel management system to meet the companys personnel management needs.Keywords: Visual Basic 6.0; Access2003 database; DBGRID32 Control 目 录1 前 言- 1 -2 可行性分析- 3 -2.1技术可行性- 3 -2.2、 经济可行性- 3 -2.3、 开发工具的选择- 4 -2.4、数据库的选择- 5 -3 系统需求分析- 6 -3.1、系统详细调查- 6 -3.1.1功能需求- 6 -3.1.2系统的安全性和稳定性- 6 -3.2.业务流程分析- 7 -3.2.1、人事档案管理系统总体DFD图- 7 -3.2.2、管理员信息程图- 7 -3.2.3职工基本信息表流程图- 8 -3.2.4信息修改流程图- 8 -3.2.5信息查询流程图- 9 -3.2.6表格信息设置流程图- 9 -3.3、数据库设计- 9 -3.3.1、数据库概念设计- 9 -3.4、数据库逻辑设计。- 12 -3.5、数据库物理设计- 12 -3.6、各数据表的建立过程- 15 -4 系统设计- 17 -4.1、系统功能模块设计- 17 -4.1.1主界面模块- 17 -4.1.2、管理员登录系统模块：- 18 -4.1.3、职工信息浏览模块：- 18 -4.1.4、修改信息：- 19 -4.1.5、信息查询模块结构图：- 19 -4.2、系统的各模块的具体实现：- 19 -4.2.1、用户登录模块：- 20 -4.2.2 职工信息浏览模块：- 20 -4.2.3查询模块- 21 -4.2.4信息修改模块- 21 -5 系统主要代码- 22 -5.1 登录模块- 22 -5.2 系统主介面：- 23 -5.3信息修改：- 24 -6 系统测试- 27 -6.1、管理员信息模块测试，- 27 -6.2、职工个人信息修改模块测试：- 27 -6.3、职工请假记录表测试：- 28 -6.4、职工工资记录表测试：- 29 -总 结-30-参考文献-31-致 谢-32- 29 - 1 前 言对于企业或单位来讲，职工的人事档案不但可以使企业的管理者在一定程度上掌握所聘用人员的基本人事信息，而且可以为企业的人力资源管理工作提供相关的人事信息数据支持。因此，企业人事档案管理工作的好坏不但可以直接影响到企业的人力资源管理，而且会间接的影响到企业整体管理。人事档案管理系统是典型的管理信息系统。这就要求它应该能够为用户提供有好美观的窗口界面、充足可靠的信息数据、简单方便的维护手段和灵活多变的查询方式以及快捷而准确的查询结果。所以，对于人事档案管理系统的设计主要包括后台数据库的建立、维护以及前端应用程序的开发两个方面。对于前者而言要求建立起数据一致性及完整性强、数据安全性好的数据库。对于后者而言则要求具备应用程序功能全,易使用等，运行稳定等特点。计算机应用的普及，利用计算机实现企业人事档案管理势在必行。对于企业来说，利用计算机支持企业高效率完成劳动人事管理的日常事务，是适应现代企业制度要求、推动企业劳动人事管理走向科学化、规范化的必要条件；计算机管理所无法比拟的优点检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事管理的效率,也是企业的科学化、正规化管理的重要条件。不同的企业具有不同的人事管理制度，这就决定了不同的企业需要不同的人事管理系统。 对于企、事业单位的人事管理系统来说，不需要大型的数据库系统，操作方便，功能实用，能满足本中心对数据的管理及需求的系统。目标就是在于开发一个功能实用、操作方便，简单明了的人事管理系统。 能够录入人事的基本资料，在操作上能够完成诸如添加、修改、删除、按各种条件进行查询、新用户的设置及密码修改等方面的工作，基本满足人事日常业务的需要。 人事管理系统是一个企业单位不可缺少的部分,对于企业的决策者和管理者来说都至关重要,所以人事管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。使用计算机进行管理,有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事劳资管理的效率,也是企业的科学化、正规化管理,针对公司的实际境况开发，实用性强。公司内部实现信息化可视化管理。人事档案管理系统，是将企业生产和经营中的各种内、外部信息进行收集、加工、整理、传递，并有序地存储，以用于管理和决策，是企业增效的信息系统。它能够使企业更加及时、准确、全面、详实的了解所需的信息数据。同时管理信息系统对各种信息数据的进一步加工，能使企业领导层的生产、经营、管理决策依据更加充分，更具有合理性、科学性；从而为社会创造出更多的价值，为企业的发展创造出更多的机会。另外，管理信息系统可以使企业的管理更加科学化、合理化、制度化、规范化；为企业的管理水平跨上新台阶；为企业稳定的发展奠定坚实基础。2 可行性分析开发人事档案管理系统、实现职工管理的计算机化是非常必要的，也是可行的。因为使用计算机化的管理系统可以彻底改变目前职工管理工作的现状，能够提高工作效率，能够提供更准确、及时、适用、易理解的信息，能够从根本上解决手工管理中信息滞后、资源浪费等问题。2.1技术可行性人事档案管理系统对于大多数企业货单位来说存储的信息量大，必须依靠先进的存储技术。信息的有序存储要涉及两个方面的技术，一个是硬件的存储介质技术，另一个则是软件方面的数据存储的逻辑组织技术，这就是要求降低数据重复存储的冗余度，保持数据的一致性、完整性、安全性和保密性。这个系统在组织关系上不是很复杂，繁琐，系统的技术构成上来看，能够改变目前人员管理工作的现状，能够提高工作效率，能够提供更准确、及时、适用、易理解的信息。其基本操作还是对存在数据库进行添加、删除、查找、编辑等。所以就数据库应用技术来看是可行的。由于本系统管理的对象单一,都是职工，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。在存储量、速度方面都能满足数据库运行的要求，利用visual basic提供的大量控件，可以方便的设计界面和实现各种功能,同时结合ACCESS的简单数据库管理作为开发工具，实现职工管理系统所需的功能，完成管理的各项任务。 所以从技术上看开发职工管理系统、实现职工管理的计算机化是非常必要的，也是可行的。2.2、 经济可行性人事档案管理系统就是典型管理信息系统，通过人事档案管理系统对人事档案进行管理具有人工管理所无法比拟的优点，例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。一个设计完善，运行稳定的人事档案管理系统可以使人们从繁重的传统手工管理中解脱出来，从而提高企业人事档案管理的工作效率，协助企业更好的完成人事档案管理工作；而且，企业整体管理的信息化建设是企业的科学化、正规化管理与世界接轨的重要条件，人事档案管理的信息化又是企业整体管理信息化建设的重要组成部分。因此，利用计算机对企业人事档案进行管理是必然趋势，人事档案管理系统是企业管理工作中不可缺少的一部分。 对于整个系统而言，在系统未运行之前，初期投资比较大，花费相对而言比较多。各部门必须配置电脑、打印机、传真机及相关的设备，但是在整个系统投入运行之后，减少了数据的流通环节，不必要花费那么多的时间，也就是说最重要的是就是提高了效率，而又保证了各项数据的准确性，也避免了工作人员的流动造成的损失等问题。因为现在计算机已经普及了，而且在计算机的硬件和软件方面不需要很高的配置。（1）.硬件要求：奔腾3 800MHz 以上处理器；128M以上的内存；硬盘可用空间2G左右就可以运系统运行（2）. 软件要求：WIN98/2000/XP操作系统VB6.0+Access /2000/2003软件环境但是按照现在计算机的配置大部分都已能够达到奔腾4 2.0MHz 以上处理器，512M以上的内存，硬盘最小也在40GB以上，这样的计算机已完全能够满足系统的需求。综合以上分析，从经济角度上看，在管理方面可以节省大量的开支，一些烦琐的日常事务，也提高了企业或单位的经济效率，也是可行的。2.3、 开发工具的选择VB是一种可视化的编程语言，具有集成的可视化数据库工具，VB 6.0提供了一整套工具以在任何应用程序集成数据库。数据环境设计器可使用拖放功能来可视化地创建可重用的记录集命令对象，也可用拖放方式创建绑有数据的表格和报告；Visual Basic WebClass设计器，可创建能够在任何平台上用任何Web浏览器访问的服务器方用应用或构件，提供了更强大的开发功能。在Visual Basic集成开发环境中，用户可以设计界面，编写代码，调试程序，直至把应用程序代码编译成可执行文件并在Windows中运行。另外，利用Visual Basic6.0提供的大量控件，可以方便的设计界面和实现各种功能，同时结合ACCESS的简单数据库管理，选择它们作为开发工具，可以实现管理系统所需的功能，完成各项任务。本系统的设计是在Windows XP中文版操作系统环境下，使用Visual Basic 6.0中文版和Microsoft的Access做后台数据库支持开发成功的。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的开发语言Visual Basic语言。2.4、数据库的选择Access2003能汇集各种信息以供查询、存储和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。ADO 控件在数据库中的信息与将信息显示给用户看的Visual Basic程序之间架起了一座桥梁。可以设置ADO控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，ADO控件根据数据库中的一个或多个数据表建立一个dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。ADO控件还提供了用来浏览不同记录的各种跳转按钮。将ADO控件放置在窗体中之后，必须在该控件与要处理的数据库之间建立联系。3 系统需求分析3.1、系统详细调查3.1.1功能需求 根据企业对职工管理的需要，开发一个“人事档案管理系统”，需求如下：（1）、能够对职工的有关资料进行输入，修改，删除。（2）、能够提供查询功能，以便了解和掌握各职工的具体情况。（3）、能够提供职工的考勤信息及调动信息。（4）、能够提供职工的工资信息及调动信息。基于以上的开发目标，系统开发的范围确定如下：本系统只涉及人事资料部分，只需能进行工资计算，考勤记录、实现个基本的录入、修改、删除表等，就基本上能够满足日常业务的需要。3.1.2系统的安全性和稳定性本程序考虑到系统的安全性，设置了用户登录验证，保证了职工信息管理的安全性。系统能够为用户提供有好美观的窗口界面、充足可靠的信息数据、简单方便的维护手段和灵活多变的查询方式以及快捷而准确的查询结果。要求建立起数据一致性及完整性强、数据安全性好的数据库。要求具备应用程序功能全,易使用等，运行稳定等特点。3.2.业务流程分析3.2.1、人事档案管理系统总体DFD图 如下：3.2.2、管理员信息程图3.2.3职工基本信息表流程图3.2.4信息修改流程图3.2.5信息查询流程图3.2.6表格信息设置流程图3.3、数据库设计对于数据库应用系统的开发，数据库的合理设计在系统设计中占有非常重要的地位。本节按照以下几个步骤来设计数据库：1) 数据库概念设计2) 数据库逻辑设计。3) 数据库物理设计。3.3.1、数据库概念设计本次设计的数据库系统主要应用于职工管理系统中的管理员信息、职工信息浏览、信息修改信息、信查询息、表单设置。因此数据库设计必须充分满足这些功能需求：（1） 管理员设置管理员可以对管理员信息进行添加、修改、删除、浏览等操作。（2）职工基本信息浏览管理员可以对职工信息进行添加、修改、删除、浏览等操作。职工信息中的职工基本信息、职工请假记录、职工工资表等信息必须和其相应的分类信息表的信息相关联。（3）信息修改 管理员可以对职工信息中的职工基本信息、职工请假记录、职工工资表，进行添加、修改、删除、浏览等操作。（4）查询信息管理员可以对职工信息中的职工基本信息按指定的范围或要求进行查询。综合以上ER模型，便可得到整个系统的ER模型，如下图：职 工请假工资部 门总体ER图 管理员信息E-R图职工基本信息E-R图职工请假记录E-R图职工工资表E-R图3.4、数据库逻辑设计。user表模式分解：user(职工编号、姓名、身份证号、民族、性别、出生日期、毕业学校、学历、部门、职称、上司、电话、Email、Edit、Edittime、备注)employee表模式分解：employee(职工编号、姓名、身份证号、民族、性别、出生日期、毕业学校、学历、部门、职称、上司、电话、Email、Edit、Edittime、备注)leave表模式分解：leave(假条编号、职工编号、起始日期、中止日期、天数、原由、状态、批准人、Edit、Edittime、备注)salary表模式分解：salary(工资编号、职工编号、年份、月份、基本工资、加班工资、交通补助、总工资、考勤扣除、保险扣除、扣税、总扣除、实际工资、Edit、Edittime、备注)3.5、数据库物理设计数据库的概念结构设和逻辑设计毕后，现在可以将上面的数据库结构转化为某种数据库系统所支持的实际数据模型，也就是数据库的物理设计。职工管理系统数据库中各个数据库的设计结构如下面所示，数据库由以下四个数据表组成：第一个是管理员信息数据表，命名为user表；第二个是职工信息数据表，命名为employee表；第三个是职工请假数据表，命名为leave表；第四个是职工工资数据表，命名为salary表；下面设计它们的具体字段。（1）管理员信息数据表：字段字段名类型宽度小数位索引排序Nulls1职工编号数值型11主键否2姓名字符型20否3身份证号字符型18否4民族字符型10否5性别字符型4否6出生日期字符型20否7毕业学校字符型20否8学历字符型20否9部门字符型20否10职称字符型20否11上司字符型20否12电话字符型20否13EMAIL字符型20否14EDIT数值型11否15EDITTIME日期型8否16备注备注型50否（2）职工信息数据表：字段字段名类型宽度小数位索引排序Nulls1职工编号数值型11主键升序否2姓名字符型20否3身份证号字符型18否4民族字符型10否5性别字符型4否6出生日期字符型20否7毕业学校字符型20否8学历字符型20否9部门字符型20否10职称字符型20否11上司字符型20否12电话字符型20否13EMAIL字符型20否14EDIT数值型11否15EDITTIME日期型8否16备注备注型50否（3）请假信息数据表：字段字段名类型宽度小数位索引排序Nulls1假条编号字符型6否2职工编号数值型11主键升序否3起始日期字符型20否4中止日期字符型20否5天数数值型6否6原由字符型50否7状态字符型20否8批准人字符型20否9EDIT数值型11否10EDITTIME日期型8否11备注备注型10否（4）职工工资数据表：字段字段名类型宽度小数位索引排序Nulls1工资编号字符型50否2职工编号数值型11主键升序否3年份数值型6否4月份数值型6否5基本工资数值型11否6加班工资数值型11否7交通补助数值型11否8总工资数值型11否9考勤扣除数值型11否10保险扣除数值型11否11扣税数值型11否12总扣除数值型11否13实际工资数值型11否14EDIT数值型11否15EDITTIME日期型8否16备注备注型10否3.6、各数据表的建立过程:(1)、管理员信息数据表的建立过程:Create table user(职工编号c(11) primary key,姓名c(20), 身份证号c(18), 民族c(10), 性别 c(4), 出生日期 d(20), 毕业学校 c(20), 学历c(20), 部门c(20), 上司 c(20), 电话 c(20), EMAIL c(20), EDIT n(11), EDITTIME d(8), 备注 m(50)(2)、职工信息数据表的建立过程:Create table employee (职工编号c(11) primary key,姓名c(20), 身份证号c(18), 民族c(10), 性别 c(4), 出生日期 d(20), 毕业学校 c(20), 学历c(20), 部门c(20), 上司 c(20), 电话 c(20), EMAIL c(20), EDIT n(11), EDITTIME d(8), 备注 m(50)(3)、职工请假记录数据表的建立过程:Create table leave (职工编号c(11) primary key, 假条编号c(6), 起始日期c(20), 中止日期 c(20), 天数 n(6), 原由 c(50), 状态 c(20), 批准人 c(20), EDIT n(11), EDITTI d(8)备注 m(50)(4)、职工工资数据表的建立过程:Create table leave (职工编号 n(11) primary key, 工资编号c(50), 年份 n(6), 月份 n(60), 基本工资 n(11), 加班工资n(11), 交通补助n(11), 总工资n(11), 考勤扣除n(11), 保险扣除n(11), 扣税 n(11), 总扣除 n(11), 实际工资 n(11), EDIT n(11), EDITTIME d(8),备注 m(10) 4 系统设计人事管理系统的主要任务是对职工进行整理，使得能方便快捷地对职工进行查询、统计、更新，并且能按一定要求输出报表。通过该系统，使企业的人事管理工作系统化、规范化、自动化，从而提高企业人事管理的效率。灵活的数据记录编辑功能，可以随时对记录进行增加，修改，更新，删除，浏览等便辑操作。并将查询方式有机溶入编辑界面，可以实现对某项记录定位，再进行编辑，修改，更新。多个数据库表的任意组合条件的查询。便于在实际档案管理操作中各种情况，多种条件下的人员情况进行统计查看。具备用户权限管理设置，以确保档案的保密性和安全性。具有分类统计，具有辅助表管理功能，主要是对“学历”表中的字段“学历”，“部门表”中的字段“部门”，可进行添加，修改，删除操作。4.1、系统功能模块设计本系统分为如下的几个模块：本系统主要分为登录界面、主界面、管理员设置界面、职工信息浏览界面、职工请假记录界面、职工工资表界面、修改职工信息界面、修改职工请假记录界面、修改职工工资界面、添加学历界面、添加部门界面、表单设置界面、查询界面等组成。4.1.1主界面模块该模块提供管理系统的主界面，是主系统的唯一入口和出口，该界面提供用户选择并调用各子模块。系统结构图如下图所示：系统总体结构图4.1.2、管理员登录系统模块：只有合法的用户在输入正确的密码后方可进入系统。可以方便地修改用户的密码，以防密码泄露后对数据的安全性造成威胁。管理员信息结构图4.1.3、职工信息浏览模块：该模块提供全部职工信息的界面。职工信息浏览结构图4.1.4、修改信息：该模块对按档案进行更改、删除和新增的界面。修改信息结构图4.1.5、信息查询模块结构图：该模块可按管理员在指定的要求查询职工的相关信息。信息查询模块结构图4.2、系统的各模块的具体实现：本系统对职工的管理中，要求这个数据库中的管理员信息、职工信息、职工请请假信息、查询信息，等几个方面的信息。其次本系统还应该具有职工的录入、修改、删除和查询的功能，在添加和修改职工信息时，相应的学历、部门，管理员只需用鼠标点击选择一下即可，不需在打字录入了，在删除职工时，选择需要删除的信息，点击删除就可以了，查询职工时，输入要查找的职工信息关键信息点击查找即可。系统首先可以维护不同人员的职工信息。接着，本系统还可以添加、修改、删除管理员的功能等。根据上述的系统总体设计思想的分析，可以将系统分成以下几个部分：4.2.1、用户登录模块：本模块是对用户的身份进行一个判断的过程，如果用户的所填入的管理员和密码都正确，那么，就可以进入系统进行管理操作了，如果管理员或者密码错误，那么系统将会提示，密码错误，让重新进行登录的操作。流程图如下： 4.2.2 职工信息浏览模块：此模块中包涵三张表，管理员可以对信息中的职工基本信息、职工请假记录、职工工资表，进行浏览在该界面窗口中，职工信息中的职工基本信息、职工请假记录、职工工资表等信息必须和其相应的分类信息表的信息相关联，有文件、数据、关于职工的所有信息，直接从数据库中调用。流程图如下：4.2.3查询模块管理员可以对人事档案信息中的职工基本信息按所有范围进行查询，按男、女进行查询，还可以按指定的信息要求进行查询。最后查到的信息会在列表当中显示出来，如果没有查询结果则在列表当中不会显示。指定的信息要求进行查询,直接从数据库中调用，流程图如下：4.2.4信息修改模块管理员可以对人事档案信息中的职工基本信息、职工请假记录、职工工资表，进行添加、修改、删除、浏览等操作。职工的“学历”和“职工”所在部门管理员可以直接进行选择，还可以进行，添加、修改、删除，还可对系统中不需要的表格信息进行隐藏或显示操作。方便修改，直接从数据库中调用，流程图如下：5 系统主要代码5.1 登录模块该模块的主要功能是对用户的身份进行验证，用户必须输入正确的用户名和密码，才能登录系统，其实现代码如下：Private Sub cmdOK_Click() If txtPassword = pws(Combo1.ListIndex) Then CurId = Combo1.ListIndex EmploID = Emplo(CurId) CurUser = user(CurId) CurPsw = pws(CurId) Me.Hide FrmMain.Show Else MsgBox 输入的用户名或密码不正确, 请重新输入!, , 警告 txtPassword.SetFocus SendKeys Home+End End If End Sub5.2 系统主介面：该界面提供用户选择并调用各子模块。具体代码如下：Public Sub showemployee() DataA.RecordSource = select * from employee DataA.Refresh DBGA.Columns(性别).Button = True DBGA.Columns(学历).Button = True DBGA.Columns(部门).Button = True For i = 0 To 2 Mtab(i).Checked = False Next i Mtab(0).Checked = True cutable = employee cuTabCh = True End SubPublic Sub showleave() DataA.RecordSource = select * from leave DataA.Refresh For i = 0 To 2 Mtab(i).Checked = False Next i Mtab(1).Checked = True cutable = leave cuTabCh = True End SubPublic Sub showsalary() DataA.RecordSource = select * from salary DataA.Refresh For i = 0 To 2 Mtab(i).Checked = False Next i Mtab(2).Checked = True cutable = salary cuTabCh = TrueEnd SubPrivate Sub as_Click()FrmSetup.ShowEnd Sub5.3信息修改：管理员可以对人事档案信息中的职工基本信息、职工请假记录、职工工资表，进行添加、修改、删除、浏览等操作。职工的学历和职工所在部门管理员可以直接进行选择，还可以进行，添加、修改、删除，还可对系统中不需要的表单信息进行隐藏或显示操作。方便在修改，直接从数据库中调用。具体代码如下：Private Sub CmdAddNew_Click()If CmdAddNew.Caption = 添加 ThenCmdAddNew.Caption = 确认CmdDel.Enabled = False CmdOK.Enabled = FalseDataA.ReadOnly = FalseFor i = 1 To 12If Txt(i).Text = Then Txt(i).Text = 0 DataA.Recordset.Fields(i) = 0 Next i DataA.Recordset.AddNew Txt(0).Locked = False If FrmMain.cutable = employee Then DataA.Recordset.Fields(13) = frmLogin.EmploID DataA.Recordset.Fields(14) = Now If Opsex(0) Then DataA.Recordset.Fields(4) = 男 Else DataA.Recordset.Fields(4) = 女 End If DataA.Recordset.Fields(7) = Cmbdegree.Text DataA.Recordset.Fields(8) = Cmbdepart.Text ElseIf FrmMain.cutable = leave Then DataA.Recordset.Fields(8) = frmLogin.EmploID DataA.Recordset.Fields(9) = Now Else DataA.Recordset.Fields(13) = frmLogin.EmploID DataA.Recordset.Fields(14) = Now End If Txt(0).SetFocus Else OK If Txt(0).Text = Then MsgBox 不可以为空 Txt(0).SetFocus Exit Sub End If For i = 1 To 12 If Txt(i).Text = Then Txt(i).Text = 0 DataA.Recordset.Fields(i) = 0 Next i If FrmMain.cutable = employee Then DataB.Recordset.FindFirst 职工编号= + Txt(0).Text If Not DataB.Recordset.NoMatch Then MsgBox 职员编号重复 Txt(0).Text = Txt(0).SetFocus Exit Sub End If ElseIf FrmMain.cutable = leave Then DataB.Recordset.FindFirst 假条编号= + Txt(0).Text If Not DataB.Recordset.NoMatch Then MsgBox 假条编号重复 Txt(0).Text = Txt(0).SetFocus Exit Sub End If Else For i = 4 To 10 If Not IsNumeric(Txt(i).Text) Then MsgBox not a number Txt(i).SetFocus Exit Sub End If Next i DataB.Recordset.FindFirst 工资编号= + Txt(0).Text If Not DataB.Recordset.NoMatch Then MsgBox 工资编号重复 Txt(0).Text = Txt(0).SetFocus Exit Sub End If End If DataA.Recordset.Update DataA.Recordset.MoveLast FrmMain.DataA.Refresh FrmMain.DataB.Refresh DataB.Refresh CmdAddNew.Caption = 添加 CmdDel.Enabled = True CmdOK.Enabled = True End If End Sub6 系统测试测试的目的是尽可能地暴露程序中的错误，因此在编译完成后，尝试用现实来进行调试。6.1、管理员信息模块测试，如下图所示，这是系统当前管理员的信息表。 然后对管理员的信息进行修改，测试能不能正长的进入系统，修改后的信息如下图所示： 经过修改后管理员信息，测试后得到结果，能够正长的登陆系统，可以得到结果当前的管理员信息模块完全符合用户要求。6.2、职工个人信息修改模块测试： 下面对职工信息表中的几条信息进行修改，最后看测试的结果如何，如下图所示这是职工原来的信息： 在对职工信息修改后的结果，可以完全按照管理员的操作来进行，如下为修改后的信息，如下图所示：6.3、职工请假记录表测试：下图为表中原来的记录