课程设计企业人事管理信息系统（全）

《课程设计企业人事管理信息系统（全）》由会员分享，可在线阅读，更多相关《课程设计企业人事管理信息系统（全）（39页珍藏版）》请在装配图网上搜索。

1、课程设计 企业人事管理信息系统Visual Basic +SQL Server信息管理系统一、引言1.1开发背景 1现行业务简介 企业的人事管理业务大致经过如下的管理流程： (1)新职员入公司后，经人事部门的专门人员将新职员的基本信息进行记录，包括职员的家庭信息和工作、教育经历信息，生成人事档案。 (2)如果新职员尚未分配部门，那么他每个工作日的工作表现由人事处统一管理，直到该职员分配部门为止，再归属该部门的部门领导管理。(3)由专门的人员管理出勤信息，并按月进行汇总 (4)每个月的月底或月初，由该职员的直接领导对其进行考核，填写职员考核表，包括职员的工作业绩和奖惩记录。 (5)每个月的月初，

2、职员考核表与考勤汇总信息上交给人事部门最高管理者，作为年终考核职员的依据，同时根据这些信息和工资项目，填写工资表，并将工资表送到财务部门。 2系统开发背景 随着全球经济一体化的进程，人事管理日趋复杂，人力资源成了现代企业生存和发展的重要因素。企业人事部门传统的档案手工管理繁琐、效率低下而且容易出错，已经无法适应现代企业日益庞大的人力资源队伍的管理需求。同时，随着计算机技术的迅猛发展，办公自动化成为现实，利用计算机实现企业人事管理势在必行。 企业人事管理信息系统综合运用人事管理相关领域的知识，结合计算机技术，科学地管理企业的人事档案、绩效考核等信息，具有检索迅速、操作方便、存储量大、保密性高、成

3、本低等特点，可以大大地提高工作效率；同时，可以引导企业按照科学的管理理念对人力资源进行规范化的管理。1.2目标 本系统以一个中小型企业的人事管理业务为依托，结合人力资源管理理论，设计并开发一个企业人事管理信息系统，提供一个以人为本、科学合理的人事管理解决方案。针对企业不同管理层的职员，在人事管理的各个方面，提供了一个互动式的人事管理平台。系统目标如下： (1)尊重传统的企业人事管理制度和文化，满足企业不同管理层的职员和企业普通职员对人事管理内容的不同需求。 (2)通过人事管理系统的实现，使企业的人事管理更加科学化。 (3)提供灵活、方便的操作。(4)节约人事管理的成本，提高企业人事管理的效率。

4、(5)对系统提供必要的权限管理。 (6)为企业实现整体信息化的其他相关系统提供必要的数据支持。二、需求分析2.2.1系统需求 在中小型企业，人事部门传统的手工管理主要包括人事档案管理、职员的考勤记录、考勤数据统计、绩效考评以及原始工资核算。其中，考勤管理对实时性要求较高，工资管理涉及到财务部门，而且业务比较复杂，在人事管理信息化的过程中，一般作为两个单独的系统考勤管理系统和工资管理系统来实现（目前一般的财务系统也包含了工资管理的功能）。本系统不包含考勤管理和工资管理的详细业务，只提供考勤信息的查询，为工资管理系统提供必要的数据支持。 综上所述，企业人事管理信息系统应该满足以下需求： (1)业务

5、上满足企业人事管理职能的基本需求，能够方便地进行部门管理、职员管理和考评管理。 (2)为考勤管理系统和工资管理系统提供数据支持。 (3)与传统的手工管理相比，要添加基础数据的管理和用户权限的设置。 (4)所有的界面都要有信息的浏览功能，同时要保障数据的安全、可靠。 (5)完善的报表功能，可以打印需要的报表。2.2.2功能需求 根据系统的需求分析，本系统的功能要求如下： 1系统管理 系统管理的功能是管理登录系绕的用户。进行用户权限设置，在权限范围内可以进行用户的添加、删除和修改，包括用户密码和用户权限的更改。 2基础数据管理 基础数据管理的功能是设置和管理职务、民族和文化程度数据，用来使系统的其

6、它界面的一些操作更加方便。在权限范围内可以进行基础数据的添加、删除和修改。 3部门信息管理 部门信息管理的功能是设置和管理部门信息。在权限范围内可以进行数据的添加、删除和修改。 4,职员信息管理 职员信息管理的功能是设置和管理职员档案信息，包括职员基本信息管理、家庭成员信息管理、工作教育经历信息管理。业务流程源于手工管理阶段的人事档案，同时可以生成职员詹息清单供打印。用户在权限范围内可以进行数据的添加、删除和修改。 5考勤信息查询 考勤信息查询的功能是提供给用户考勤统计值。所有系统用户均可以按照时间和部门查询全部考勤信息，这样使管理更加透明化。 6考评信息管理考评信息管理的功能是进行职员的工作

7、绩效考评，同时将数据作为工资管理系统的某些工资项目的计算依据。系统用户在权限范围内可以进行数据的添加、删除和修改。 7帮助 显示系统的开发版本和系统说明信息。2.3性能需求 系统的运行对运行环境的要求： 1硬件环境 处理器：Intel Pentium 4 3.06G或更高 内存：512 MB(推荐) 硬盘空间：40 GB 显卡：SVGA显示适配器 2软件环境 操作系统：Windows 2000/XP 数据库：Microsoft SQL Server 2000三、总体设计3.1系统概述本系统采用客户机服务器的运行方式，针对中小型企业的人事管理业务，同时考虑到开发成本和安全性的问题，本系统设计成为

8、一个相对封闭的单用户运行系统。采用Visual Basic6,0作为开发工具，采用Microsoft SQL Server 2000作为后台数据库，一般可以满足中小企业人事管理业务的需求。系统的基本流程是：用户登录一系统主控平台一选择各项子系统。3.2系统模块“企业人事管理信息系统”主要分为登录、系统管理、基础数据管理、部门信息管理、职员信息管理、考勤信息查询、考评信息管理和帮助信息，共8个模块。系统主模块层次图如图2-1所示：登录系统管理基础信息管理部门信息管理职工信息管理考勤信息查询考评信息查询帮助企业人事管理信息系统图1系统功能图3.3模块设计1登录模块输入用户名和密码，如果用户名和密码

9、正确，进入主控制平台；否则提示用户明确的错误信息。2系统管理模块 (1)用户管理子模块：系统管理员进行用户权限设置和用户的浏览，可以更改用户密码和用户权限；同时，为保障系统健壮，进行输入检验，给予必要的信息提示。 (2)修改密码子模块：任何用户登录后都可以修改自己的密码。3基础数据管理模块系统管理员浏览职务、民族和文化程度的编号和名称，可以对这些信息进行添加、删除和修改，普通用户不可以使用该功能。4部门信息管理模块系统管理员和人力资源的主管可以进行数据的添加、删除和修改。普通用户只能浏览信息。5职员信息管理模块 (1)职员信息管理子模块：可以设置和查看某个职员的家庭成员、工作教育经历，可以进行

10、条件查询。系统管理员和人力资源主管可以进行数据的添加、删除和修改，普通用户可以修改自己的家庭成员、工作教育经历信息。 (2)报表子模块：可提供职员基本信息、职员就职信息和职员通讯录报表。6考勤信息查询模块该模块使用考勤管理信息系统的数据，所有用户可以进行条件查询，但提供更新考勤信息的功能。7考评信息管理模块人力资源主管根据职贯的工作表现对数据进行更新，其他用户只能按照时间和姓名进行查询。8帮助信息模块显示系统的开发版本和系统说明信息。基础数据录入部门数据录入职工数据录入考勤管理系统考评数据录入基础数据管理部门数据管理职工信息管理导入考勤数据考证信息管理基础数据入库部门数据入库职工数据入库考勤数

11、据入库考证数据入库数据查询报表输出数据库图2 系统IPO图四、数据库设计4.1关于应用程序和数据库的接口本系统采用ODBC+ ADO对象访问数据库。ODBC(Open Database Connectivity)是用于数据库访问的、应用最为广泛的应用程序编程接口，它允许应用程序使用相同的代码访问不同的数据库管理系统；VB 6.0中，ADODB对象(Active Data Object)是一种提供访问各种数据库的连接机制，它使用OLEDB数据支持提供一个面向对象的访问数据源的接口，内置了连接类、命令类和数据集类。图3 “引用工程”对话框在Visual Basic 6.0的工程中，选择菜单“工程/

12、引用”命令，弹出“引用工程”对话框，在对话框的“可用的引用”中选择“Microsoft Active Data Object 2.7 Library”选项，单击“确定”按钮，这样就在程序中加入了对ADO的引用，如图3所示。4.2数据库根据系统分析和模块设计，本系统数据库的数据项和数据结构如下：1数据库 (1)数据库名称：人事信息库。 (2)标识（数据库名）：DBMan2数据库表结构 关系型如下：用户 (用户名，密码，用户类型)职务编码（职务ID，职务名）民族编码（民族ID，民族名称）文化程度编码（文化程度ID，文化程度名称）部门（部门ID，部门名称，描述）职工（职工ID，姓名，性别，出生日期，

13、民族，政治面貌，婚姻状况，部门号，入职时间，文化程度，籍贯，身份证号，电子邮箱，办公电话，家庭电话，手机号，身份性别，居住地址，邮政编码，档案编号，户口地，信息录入员号）家庭成员（成员ID，职工ID，姓名，性别，出生日期，与职工关系，所在单位，联系电话）职工经历（ID，职工号，开始日期，结束日期，工作或就读单位，职务，学历，经因与奖惩）考勤（年份，月份，职工号，部门号，全勤日数，请假天数，旷工天数，申请休假天数，出差天数，迟到次数，早退次数，加班天数，周末加班天数，节假日加班天数）职工部门属于获得考评接受考勤经历具有拥有家庭用户成为图4系统E-R图考评（年份，月份，职工号，工作难度系数，工作量

14、记录，工作评价）表1职工表名：用户信息表（标识：tbUser）。数据来源：用户管理模块的录入。 字段名主键否类型长度可空否备注LTserld是nChar(10)否用户名UserPassword否nChar(8)否用户密码uSerKind否nVarchar(20)否用户类型: 普通用户, 人力资源管理者, 系统管理员 表2表名：职务编码信息表（标识：tbDuty）数据来源：基础数据管理模块的录入。字段名是否主键字段类型字段长度可空否备注Dutyld是nchar10否职务编码DutyName否nvarchar20否职务名称 表3表名：民族编码信息表（标识：tbNation）数据来源：基础数据管理模

15、块的录入。字段名是否主键字段类型字段长度可空否备注Nationld是nchar3否民族编码NationName否nvarchar20否民族名称 表4表名：文化程度编码信息表(标识：tbEdu)数据来源：基础数据管理模块的录入。 字段名是否主键字段类型字段长度可空否备注Eduld是nchar2否文化程度编码EduName否nvarchar20杳文化程度名称表5表名：部门信息表（标识：tbDep）。数据来源：部门信息管理模块的录入。 字段名是否主键字段类型字段长度可空空备注Depld是nchar10否部门编号DepName否nvarchar30否 部门名称Describe否nvarchai100是

16、部门职能描述 说明：部门编号前两位代表一级部门，3.4，位代表二级部门，5.6位代表三级部门，7.8位备用表6 表名：职员家庭信息表（标识：tbFamilyMember）。数据来源：职员家庭信息管理模块的录入。 字段名是否主键字段类型字段长度可空否备注Id是nchar10否家庭成员编号Empld否nchar10否职员编号Name否nvarchar30否家庭成员姓名Gender否nchar2是家庭成员性别Age否int4是家庭成员年龄Relationship否nvarchar20是与本人关系WorkingOrg否nvarchar50是所在单位Tel否nvarchar20是联系电话表7表名：职员基

17、本信息表（标识：tbEmployee）数据来源：职员基本信息管理模块的录入。字段名是否主键字段类型字段长度可空否备注Empld是nchar10否职员编号EmpName否nvarchar10否职员姓名Gender否nchar2是性别Age否int4是年龄Nationld否nchar3是民族编号Birthday否datetime8是生日PoliticalParty否nvarchar10是政治面貌MaritalCon否nvarchar6是婚姻状况Depld否nchar10是所在部门编号HireDate否datetime8是人职时间Eduld否nchar2是文化程度编号FarrulyPlace否nva

18、rchar20 是籍贯IdCard否nvarchar20否身份证号Email否nvarchar20是电子邮箱Officephone否nvarchar20是办公电话Homephone否nvarchar20是家庭电话Mobile否rnvarcha20 是手机号码State否nvarchar20否人员身份Residence否nvarchar50是居住地址Postcode否nvarchar10是邮政编码Dutyld否nchar10是职务编号Recorld否nchar10是档案编号PRLocation否varchar50 是户口所在地EmpldRecord否nchar10是信息录入员编号说明：人员身份分

19、在职人员；兼职人员；试用人员；离职人员；返聘人员表8表名：职员工作教育经历表（标识：tbWorkExp）。数据来源：职员工作傲育经历信息管理模块的录入。 字段名是否主键字段类型长度可空否备注Id是nchar10否编号Empld否nchar10否职员编号StartDate否datetime8是开始日期EndDate否datetime8是终止日期WorkOrg否nvarchar50是工作单位僦读单位Position否nchar10是职务Eduld否nchar2是学历WorkDescri否nvarchar300是工作描述奖惩经历表9表名：职员考勤信息表（标识：tbWorkRecord）。数据来源：考

20、勤信息管理系统中的数据导入本系统。字段名是否主键字段类型字段长度可空否备注RecordYear是nchar4否考勤年份RecordMonth是nchar2否考勤月份Empld是nchar8否职员编号Depld否nchar10是部门编号DaysPresiMonth否int4是当月勤天数LeavdDays否int4是请假天数AbsentDays否int4是旷工天数VacDays否int4是申请休假天ErrandDays否int4是出差天数LateDays否int4是迟到天数LeaveEarlyDays否int4是早退天数OtlDays否int4是工作日加班天数Ot2Days否int4是周末加班天数

21、Ot3Days否int4是节假日加班天数(10)表名：职员考评信息表（见表2-10）。标识：tbEvaluation。数据来源：职员考评信息管理模块的录入。字段名是否主键字段类型字段长度可空否备注EvaYear是nchar4否考评年份EvaMonth是nchar2否考评月份Empld是nchar10否职员编号WorkCoe否int4是工作难度系数WorkDes否nvarchar400是工作量记录WorkEva否nvarchar300是工作评价3，数据库的建立在SQL Server里创建数据库有裉多种方法，这里采用soL语句来创建数据库。打开soL Server的查询分析器，选择本地服务器，连接

22、到soL Server数据库，登录名和密码均为sa。将SQL语句复制在查询分析器里，然后执行soL语句。SQL语句由如下两层结构构成：(1) 创建新数据库。CREATE DATABASE 人事管理 -建立“人事管理”数据库ON PRIMARY /* 主文件组*/( NAME = DBRS_DATA1,FILENAME=g:SQLRSDATARS_DATA1.mdf,SIZE=3, MAXSIZE =200,FIlEGROWTH = 500KB ),FILEGROUP DATA2 /* 辅文件组*/( NAME=JXGL_DATA2,FILENAME=G:SQLRSDATARS_DATA2.nd

23、f,SIZE=1, MAXSIZE = 100, FILEGROWTH = 500KB )LOG ON /* 日志文件不在文件组中*/( NAME = JXGL_Log1, FILENAME= G:SQLRSRS_Log1.Ldf,SIZE = 1MB,MAXSIZE = 100MB,FILEGROWTH = 500KB)GOCREATE TABLE dbo.userA( -建立“用户”表的结构userID nchar(10) NOT NULL ,UserPassword nchar(8) NOT NULL , UserKind nchar(20) NOT NULL CONSTRAINT PK

24、_User PRIMARY KEY(UserID) GOCREATE TABLE dbo. DutyCod ( -建立“职工编码”表的结构 DutyID nchar (10) NOT NULL ,DutyName nchar (20) NOT NULL ,CONSTRAINT PK_DutyCod PRIMARY KEY(DutyID) GOCREATE TABLE dbo. NationCod ( -建立“民族编码”表的结构 NationID nchar (10) NOT NULL ,NationName nchar (20) NOT NULL ,CONSTRAINT PK_NationCo

25、d PRIMARY KEY(NationID) GOCREATE TABLE dbo. EduCod ( -建立“民族编码”表的结构 EduID nchar (10) NOT NULL ,EduName nchar (20) NOT NULL ,CONSTRAINT PK_EduCod PRIMARY KEY(EduID) GOCREATE TABLE dbo. DepInfo ( -建立“部门信息”表的结构 DepID nchar (10) NOT NULL , DepName nchar (20) NOT NULL ,Describe nvarchar (100) CONSTRAINT P

26、K_DepInfo PRIMARY KEY(DepID) GO CREATE TABLE dbo.tbEmployee ( -6.建立“职工信息”表的结构 EmpId nchar(10) NOT NULL , EmpName nvarchar(20) NOT NULL , Sex nchar(2), NationName char(3), Birthday datetime,PoliticalParty varchar(20),MaritalCon nchar(6), Depld nchar(8), HireDate datetime, Eduld nchar(10), FarrulyPlac

27、e nvarchar(20), IdCard nvarchar(20), Email nvarchar(30),Officephone nvarchar(20),Homephone nvarchar(20), Mobile nvarchar(20),State nvarchar(20), Residence nvarchar(50), Postcode nvarchar(10), Duty nchar(12), Recorld nchar(10), PRLocation nvarchar(10)CONSTRAINT PK_tbEmployee PRIMARY KEY(EmpID) GOCREA

28、TE TABLE dbo. tbFamilyMember( -7.建立“职工家庭信息”表的结构 MemberID nchar(10) NOT NULL , EmpID nchar(10) NOT NULL ,Name nvarchar(20) NOT NULL , Sex nchar(2) NOT NULL , Age int, Relationship nvarchar(20), WorkingOrg nvarchar(50), Tel nvarchar(20)CONSTRAINT PK_tbFamilyMember PRIMARY KEY(MemberID) GOCREATE TABLE

29、dbo. tbWorkExp ( -8.建立“职工经历”表的结构 Id nchar(10) NOT NULL ,Empld nchar(10) NOT NULL ,StartDate datetime,EndDate datetime,WorkOrg nvarchar(50),Position nchar(10), Eduld nchar(2), orkDescri nvarchar(300)CONSTRAINT PK_tbWorkExp PRIMARY KEY(ID) GOCREATE TABLE dbo. tbWorkRecord ( -9.建立“职工考勤”表的结构 RecordYear

30、nchar(4) NOT NULL ,RecordMonth nchar(2) NOT NULL ,EmpId nchar(10) NOT NULL , DepId nchar(10) NOT NULL ,DaysPresiMonth int , LeavdDays int , AbsentDays int , VacDays int, ErrandDays int, LateDays int, LeaveEarlyDays int, OtlDays int, Ot2Days int, Ot3Days intCONSTRAINT PK_tbWorkRecord PRIMARY KEY(Reco

31、rdYear, RecordMonth,EmpId) ) GOCREATE TABLE dbo. tbEvaluation ( -10.建立“职工考评”表的结构 EvaYear nchar(4), EvaMonth nchar(2) NOT NULL , EmpId nchar(10) NOT NULL , WorkCoe int, WorkDes nvarchar(400), WorkEva nvarchar(300)CONSTRAINT PK_bEvaluation PRIMARY KEY(EvaYear, EvaMonth,EmpId) ) GO五、关于程序设计的简要说明对于程序设计，总

32、体要求程序结构清晰，简单易懂；不随便定义全局变量，尽量使用局部变量；禁止出现GOTO、ELSE GOTO和ELSE RETURN语句；禁止出现两条等价的支路等。1窗体界面设计 (1)窗体界面要清晰，控件的设计要便于用户使用。例如，能够确定输入值范围的地方尽量使用下拉列表框，让用户选择输入而不要使用文本框；同时注意保持所有的界面风格一致： (2)本系统选用DataGrid控件来显示数据，为了保证系统根据不同的用户提供灵活的操作并保证系统的安全性，不直接使用DataGrid来更新数据，而选用TextBox。 (3)各个窗体的BorderStyle属性均设置为1- Fixed Single（即确定大

33、小）。2Option Explicit在书写所有模块和窗体的任何函数代码之前都要添加Option Explicit语句，用来强制要求使用Dim、Private、Public或ReDim语句显式声明该脚本中所使用的所有变量，使程序设计更加规范。3可重用性要求 (1)尽量使用小规模函数，将功能复杂的大规模函数进行分解。(2)重复使用且完成相对独立功能的代码写成公共函数。(3)创建一个系统模块，用来定义公共变量和书写公共函数。(4)尽量使用标准库函数和公共函数。4命名规则(1)循环变量、开关变量名称要尽可能的简单。(2)常量、变量和函数名一般采用其英文表意单词或其缩写。(3)常量一般用大写字母，变量

34、名称如果由多个单词组成，则每个单词的首字母大写；全局变量要在变量名最前面如英文字母g。 (4)控件命名使用控件类型缩写+控件用途的命名方式。程序中涉及到的控件类型缩写如下：控件类型缩写控件类型名控件类型缩写控件类型名cbo/ComboCombol30xDataEnvirnDataEnviromentchkCheckboxtrvTreeViewcmdCommand buttontxtTextboxfrmFormst/StatusBarStatusBarmsfMSHFlexGrid/FlexGridrptDataReportdgDataGridpicPicturelblLabeloptOption

35、buttonModuleModulemenuMenu 5书写格式(1)定义的代码块应该放在一起，尽量不要在中间定义变量。(2)对象的定义应该尽可能地带上所属的库名称，例如，string类型变量一般前缀为str。(3)缩进。1)变量声明块不缩进。2)对于基本的控制结构要有缩进。3)对于过长的语句使用续行。例如： 。sql = sql + from XXXXXX6容错处理对于所有的更新操作，在更新数据库前都要进行输入值的合法性检验，包括输入数值类型、长度等的检验，以免更新数据库时在业务上和数据库处理上发生不必要的错误；对于错误的输入，给予信息提示并改变背景色，用来明确地向用户提示错误输入的位置；当

36、控件内容改变时，背景恢复原色。7添加注释添加注释是程序可读性的一个基本要求，但不宜过多，但要针对程序，使别人能够轻而易举地读懂程序。一般在典型和特殊算法前都要有注释。注释的作用范围可以为：定义、引用、条件分支和一段代码。对于显而易见的参数或函数功能一般不加注释。8程序设计部分书写说明一些事件和函数的程序设计同本系统其他模块类似，且处理比较简单，在程序设计部分的书写省略其实现代码；模块的窗体公共变量若无特殊要求，书写时均省略。 六、详细设计 6.1系统项目文件和公共文件系统模块中定义一些公共变量和公共函数，减少整个程序的代码量并简化程序的修改工 作。系统模块中包括Main函数。系统模块的实现如下

37、：1主体框架新建一个VB的标准EXE工程，建立系统的主体框架。2添加模块添加模块，并将其命名为ModulePeople-bas3系统公共变量定义:表11系统公共变量定义 变量名称变量类型说明gUserNameString用户名，用来显示状态信息gUserKindString用户类型，用来设定用户权限gEmployeeldString职员编号gLoginSucceededBoolean登录成功的标志BLUEConst（常量）值为：&HFFOOOOO，蓝色WHITEConst（常量）值为：&H，白色4Main函数系统启动函数。处理流程：以对话框模式启动登录窗体，如果启动失败，给出提示信息。 Sub

38、 Main() Dim fLogin As New frmLogin 启动登录窗体fLogin. Show vbModal 装入并显示模式窗体 If Not gLoginSucceeded Then MsgBox”系统启动失败，请重试！”，vbOKOnly+vbExclamation,”警告” End If Unload fLogin End Sub5ConnectString函数设置数据库连接字符串函数，本函数无参数，返回值为数据库连接字符串(本系统数据库用户名和密码设置为sa)。Public Function ConnectString() As StringConnectString=”

39、FileDSN= DBMan_ODBC ; UID= sa; PWD=sa”End Function6ExecuteSQL函数设置SQL语句的执行函数，参数为将要执行的SQL语句，ADO数据集rst和是否允许数据集更新的布尔型变量。处理流程：创建到数据源的连接，根据布尔型变量的实参值，确定执行SQL语句的方式并执行SQL语句。如果SQL语句成功执行，返回值为true，结果存储于与形参数据集rst相对应的实参数据集内；否则，返回值为false。Public Function ExecuteSQL(ByVal SQL As String,rst As ADODB.Recordset,_Option

40、al enableWrite As Boolean=True) As Boolean ,Dim con As ADODB.ConnectionOn Error GoTo Execute ErrorSet con=New ADODB.Connectioncon.Open ConnectString 打开数据库Set rst=New ADODB.Recordset 定义数据集If enableWrite Then 读写方式 rst.Open Trim$(SQL) ,con,adOpenStatic,adLockOptimistic 连接，静态游标，共享锁Else 只读方式 rst.Open Tri

41、m$ csoL) ,con,adOpenStatic.adLockReadOnlv 连接，静态游标，独占锁End If ExecutesoL =True con. Close 关闭数据库Exit Function Execute Error: ExecuteSQL=False Exit Function End Function7DBExist函数判断数据库中是否存在指定记录，参数为将要执行的SQL语句。处理流程：创建到数据源的连接，执行SQL语句（不允许数据集更新），检索记录。如果存在指定记录，返回记录数；否则，返回值为0。Public Function DBExist(ByVal soL

42、As String) As Integer Dim con As ADODB.Connection Dim flag As String Dim rst As ADODB.Recordset Set con=New ADODB.Connection con.()pen ConnectString 打开数据库flag=ExecuteSQL(SQL,rst,False) 执行soL语句If rst .RecordCount0 Then， 判断该记录是否存在 DBExist=rst.RecordGountElse DBExist=0End IfconClose关闭数据库End Function 8t

43、xtlsNull函数 判断输入到TextBox的内容是否为空，参数为TextBox实例。处理流程：如果TextBox文本为空，返回值为True，否则，返回值为false，并设置该TextBox获得焦点，背景色设置为深蓝色。 Public Function txtlsNull(txt As TextBox) As Boolean If Trim(txt.Text)=” Then txtIsNull=True txt.SetFocus txt.BackColor=BLUE Else txtIsNull=False End If End Function 9lsOverStringLen函数判断输入

44、内容是否超过给定值，参数为需要处理的字符串和给定长度值。处理流程：判断字符串长度不超过给定值时返回值为True，否则，返回值为false。 Public Function IsOverStringLen(ByVal str As String,lenthText As Integer) As Boolean If Len (Trim(str)lenthText Then IsOverStringLen=True Else IsOverStringLen=False End If End Function10. viewData函数在Datagrid中显示数据，参数为SQL语句和将要显示数据的D

45、atagrid。处理流程：执行SQL语句，当检索到的记录数不为0时，将相应的数据集设置为Datagrid的数据源，并返回记录数；否则给出提示信息“还没有数据！”，返回0。 Public Function viewData(ByVal txtsoL As String,dgAll As DataGrid) As Integer Dim rst Data As ADODB.Recordset Dim result As String result=ExecuteSQL(txtSQL,rstData,False) 检索需要的信息 If rstData.RecordCount0 Then 设置Data

46、grid的数据源 Set dgAll.DataSource=rstData viewData=rstData.RecordCount Else MsgBox”还没有数据!” vbOKOnly+vbExclamation，”警告” viewData=0 End If End Function11. ISEqueILen函数判断输入到TextBox的内容长度是否为给定值，参数为TextBox实例和给定长度值。处理流程：如果TextBox文本内容长度为给定值，返回值为True;否则，返回值为false，并设置该TextBox获得焦点，背景色变为深蓝色。 Public Function ISEquel

47、Len(ByVal txt As TextBox,intlen As Integer) As Boolean If Len(txt.Text)intlen Then txt，SetFocus txt.BackColor=BLUE ISEquelLen=False Else ISEquelLen=True End If End Function12. cboData函数为ComboBox赋值函数，参数为SQL语句和ComboBox实例。处理流程：首先从数据库中检索记录，当检索记录不为0时，将名称字段添加到ComboBox的显示列表中，同时将编号字段作为相应名称的索引值。代码如下： Public

48、Function cboData(ByVal txt As String,cbo As ComboBox) As 1300lean Dim res As String Dim rstcbo As ADODB.Recordset Dim i As Integer res=ExecuteSQL(txt,rstcbo,False) If rstcbo.RecordCount0 Then Fori=0To rstcbo.RecordCount -l cbo.Addltem (rstcbo.Fields(1) cbo.ItemData(cbo.Newlndex)=rstcbo.Fields(0) Nex

49、t Else cboData=FalseEnd IfEnd Funtion 6.2主控制平台的设计和实现1总体布局 系统主控平台采用简单、直观的布局，通过菜单实现对系统各个模块的调用和对各个窗体的显示。设置状态栏用来显示当前日期、时间和当前用户信息。2主控制平台的界面效果人力资源管理系统菜单栏欢迎使用企业人事管理系统北方信息工程学院设计当前系统用户是00001，您是系统管理员工 2011-11-30 10：34（1）主控窗体中显示的菜单项如下：系统管理 基础数据管理部门信息管理职员信息管理报表 基本信息 入职信息通信录考勤信息查询考评信息管理帮助退出3窗体和控件特殊属性的设置（见表） 表12窗

50、体和控件特殊属性控件名称控件属性设置fnnMainStratUpPosition2 (即窗体居中)LablBoderStyle04程序设计 (1)添加菜单和状态栏：根据总体设计中对各个模块的设计，使用菜单编辑器和StatusBar控件创建系统菜单和状态栏。菜单项目有： 1)系统管理一用户管理、修改密码。 2)基础数据管理。3)部门信息管理。4)职员信息管理职员信息管理、报表职员基本信息报表、职员就职信息报表、职员通讯录。5)考勤信息查询。6)考评信息管理。7)帮助。8)退出。 (2)窗体加载事件。处理流程：调用初始化过程initial，设置系统权限：当前用户不是系统管理员时，“用户管理”和“基

51、础数据管理”菜单不可使用。 Private Sub Form_Load() Call initial 调用初始化过程 Call purview 设置部分权限 End Sub (3)初始化过程initial。处理流程：加载背景图片，设置状态栏。 Private Sub initial() Dim strpath As String 加载背景图片 strpath=“renjpg 使用的图片名称ren.jpg，位于当前路径下 frmMain.Picture=LoadPicture(App.Path&strpath) 设置状态栏显示系统信息，将状态栏分为3个区，设置第一区域Width，其它区域采用默认

52、值。 StatusBarUser.Panels.Add (1) Status13arUser.Panels.Item(l).Width=6201.13 StatusBarUser.Panels.Add (2) StatusBarUser.Panels.Add (3) StatusBarUser.Panels.Item(l).StYle=sbrText StatusBarUser.Panels.ltem(2) .Style=sbrDate7设置2-3区域分别显示系统当前日期和时间。 StatusBarUser.Panels.Item(3).StYle=sbrTime StatusBarUser.

53、Panels.Item(l).Text=”当前系统用户是”+gUserName+”，您是”+gUserKind End Sub(4)权限设置函数purview：处理流程：判断当前用户类型，设置部分权限。 Private Sub purview() Select Case gUserKind Case ”系统管理员” Me.subMenuClient.Enabled=True Me.menuDataMange.Enabled=True Case Else Me.subMenuClient.Enabled=False Me.menuDataMange.Enabled=False End Selec

54、t End Sub(5)单击各个菜单或子菜单时显示相应的窗体。基本语法是：From.Show。各个菜单与窗体的对应关系如表13所示。 表13各个菜单与窗体的对应关系菜单名称事件显示窗体语句说明subMenuClientClickfrmUser. Show显示用户管理窗体subMenuPasswordClickfrmPassord. Show显示修改密码管理窗体menuDataMangeClickfrmOptionsShow显示基础数据管理窗体menuDeptClickfrmDepShow显示部门信息管理窗体subMenuEmployeeClickfrmEmployeeShow显示职员信息管理窗体subRptBasicClickrptEmployeelShow显示职员基本信息报表subPostionClickrptEmployee2.Show显示职员就职信息报表subRptRecordClickrptEmployee3.Show显示职员通讯录报表menuWorkClickfrmWorkRecord.Show昱示考勤信息查询窗体menuValueClickfrmValue. Show显示考评信息管理窗体helpClickfrmAbout.Show显示帮助管理窗