VB人事管理系统设计代码及论文.doc

VB人事管理系统设计代码及论文-论文VB人事管理系统设计代码及论文一、前言 2二、系统概况 2三、需求分析 2 - 4四、数据库设计 5 - 7五、主程序清单 8六、模块界面 9 -11七、设计小结 12前 言人事管理是每个企业必不可少的。人事档案管理系统一般包括对人事档案的统计、查询、更新、报表输出等功能。如果人工直接统计的话，工作量将十分庞大，特别是，如果企业员工有几万或几十万人时，人工统计将变得不可能想象。用计算机可使人们从繁重而又单调的统计运算中解脱出来，仅用一些简单的操作便可及时准确地获得需要的信息。在设计一个系统时，首先要做好需求分析。合理地运用好Visual FoxPro的基本方法，建立一个适合企业的人事管理系统。系统概况一、课题名称：人事管理系统。二、设计环境：开发工具：Microsoft VisualBasic操作系统：Windows XP需求分析一、系统功能分析人事管理系统的主要任务是对人事档案进行整理，使得能方便快捷地对人事档案进行查询、统计、更新，并且能按一定要求输出报表。通过该系统，使企业的人事管理工作系统化、规范化、自动化，从而提高企业人事管理的效率。二、系统功能模块设计主界面本系统分为如下的几大模块：档案浏览报表输出编辑档案档案查询档案统计1、主界面模块该模块提供管理系统的主界面，是主系统的唯一入口和出口，该界面提供用户选择并调用各子模块。2、浏览模块该模块提供全部人事档案的界面。3、查询模块该模块提供查询符合某一条件的人事档案的界面。4、统计模块该模块提供按某一条件进行统计的界面。5、编辑模块该模块提供对按档案进行更改、删除和新增的界面。6、报表模块该模块按一定格式将人事档案以报表格式输出。三、四、五、六、数据流图客 户报 表更 新统 计输出报表查 询浏 览查 查 统 统 更 更询 询 计 计 新 新条 结 条 结 条 结件 果 件 果 目 果人事档案人事档案 档案报表数据库设计创建数据库是设计系统的第一步，其关键问题在于确定所需的表结构并为之建立索引。为了使系统设计精练实用，体现关系型数据库的特点，本系统还为各相关表建立关系。1、数据项设计通过需求分析，可确定系统的数据项和数据结构如下：a、人事档案（编号、姓名、性别、出生年月、联系电话、住址、籍贯、文化程度、职称、部门、职务、基本工资、简历）。b、家庭成员（编号、家属姓名、与员工关系、出生年月）。c、社会关系（编号、关系姓名、与员工关系、出生年月）。为了方便统计，本系统还设定了几个用于统计的临时表：a、统计部门（部门、人数）。b、统计职务（职务、人数）。c、统计职称（职称、人数）。d、统计文化程度（文化程度、人数）。2、概念结构设计本系统在需求分析的基础上设计出能够满足用户需求的各种实体。根据上面的分析所得的实体有：人事档案实体、家庭成员实体和社会关系实体。各实体间的关系如图：3、逻辑结构设计740VB人事管理系统设计代码及论文人事档案表列名数据类型可否为空说明编号数值型（10）否编号姓名字符型（10）否姓名性别字符型（2）否性别出生年月日期型（8）否出生年月住址字符型（30）可住址联系电话数值型（11）可联系电话籍贯字符型（10）否籍贯文化程度字符型（10）可文化程度职称字符型（10）可职称部门字符型（10）否部门职务字符型（10）否职务基本工资数值型（10）否基本工资简历备注型否简历家庭成员表列名数据类型可否为空说明编号数值型（10）否编号家属姓名字符型（10）否家属姓名与员工关系字符型（10）否与员工关系出生年月日期型（8）否出生年月社会关系表列名数据类型可否为空说明编号数值型（10）否编号关系姓名字符型（10）否关系姓名与员工关系字符型（10）否与员工关系出生年月日期型（8）否出生年月统计部门表列名数据类型可否为空说明部门字符型（10）否部门人数数值型（10）否人数统计职务表列名数据类型可否为空说明职务字符型（10）否职务人数数值型（10）否人数统计职称表列名数据类型可否为空说明职称字符型（10）否职称人数数值型（10）否人数统计文化程度表列名数据类型可否为空说明文化程度字符型（10）否文化程度人数数值型（10）否人数主程序清单set talk offset safety offset date ansiset century onset default to a:rsgluse 人事档案表dkda=.f.do form maindo main.mnxread eventsset sysmenu to defaultif dkdause 人事档案表endifclose allcancel模块界面1、主界面:2、浏览界面3、查询界面4、统计界面5、编辑界面6、报表界面设计小结通过编写这个程序后，我觉得VFP是一个强大的数据处理工具，因为无论是最终用户或是像我们这样的程序编制者，在使用过程中都可以找到一个相当便捷的方法来实现我们的想法。在编制过程中，我首先考虑到了界面的友好性，并在界面设计时不采用烦琐的细节，使界面简单、清晰，便于操作。本次编制中的不足之处是因为是首次尝试编制可应用的数据管理系统，可能在实际应用中有些功能不到位，对声音、动画的功能也未能插入。我将不断提高自己，争取今后在编制程序时，能编写出有个性且应用性较强的数据库管理系统。VB人事管理系统设计代码及论文本书各个系统开发均使用Visual Basic 6.0。运行各个系统前，首先要安装Visual Basic 6.0。Visual Basic 6.0安装好后，直接打开.vbp或.vbg文件，在编程环境中可以查看源代码，运行程序。每个信息系统内的EXE文件为测试VB程序通过后生成的可执行文件，可以直接点击运行。1本电子教案共有五个目录，分别为：（1）第3章 企业人事管理信息系统；（2）第4章 企业考勤管理信息系统；（3）第5章 企业设备管理信息系统；（4）第6章 二手房销售管理信息系统；2各系统对应数据库及数据源：您需要首先安装SQL Server2000数据库。然后打开其查询分析器，将对应的Sql语句拷贝在查询分析器里，然后执行Sql语句来创建数据库和各个数据库表。在运行应用程序时，您首先需要设置数据库连接，即通过ODBC建立文件DSN（详细方法参考第2章Visual Basic数据访问），设置用户名和密码均为sa。3、使用各个系统前，需要先添加管理员记录。详细的使用说明请见书中附录部分。摘要：伴随着全球经济一体化的进程，人事管理日趋复杂，人力资源成了现代企业生存和发展的重要因素。企业人事部门传统的档案手工管理繁琐、效率低下而且容易出错，已经无法适应现代企业日益庞大的人力资源队伍的管理需求。随着计算机技术的迅猛发展，办公自动化成为现实，利用计算机实现企业人事管理势在必行。企业人事管理信息系统，综合运用人事管理相关领域的知识，结合计算机技术，科学的管理企业的人事档案、绩效考核等信息，具有检索迅速、操作方便、存储量大、保密性高、成本低等特点，可以大大地提高工作效率；同时可以引导企业按照科学的管理理念对人力资源进行规范化的管理。关键字：VB 、SQL、 管理系统目录目录- 2 -引言41 系统总体分析51.1系统目标51.2系统设计思想52 系统规划62.1建立业务模型62.2数据分析63 系统分析73.1系统现状分析73.2新系统逻辑功能结构73.2.1 数据流程图74 系统总体设计84.1系统功能设计84.1.1登录模块84.1.2系统管理模块84.1.3基础数据管理模块84.1.4部门信息管理模块84.1.5职员信息管理模块84.1.6考勤信息查询模块84.1.7考评信息管理模块84.1.8帮助信息模块84.2数据库设计94.2.1数据库94.2.2数据库表结构95 系统详细设计125.1用户登录模块125.2主控制平台的设计125.2.1 人机交互设计125.2.2 主控制平台的功能设计125.3系统管理模块135.3.1 用户管理子模块135.3.2 修改密码模块145.4基础数据管理模块155.4.1 人机交互设计155.4.2 基础数据管理模块的IPO过程155.5部门信息管理模块155.5.1 人机交互设计155.5.2 部门信息管理模块的IPO过程165.6职员信息管理模块165.6.1 职员基本信息管理165.6.2 职员家庭信息管理175.6.3 职员工作教育经历信息管理185.7考勤信息查询模块185.7.1 人机交互界面设计185.7.2 考勤信息查询模块的IPO过程195.8考评信息管理模块195.8.1 人机交互界面设计195.8.2 考评信息管理模块的IPO过程205.9帮助信息模块206 系统实施216.1编写并测试VB代码216.1.1数据的访问216.1.2使用Recordset.count216.1.3 在当前路径下加载窗体背景图片226.1.4 数据校验226.1.5显示当前记录227 结束语237.1关于我的程序237.1.1运行维护237.1.2系统的改进与提高237.2感想237.3致谢23参考文献740VB人事管理系统设计代码及论文引言伴随着全球经济一体化的进程，人事管理日趋复杂，人力资源成了现代企业生存和发展的重要因素。企业人事部门传统的档案手工管理繁琐、效率低下而且容易出错，已经无法适应现代企业日益庞大的人力资源队伍的管理需求。随着计算机技术的迅猛发展，办公自动化成为现实，利用计算机实现企业人事管理势在必行。企业人事管理信息系统，综合运用人事管理相关领域的知识，结合计算机技术，科学的管理企业的人事档案、绩效考核等信息，具有检索迅速、操作方便、存储量大、保密性高、成本低等特点，可以大大地提高工作效率；同时可以引导企业按照科学的管理理念对人力资源进行规范化的管理。企业的人事管理业务大致经过如下的管理流程：1)新职员进入公司以后，经人事部门的专门人员将新职员的基本信息进行记录，包括职员的家庭信息和工作、教育经历信息、生成人事档案。2)如果新员工尚未分配部门，那么他每个工作日的工作表现由人事处统一管理，直到该员工分配部门后，再归属该部门的部门领导。3)由专门人员管理出勤和退勤信息并按月进行汇总，包括请假、加班和旷工记录等。4)每个月月底或者月初，由该职员的直接领导对其进行考核，填写职员考核表，包括职员的工作业绩和奖惩记录。5)每个月月初，职员考核表与考勤汇总信息上交给人事部门最高管理者，作为年终考核的依据，同时根据这些信息和工资项目，填写工资条，并将工资表送到财务部门。1 系统总体分析1.1系统目标 本系统以中小型企业的人事管理业务为对象，结合人力资源管理理论，设计并开发一个企业人事管理信息系统，提供一个“以人为本”、科学合理的人事管理解决方案。针对企业不同管理层的职员，就人事管理的各个方面，提供一个互动式的人事管理平台。系统目标如下：1）业务上满足企业人事管理职能的基本需求，能够方便地进行部门、职员和考评管理。2）为考勤管理系统和工资管理系统提供数据支持。3）与传统的手工管理相比，要填加基础数据的管理和用户数量权限的设置。4）所有的界面都要有信息的浏览功能，同时要保障数据的安全、可靠。5）完善的报表功能，可以打印需要的报表。1.2系统设计思想 本系统采用结构化生命周期法进行系统开发，这种方法的基本思想是建立面向用户的观念，严格区分工作阶段，自顶向下地完成系统的研制工作，并充分考虑变化的情况。工作成果文档化、标准化。具体的开发步骤为：1）系统总体规划2) 系统分析3) 系统设计4) 系统实施5) 系统运行和维护2 系统规划2.1建立业务模型新信息系统的建立是在现行业务基础上经过改建或重建而得到的。业务模型的建设可以分为三个阶段。1）现行系统的调查和分析。2）提出一个表示全部业务的模型。3）扩展上述模型，使它能表示出各项具体的业务活动，最终确定为业务模型。根据对人事管理的业务流程的调查和分析，得到一般企业现行的人事管理业务模型如表1所示。表1 人事管理模型业务范围业务过程具体业务处理人事管理部门信息管理公司成立之初，确定组织结构及其部门组成明确各个部门的任务和功能，并存档企业部门发生变化时，随时修改部门信息职员信息管理新职员进入公司后，人事部门的专门人员对新职员的基本信息进行记录职员的家庭信息和工作、教育经历信息，生成人事档案当员工所在部门发生变化或产生人事变动时，修改相应的职员基本信息职员考勤管理管理日常出勤和退勤信息按月进行汇总职员考评管理月底（或者月初），职员的直接领导对其进行考核，填写职员考核表，包括职员的工作业绩和奖惩记录。随时对考评情况进行修正绩效工资管理月初，职员考核表与考勤汇总信息上交给人事部门最高管理者，作为年终考核的依据，同时根据这些信息和工资项目，填写工资条，并将工资表送到财务部门。2.2数据分析 根据表1的业务模型，得到本系统需要建立的数据类有：部门信息数据、职员基本信息数据、职员家庭信息数据、职员经历信息数据、职员考勤信息数据、职员考评信息数据和汇总数据。人事管理系统CU矩阵如表2所示。从CU矩阵中可以看出，本系统中职员基本信息数据、职员家庭信息数据和职员经历信息数据管理业务功能相对集中。以作为一个单独的模块。绩效工资管理没有产生数据，因此这一功能可以作为本系统对外提供的功能，只提供相关数据。此外，考虑到考勤管理对实时性要求较高，工资管理涉及到财务部门，而且业务比较复杂，在人事管理信息化的过程中，一般作为两个单独的系统考勤管理系统和工资管理系统来实现(目前一般的财务系统也包含了工资管理的功能)。表2 人事管理系统CU矩阵数据类业务过程部门信息职员基本信息职员家庭信息职员经历信息职员考勤信息职员考评信息汇总部门信息管理C职员信息管理UCCC职员考勤管理UUCC职员考评管理UUCC绩效工资管理UUUU3 系统分析系统分析是根据系统规划阶段建立的业务模型和CU矩阵，并在现有资料的基础上深入地调查研究，进行功能分析，最终确定新系统的逻辑功能结构。系统分析可以采用业务流程图和数据流程图的方式来表达系统分析的结果。3.1系统现状分析根据人事管理的业务模型和C-U矩阵中得到的数据类，可以画出该系统的工作流程，需要注意的是，工作流程中出现的数据存储应与系统规划得到的数据类相对应。3.2新系统逻辑功能结构3.2.1 数据流程图在人事管理系统中，并非所有的业务处理都能由计算机来完成，因此设计人员必须围绕着信息处理业务，根据业务流程图，弄清系统需要产生什么样的信息输出，为了得到这样的输出应该对什么数据进行处理，输人数据向输出数据所进行的转换过程是什么。这个过程就是进行数据抽取，建立数据流程图的过程。数据流程图描述了新系统的全部的数据处理逻辑和数据的流动过程，构成了新系统的逻辑模型。根据业务流程图，去掉其中信息系统不能完成的和本系统处理以外的环节，并将业务处理比较集中的功能做为一个高层模块，得到本系统高层数据流程图。高层数据流程图中有些功能不可再分，在进一步的设计中可以作为一个单独的模块。有些功能比较复杂，应该进行进一步的分解，直到每个子模块功能独立，不可再分。对高层数据流程图中职员基本信息管理功能进行分解，得到职员基本信息管理的二级数据流程图。对比各个数据流程图和业务流程图，从业务过程(业务流程图)抽取数据流的过程中，有些纯人工的操作要删除，如确定组织结构及部门组成；有些环节不属于本系统的处理范围要去掉，如关于工资处理的部分；此外，如果有初期调研没有得到的常规业务要增加到数据流程图中。综合以上各个步骤的分析，最终得到用数据流程图表达的新系统的逻辑功能结构。如下图：VB人事管理系统设计代码及论文4 系统总体设计系统设计是根据系统分析阶段所提出的新系统的逻辑模型，建立起新系统的物理模型。一般包括总体设计和详细设计两个阶段。总体设计要确定新系统在计算应该由哪些程序模块组成，它们之间用什么方式连接在一起以构成一个最好的系统机内结构，进行数据库的详细设计以及编码设计。详细设计完成输入输出界面和每个模块详细功能的设计。系统设计阶段是开发管理信息系统的关键环节，因此系统设计要满足系统逻辑模型的功能要求，并以尽可能提高系统的性能为目标。4.1系统功能设计本系统的模块结构图。从数据流程图转化为系统模块结构时，有三个问题需要注意：1)模块结构图的层次要对应于数据流程图的层次。2)添加模块。抛开具体业务本身，考虑到信息安全的问题，往往要添加登录模块，登录成功的用户才允许使用系统；为方便系统管理与维护，要添加系统管理模块，用来管理系统用户的相关信息。3)由人工操作到计算机管理的转化过程中，为了便于计算机处理数据，往往需要对实体添加唯一性标识(字符)，如对学生信息的处理往往加上学号来标识学生，这个过程称作编码。编码(如学号)需要单独的数据管理界面来管理，因此，一般的应用程序都会有基础数据管理模块。并且，只允许系统管理员使用，用来录入和维护系统编码。4.1.1登录模块登录模块输入用户名和密码，如果用户名和密码正确，则进入主控制平台；否则提示用户明确的错误信息。4.1.2系统管理模块1)用户管理子模块：系统管理员进行用户权限设置和用户浏览，可以更改用户密码和用户权限，同时为保障系统健壮，进行输入检验，给予必要的信息提示。2)修改密码子模块：任何用户登录后都可以修改自己的密码。4.1.3基础数据管理模块 系统管理员浏览职务、民族和文化程度的编号和名称，可以对这些信息进行添加、删除和修改，普通用户不可以使用该功能。4.1.4部门信息管理模块系统管理员和人力资源的主管可以进行数据的添加、删除和修改。普通用户只能浏览信息。4.1.5职员信息管理模块1)职员信息管理子模块：可以设置和查看某个职员的家庭成员、工作教育经历，可以进行条件查询。系统管理员和人力资源主管可以进行数据的添加、删除和修改，普通用户可以修改自己的家庭成员、工作教育经历信息。2)报表子模块：可提供职员基本信息、职员就职信息和职员通信录报表。4.1.6考勤信息查询模块该模块使用考勤管理信息系统的数据，所有用户可以进行条件查询，并提供更新考勤信息的功能。4.1.7考评信息管理模块人力资源主管根据职员的工作表现对数据进行更新，其他用户只能按照时间和姓名进行查询。4.1.8帮助信息模块显示系统的开发版本和系统说明信息。4.2数据库设计数据库设计是在DBMS的支持下，按照应用的要求设计出合理的数据库物理结构。本系统采用SQLServer 2000数据库，根据系统分析和模块设计中得到的功能和相应的数据存储，本系统数据库的数据项和数据结构如下：4.2.1数据库1)数据库名称：人事信息库。2)标识：DBManPower。4.2.2数据库表结构1)表名：用户信息表。标识：tbUser。数据来源：用户管理模块的录入。字段名是否主键字段类型字段长度/B是否允许为空备注UserId是char10否用户名UserPassword否char8否用户密码Userkind否varchar20否用户类型：普通用户，人力资源管理者，系统管理员2)表名：职务编码信息表。标识：tbDuty。数据来源：基础数据管理模块的录入。字段名是否主键字段类型字段长度/B是否允许为空备注DutyId是char8否职务编码DutyName否varchar20否职务名称3)表名：民族编码信息表，标识：tbNation。数据来源：基础数据管理模块的录入。字段名是否主键字段类型字段长度/B是否允许为空备注NationId是char3否民族编码NationName否varchar20否民族名称4)表名：文化程度编码信息表。标识：tbEdu。数据来源：基础数据管理模块的录人。字段名是否主键字段类型字段长度/B是否允许为空备注EduId是char2否文化程度编码EduName否varchar20否文化程度名称5)表名：部门信息表。标识：tbDep。数据来源：部门信息管理模块的录入。字段名是否主键字段类型字段长度/B是否允许为空备注DepId是char8否部门编号：前两位代表一级部门，3、4位代表二级部门，5、6位代表三级部门，7、8位备用DepName否varchar30否部门名称Describe否varchar100是部门职能描述6)表名：职员基本信息表。标识：tbEmployee。数据来源：职员基本信息管理模块的录入。字段名是否主键字段类型字段长度/B是否允许为空备注EmpId是char8否职员编号EmpName否varchar30否职员姓名Gender否char2是性别Age否Int4是年龄NationId否char3是民族编号Birthday否datetime8是生日PoliticalParty否varchar20是政治面貌MartalCon否varchar6是婚姻状况DepId否char8是所在部门编号HireDate否datetime8是入职时间EduId否char2是文化程度编号FamilyPlace否varchar20是籍贯IdCard否varchar20否身份证号Email否varchar30是电子邮箱Officephone否varchar20是办公电话Homephone否varchar20是家庭电话Mobile否varchar20是手机号码State否varchar20否在职人员； 兼职人员；试用人员离职人员 ；返聘人员 ；Residence否varchar100是居住地址Postcode否varchar10是邮政编码DutyId否char8是职务编码RecorId否char10是档案编码PRLocation否varchar50是户口所在地EmpOdRecord否char8是信息录入人员编号7)表名：职员家庭信息表。标识：tbFam如Membeh数据来源：职员家庭信息管理模块的录入。字段名是否主键字段类型字段长度/B是否允许为空备注Id是char8否家庭成员编号EmpId否char8否职员编号Name否varchar30否家庭成员姓名Gender否char2是家庭成员性别Age否int4是家庭成员年龄Relationship否varchar20是与本人关系WorkingOrg否varchar50是所在单位Tel否varchar20是联系电话8)表名：职员工作教育经历信息表。标识：tbWorkExp。数据来源：职员工作教育经历信息管理模块的录入。字段名是否主键字段类型字段长度/B是否允许为空备注Id是char19否编号EmpId否char8否职员编号StartDate否datetime8是开始日期EndDate否datetime8是终止日期WorkOrg否varchar50是工作单位/就读单位Position否varchar10是职务EduId否char2是学历WorkDescri否varchar300是工作描述/获奖经历9)表名：职员考勤信息表。标识：tbWorkRecord。数据来源：考勤信息管理系统中的数据导人本系统。字段名是否主键字段类型字段长度/B是否允许为空备注RecordYear是char4否考勤年份RecordMonth是char2否考勤月份EmpId是char8否职员编号DepId否char8是所在部门编号DaysPresiMonth否int4是当月全勤天数LeaveDays否int4是请假天数AbsentDays否int4是旷工天数VacDays否int4是申请休假天数ErrandDays否int4是出差天数LateDays否int4是迟到天数LaveEarlyDays否int4是早退天数Ot1Dys否int4是工作日加班天数Ot2Dys否int4是周末加班天数Ot3Dys否int4是节假日加班天数VB人事管理系统设计代码及论文5 系统详细设计5.1用户登录模块1人机交互设计用户登陆模块的界面如图1所示。图1 用户登陆模块的窗体效果图2用户登录模块的IPO过程输入：用户名和密码。处理：1)登录窗体启动。2)输入用户名和密码。3)如果用户名或密码为空，处理终止，并进行错误信息提示。4)以输入的用户名为关键字，检索用户信息表(tbUser)的用户名和密码字段。5)通过检索结果判断该用户名是否存在，如果用户名不存在，处理终止，并进行错误信息提示。6)如果用户名存在，比较检索到的密码字段与输入的密码是否相等。如果不相等则处理终止，并进行错误信息提示。7)如果输人的密码正确，将该用户名和用户类型分别保存在全局变量gUserName和gUserKind中。8)进人主控制平台。输出：主控制平台。5.2主控制平台的设计5.2.1 人机交互设计主控制平台具有导航作用，现代信息系统导航方式主要采用三种：菜单式、链按式和按钮式。本系统采用菜单式的导航方式，主控制平台的界面如图2所示。图2 主控制平台的界面效果图5.2.2 主控制平台的功能设计1)菜单导航功能包含的菜单如下：系统管理用户管理、修改密码。基础数据管理。部门信息管理。职员信息管理一职员信息管理、报表、职员基本信息报表、职员就职信息报表、职员通信录。考勤信息查询。考评信息管理。帮助。2)退出。显示当前用户、系统时间的状态。3)给出主控制平台的提示信息，如标题。4)判断当前用户类型，对该类型用户的权限进行记录。5)点击各个菜单或子菜单时显示相应的界面。5.3系统管理模块系统管理模块包括用户管理和修改密码两个子模块。用户管理子模块只有系统管理员可以使用，一般用户不能使用；修改密码子模块面向任何用户，提供修改登录者密码的功能。5.3.1 用户管理子模块(1)人机交互设计其窗体效果如图3所示。图3 用户管理子模块的窗体效果图(2)用户管理模块的IP0过程输入：用户名、密码和用户类型。处理：1)仅当用户类型为系统管理员时可用。2)用户信息管理窗体启动。3)从用户信息表(tbUser)中读取全部记录并显示在表格控件dcUscr中。5.3.2 修改密码模块(1)人机交互设计其窗体效果如图4所示。图4 修改密码子模块的窗体效果图(2)修改密码模块的IPO过程输入：原密码、新密码和确认密码。处理：1)修改密码窗体启动，输入原密码、新密码和确认密码。2)从用户信息表(tbUser)中检查该用户的原密码是否与输入的原密码相同。3)如果不同则进行信息提示，处理终止。4)如果相同，检验新密码是否为空，如果为空则进行信息提示，处理终止。5)如果新密码非空，检验输入的确认密码和新密码是否相同。6)如果不同则进行信息提示，处理终止。7)更新用户信息(tbUser)中的用户密码字段。输出：对用户信息表(tbUser)的密码字段进行修改。5.4基础数据管理模块该模块功能是进行基础数据的设置，包括对职务数据、民族数据和文化程度数据的设置。5.4.1 人机交互设计其窗体效果如图5所示。图5 基础数据设置窗体效果5.4.2 基础数据管理模块的IPO过程输入：职务、民族或者文化程度的编号和名称。处理：1)当用户类型为系统管理员时该菜单可用。2)基础数据管理窗体启动。3)从职务编码信息表(tbDuty)中读取全部记录，显示在表格控件dgBasicData中。4)当鼠标单击标签，标签改变时，从相应的数据库表中读取全部记录，显示在表格中，5.5部门信息管理模块5.5.1 人机交互设计其窗体效果如图6所示。VB人事管理系统设计代码及论文图6 部门信息管理的窗体效果5.5.2 部门信息管理模块的IPO过程输入：部门编号、名称和部门描述。处理：1)部门信息管理窗体启动。2)当前用户类型为一般用户时“添加”、“修改”和“删除”按钮不可用。3)从部门信息表(tbDep)中读取全部记录，显示在TreeView控件trvDep中，显示时要根据部门编号区分出部门级别：一级部门及其对应的二级部门，排列在以该一级部门名称为根的树状列表中。二级部门及其对应的三级部门，排列在以该二级部门名称为根的树状列表中。5.6职员信息管理模块职员信息管理模块包括职员基本信息管理、职员家庭信息管理、职员工作/教育经历信息管理三个模块。5.6.1 职员基本信息管理(1)人机交互设计其窗体效果如图7所示。图7 职员基本信息管理模块的窗体效果(2)职员基本信息管理模块的IPO过程输入：职员编号、职员姓名、性别、年龄、民族名称、出生日期、政治面貌，婚姻状况、所在部门、入职时间、学历名称、籍贯、身份证号、电子邮箱、办公室电话、家庭电话、手机、职员类型，住址、邮政编码、职务名称、档案号码、户口所在地、信息录入员编号。处理：1）当前用户类型为一般用户时“添加”、“修改和删除按钮不可用2)职员基本信息管理窗体启动。3)检索职务、民族和文化程度编码表，用检索到的名称添加对应的ComboBox下拉列表；添加界面上其它ComboBox下拉列表。4)从职员基本信息表(tLEmployee)中读取全部记录，显示在表格控件dgEmp中。5.6.2 职员家庭信息管理(1)人机交互界面设计其窗体效果如图8所示。图8 职员家庭信息管理模块的窗体效果(2)职员家庭信息管理模块的IPO过程输入：成员编号、职员编号、姓名、性别、年龄、与本人关系、工作单位、联系电话。处理：1)职员家庭信息管理窗体启动，接收从职员基本信息管理窗体中传递过来的参数职员编号。2)如果职员编号为空，提示用户选择职员编号，“添加”、“删除”和“修改”按钮不可用，处理终止。3)如果职员编号非空，以职员编号为关键字，从职员家庭信息表(tbFamilvMember)中读取全部记录，显示在表格控件dgFamilv中。5.6.3 职员工作教育经历信息管理(1)人机交互界面设计其窗体效果如图9所示。图9 职员工作/教育经历信息管理模块的窗体效果(2)职员工作教育经历信息管理模块的IPO过程输入：起始时间、就读学校、学历、职务和获奖经历。处理：1)职员工作教育经历信息管理窗体启动，接收从职员基本信息管理窗体中传递过来的参数职员编号。2)如果职员编号为空，提示用户选择职员编号，“添加”、“删除”和“修改”按钮不可用，处理终止。3)如果职员编号非空，以职员编号为关键字，从职员工作教育经历信息表(tbWorkExp）中读取全部记录，显示在表格控件dgWorkExp中。 5.6.4 报表本系统提供的报表有职员基本信息报表，职员人职信息报表和职员通信录。报表的主要信息均来自职员基本信息表。5.7考勤信息查询模块5.7.1 人机交互界面设计其窗体设计效果如图10所示。图10 考勤信息查询模块的窗体效果5.7.2 考勤信息查询模块的IPO过程输入：查询条件考勤年、月和所属部门名称。处理：1)职员考勤信息管理窗体启动。2)从考勤信息表(tbWorkRecord)中读取全部记录，显示在表格控件dgWorkRecord中：3)输入查询条件，并检验查询条件是否正确。4)如果查询条件不正确，给出错误信息提示，处理终止。5)根据查询条件从考勤信息表(tbWorkRecord)中检索数据。6)无任何查询条件输入时查询全体值。输出：在指定查询条件下的查询结果。5.8考评信息管理模块5.8.1 人机交互界面设计其窗体效果如图11所示。图11 考评信息管理模块的窗体效果5.8.2 考评信息管理模块的IPO过程输人：职员姓名、考评年月、工作难度系数、工作量记录和工作评价。处理：1)职员考评信息管理窗体启动。2)如果当前用户类型不为“人力资源管理者”，“添加”、“删除”和“修改”按钮不可使用。3)从考评信息表(tbEvaluation)中读取全部记录，显示在表格控件dgValue中。5.9帮助信息模块VB 60中可以添加一个“关于对话框”，在对话框标签上输人一些系统信息，用来介绍系统，提示用户操作，可以作为简单的系统说明书。对话框的制作比较简单，窗体设计效果图略。VB人事管理系统设计代码及论文6 系统实施6.1编写并测试VB代码6.1.1数据的访问VisualBasic60提供了几种访问数据库的方式，可以归纳为两类：使用数据控件绑定和用SQL直接对数据库进行访问。使用数据控件时，将Adodc拖到数据窗体上，设置其ConnectionString属性，绑定数据源，读取并显示数据记录。在数据库的操作过程中，考虑到操作数据库时如果利用数据绑定，则会锁定表记录，使得表的访问为独占式，而如果两个终端同时访问这个表，则容易造成死锁。因此用SQL直接进行对数据库的访问是比较适合的，即使偶尔产生并发操作，对数据库的修改不成功，也可以继续保存。同时由于考虑到数据库中的数据属于动态的、变化的，因此，在数据库的操纵过程中，大量使用了SQL语句进行对数据库的操作。具体说，包括数据的插人、修改、删除和查询。例如在系统管理模块中，相关操作的程序代码如下：数据插入txtSQL = insert into tbUser( Userld, UserPassword, UserKind)txtSQL : txtSQL + values( + Trim(txtUser. Text) + ,txtSQL = txtSQL + Trim(txtPassword. Text) + , + Trim(cboUser. Text) + )results = ExecuteSQL(txtSQL,rstUser, True)MsgBox 添加成功!, vbOKOnly + vbExclamation,警告数据修改txtSQL -update tbUser set Userld = + Trim(txtUser. Text)txtSQL = txtSQL + ,UserPassword = + Trim(txtPassword. Text)txtSQL = txtSQL + ,UserKind = + Trim(cboUser. Text)txtSQL = txtSQL + where Userld= + Trim(txtUser.Text) + results = ExecuteSQL(txtSQL,rstUser, True)MsgBox 修改成功!,vbOKOnly + vbExclamation,警告数据删除txtSQL = delete from tbUser where Userld= + Trim(txtUser. Text) + results = ExecuteSQL(txtSQL,rstUser, True)MsgBox 删除成功!, vbOKOnly + vbExclamation,警告数据查询txtSQL = select Userld as 用户名,UserPassword as 用户密码UserKind as 用户类型txtSQL = txtSQL + from tbUser order by Userldresult = viewData(txtSQL,dgUser)6.1.2使用Recordset.count检索数据库后，需要将检索结果添加到Combobox或者Datagrid表格或其他控件中时，如果检索结果为0，那么自动使用Recordset中的数据rstcboFields(i)时会出现数据库错误，导致程序不能正常运行。因此，在使用rstcboFields(i)之前，先要利用Recordset.cout判断结果记录集中的记录数，如果为0，则不进行任何赋值操作。如在系统公共文件中，为ComboBox赋值函数时： res = ExecuteSQL(txt,rstcbo, False)If rstcb