企业人事管理信息系统的设计与开发
首先读取母菜单项信息，其中MenuArrayID 为0 时，该菜单为母菜单；MenuArrayID 为1 时，该菜单为子菜单。
语句如下： sSql=\MenuName,MenuArrayString,MenuArrayID,IconName from MenuInfo where MenuID in (Select menu_privID from userpriv where userpriv_id= '\m_OperatorID + \
Set rst = rdoCnt.OpenResultset(sSql, rdOpenKeyset) 然后读取子菜单项信息。语句如下： sSql=\MenuName,MenuArrayString,MenuArrayID,IconName from MenuInfo where MenuID in (Select menu_privID from userpriv where userpriv_id= '\m_OperatorID + \
Set rst = rdoCnt.OpenResultset(sSql, rdOpenKeyset) ③显示菜单信息
首先显示所有母菜单项，语句如下： With FrmMain
Do While Not rst.EOF
Select Case rst(\ Case \
.mnu_2.Caption = rst(\ MenuName(2) = rst(\
.SSListMenu.Groups.Add 2, \ Case \
.mnu_3.Caption = rst(\ MenuName(3) = rst(\
.SSListMenu.Groups.Add 3, \
……
End Select rst.MoveNext
Loop
然后显示所有子菜单项，语句如下 Do While Not rst.EOF
MenutmpID = rst(\
MenutmpIndex=CInt(Right(rst(\
MenutmpName = rst(\ MenutmpIconname = rst(\ Select Case rst(\ Case \
.mnu_2.Visible = True
Load .mnu2(MenutmpIndex)
.mnu2(MenutmpIndex).Caption = MenutmpName .mnu2(100).Visible = False
.SSListMenu.CurrentGroup = \
.SSListMenu.ListItems.Add MenutmpIndex, MenutmpID, MenutmpName
第 29 页 共 32 页
企业人事管理信息系统的设计与开发
.SSListMenu.ListItems(MenutmpID).IconLarge = MenutmpIconname Case \
……
End Select rst.MoveNext Loop
?配置文件(.ini)的读写操作
通过调用WINAPI函数实现对配置文件的读取与写入操作，WINAPI函数的引用语句如下：
Private Declare Function WritePrivateProfileString Lib \Alias \(ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileString Lib \\(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
'***************************************************************
Function F_Get_INI(section As String, key As String, file_name As String) As String
Dim retval As String Dim AppName As String Dim worked As Integer retval = String$(255, 0) worked = GetPrivateProfileString(section, key, \retval, Len(retval), file_name)
If worked = 0 Then F_Get_INI = \ Else
F_Get_INI = Left(retval, InStr(retval, Chr(0)) - 1) End If End Function
②配置文件的写入函数
'*************************************************************** '**设置INI文件的相应的项，参见WINAPI
'***************************************************************
Function F_Set_INI(section As String, Entry As String, Write_string As String, Filename As String) As String Dim worked As Integer Dim retval As String
On Error GoTo f_set_ini_err
第 30 页 共 32 页
企业人事管理信息系统的设计与开发
retval = String$(255, 0)
worked = WritePrivateProfileString(section, Entry, Write_string, Filename)
If worked = 0 Then F_Set_INI = \ Else
F_Set_INI = Write_string End If
Exit Function f_set_ini_err: F_Set_INI = \End Function
2、系统测试
?测试目标及步骤
系统测试的主要目标是发现系统存在问题，并对其进行修改和优化。 系统测试的步骤为：
①查看系统各模块正常操作时存在的问题
②查看系统特殊操作或异常操作将会产生的问题 ③查找系统实际操作时不便利的问题 ④对发现的问题进行修正和优化
?测试方法
主要是通过对各模块的逐一实际操作运用，来发现系统存在问题。 ?测试结果
通过对系统的全面测试，发现系统运行基本正常。 3、系统运行的管理与维护
?系统运行管理
在系统日常的运行过程中，需对操作用户的使用权限进行严格控制，对更换部门或离职员工，需及时对其操作权限进行修改或停用。
通过对操作权限的控制，防止公司人力资源信息的外泄，从而避免因此对企业经营、生产代来的危害。 ?系统维护
在系统日常运行过程中，需对系统的字典表及时进行修改和补充。通过SQL SERVER 2000 的企业管理器，定时对数据库日志进行清理，并对系统的数据库进行备份。
第 31 页 共 32 页
企业人事管理信息系统的设计与开发
六、小结
1、系统存在不足和改进方案
随着互联网的飞速发展，移动办公和分布式办公越来越普及，这需要我们的系统具有扩展性。本系统采用的C/S结构，要求对访问系统的所有客户端安装专用的客户端软件，这在一定程度制约了系统的使用。
鉴于以上的不足，将在今后对管理信息系统的扩充中，增加BS模块，便于提供远程IE查询功能。 2、毕业设计心得和体会
通过对企业人事管理信息系统的设计与开发，对MIS系统项目的开发和实施的全过程有了一个较深刻的认识，对基于C/S结构的系统开发、ADO数据库的访问方式、VB的各种内部控件的使用都有较好了解和掌握，这将为今后的工作提供宝贵的经验。
在本次系统设计过程中尝试采用一种动态的菜单设计方法：将所有菜单信息存人数据库的表中，然后通过角色权限的限制，进行有条件的调用，从而实现菜单的载入和显示，达到权限控制功能。这种方法将在多模块的系统设计过程中得到很好的运用。 致谢
本次毕业设计能顺利完成，主要得益于毕业环节指导老师的耐心指导和远程学习期间老师的悉心传教，在此对所有关心和教导过我的老师表达真挚的谢意！ 参考文献
[1] 《管理信息系统原理与应用》．罗超理，李万红．清华大学出版社，2002 。 [2] 《企业信息化规划和建设的技术与方法》．陈禹．中国人民大学出版社，2003 。 [3] 《人力资源管理教程》．网络下载．王学忠 www.51mgt.com。
[4] 《SQL Server 2000管理及应用系统开发》．李晓喆，张晓辉．人民邮电出版社，2002 。
[5] 《Visual Basic 6.0数据库系统开发时例导航》刘韬、骆娟、何旭洪 人民邮电出版社，2003 。 [6]《Visual BASIC 程序设计教程》刘炳文、许蔓舒、谭浩强 清华大学出版社2002 [7] MSDN Library Visual Studio 6.0 CHS 。 [8] Visual Basic 6.0高级编程技巧——控件 。
第 32 页 共 32 页
