【正文】 。 [6]《 Visual BASIC 程序設(shè)計(jì)教程》劉炳文、許蔓舒、譚浩強(qiáng) 清華大學(xué)出版社 2021 [7] MSDN Library Visual Studio CHS 。 [4] 《 SQL Server 2021 管理及應(yīng)用系統(tǒng)開(kāi)發(fā) 》 ．李曉喆，張曉輝．人民郵電出版社， 2021 。 [2] 《 企業(yè)信息化規(guī)劃和建設(shè)的技術(shù)與方法》 ． 陳禹 ． 中國(guó)人民大學(xué) 出版社 ， 2021 。這種方法將在多模塊的系統(tǒng)設(shè)計(jì)過(guò)程中得到很好的運(yùn)用。 畢業(yè)設(shè)計(jì)心得和體會(huì) 通過(guò)對(duì)企業(yè)人事管理信息系統(tǒng)的設(shè)計(jì)與開(kāi)發(fā)，對(duì) MIS 系統(tǒng)項(xiàng)目的開(kāi)發(fā)和實(shí)施的全過(guò)程有了一個(gè)較深刻的認(rèn)識(shí)，對(duì)基于 C/S 結(jié)構(gòu)的系統(tǒng)開(kāi)發(fā)、 ADO 數(shù)據(jù)庫(kù)的訪問(wèn)方式、 VB 的各種內(nèi)部控件的使用都有較好了解和掌握，這將為今后的工作提供寶貴的經(jīng)驗(yàn)。本系統(tǒng)采用的 C/S 結(jié)構(gòu)，要求對(duì)訪問(wèn)系統(tǒng)的所有客戶端安裝專用的客戶端軟件，這在一定程度制約了系統(tǒng)的使用。通過(guò) SQL SERVER 2021 的企業(yè)管理器，定時(shí)對(duì)數(shù)據(jù)庫(kù)日志進(jìn)行清理，并對(duì)系統(tǒng)的數(shù)據(jù)庫(kù)進(jìn)行備份。 通過(guò)對(duì)操作權(quán)限的控制，防止公司人力資源信息的外泄，從而避免因此對(duì)企業(yè)經(jīng)營(yíng)、生產(chǎn)代來(lái)的危害。 ? 測(cè)試結(jié)果 通過(guò)對(duì)系統(tǒng)的全面測(cè)試，發(fā)現(xiàn)系統(tǒng)運(yùn)行基本正常。*************************************************************** 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ì)與開(kāi)發(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)存在問(wèn)題，并對(duì)其進(jìn)行修改和優(yōu)化。*************************************************************** 39。**返回 INI文件的相應(yīng)的項(xiàng)，參見(jiàn) WINAPI 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ì)與開(kāi)發(fā) 第 30 頁(yè) 共 32 頁(yè) .(MenutmpID).IconLarge = MenutmpIconname Case mnu_3: …… End Select Loop ? 配置文件 (.ini)的讀寫操作 通過(guò)調(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。語(yǔ)句如下： sSql=select MenuName,MenuArrayString,MenuArrayID,IconName from MenuInfo where MenuID in (Select menu_privID from userpriv where userpriv_id= 39。 + m_OperatorID + 39。 Set rst = (sSql, rdOpenKeyset) ② 從 菜單信息 表中讀取角色 對(duì)應(yīng)的菜單信息 企業(yè)人事管理信息系統(tǒng)的設(shè)計(jì)與開(kāi)發(fā) 第 29 頁(yè) 共 32 頁(yè) 首先讀取 母菜單項(xiàng)信息，其中 MenuArrayID 為 0 時(shí)，該菜單為母菜單；MenuArrayID 為 1 時(shí)，該菜單為子菜單。 語(yǔ)句如下： sSql =Select menu_privID from userpriv where userpriv_id= 39。 ① 從 角色表中讀取 操作員的 角色信息 用戶登錄時(shí)，將操作員 ID 信息保存到全局變量 m_OperatorID。 從而實(shí)現(xiàn) 的對(duì) 操作員的權(quán)限控制功能。Database= + DBDatabaseName Set rdoCnt = rdoEnvironments(0).OpenConnection(dsname:=, Prompt:=rdDriverNoPrompt, Connect:=ConnectStr) ② 執(zhí)行 SQL 語(yǔ)句函數(shù) 通過(guò)判斷 SQL 語(yǔ)句類型（ insert 、 update、 select 等）進(jìn)行執(zhí)行或返回查詢記錄集 ，語(yǔ)句如下： Set n = New ConnectString If InStr(INSERT,DELETE,UPDATE, UCase$(sTokens(0))) Then SQL MsgString = sTokens(0) amp。Server= + DBIPAddress + 。 ? 數(shù)據(jù)庫(kù)操作函數(shù) 對(duì)數(shù)據(jù)庫(kù)的連接和操作，通過(guò)函數(shù)調(diào)用的方式完成，主要涉及的函數(shù)有兩個(gè)： ① 連接數(shù)據(jù)庫(kù) 設(shè)置 rdot 為主數(shù)據(jù)庫(kù)句柄，連接數(shù)據(jù)庫(kù)，語(yǔ)句如下： Perseral, SQL Server, True, strAttribs ConnectStr = UID= + DBUserName + 。 MDI 子窗口 中主要提供系統(tǒng)主菜單信息，同時(shí)引用了 ActiveListBar 控件，提供縱向菜單欄顯示功能，從而大大提高了系統(tǒng)主界面的美觀性和易操作性。 ⑥ 當(dāng)活動(dòng)子窗體有菜單時(shí)，它將顯示于 MDI 窗體的菜單欄中，而不是顯示在子窗體上。 ④ 當(dāng)最小化子窗體時(shí)，它的圖標(biāo)將顯示于 MDI 窗體內(nèi)，而不是在任務(wù)欄中。 ② 能返回 活動(dòng)子窗體上具有焦點(diǎn)的控件。 圖 2 基本信息實(shí)體 ER 圖 企業(yè)人事信息管理系統(tǒng) 員工工資管理 員工工作評(píng)價(jià) 員工考勤管理 員工基本信息 系統(tǒng)管理 員工工資信息查詢 員工工資信息修改 計(jì)發(fā)員工工資信息 員工工作評(píng)價(jià)查詢 員工工作評(píng)價(jià)修改 員工工作評(píng)價(jià)添加 員工考勤信息查詢 員工考勤信息修改 員工考勤信息添加 員工基本信息查詢 參數(shù)管理 用戶管理 員工基本信息修改 員工基本信息添加 角色管理 員工基本信息實(shí)體 員工姓名 員工學(xué)歷 出生年月 參加工作時(shí)間 … 企業(yè)人事管理信息系統(tǒng)的設(shè)計(jì)與開(kāi)發(fā) 第 13 頁(yè) 共 32 頁(yè) ② 員工考勤信息實(shí)體 ER圖 圖 3 考勤信息實(shí)體 ER 圖 ③ 員工工作評(píng)價(jià)信息實(shí)體 ER圖 圖 4 工作評(píng)價(jià)信息實(shí)體 ER 圖 ④ 員工工資信息實(shí)體 ER圖 圖 5 工資信息實(shí)體 ER 圖 員工考勤信息 實(shí)體 員工基本信息 出勤時(shí)間 加班時(shí)間 礦工時(shí)間 … 員工工作評(píng)價(jià)信息 實(shí)體 員工基本信息 工作業(yè)績(jī) 業(yè)務(wù)水平 工作態(tài)度 … 員工工資信息 實(shí)體 員工基本信息 員工底薪 員工補(bǔ)貼 實(shí)發(fā)工資 … 企業(yè)人事管理信息系統(tǒng)的設(shè)計(jì)與開(kāi)發(fā) 第 14 頁(yè) 共 32 頁(yè) ⑤ 實(shí)體之間的關(guān)系 圖 6 實(shí)體之間關(guān)系圖 ? 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì) 將上面的數(shù)據(jù)庫(kù)概念結(jié)構(gòu)轉(zhuǎn)化為 SQL SERVER 2021 數(shù)據(jù)庫(kù)系統(tǒng)所支持的實(shí)際數(shù)據(jù)模型，也就是數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)。 本系統(tǒng)主要包含的實(shí)體有：?jiǎn)T工基本信息實(shí)體、員工考勤信息實(shí)體、員工工作評(píng)價(jià)信息實(shí)體和員工工資信息實(shí)體。 企業(yè)人事管理信息系統(tǒng)的設(shè)計(jì)與開(kāi)發(fā) 第 12 頁(yè) 共 32 頁(yè) ? 系統(tǒng)功能模塊圖 圖 1 功