8_课程设计_企业人事管理信息系统

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 / 40(2 为考勤管理系统和工资管理系统提供数据支持。(3 与传统的手工管理相比，要添加基础数据的管

5、理和用户权限的设置。(4 所有的界面都要有信息的浏览功能，同时要保障数据的安全、可靠。(5 完善的报表功能，可以打印需要的报表。2.2.2 功能需求根据系统的需求分析，本系统的功能要求如下：1 系统管理 系统管理的功能是管理登录系绕的用户。进行用户权限设置，在权限范围内可以进行用户的添加、删 除和修改，包括用户密码和用户权限的更改。2 基础数据管理 基础数据管理的功能是设置和管理职务、民族和文化程度数据，用来使系统的其它界面的一些操作更 加方便。在权限范围内可以进行基础数据的添加、删除和修改。3 部门信息管理 部门信息管理的功能是设置和管理部门信息。在权限范围内可以进行数据的添加、删除和修改。

6、4, 职员信息管理 职员信息管理的功能是设置和管理职员档案信息，包括职员基本信息管理、家庭成员信息管理、工作 教育经历信息管理。业务流程源于手工管理阶段的人事档案，同时可以生成职员詹息清单供打印。 用户在权限范围内可以进行数据的添加、删除和修改。5 考勤信息查询 考勤信息查询的功能是提供给用户考勤统计值。所有系统用户均可以按照时间和部门查询全部考勤信 息，这样使管理更加透明化。6 考评信息管理 考评信息管理的功能是进行职员的工作绩效考评，同时将数据作为工资管理系统的某些 工资工程的计算依据。系统用户在权限范围内可以进行数据的添加、删除和修改。7 帮助 显示系统的开发版本和系统说明信息。2.3

7、性能需求系统的运行对运行环境的要求：1 硬件环境处理器： Intel Pentium 4 3.06G 或更高内存： 512 MB( 推荐 硬盘空间： 40 GB 显卡： SVGA 显示适配器 2 软件环境 操作系统： Windows 2000/XP 数据库： Microsoft SQL Server 2000三、总体设计3.1 系统概述 本系统采用客户机服务器的运行方式，针对中小型企业的人事管理业务，同时考虑到开发成本 和安全性的问题，本系统设计成为一个相对封闭的单用户运行系统。采用 Visual Basic6,0 作为开发工 具，采用 Microsoft SQL Server 2000 作为

8、后台数据库，一般可以满足中小企业人事管理业务的需求。系统的基本流程是：用户登录一系统主控平台一选择各项子系统。3.2 系统模块 “企业人事管理信息系统”主要分为登录、系统管理、基础数据管理、部门信息管理、职员信息 管理、考勤信息查询、考评信息管理和帮助信息，共8个模块。系统主模块层次图如图 2-1 所示：2 / 40企业人事管理信息系系统管理理职工信息管考 勤 信 息 查考 评 信 息 查图1系统功能图3.3模块设计1 登录模块输入用户名和密码，如果用户名和密码正确，进入主控制平台；否则提示用户明确的错误信息。2 系统管理模块(1用户管理子模块：系统管理员进行用户权限设置和用户的浏览，可以更改

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

10、模块：可提供职员基本信息、职员就职信息和职员通讯录报表。6 考勤信息查询模块该模块使用考勤管理信息系统的数据，所有用户可以进行条件查询，但提供更新考勤信息的功 能。7 考评信息管理模块人力资源主管根据职贯的工作表现对数据进行更新，其他用户只能按照时间和姓名进行查询。8 帮助信息模块显示系统的开发版本和系统说明信息。3 / 40图2系统IPO图四、数据库设计4.1关于应用程序和数据库的接口本系统采用 ODBC+ ADO对象访问数据库。ODBCQpen Database Connectivity是用于数据库 访问的、应用最为广泛的应用程序编程接口，它允许应用程序使用相同的代码访问不同的数据库管理系

11、统；VB 6.0中，ADODB对象（Active Data Object是一种提供访问各种数据库的连接机制，它使用OLEDB数据支持提供一个面向对象的访问数据源的接口，内置了连接类、命令类和数据集类。图3引用工程”对话框在Visual Basic 6.0的工程中，选择菜单“工程/引用”命令，弹出“引用工程”对话框，在对话框的“可用的引用”中选择 “ Microsoft Active Data Object 2.7Library ”选项，单击“确定”按钮，这样就在程序中加入 了对ADO的引用，如图3所示。4.2数据库根据系统分析和模块设计，本系统数据库的数据项和数据结构如下：1 数据库（1数据库

12、名称：人事信息库。（2标识 数据库名）：DBMan2 数据库表结构关系型如下：用户（用户名，密码，用户类型 职务编码 职务ID，职务名）民族编码 民族ID，民族名称）文化程度编码 文化程度ID，文化程度名称）部门 部门ID，部门名称，描述）职工 职工ID，姓名，性别，出生日期，民族，政治面貌，婚姻状况，部门号，入职时间，文化程度，籍贯，身份证号，电子邮箱，办公电话，家庭电话，手机号，身份性别，居住地址，邮政编 码，档案编号，户口地，信息录入员号）家庭成员 成员ID，职工ID，姓名，性别，出生日期，与职工关系，所在单位，联系电话） 职工经历ID，职工号，开始日期，结束日期，工作或就读单位，职务，

13、学历，经因与奖惩） 考勤年份，月份，职工号，部门号，全勤日数，请假天数，旷工天数，申请休假天数，出差天数，迟到次数，早退次数，加班天数，周末加班天数，节假日加班天数）4 / 40考评 年份，月份，职工号，工作难度系数，工作量记录，工作评价）图4系统E-R图表1表名：用户信息表 否:用户名UserPassword否n Char(8否用户密码uSerKi nd否nV archar(20否用户类型：普通用户，人力资源管理者，系统管理员表2表名：职务编码信息表 标识：tbDuty） 数据来源：基础数据管理模块的录入。字段名是否主键:字段类型字段长度可空否备注Dutyld是n char10否职务编码Du

14、tyName否n varchar20否职务名称表3职工表名：民族编码信息表 数据来源：基础数据管理模块的录入。字段名是否主键字段类型字段长度可空否备注Eduld是n char2否文化程度编码EduName否n varchar20杳文化程度名称表5表名：部门信息表 标识：tbDep ）。 数据来源：部门信息管理模块的录入。字段名是否主键字段类型字段长度可空空备注Depld是n char10否部门编号DepName否n varchar30否部门名称5 / 40Describe否n varchai100是部门职能描述说明：部门编号前两位代表乏一级部门，3.4，位代表二级部门，5.6位代表三级部门，7

15、.8位备用表6表名：职员家庭信息表 标识：tbFamilyMember ）。数据来源：职员家庭信息管理模块的录入。字段名是否主键字段类型字段长度可空否备注Id是n char10否家庭成员编号Empld否n char10否职员编号Name否n varchar30否家庭成员姓名Gen der否n char2是家庭成员性别Age否int4是家庭成员年龄Relati on ship否n varchar20是与本人关系Worki ngOrg否n varchar50是所在单位Tel否n varchar20是联系电话表7表名：职员基本信息表 标识：tbEmployee ）数据来源：职员基本信息管理模块的录入

16、。字段名是否主键字段类型字段长度可空否备注Empld是n char10否职员编号EmpName否n varchar10否职员姓名Gen der否n char2是性别Age否int4是年龄Natio nld否n char3是民族编号Birthday否datetime8是生日PoliticalParty否n varchar10是政治面貌MaritalCon否n varchar6是婚姻状况Depld否n char10是所在部门编号HireDate否1datetime8是人职时间Eduld否n char2是文化程度编号FarrulyPlace否n varchar20是籍贯IdCard否n varcha

17、r20否身份证号Email否n varchar20是电子邮箱Officepho ne否n varchar20是办公电话Homeph one否n varchar20是家庭电话Mobile否rn varcha20是手机号码State否n varchar20否人员身份Reside nee否n varchar50是居住地址Postcode否1n varchar10是邮政编码Dutyld否n char10是职务编号Recorld否n char10是档案编号PRLocation否varchar50是户口所在地EmpldRecord否n char10是信息录入员编号说明：人员身份分在职人员；兼职人员；试用人

18、员；离职人员；返聘人员表8表名：职员工作教育经历表 标识：tbWorkExp ）。 数据来源：职员工作傲育经历信息管理模块的录入。字段名是否主键字段类型长度可空否备注Id是n char10否编号Empld否n char10否职员编号6 / 40StartDate否datetime8是开始日期En dDate否datetime8是终止日期WorkOrg否n varchar50是工作单位僦读单位Positi on否n char10是职务Eduld否n char2是学历WorkDescri否n varchar300是工作描述/奖惩经历表9表名：职员考勤信息表 表名：职员考评信息表 ,FILEGROU

19、P DATA2 /* 辅文件组 */(NAME=JXGL_DATA2,FILENAME = G:SQLRSDATARS_DATA2. ndf,7 / 40SIZE =1,MAXSIZE = 100 ,FILEGROWTH = 500KB LOG ON /* 日志文件不在文件组中 */ (NAME=JXGL_Log1 ,FILENAME =G:SQLRSRS_Log1.Ldf ,SIZE= 1MB ,MAXSIZE = 100MB ,FILEGROWTH = 500KB GOCREATETABLE dbo.userA(-建立“用户”表的结构 userID nchar (10NOTNULL, Us

20、erPassword nchar (8NOTNULL, UserKind nchar (20 NOTNULLCONSTRAINT PK_User PRIMARYKEY (UserID GOCREATETABLE dbo. DutyCod (-建立“职工编码 ”表的结构 DutyID nchar (10NOTNULL,DutyName nchar (20NOTNULL,CONSTRAINT PK_DutyCod PRIMARYKEY (DutyID GOCREATETABLE dbo. NationCod (-建立“民族编码 ”表的结构 NationID nchar (10 NOTNULL,Na

21、tionName nchar (20 NOTNULL, CONSTRAINT PK_NationCod PRIMARYKEY (NationID GOCREATETABLE dbo. EduCod (-建立 “民族编码 ”表的结构 EduID nchar (10NOTNULL,EduName nchar (20 NOTNULL, CONSTRAINT PK_EduCod PRIMARYKEY (EduID GOCREATETABLE dbo. DepInfo (-建立“部门信息 ”表的结构 DepID nchar (10NOTNULL,DepName nchar (20 NOTNULL, De

22、scribe nvarchar (100CONSTRAINT PK_DepInfo PRIMARYKEY (DepID GOCREATETABLE dbo .tbEmployee (-6.建立“职工信息 ”表的结构 EmpId nchar (10NOTNULL,8 / 40EmpName nvarchar (20NOTNULL, Sex nchar (2,NationName char (3,Birthday datetime ,PoliticalParty varchar (20,MaritalCon nchar (6,Depld nchar (8,HireDate datetime ,Ed

23、uld nchar (10,FarrulyPlace 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 (10CONSTRAINT PK_tbEmployee PRIMARYK

24、EY (EmpID GOCREATETABLE dbo. tbFamilyMember (-7.建立“职工家庭信息 ”表的结构 MemberID nchar (10NOTNULL,EmpID nchar (10NOTNULL,Namenvarchar (20 NOTNULL,Sex nchar (2NOTNULL,Age int,Relationship nvarchar (20,WorkingOrg nvarchar (50,Tel nvarchar (20CONSTRAINT PK_tbFamilyMember PRIMARYKEY (MemberID GOCREATETABLE dbo.

25、 tbWorkExp (-8.建立“职工经历 ”表的结构Id nchar (10NOTNULL,Empld nchar (10 NOTNULL, StartDate datetime ,EndDate datetime ,WorkOrg nvarchar (50,Position nchar (10,9 / 40Eduld nchar (2, orkDescri nvarchar (300CONSTRAINT PK_tbWorkExp PRIMARYKEY (IDGOCREATETABLE dbo. tbWorkRecord ( -9.建立“职工考勤 ”表的结构RecordYear nchar

26、 (4NOTNULL,RecordMonth nchar (2NOTNULL,EmpId nchar (10NOTNULL,DepId nchar (10NOTNULL,DaysPresiMonth int,LeavdDays int,AbsentDays int,VacDays int,ErrandDays int,LateDays int,LeaveEarlyDays int,OtlDays int,Ot2Days int,Ot3Days intCONSTRAINT PK_tbWorkRecord PRIMARYKEY (RecordYear , RecordMonth ,EmpId GO

27、CREATETABLE dbo. tbEvaluation (-10.建立“职工考评 ”表的结构EvaYear nchar (4,EvaMonth nchar (2NOTNULL,EmpId nchar (10 NOTNULL,WorkCoe int,WorkDes nvarchar ( 400 ,WorkEva nvarchar (300CONSTRAINT PK_bEvaluation PRIMARYKEY (EvaYear , EvaMonth ,EmpId GO五、关于程序设计的简要说明对于程序设计，总体要求程序结构清晰，简单易懂；不随便定义全局变量，尽量使用局部变量； 禁止出现 GO

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

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

30、大写；全局变量要 在变量名最前面如英文字母g。(4控件命名使用控件类型缩写+控件用途的命名方式。程序中涉及到的控件类型缩写如下：控件类型缩写控件类型名控件类型缩写控件类型名cbo/ComboCombol30xDataE nvirnDataE nvirome ntchkCheckboxtrvTreeViewcmdComma nd butt ontxtTextboxfrmFormst/StatusBarStatusBarmsfMSHFIexGrid/FlexGridHrptDataReportdgDataGridpicPicturelblLabeloptOpti on butt onModuleM

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

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

33、1 .主体框架新建一个VB的标准EXE工程，建立系统的主体框架。2 添加模块添加模块，并将其命名为ModulePeople-bas3 .系统公共变量定义：表11系统公共变量定义变量名称变量类型说明gUserNameStri ng用户名，用来显示状态信息gUserKi ndStri ng用户类型，用来设定用户权限gEmployeeldStri ng职员编号gLogi nSucceededBoolea n登录成功的标志BLUEConst 常量)值为：&HFFOOOOO，蓝色WHITEConstDim fLogi n As New frmLogi n启动登录窗体fLogi n. Show vbMod

34、al 装入并显示模式窗体If Not gLogi nSucceeded ThenMsgBoX系统启动失败，请重试！”，vbOKOnly+vbExclamation,警告”End IfUni oad fLogi nEnd Sub5. ConnectString 函数设置数据库连接字符串函数，本函数无参数，返回值为数据库连接字符串(本系统数据库用户名和密码设置为sa。Public Function Conn ectStri ng( As StringConnectString= ”FileDSN= DBMan_ODBC 。UID= sa。PWD=sa ”End Function6. Execute

35、SQL 函数设置SQL语句的执行函数，参数为将要执行的SQL语句，ADO数据集rst和是否允许数据集更新的布尔型变量。处理流程：创建到数据源的连接，根据布尔型变量的实参值，确定执行SQL语句的方式并执行SQL语句。如果SQL语句成功执行，返回值为 true，结果存储于与形参数据集rst相对应的实参数据集内；否则，返回值为 false。Public Fun ction ExecuteSQL(ByVal SQL As Stri ng,rst As ADODB.Recordset,_Opti onal en ableWrite As Boolea n=True As Boolea n ,Dim co

36、n As ADODB.Co nn ectio nOn Error GoTo Execute ErrorSet con=New ADODB.Co nn ectio ncon. Open Conn ectStri ng打开数据库Set rst=New ADODB.Recordset定义数据集If en ableWrite The n 读写方式rst.Ope n Trim$(SQL ,con ,adOpe nStatic,adLockOptimistic连接，静态游标，共享锁Else 只读方式rst.Ope n Trim$ csoL ,co n,adOpe nStatic.adLockReadO n

37、lv连接，静态游标，独占锁End If12 / 40ExecutesoL =Truecon. Close 关闭数据库Exit FunctionExecute Error:ExecuteSQL=FalseExit FunctionEnd Function7 DBExist 函数 判断数据库中是否存在指定记录，参数为将要执行的 SQL 语句。 处理流程：创建到数据源的连接，执行 SQL 语句 As IntegerDim con As ADODB.ConnectionDim flag As StringDim rst As ADODB.RecordsetSet con=New ADODB.Conne

38、ctioncon.(pen ConnectString 打开数据库 flag=ExecuteSQL(SQL,rst,False 执行 soL 语句 If rst .RecordCount0 Then ， 判断该记录是否存在DBExist=rst.RecordGountElseDBExist=0End Ifcon Close 关闭数据库End Function8 txtlsNull 函数判断输入到 TextBox 的内容是否为空，参数为 TextBox 实例。处理流程：如果 TextBox 文本为空，返回值为 True ，否则，返回值为 false ，并设置该 TextBox 获 得焦点，背景色

39、设置为深蓝色。Public Function txtlsNull(txt As TextBox As BooleanIf Trim(txt.Text= ” ThentxtIsNull=Truetxt.SetFocustxt.BackColor=BLUEElsetxtIsNull=FalseEnd IfEnd Function9 lsOverStringLen 函数 判断输入内容是否超过给定值，参数为需要处理的字符串和给定长度值。 处理流程：判断字符串长度不超过给定值时返回值为 True ，否则，返回值为 false 。Public Function IsOverStringLen(ByVal

40、str As String,lenthText As Integer As BooleanIf Len (Trim(strlenthText ThenIsOverStringLen=TrueElseIsOverStringLen=False13 / 40End IfEnd Function10. viewData 函数在 Datagrid 中显示数据，参数为 SQL 语句和将要显示数据的 Datagrid 。处理流程：执行 SQL 语句，当检索到的记录数不为 0 时，将相应的数据集设置为 Datagrid 的数据 源，并返回记录数；否则给出提示信息 “还没有数据！ ”，返回 0 。Public

41、 Function viewData(ByVal txtsoL As String,dgAll As DataGrid As IntegerDim rstData As ADODB.RecordsetDim result As Stringresult=ExecuteSQL(txtSQL,rstData,False 检索需要的信息If rstData.RecordCount0 Then 设置 Datagrid 的数据源Set dgAll.DataSource=rstDataviewData=rstData.RecordCountElseMsgBoX还没有数据！vbOKOnly+vbExclam

42、ation,警告viewData=0End IfEnd Function11. ISEqueILen 函数判断输入到 TextBox 的内容长度是否为给定值，参数为 TextBox 实例和给定长度值。处理流程：如果 TextBox文本内容长度为给定值，返回值为True。否则，返回值为false，并设置该 TextBox 获得焦点，背景色变为深蓝色。Public Function ISEquelLen(ByVal txt As TextBox,intlen As Integer As BooleanIf Len(txt.Textintlen Thentxt， SetFocustxt.BackCo

43、lor=BLUEISEquelLen=FalseElseISEquelLen=TrueEnd IfEnd Function12. cboData 函数为 ComboBox 赋值函数，参数为 SQL 语句和 ComboBox 实例。处理流程：首先从数据库中检索记录，当检索记录不为 0 时，将名称字段添加到 ComboBox 的显 示列表中，同时将编号字段作为相应名称的索引值。代码如下：Public Function cboData(ByVal txt As String,cbo As ComboBox As 1300leanDim res As StringDim rstcbo As ADODB

44、.RecordsetDimi As Integerres=ExecuteSQL(txt,rstcbo,FalseIf rstcbo.RecordCount0 ThenFori=0To rstcbo.RecordCount -lcbo.Addltem (rstcbo.Fields(1cbo.ItemData(cbo.Newlndex=rstcbo.Fields(0NextElse14 / 40cboData=FalseEnd IfEnd Fun ti on6.2主控制平台的设计和实现1. 总体布局系统主控平台采用简单、直观的布局，通过菜单实现对系统各个模块的调用和对各个窗体的显示。设 置状态栏用

45、来显示当前日期、时间和当前用户信息。2. 主控制平台的界面效果1 )主控窗体中显示的菜单项如下：人力资源管理系统菜单栏系统管理基础数据管理部门信息管理职员信息管理欢迎使用企业人事管理系统北方信息工程学院080501设计报表基本信息入职信息 通信录考勤信息查询考评信息管理当前系统用户是 00001，您是系统管理员工2018-11-30 10帮助 退出3. 窗体和控件特殊属性的设置 见表)表12窗体和控件特殊属性控件名称控件属性设置fnnM ai nStratUpPosition2(即窗体居中LablBoderStyle04. 程序设计(1添加菜单和状态栏：根据总体设计中对各个模块的设计，使用菜单

46、编辑器和StatusBar控件创建系统菜单和状态栏。菜单工程有：1系统管理一用户管理、修改密码。2基础数据管理。3部门信息管理。4职员信息管理t职员信息管理、报表t职员基本信息报表、职员就职信息报表、职员通讯录。5考勤信息查询。6考评信息管理。7帮助。8退出。(2窗体加载事件。处理流程：调用初始化过程initial，设置系统权限：当前用户不是系统管理员时，用户管理”和基础数据管理菜单不可使用。Private Sub Form_Load(Call initial 调用初始化过程Call purview设置部分权限End Sub(3初始化过程initial。处理流程：加载背景图片，设置状态栏。15

47、 / 40Private Sub in itial(Dim strpath As Stri ng 加载背景图片strpath= “ ren .jpg使用的图片名称ren.jpg ，位于当前路径下frmMa in .Picture=LoadPicture(App.Path&strpath设置状态栏显示系统信息，将状态栏分为3个区，设置第一区域Width，其它区域采用默认值。StatusBarUser.Pa nels.Add (1Status13arUser.Pa nels.ltem(l.Width=6201.13StatusBarUser.Pa nels.Add (2StatusBarUser.Pa nels.Add (3StatusBarUser.Pa nels.ltem(l.StYle=sbrTextStatusBarUser.Panels.ltem(2 .Style=sbrDate7设置2-3区域分别显示系统当前日期和时间。StatusBarUser.Pa nels.ltem(3.StYle=sbrTimeStatusBarUser.Panels.ltem(l.Text=当前系统用户是 ” +gUserName+，您是 ” +gUserKindEnd Sub(4权限设置函数purview :处理流程：判断当前用户类型，设置部分