通过人力资源管理系统使得管理者快速高效地完成企业日常事务中的人事工作,降低了人力资源管理成本,使管理者能集中精力在企业战略目标;另一方面,通过软件及时收集与整理分析大量的人力资源管理数据,为企业战略决策的生成与实施控制提供强有力的支持,以提高组织目标实现的可能性。具体实现目标如下：系统采用人机对话方式,界面美观友好,信息查询灵活、方便、快捷、准确,数据存储安全可靠。键盘操作,快速响应。

2．主要数据表的结构

数据库中的主要数据表结构请参见附录二。

4 主要功能模块设计

4.1 公用模块设计

在人力资源管理系统程序中，创建了公用模块（Module1）。此模块包括用户定义的数据类型、全局变量、API函数、数据库连接函数等。

1．添加全局变量

添加全局变量，用于存储操作员、表和SQL语句，代码如下：

Public czy As String, tb As String, tb1 As String, sql As String, sql1 As String, text As String

Public jbxxtb As String

添加全局变量，用来标记各个窗体数据添加或修改的状态，代码如下：

Public blnAddRS As Boolean, blnAddPX As Boolean, blnAddKH As Boolean, blnAddHT As Boolean, blnAddPY As Boolean, blnAddBX As Boolean

Public blnAddJL As Boolean, blnAddCF As Boolean

blnAdd….变量用户记录数据添加还是修改状态，赋值为True为添加，赋值为False为修改。 Public HTygbh As String, PYygbh As String

Public KGBH As Integer,JBBH As Integer, deptMark As Integer

2．声明API函数ShellExecute

该函数主要用于查找与指定文件关联在一起的程序的文件名，代码如下：

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

3．共享数据库连接

为了减少重复的数据连接和为日后修改程序提供接口，在公用模块（Module1）中建立了数据库连接函数cnn和cnStr。如果使用对象操作数据库，可以调用cnn函数；如果使用ADO控件访问数据库，则可以调用字符串函数cnStr，并将该函数值赋给ADO控件的ConnectionString属性。具代码如下：

Public Function Cnn() As ADODB.Connection '定义一个函数

Set Cnn = New ADODB.Connection

'·返回一个数据库连接

Cnn.Open "Driver={SQL Server};Server=(local);Database=db_manpowerinfo;Uid=sa;Pwd="

End Function

Public Function cnStr() As String

cnStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_manpowerinfo" End Function

4.2 系统登录模块设计

系统登录模块主要完成对登录系统的用户进行验证，只有合法的用户才可以进入系统。 另外，为了防止用户无限期地输入错误的用户名或密码，在系统登录模块中增加了限制登录次数的功能。首先定义一个窗体级的常量MaxTimes，其主要用来保存允许用户最多登录的次数（这里为3次），然后在cmdOk_Click过程中定义一个静态变量intMyTimes，其主要用来保存累

– 6 –