【導讀】境中處于不敗之地。在“以人為本”的今天，企業(yè)人事信息的管理在現(xiàn)代企業(yè)管理。工作中尤為重要，將直接關(guān)系到企業(yè)的經(jīng)營與發(fā)展。計和開發(fā)一套適應現(xiàn)代企業(yè)發(fā)展的“企業(yè)人事管理信息系統(tǒng)”的過程。1．介紹企業(yè)人事管理信息系統(tǒng)的產(chǎn)生背景和開發(fā)意義；管理、考勤管理、工作評價管理及工資管理；4．分析并解決程序設計中出現(xiàn)的若干問題。需實現(xiàn)的主要功能.......

　　

【正文】 ing If InStr(INSERT,DELETE,UPDATE, UCase$(sTokens(0))) Then SQL MsgString = sTokens(0) amp。 query successful Else Set rst = New Trim$(SQL), n, adOpenKeyset, adLockOptimistic Set ExecuteSQL = rst End If ? 動態(tài) 菜單項 的 實現(xiàn) 本系統(tǒng)所有菜單項均采用動態(tài)載入方式，即通過對登錄操作員權(quán)限的判斷，系統(tǒng)主窗口 顯示其權(quán)限內(nèi)菜單項。 從而實現(xiàn) 的對 操作員的權(quán)限控制功能。 設計方法：將所有菜單信息存人數(shù)據(jù)庫的表中，然后通過角色權(quán)限的限制，進行有條件的調(diào)用，從而實現(xiàn)菜單的載入和顯示，達到權(quán)限控制功能。 ① 從 角色表中讀取 操作員的 角色信息 用戶登錄時，將操作員 ID 信息保存到全局變量 m_OperatorID。 系統(tǒng)顯示菜單項時， 先 從角色表中 讀取 登錄 操作員的角色 信息。 語句如下： sSql =Select menu_privID from userpriv where userpriv_id= 39。 + m_OperatorID + 39。 Set rst = (sSql, rdOpenKeyset) ② 從 菜單信息 表中讀取角色 對應的菜單信息 企業(yè)人事管理信息系統(tǒng)的設計與開發(fā) 第 29 頁 共 32 頁 首先讀取 母菜單項信息，其中 MenuArrayID 為 0 時，該菜單為母菜單；MenuArrayID 為 1 時，該菜單為子菜單。 語句如下： sSql=select MenuName,MenuArrayString,MenuArrayID,IconName from MenuInfo where MenuID in (Select menu_privID from userpriv where userpriv_id= 39。 + m_OperatorID + 39。) and MenuArrayID =0 Set rst = (sSql, rdOpenKeyset) 然后讀取子菜單項信息。語句如下： sSql=select MenuName,MenuArrayString,MenuArrayID,IconName from MenuInfo where MenuID in (Select menu_privID from userpriv where userpriv_id= 39。 + m_OperatorID + 39。) and MenuArrayID =1 Set rst = (sSql, rdOpenKeyset) ③ 顯示 菜單信息 首先顯示所有母菜單項 ，語句如下： With FrmMain Do While Not Select Case rst(MenuArrayString) Case mnu_2: . = rst(MenuName) MenuName(2) = rst(MenuName) . 2, mnu_2, MenuName(2) Case mnu_3: . = rst(MenuName) MenuName(3) = rst(MenuName) . 3, mnu_3, MenuName(3) …… End Select Loop 然后顯示所有子菜單項 ，語句如下 Do While Not MenutmpID = rst(MenuArrayString) + CStr(rst(MenuArrayID)) MenutmpIndex=CInt(Right(rst(MenuArrayString),1))*10+ rst(MenuArrayID) MenutmpName = rst(MenuName) MenutmpIconname = rst(IconName) Select Case rst(MenuArrayString) Case mnu_2: . = True Load .mnu2(MenutmpIndex) .mnu2(MenutmpIndex).Caption = MenutmpName .mnu2(100).Visible = False . = mnu_2 . MenutmpIndex, MenutmpID, MenutmpName 企業(yè)人事管理信息系統(tǒng)的設計與開發(fā) 第 30 頁 共 32 頁 .(MenutmpID).IconLarge = MenutmpIconname Case mnu_3: …… End Select Loop ? 配置文件 (.ini)的讀寫操作 通過調(diào)用 WINAPI 函數(shù)實現(xiàn)對配置文件的讀取與寫入操作， WINAPI 函數(shù)的引用語句如下： Private Declare Function WritePrivateProfileString Lib kernel32 Alias WritePrivateProfileStringA (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long Private Declare Function GetPrivateProfileString Lib kernel32 Alias GetPrivateProfileStringA (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 ① 配置文件的讀取函數(shù) 39。*************************************************************** 39。**返回 INI文件的相應的項，參見 WINAPI 39。*************************************************************** 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 ② 配置文件的寫入函數(shù) 39。*************************************************************** 39。**設置 INI文件的相應的項，參見 WINAPI 39。*************************************************************** 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 企業(yè)人事管理信息系統(tǒng)的設計與開發(fā) 第 31 頁 共 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 系統(tǒng)測試 ? 測試目標及步驟 系統(tǒng)測試的主要目標是發(fā)現(xiàn)系統(tǒng)存在問題，并對其進行修改和優(yōu)化。 系統(tǒng)測試的步驟為： ① 查看系統(tǒng)各模塊正常操作時存在的問題 ② 查看系統(tǒng)特殊操作或異常操作將會產(chǎn)生的問題 ③ 查找系統(tǒng)實際操作時不便利的問題 ④ 對發(fā)現(xiàn)的問題進行修正和優(yōu)化 ? 測試方法 主要是通過對各模塊的逐一實際操作運用，來發(fā)現(xiàn)系統(tǒng)存在問題。 ? 測試結(jié)果 通過對系統(tǒng)的全面測試，發(fā)現(xiàn)系統(tǒng)運行基本正常。 系統(tǒng)運行的管理與維護 ? 系統(tǒng)運行管理 在系統(tǒng)日常的運行過程中，需對操作用戶的使用權(quán)限進行嚴格控制，對更換部門或離職員工，需及時對其操作權(quán)限進行修改或停用。 通過對操作權(quán)限的控制，防止公司人力資源信息的外泄，從而避免因此對企業(yè)經(jīng)營、生產(chǎn)代來的危害。 ? 系統(tǒng)維護 在系統(tǒng)日常運行過程中，需對系統(tǒng)的字典表及時進行修改和補充。通過 SQL SERVER 2021 的企業(yè)管理器，定時對數(shù)據(jù)庫日志進行清理，并對系統(tǒng)的數(shù)據(jù)庫進行備份。 企業(yè)人事管理信息系統(tǒng)的設計與開發(fā) 第 32 頁 共 32 頁 六、小結(jié) 系統(tǒng)存在不足和改進方案 隨著互聯(lián)網(wǎng)的飛速發(fā)展，移動辦公和分布式辦公越來越普及，這 需要我們的系統(tǒng)具有擴展性。本系統(tǒng)采用的 C/S 結(jié)構(gòu)，要求對訪問系統(tǒng)的所有客戶端安裝專用的客戶端軟件，這在一定程度制約了系統(tǒng)的使用。 鑒于以上的不足，將在今后對管理信息系統(tǒng)的擴充中，增加 BS模塊，便于提供遠程 IE 查詢功能。 畢業(yè)設計心得和體會 通過對企業(yè)人事管理信息系統(tǒng)的設計與開發(fā)，對 MIS 系統(tǒng)項目的開發(fā)和實施的全過程有了一個較深刻的認識，對基于 C/S 結(jié)構(gòu)的系統(tǒng)開發(fā)、 ADO 數(shù)據(jù)庫的訪問方式、 VB 的各種內(nèi)部控件的使用都有較好了解和掌握，這將為今后的工作提供寶貴的經(jīng)驗。 在本次系統(tǒng)設計過程中嘗試采用一種動態(tài)的菜 單設計方法：將所有菜單信息存人數(shù)據(jù)庫的表中，然后通過角色權(quán)限的限制，進行有條件的調(diào)用，從而實現(xiàn)菜單的載入和顯示，達到權(quán)限控制功能。這種方法將在多模塊的系統(tǒng)設計過程中得到很好的運用。 致謝 本次畢業(yè)設計能順利完成，主要得益于畢業(yè)環(huán)節(jié)指導老師的耐心指導和遠程學習期間老師的悉心傳教，在此對所有關(guān)心和教導過我的老師表達真摯的謝意！ 參考文獻 [1] 《 管理信息系統(tǒng)原理與應用 》 ．羅超理，李萬紅．清華大學出版社， 2021 。 [2] 《 企業(yè)信息化規(guī)劃和建設的技術(shù)與方法》 ． 陳禹 ． 中國人民大學 出版社 ， 2021 。 [3] 《 人力資源管理教程》 ． 網(wǎng)絡下載 ． 王學忠 。 [4] 《 SQL Server 2021 管理及應用系統(tǒng)開發(fā) 》 ．李曉喆，張曉輝．人民郵電出版社， 2021 。 [5] 《 Visual Basic 數(shù)據(jù)庫系統(tǒng)開發(fā)時例導航》劉韜、駱娟、何旭洪 人民郵電出版社， 2021 。 [6]《 Visual BASIC 程序設計教程》劉炳文、許蔓舒、譚浩強 清華大學出版社 2021 [7] MSDN Library Visual Studio CHS 。 [8] Visual Basic 高級編程技巧 —— 控件 。