企业人事管理信息系统的设计与开发_毕业论文

1、摘要信息是一种资源，只有充分利用计算机和信息资源，企业才能在竞争激烈的环境中处于不败之地。在“以人为本”的今天， 企业人事信息的管理在现代企业管理工作中尤为重要，将直接关系到企业的经营与发展。本文描述了采用VB6.0为前端开发工具，SQL Server 2000为后台数据库，设计和开发一套适应现代企业发展的“企业人事管理信息系统”的过程。本文所作主要工作如下：1介绍企业人事管理信息系统的产生背景和开发意义；2描述了C/S体系结构，及Visual Basic开发工具和SQL Server 2000数据库；3通过需求分析，设计和实现系统的各功能模块，包括：系统管理、员工信息管理、考勤管理、工作评价

2、管理及工资管理；4分析并解决程序设计中出现的若干问题。关键词：企业人事管理 C/S（客户/服务器）结构 动态菜单项 目 录一、绪论41、 课题的提出42、 设计思路4二、开发工具简介51、采用的体系结构(CS模式)52、前台开发工具()5 Visual Basic主要特点5 Visual Basic可视化设计基本构件5 ActiveX 部件的特点6 ADO数据库访问方式63、后台数据库(SQL Server 2000)6 SQL Server的特点6 SQL Server的安装和配置7 SQL Server工具和应用程序7三、需求分析91、系统目标9提高人事信息管理的效率9信息管理方式的改进9

3、人员利用率的改进9自动决策体系的改进92、系统流程图93、数据字典104、功能需求10基本信息要求10需实现的主要功能10四、系统设计111、系统功能设计11系统功能分析11系统功能模块设计11系统功能模块图122、数据库设计12数据库概念结构设计12数据库逻辑结构设计143、用户界面设计17系统主窗口设计17登录模块窗口设计18系统管理模块窗口设计19员工信息模块窗口设计21员工考勤模块窗口设计23员工工作评价模块窗口设计25员工工资管理模块窗口设计26五、系统实现281、程序设计28数据库操作函数28动态菜单项的实现28配置文件(.ini)的读写操作302、系统测试31测试目标及步骤31测

4、试方法31测试结果313、系统运行的管理与维护31系统运行管理31系统维护31六、小结321、系统存在不足和改进方案322、毕业设计心得和体会32致谢32参考文献32企业人事管理信息系统的设计与开发一、绪论1、 课题的提出管理信息系统是一门融管理科学、信息科学、系统科学、现代通信技术和电子计算机技术为一体的综合性边缘学科，它以人为主导，利用计算机硬件、软件、网络通信设备为办公设备，进行信息的收集、传输、加工、存储、更新和维护，以提高企业效率为目的一种集成化的人机系统。管理信息系统涉及到多方面的内容，因此，人们称该学科是一门交叉综合性的学科。而企业人事管理信息系统是现代企业管理工作不可缺少的一部

5、分，是适应现代企业制度要求、推动企业劳动人事管理走向科学化、规范化的必要条件，是提高劳动生产力和企业活力的基础。企业人事信息管理是一项琐碎、繁杂而又非常细致的工作，在以往手工进行的办公工作中，需反复的进行各种抄写、编制、计算及各种文件档案管理等工作，这种管理方式存在着许多缺点，如：花费时间长、效率低、保密性差，另外时间一长，将产生大量的文件和数据，这对于查找、更新和维护都带来了不少的困难，而且容易丢失，产生漏洞。使用计算机对企业人事信息进行管理，具有着手工管理所无法比拟的优点：首先，它提高了员工对人事信息资料的编制、管理等工作的效率，同时还可减少文书工作；其次，可以使企业各类人员以最少的劳动和

6、最短的实践取得足够的、可靠的、准确的信息，可以使他们从简单的数据统计、收集、汇总等重复繁重的事务中解脱出来。最后，还可以以更快速和更简便的方式为企业管理层提供其决策所需的信息。这些优点能够极大地提高企业人事信息管理的效率,也是企业的科学化、正规化管理，与世界接轨的重要条件。因此，开发一个代替手工操作的新型的计算机管理的人事信息系统对企业来说刻不容缓，这也是本课题的由来。2、 设计思路本系统开发的任务是实现企业人事管理的信息化、系统化、规范化。目的是开发一个具有添加，查询，修改，更新，维护等功能的强大的数据库管理系统。以目前的技术看，先建立C/S结构的局域网络应用，再向Internet/Intr

7、anet模式下数据库应用过渡，是比较现实，相对易于把握、成本较低的的一种选择。要想实现不同的人员，从不同的地点，以不同的接入方式（比如LAN, WAN, Internet/Intranet等）访问和操作共同的数据库，并有效地保证和管理数据的安全性、访问权限、完整性，采用C/S架构和支持C/S架构的数据平台，是必然的选择。通过分析和熟悉开发环境及数据库系统，本系统前台开发工具将采用较为流行的可视化编程工具Visual Basic，后台数据库采用微软公司的SQL Server 2000数据库，而数据库的连接方式将采用ADO（ActiveX Data Objects）访问技术。二、开发工具简介1、采

8、用的体系结构(CS模式)本管理信息系统是基于CS模式结构的MIS体系构建。C/S又称Client/Server或客户/服务器模式，在CS结构下，应用系统被分为前台（客户机）和后台（服务器）两部分，其作用分别是：应用处理由客户机完成，数据访问和事务处理由服务器完成。这种方案实现了功能分布，即由客户机端提出查询请求（执行SQL语句），而服务器完成对数据库的查询任务，并把查询结果通过网络返回给客户机。C/S的优点是能充分发挥客户端的处理能力，很多工作可以在客户端处理后再提交给服务器。对应的优点就是客户端响应速度快。2、前台开发工具(Visual Basic)现在，市场上可以选购的应用开发产品很多，流

9、行的也有数十种。目前在我国市场上最为流行、使用最广泛、且最为先进的开发工具主要有以下几种产品：Microsoft公司的Visual Basic Microsoft公司的Visual C Borland公司的Delphi Powersoft公司的PowerBuliderJava等等在目前市场上这些众多的程序开发工具中，有些强调程语言的弹性与执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的得高，各有各的优点和特色，也满足了不同用户的需求。本系统将采用Visual Basic 6.0进行开发。Visual Basic可以说是可视化语言的先驱，而且它也是可视化程度最高的一个。下面将对Vi

10、sual Basic做一些简单的介绍： Visual Basic主要特点 可视化 面向对象 部件编程 事件驱动 Visual Basic可视化设计基本构件 窗体窗体作为一个装载控件的容器，包含有许多属性、事件和方法。通过对其属性的设置来确定窗体外观；通过窗口的方法来实现窗体的变化(如隐藏、放大、移动)；而事件是一种可以被程序响应的变动，Visual Basic的程序设计就是基于事件驱动进行的。 控件Visual Basic控件主要包括内部控件和ActiveX 控件。ActiveX控件是对Visual Basic内部控件集合的扩充。ActiveX 控件是外部控件，因此其存在形式不同于和Visua

11、l Basic融合在一起的内部控件，可以通过菜单命令进行添加。跟内部控件相比较，ActiveX 控件具有继承性与扩充性。 菜单菜单作为Visual Basic的一种内部控件，在实际的程序开发和运用中使用广泛。Visual Basic的菜单主要包含标准的下拉式菜单和弹出式菜单。 工具栏 为了创建工具栏，Visual Basic提供了ToolBar 控件，在使用ToolBar 控件前，应该先将引入到工具箱。 对话框 分为预定义对话框（如InputBox函数、MsgBox函数）和自定义对话框。 ActiveX 部件的特点ActiveX控件该类部件主要用来构造用户界面的外观与操作，它是可视化编程中所需

12、要的加工元素，具有可视的外观，需要依赖于一定的界面容器才能有效。 ActiveX DLL该类部件属于代码部件，用于提供可编程的对象库，并能够与应用程序运行在同一个进程，以提高执行速度。可以使用ActiveX DLL部件创建客户程序进程内服务程序。ActiveX EXE该类部件在组成以及创建方式上都与ActiveX DLL部件类似，但是，ActiveX EXE部件有自己的独立进程，能够服务于多个应用程序，并能够独立运行。 ADO数据库访问方式ADO，即Active数据对象（ActiveX Data Objects）：实际是一种提供访问各种数据类型的连接机制。ADO设计为一种极简单的格式，通过OD

13、BC的方法同数据库接口相连，用户可以使用任何一种ODBC数据源 ，即不仅适合于SQL Server、Oracle、Access等数据库应用程序，也适合于EXCEL表格、文本文件、图形文件和无格式的数据文件。ADO是基于OLE-DB之上的技术，因此ADO通过其内部的属性和方法提供统一的数据访问接口方法。Microsoft在Visual Basic 6.0 以后的版本都集成了ADO，ADO集中了DAO和RDO的优点，可以通过简单的编程实现和各种数据结构进行连接。3、后台数据库(SQL Server 2000)SQL Server是由Microsoft开发和推广的关系数据库管理系统（DBMS）,它最

14、初是由Microsoft、Sybase和Ashton-Tate三家公司共同开发的，并于1988年推出了第一个OS/2版本。SQL Server近年来不断更新版本，SQL Server 2000是Microsoft公司于2000年推出的最新版本。 SQL Server的特点真正的客户机/服务器体系结构。图形化用户界面，使系统管理和数据库管理更加直观、简单。丰富的编程接口工具，为用户进行程序设计提供了更大的选择余地。SQL Server与Windows NT完全集成，利用了NT的许多功能，如发送和接受消息，管理登录安全性等。SQL Server也可以很好地与Microsoft BackOffice

15、产品集成。具有很好的伸缩性，可跨越从运行Windows 95/98的膝上型电脑到运行Windows 2000的大型多处理器等多种平台使用。对Web技术的支持，使用户能够很容易地将数据库中的数据发布到Web页面上。SQL Server提供数据仓库功能，这个功能只在Oracle和其他更昂贵的DBMS中才有。 SQL Server的安装和配置SQL Server 2000常见的版本 企业版（Enterprise Edition）、标准版（Standard Edition）、个人版（Personal Edition）、开发者版（Developer Edition） 安装、运行SQL Server 20

16、00的硬件需求计算机：Inter及其兼容计算机，Pentium 166Mz或者更高处理器或DEC Alpha和其兼容系统。内存（RAM）：企业版最少64MB内存，其他版本最少需要32MB内存，建议使用更多的内存。硬盘空间：完全安装（Full）需要180MB的空间，典型安装（Typical）需要170MB的空间，最小安装（Minimum）需要65MB的空间。安装、运行SQL Server 2000的软件需求 SQL Server 2000企业版必须运行于安装或者Windows2000 Advanced Server以及更高版本的操作系统下。SQL Server 2000标准版必须运行于安装、Wi

17、ndows 2000 Server以及更高版本的操作系统下。SQL Server 2000 个人版可在多种操作系统下运行，如可运行于Windows 9x，或Windows 2000的服务器版或工作站版的操作系统下。SQL Server 2000 开发者版可运行于上述Windows 9x以外的所有操作系统下。SQL Server 2000的安装SQL Server 2000的安装过程与其它Microsoft Windows系列产品类似。 用户可根据向导提示，选择需要的选项一步一步地完成。 SQL Server工具和应用程序企业管理器（Enterprise Manager）它是SQL Server

18、中最重要的一个管理工具，不仅能够配置系统环境和管理SQL Server，而且由于它能够以层叠列表的形式来显示所有的SQL Server对象，因而所有SQL Server对象的建立与管理都可以通过它来完成。 服务管理器（Service Manager） 服务管理器用来启动、暂停、继续和停止数据库服务器的实时服务，其提供的服务包括：SQL Server、SQL Server Agent、MSDTC（Microsoft Distributed Transaction Coordinator，微软分布式事务协调器）。 查询分析器（Query Analyzer） 用于输入和执行Transaction-S

19、QL语句，并且迅速查看这些语句的结果，以分析和处理数据库中的数据。这是一个非常实用的工具，对掌握SQL语言，深入理解SQL Server的管理工作有很大帮助。分布式事务处理协调器（Distributed Transaction Coordinator） 用于提供和管理不同服务器之间的分布式事务处理，这些服务器必须是基于Windows NT或Windows 9x/2000系列操作系统的服务器。性能监视器（Performance Monitor） 它将Windows NT操作系统的性能监视器和SQL Server集成起来，使用它可以查看和统计SQL Server系统的运行情况，查找影响系统性能的主

20、要因素，从而为改进和优化系统、提高系统性能提供依据。导入和导出数据（Imput and Export Data） 导入和导出数据采用DTC 导入/导出向导来完成。此向导包含了所有的DTC（Data Transformation Services）工具，提供了在OLE DB数据源之间复制数据的最简捷的方法。 SQL Server 分析器（Profiler）是一个图形化的管理工具，用于监督、记录和检查SQL Server 数据库的使用情况。对系统管理员来说，它是一个连续实时地捕获用户活动情况的间谍。服务器网络实用工具（Server Network Utility）用来配置服务器端网络连接和设置相关

21、参数等。 客户端网络实用工具（Client Network Utility） 用来配置客户端的网络连接、管理和测定客户端的网络库等。 联机帮助文档（Books Online）SQL Server 2000提供了大量的联机文档，它具有索引和全文搜索能力，可根据关键词来快速查找用户所需信息。 三、需求分析1、系统目标 系统开发的总体任务是实现企业人事信息关系的系统化、规范化和自动化。其主要目的包括以下几点：提高人事信息管理的效率通过使用计算机系统，将日常由人工处理的事项（如工资计算、报表编制等）分配给计算机自动完成，以此达到提高工作效率的目的。 信息管理方式的改进减少文书的工作量，降低纸质的使用率

22、，从而降低办公成本，提高企业的电子化进程。人员利用率的改进通过计算机联网技术，每位员工都能很容易获取到所需的信息，这样可以使其从简单的数据统计、收集、汇总等重复繁重的事务中解脱出来，很好的提高了人员的利用率。自动决策体系的改进通过对人事信息数据的智能查询和分析处理，可以为企业管理层提供其决策所需的信息，提高了决策的科学性。2员工登记、系统流程图 员工基本信息管理考勤信息管理基本信息录入员工工作评价员工工作评价管理考勤管理员工工资设置计发员工工资员工工资管理员工当月工资流程说明： 新进员工登记，录入其基本信息（譬如：姓名、出生年月、性别、学历等），在职员工信息变更修改； 登记和统计员工每月工作业

23、绩、业务水平和工作态度，对此进行考核评价，确定员工当月奖金数量。 登记和统计员工每月考勤情况，计算当月因矿工而扣除的工资和加班工资。 登记员工的工资情况（如：基本工资、补贴、代扣公积金等），统计当月员工的考勤工资及奖金，并计发当月员工的工资。3、数据字典 部门编号 按现有企业的部门、分支机构进行分类编号。 职务编号 按现有企业各岗位情况进行分类编号。 职称编号 按国家承认的通用职称分类方法进行分类编号。 学历编号 按国家承认的通用学历分类方法进行分类编号。4、功能需求基本信息要求员工基本信息：主要包括员工编号、员工姓名、性别、出生日期、所在部门、籍贯、学历、专业、职称、进公司时间、参加工作时间

24、等。员工考勤信息：主要包括员工姓名、所在部门、出勤时间、公休时间、矿工时间、请假时间、迟到时间、早退时间、加班时间、出差时间等。员工工作评价信息：主要包括员工姓名、所在部门、工作业绩、工作态度、业务水平等。员工工资信息：主要包括员工姓名、所在部门、底薪、补贴、奖金、加班费、补贴、养老金、医疗保险、住房公积金、所得税、实发工资等。需实现的主要功能有关企业员工各种信息的输入，包括员工基本信息、所在部门、工作信息和工作简历等。员工各种信息的查询、修改和统计。有关企业员工每日考勤信息的输入，包括迟到、早退、旷工、加班等信息。员工考勤信息的查询、修改和统计。员工评价信息的输入，包括工作业绩、态度及业务水

25、平等。员工评价信息的查询和修改。员工工资信息的输入、查询和修改，包括底薪、奖金、住房公积金、所得税、实发工资等。员工当月考勤工资、考核奖金的计算和统计。计发当月员工工资。四、系统设计1、系统功能设计系统功能分析系统设计的总体任务是实现企业人事信息关系的系统化、规范化和自动化。系统功能设计是在总体任务的基础上完成的，为实现该任务，设计的企业人事信息管理系统需要完成的主要功能包括以下： 企业员工各种信息的输入、查询、修改、删除和统计等； 企业员工考勤信息的输入、查询、修改和统计等； 企业员工工作评价的输入、查询、修改和统计等； 企业员工工资信息的输入、查询、修改和统计等。系统功能模块设计通过对上述

26、各项功能进行集中、分块，按照结构化程序设计的要求，分为以下五个模块：系统管理该功能模块为系统员管理模块，主要实现的功能有：字典表的维护、操作用户的管理、操作角色权限的管理、系统参数的配置管理等。员工基本信息管理 该功能模块为企业档案管理人员（或企业管理层查阅）使用模块，主要实现的功能是对员工个人资料信息的增加、修改、删除、查询和统计等。员工考勤管理该功能模块为企业人事考勤管理人员使用模块，主要实现的功能是对员工每日考勤情况（如：迟到、早退、矿工、加班等）的输入、修改、查询和统计等。员工工作评价管理该功能模块为企业部门管理人员使用模块，主要实现的功能是对本部门员工当月的工作业绩、工作态度及业务水

27、平等评价信息的输入、修改、查询和统计等。员工工资管理该功能模块为企业人事管理人员使用模块，主要实现的功能是对企业员工工资信息的查询、修改，和对企业员工每月工资的计发。系统功能模块图企业人事信息管理系统系统管理员工工作评价员工考勤管理员工基本信息员工工资管理角色管理用户管理员工基本信息添加员工基本信息修改员工基本信息查询员工考勤信息添加员工考勤信息修改员工考勤信息查询员工工作评价添加员工工作评价修改员工工作评价查询计发员工工资信息员工工资信息修改员工工资信息查询参数管理图1 功能模块图2、数据库设计数据库概念结构设计通过需求分析和系统功能设计后，可以设计出能够满足用户需求的各种实体，以及它们之间

28、的关系。这些实体包含各种具体信息，通过相互之间的作用形成数据的流动。本系统主要包含的实体有：员工基本信息实体、员工考勤信息实体、员工工作评价信息实体和员工工资信息实体。各实体具体的描述E-R图如下：员工基本信息实体E-R图。员工基本信息实体员工姓名参加工作时间出生年月员工学历图2 基本信息实体E-R图员工考勤信息实体E-R图员工考勤信息实体员工基本信息加班时间矿工时间出勤时间图3 考勤信息实体E-R图员工工作评价信息实体E-R图员工工作评价信息实体员工基本信息工作态度业务水平工作业绩图4 工作评价信息实体E-R图员工工资信息实体E-R图员工工资信息实体员工基本信息实发工资员工补贴员工底薪图5

29、工资信息实体E-R图实体之间的关系员 工工作评价考勤管理工作评价信息考勤信息计发工资员工工资图6 实体之间关系图数据库逻辑结构设计将上面的数据库概念结构转化为SQL SERVER 2000数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。系统数据库中各张表的设计结果如下面表格所示：员工基本信息表(manrecord)列 名数据类型可否为空说 明YgidVarcharNOT NULL编号YgnameVarcharNOT NULL姓名YgdeptVarcharNULL部门YgsexVarcharNULL性别YgbirthdayDatetimeNULL生日YgstatureNumericNUL

30、L身高YgnationVarcharNULL民族YgplaceVarcharNULL籍贯YglevelVarcharNULL学历YgspecialVarcharNULL专业Ygdate1DatetimeNULL参加工作时间Ygdate2DatetimeNULL进入公司时间YgbusiVarcharNULL职称Ygdate3DatetimeNULL职称时间Ygdate4DatetimeNULL入团时间Ygdate5DatetimeNULL入党时间YgdutyVarcharNULL职务YgaddressVarcharNULL家庭地址YgphoneVarcharNULL联系 YgNOVarcharN

31、ULL档案号YgcertnoVarcharNULL身份证号YgdetailVarcharNULL简历YgnoteVarcharNULL备注员工考勤信息表(checkin) 列 名数据类型可否为空说 明KqidVarcharNOT NULL编号KqnameVarcharNOT NULL姓名KqdateDatetimeNOT NULL日期KqdaysNumericNOT NULL本月天数KqrdayNumericNULL公休假天数KqtdayNumericNOT NULL应出勤天数KqworkNumericNOT NULL出勤KqabsentNumericNULL矿工KqrestNumericNU

32、LL年休KqleaveNumericNULL请假KqlateNumericNULL迟到KqearlyNumericNULL早退Kqover1NumericNULL节假日加班Kqover2NumericNULL其他加班KqfillNumericNULL补休天数KqgoNumericNULL出差天数KqpayNumericNULL加班费KqdeductNumericNULL抠考核KqotherVarcharNULL其他KqnoteVarcharNULL备注员工工作评价信息表(manappraise)列 名数据类型可否为空说 明PjidVarcharNOT NULL编号PjnameVarcharNO

33、T NULL姓名PjdeptVarcharNOT NULL部门PjnoVarcharNOT NULLIDPjdateDatetimeNOT NULL日期PjresultVarcharNULL工作业绩PjpositionVarcharNULL工作态度PjlevelVarcharNULL业务水平PjrateNumericNULL综合指数PjnoteVarcharNULL备注Pjother1VarcharNULL其它1Pjother2VarcharNULL其它2员工工资信息表（pay）列 名数据类型可否为空说 明GzidVarcharNOT NULL编号GznameVarcharNOT NULL姓名

34、GzbaseNumericNOT NULL底薪GzallNumericNULL补贴GzbonusNumericNULL奖金GzpayNumericNULL加班GzdeductNumericNULL扣考核GzageNumericNULL代扣养老金GzmedicalNumericNULL代扣医疗保险Gzhouse1NumericNULL代扣公积金GztotalNumericNULL税前小计GzdutyNumericNULL所得税Gzhouse2NumericNULL房贴Gzhouse3NumericNULL房租GzlaborageNumericNOT NULL实发工资GzdateDatetimeN

35、OT NULL日期除了上面四张员工信息表外，系统还涉及四张系统管理配置表，其结构如下表格所示：数据字典表(dicinfo)列 名数据类型可否为空说 明DcidVarcharNOT NULL编号DcfieldnameVarcharNOT NULL字段名DccodeVarcharNOT NULL代号DccontantVarcharNULL描述DcnoteVarcharNULL备注系统菜单表(menuinfo)列 名数据类型可否为空说 明MenuIDVarcharNOT NULL编号MenunameVarcharNOT NULL菜单名称MenuArrayStringVarcharNOT NULL菜单

36、标识字符串MenuArrayIDsmallintNOT NULL菜单1D号ModuleTypeVarcharNOT NULL模块类型IconNameVarcharNULL图标名称MenuStatussmallintNOT NULL菜单状态角色权限表(userpriv)列 名数据类型可否为空说 明userpriv_idVarcharNOT NULL角色ID号userpriv_desVarcharNULL角色说明menu_prividVarcharNOT NULL菜单ID系统用户表(usertb)列 名数据类型可否为空说 明User_IDVarcharNOT NULL操作员编号User_PWDVa

37、rcharNOT NULL操作员密码User_PrvVarcharNOT NULL操作员角色User_DeptVarcharNOT NULL操作员所在部门User_DesVarcharNULL操作员描述User_flagsmallintNULL操作员状态3、用户界面设计系统主窗口设计系统的主窗口由一个多文档界面（MDI）窗口和一个MDI子窗口组成，其特点为： 可以返回具有焦点的或者最后被激活的子窗体。能返回活动子窗体上具有焦点的控件。所有子窗体均显示在 MDI 窗体的工作空间内。当最小化子窗体时，它的图标将显示于 MDI 窗体内，而不是在任务栏中。当最大化子窗体时，它的标题会与 MDI 窗体的

38、标题组合在一起并显示于MDI窗体的标题栏上。当活动子窗体有菜单时，它将显示于 MDI 窗体的菜单栏中，而不是显示在子窗体上。MDI窗口中包含有一个状态栏控件，可以实时反映系统中的各个状态变化，状态栏共分为四栏：登录服务器状态、登录操作员信息、工作日期及时间。MDI子窗口中主要提供系统主菜单信息，同时引用了ActiveListBar控件，提供纵向菜单栏显示功能，从而大大提高了系统主界面的美观性和易操作性。登录模块窗口设计图7 系统主窗口签到 签退图8 签到窗口 图9 签退窗口更改密码 图9 密码修改窗口系统管理模块窗口设计 图10 系统管理主窗口操作员管理 图11 操作员管理窗口 角色管理图12

39、 角色管理窗口参数设置图13 参数管理窗口员工信息模块窗口设计图14 员工信息管理主窗口 员工信息添加、修改窗口图15 员工信息添加修改窗口员工信息查询窗口 图16 员工信息查询窗口员工信息统计窗口图17 员工信息统计窗口员工考勤模块窗口设计图18 员工考勤管理主窗口 员工考勤信息添加、修改窗口图19 考勤信息添加修改窗口1图19 考勤信息添加修改窗口2 员工考勤信息查询窗口图20 考勤信息查询窗口 员工考勤信息统计窗口 图21 考勤信息统计窗口员工工作评价模块窗口设计图22 工作评价管理主窗口员工工作评价信息添加、修改窗口图23 员工评价添加窗口员工工工作评价信息查询窗口 图24 员工评价查

40、询窗口员工工工作评价信息统计窗口图25 员工评价统计窗口员工工资管理模块窗口设计 图26 员工工资管理主窗口员工工资信息添加、修改窗口 图27 员工工资添加修改窗口员工计发工资查询窗口 图28 员工工资查询窗口员工计发工资统计窗口 图29 员工工资统计窗口五、系统实现1、程序设计注：由于部分程序函数较长，对类式的判断或CASE语句用省略。数据库操作函数对数据库的连接和操作，通过函数调用的方式完成，主要涉及的函数有两个： 连接数据库设置rdocnt为主数据库句柄，连接数据库，语句如下： rdoEngine.rdoRegisterDataSource "Perseral", &

41、quot;SQL Server", True, strAttribs ConnectStr = "UID=" + DBUserName + "PWD=" + DBPassword + "Server=" + DBIPAddress + "Driver=SQL Server;Database=" + DBDatabaseName Set rdoCnt = rdoEnvironments(0).OpenConnection(dsname:="", Prompt:=rdDriverNoPro

42、mpt, Connect:=ConnectStr)执行SQL语句函数通过判断SQL语句类型（insert 、update、 select等）进行执行或返回查询记录集，语句如下： cnn.Open ConnectString If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0) Then cnn.Execute SQL MsgString = sTokens(0) & " query successful" Else rst.Open Trim$(SQL), cnn, adOpenKeyset, ad

43、LockOptimistic Set ExecuteSQL = rst End If动态菜单项的实现 本系统所有菜单项均采用动态载入方式，即通过对登录操作员权限的判断，系统主窗口显示其权限内菜单项。从而实现的对操作员的权限控制功能。 设计方法：将所有菜单信息存人数据库的表中，然后通过角色权限的限制，进行有条件的调用，从而实现菜单的载入和显示，达到权限控制功能。从角色表中读取操作员的角色信息 用户登录时，将操作员ID信息保存到全局变量m_OperatorID。系统显示菜单项时，先从角色表中读取登录操作员的角色信息。语句如下：sSql ="Select menu_privID from

44、userpriv where userpriv_id= '" + m_OperatorID + "'"Set rst = rdoCnt.OpenResultset(sSql, rdOpenKeyset)从菜单信息表中读取角色对应的菜单信息首先读取母菜单项信息，其中MenuArrayID 为0 时，该菜单为母菜单；MenuArrayID 为1 时，该菜单为子菜单。语句如下： sSql="select MenuName,MenuArrayString,MenuArrayID,IconName from MenuInfo where MenuI

45、D in (Select menu_privID from userpriv where userpriv_id= '" + m_OperatorID + "') and MenuArrayID =0"Set rst = rdoCnt.OpenResultset(sSql, rdOpenKeyset)然后读取子菜单项信息。语句如下： sSql="select MenuName,MenuArrayString,MenuArrayID,IconName from MenuInfo where MenuID in (Select menu_pr

46、ivID from userpriv where userpriv_id= '" + m_OperatorID + "') and MenuArrayID =1"Set rst = rdoCnt.OpenResultset(sSql, rdOpenKeyset)显示菜单信息首先显示所有母菜单项，语句如下： With FrmMain Select Case rst("MenuArrayString") Case "mnu_2": .mnu_2.Caption = rst("MenuName"

47、) MenuName(2) = rst("MenuName") .SSListMenu.Groups.Add 2, "mnu_2", MenuName(2) Case "mnu_3": .mnu_3.Caption = rst("MenuName") MenuName(3) = rst("MenuName").SSListMenu.Groups.Add 3, "mnu_3", MenuName(3) End Select Loop然后显示所有子菜单项，语句如下 Menutmp

48、ID = rst("MenuArrayString") + CStr(rst("MenuArrayID") MenutmpIndex=CInt(Right(rst("MenuArrayString"),1)*10+ rst("MenuArrayID") MenutmpName = rst("MenuName") MenutmpIconname = rst("IconName") Select Case rst("MenuArrayString") Case

49、 "mnu_2": .mnu_2.Visible = True Load .mnu2(MenutmpIndex) .mnu2(MenutmpIndex).Caption = MenutmpName .mnu2(100).Visible = False .SSListMenu.CurrentGroup = "mnu_2" .SSListMenu.ListItems.Add MenutmpIndex, MenutmpID, MenutmpName .SSListMenu.ListItems(MenutmpID).IconLarge = MenutmpIcon

50、name Case "mnu_3": End Select Loop配置文件(.ini)的读写操作通过调用WINAPI函数实现对配置文件的读取与写入操作，WINAPI函数的引用语句如下：Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString A

51、s Any, ByVal lpFileName As String) As LongPrivate Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long配置文件的读取函数'*'*返回INI文件的相应的项，参见WINAPI'*Func