企业人事管理信息系统的设计与开发
?员工工作评价模块窗口设计
图22 工作评价管理主窗口
①员工工作评价信息添加、修改窗口
图23 员工评价添加窗口
第 25 页 共 32 页
企业人事管理信息系统的设计与开发
②员工工工作评价信息查询窗口
图24 员工评价查询窗口 ③员工工工作评价信息统计窗口
图25 员工评价统计窗口
?员工工资管理模块窗口设计
图26 员工工资管理主窗口
第 26 页 共 32 页
企业人事管理信息系统的设计与开发
①员工工资信息添加、修改窗口
图27 员工工资添加修改窗口
②员工计发工资查询窗口
图28 员工工资查询窗口
③员工计发工资统计窗口
图29 员工工资统计窗口
第 27 页 共 32 页
企业人事管理信息系统的设计与开发
五、系统实现 1、程序设计
注：由于部分程序函数较长，对类式的判断或CASE语句用……省略。
?数据库操作函数
对数据库的连接和操作，通过函数调用的方式完成，主要涉及的函数有两个： ①连接数据库
设置rdocnt为主数据库句柄，连接数据库，语句如下：
rdoEngine.rdoRegisterDataSource \
ConnectStr = \+ \
Set rdoCnt = rdoEnvironments(0).OpenConnection(dsname:=\Prompt:=rdDriverNoPrompt, Connect:=ConnectStr)
②执行SQL语句函数
通过判断SQL语句类型（insert 、update、 select等）进行执行或返回查询记录集，语句如下：
Set cnn = New ADODB.Connection cnn.Open ConnectString
If InStr(\ cnn.Execute SQL
MsgString = sTokens(0) & \ Else
Set rst = New ADODB.Recordset
rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic Set ExecuteSQL = rst End If
?动态菜单项的实现
本系统所有菜单项均采用动态载入方式，即通过对登录操作员权限的判断，系统主窗口显示其权限内菜单项。从而实现的对操作员的权限控制功能。
设计方法：将所有菜单信息存人数据库的表中，然后通过角色权限的限制，进行有条件的调用，从而实现菜单的载入和显示，达到权限控制功能。
①从角色表中读取操作员的角色信息
用户登录时，将操作员ID信息保存到全局变量m_OperatorID。系统显示菜单项时，先从角色表中读取登录操作员的角色信息。
语句如下：
sSql =\\
Set rst = rdoCnt.OpenResultset(sSql, rdOpenKeyset) ②从菜单信息表中读取角色对应的菜单信息
第 28 页 共 32 页
