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