【正文】 ...................................................... 26 參考文獻(xiàn) ............................................................................................................................... 27 1 引言 信息技術(shù)的迅猛發(fā)展，已經(jīng)引起社會(huì)的深刻變革，信息時(shí)代的到來(lái)，迫切要求我們的企業(yè)管理需要進(jìn)行變革。 I 摘 要 本論文設(shè)計(jì)的 綜合人事管理系統(tǒng)以 Visual Basic 和 Access 2021為基本開(kāi)發(fā)工具， 實(shí)現(xiàn)了“部門管理系統(tǒng)”模塊，“員工基本信息管理”模塊，“ 員工考勤考評(píng) ”模塊以及“用戶管理”模塊 等。論文對(duì)系統(tǒng)的開(kāi)發(fā)進(jìn)行了需求分析，介紹了系統(tǒng)的總體設(shè)計(jì)和 各功能模塊的設(shè)計(jì)思想及具體的程序設(shè)計(jì)方法。每種新一代的軟件開(kāi)發(fā)方法的出現(xiàn)，都是因?yàn)橐郧暗能?件開(kāi)發(fā)方法中存在著局限性。企業(yè)中如何進(jìn)行人事的管理，以及使管理變的更簡(jiǎn)易更適應(yīng)企業(yè)發(fā)展更能有競(jìng)爭(zhēng)空間已值得我們重視。它的出現(xiàn)，對(duì)現(xiàn)有的企業(yè)管理是一次強(qiáng)有力的沖擊，而且對(duì)人們舊有的管理觀念產(chǎn)生了深刻的影響。 綜合人事管理系統(tǒng)是非常通用的管理信息系統(tǒng)，是企業(yè)單位實(shí)現(xiàn)辦公自動(dòng)化的前提和基礎(chǔ) [1]。從技術(shù)角度分析，這項(xiàng)開(kāi)發(fā)工作所涉及的專業(yè)技術(shù)如下 [14] [15]： 2 ⑴ 技術(shù)平臺(tái)（ Operating System：操作系統(tǒng)）： Windows系列。 ⑵ 開(kāi)發(fā)工具： Microsoft Visual Basic ⑶ 數(shù)據(jù)庫(kù)管理系統(tǒng) (DBMS)： Microsoft Access2021 具體實(shí)現(xiàn)階段主要分兩大部分進(jìn)行：數(shù) 據(jù)庫(kù)的實(shí)現(xiàn)和各種功能模塊及窗體的實(shí)現(xiàn)。 經(jīng)濟(jì)可行性 因?yàn)椴捎糜?jì)算機(jī)管理不但可以提高工作效率，而且還可以節(jié)省人力、物力、財(cái)力。故單從節(jié)省的職工工資、提高工作效率而避免各種直接或間接的經(jīng)濟(jì)損失角度來(lái)看，軟件實(shí)際能夠起到的作用會(huì)遠(yuǎn)遠(yuǎn)大于投入的開(kāi)發(fā)費(fèi)用。 操作可行性 因?yàn)殚_(kāi)發(fā)所采用的工具全是可視化工具，開(kāi)發(fā)出的應(yīng)用程序均是圖形化界面，操作員幾 乎不用記任何 DOS 命令就可以操作此軟件。所以在操作上也是可行的。 ②員工基本信息管理 包括添加員工 基本信息 、 修改員工基本信息 、 刪除員工基本信息 、 查看員工基本信息。 3 示 所謂系統(tǒng)流程就是用戶在使用系統(tǒng)是的工作過(guò)程。多用戶系統(tǒng)的工作流程都從用戶登錄開(kāi)始，對(duì)用戶 的身份進(jìn)行認(rèn)證。 （ 2） 確定用戶的類型。第 2 個(gè)過(guò)程根據(jù)用戶的類型決定戶的操作權(quán)限，從而決定用戶的工作界面。例如，必須在部門管理模塊中添加至少一個(gè)部門信息，才能添加員工的基本信息 ； 必須有一條員工的基本信息 ， 才能添加員工照片和用戶管理等。 開(kāi)始 用戶登陸 讀用戶類型 1. 管理自己的用戶信息 2. 管理普通系統(tǒng)管理員用戶信息 3. 管理普通用戶的用戶信息 1. 管理普通系統(tǒng)管理員用戶信息 2. 管理普通用戶的用戶信息 管理自己的用戶信息 擁有所有權(quán)限 只有查詢權(quán)限 Admin 用戶 管理系統(tǒng)管理員用戶 普通用戶 成功 失敗 重試 用戶管理模塊 人事管理模塊 4 Access 建立所需要的數(shù)據(jù) 庫(kù) 3． 1 創(chuàng)建數(shù)據(jù)庫(kù) [3] [10] 在設(shè)計(jì)數(shù)據(jù)庫(kù)表結(jié)構(gòu)之前，首先要?jiǎng)?chuàng)建一個(gè)數(shù)據(jù)庫(kù)。 3． 2 設(shè)計(jì)表 數(shù)據(jù)庫(kù)包括 5張表： ① 部門表 Departments， 用來(lái)保存企業(yè)部門的信息。 ② 員工基本信息表 Employees， 用來(lái)保存員工的基本信息。 ④ 員工工作考評(píng)表 Evaluation，用來(lái)保存員工工作考評(píng)信息。 及系統(tǒng)主界面設(shè)計(jì) 用戶要使用本系統(tǒng) ,首先必須通過(guò)系統(tǒng)的身份認(rèn)證 ,這個(gè)過(guò)程叫做登錄 。 設(shè)計(jì)登錄窗體 登錄窗體的名稱為 FrmLogin,它的界面布局如下圖 所示 。 1. 變量聲明 登錄窗體的變量聲明如下 : Public PasswordKey As String Public NameKey As String Public Try_times As Integer NameKey 保存用戶名 ,PasswordKey 保存密碼 ,Try_Time 記錄嘗試登錄的次數(shù) 。數(shù)據(jù)有效性檢查 If Trim(txtUser) = Then MsgBox 請(qǐng)輸入用戶名 Exit Sub End If If Trim(txtPwd) = Then MsgBox 請(qǐng)輸入密碼 Exit Sub End If 6 NameKey = MakeStr(txtUser) PasswordKey = MakeStr(txtPwd) 39。判斷密碼是否正確 (NameKey) If PasswordKey Then MsgBox 密碼錯(cuò)誤 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān) 閉 DBapi_Disconnect End Else Exit Sub End If End If 39。關(guān)閉自己 Unload Me End Sub 程序的運(yùn)行過(guò)程如下 : 判斷是否輸入了用戶名和密碼 ,如果沒(méi)有輸入 ,則返回 ,要求用戶輸入 。 調(diào)用 ()函數(shù) ,判斷當(dāng)前用戶名是否存在 .如果不存在 ,則返回 ,要求用戶重新輸入 ,同時(shí)將記數(shù)變量 Try_times 加 1。 如果 Try_times 大于或等于 3,則退出系統(tǒng) 。關(guān)閉登錄窗體 。 打開(kāi)主窗體的設(shè)計(jì)窗體，選擇“工具”菜單項(xiàng)中的“菜單編輯器”，對(duì)菜單內(nèi)容進(jìn)行編輯 。如果不能通過(guò)身份驗(yàn)證，則不能進(jìn)入系統(tǒng)。 部門管理模塊可以實(shí)現(xiàn) :系統(tǒng) 管理員可以添加部門記錄 ,修改部門記錄 ,刪除部門記錄和查看部門記錄 。 使用 TreeView 控件 [6] 為了表現(xiàn)部門間的層次結(jié)構(gòu) ,本設(shè)計(jì)中使用 TreeView 控件對(duì)部門數(shù)據(jù)進(jìn)行管理 。 關(guān)于 TreeView 控件的使用方法如下 : 選擇 “工 程 ”菜單中的 “部件 ”命令 ,打開(kāi) ”部件屬性 ”對(duì)話框 .在控件列表中 ,查找并選擇 Microsoft Windows Common Controls。 這個(gè)模塊將使用其中的 TreeView 控件 ImageList 控件 。 在這里 ImageList 控件用來(lái)為 TreeView 控件提供圖象 。 單擊 “圖象 ”選項(xiàng)卡 ,通過(guò)單擊 “插入 圖象 ”和 “刪除圖象 ”來(lái)編輯圖象列表 ,如圖 所示 。 右擊此空間 ,選擇菜單中的 ”屬性 ”命令 ,打開(kāi) ”屬性頁(yè) ”對(duì)話框 。TreeView 控件的屬性對(duì)話框如圖 所示 。在這里我們規(guī)定關(guān)鍵字的格式為 “a”加上部門編號(hào)，如果部門編號(hào)為 1，則此部門在 TreeView 控件中的關(guān)鍵字為 “a1”。它的功能是把所有的部門名稱按照上下級(jí)關(guān)系添加到 TreeView 控件 中。 創(chuàng)建一個(gè)新的窗體 ,參照前面的方法設(shè)置窗體屬性 。 窗體 FrmDepEdit 的布局如 圖 所示 ： 圖 編輯部門信息 需注意的是此窗體過(guò)程代碼中全局變量 Modify 用來(lái)標(biāo) 記當(dāng)前的數(shù)據(jù)庫(kù)訪問(wèn)狀態(tài)。 Cmd_OK_Click()過(guò)程：當(dāng)用戶單擊 “確定 ”按鈕時(shí)，觸發(fā) Cmd_Ok_Click 事件，對(duì)應(yīng)代碼如下： Private Sub Cmd_OK_Click() If Trim(txtDep) = Then MsgBox 請(qǐng)輸入部門名稱 Exit Sub End If 39。插入 If .In_DB(.DepName, .UpperId) = True Then MsgBox Trim(txtDep) + 已經(jīng)存在 Exit Sub End If 39。當(dāng)插入新記錄時(shí)，新記錄將做為當(dāng)前部門的下級(jí)部門 11 .UpperId = Bh = .Insert 39。設(shè)置結(jié)點(diǎn)的圖像 = 1 = 2 = 3 39。修改 If Trim(txtDep) Then If .In_DB(Trim(txtDep), .UpperId) = True Then MsgBox Trim(txtDep) + 已經(jīng)存在 Exit Sub End If End If 39。設(shè)置 CurDep 變量 = Trim(txtDep) End If End With 39。插入數(shù)據(jù)時(shí)調(diào)用 ()過(guò)程 ,修改數(shù)據(jù)時(shí)調(diào)用 ()過(guò)程 。 SelectedItem屬性表示當(dāng)前選中的節(jié)點(diǎn) 。 12 部門管理窗體的布局如 圖 ： 圖 部門管理設(shè)計(jì) 再在代碼窗體中填寫(xiě)對(duì)應(yīng)的代碼。 其中當(dāng)用戶單擊“刪除”按鈕時(shí)，觸發(fā) Cmd_Del_Click事件。當(dāng)用戶單擊部門列表時(shí)，觸發(fā) TreeView 1_Click 事件。 設(shè)計(jì)選擇部門窗體 為了方便 用戶 在其他模塊中選擇部門 ,在此設(shè)計(jì)一個(gè)選擇部門窗體 ,窗體名為FrmDepSet。 圖 選擇部門窗體 “ 選擇部門 ” 窗體與 ” 部門窗體 ” 的界面相似 ,也需要使用 TreeView 控件來(lái)顯示部門 。 “ 選擇部門 ” 窗體中的很多代碼與 ” 部門管理 ” 窗體中的代碼相同 。將選擇部門的數(shù)據(jù)保存在 CurDep 變量中 = () Unload Me End Sub 在其他模塊中 ,可以從 CurDep 變量中得到選擇部門的數(shù) 據(jù) 。 為了方便用戶在其他模塊中選擇員工 ,可以設(shè)計(jì)選擇員工窗體 ,窗體名為 FrEmpSel。在窗體 FrEmpSel 中，使用 TreeView和 ImageList