【導(dǎo)讀】管理信息系統(tǒng)課程設(shè)計報告。企業(yè)人事管理子系統(tǒng)。指導(dǎo)教師郝昕玉、馬如宏。完成日期2021年7月5日

　　

【正文】 數(shù)據(jù)庫的備份功能，在信息資料丟失時，對系統(tǒng)進行數(shù)據(jù)庫的恢復(fù)就可以使數(shù)據(jù)庫正常工作。故數(shù)據(jù)庫的備份是非常重要的，本系統(tǒng)的數(shù)據(jù)備份和恢復(fù)很簡單，建議具 有權(quán)限的操作人員多進行數(shù)據(jù)備份，以保證數(shù)據(jù)安全。 本系統(tǒng)是個較簡單的管理系統(tǒng)，由于系統(tǒng)外部環(huán)境與內(nèi)部因素的變化，不斷影響系統(tǒng)工業(yè)工程專業(yè) 2021 級課程設(shè)計 23 的運行，同時需要系統(tǒng)不斷地適應(yīng)這些變化，不斷地完善系統(tǒng)，以提高系統(tǒng)運行的效率與服務(wù)水平，這就需要自始至終進行系統(tǒng)的維護工作。系統(tǒng)的維護主要包括四個方面： (1) 程序的維護：指的是修改部分或全部程序，這部分維護往往是在條件發(fā)生變化或原系統(tǒng)的效率低的情況下進行的，同時也是由專業(yè)人員來做的工作。 (2) 數(shù)據(jù)文件的維護：指的是按照用戶的要求對數(shù)據(jù)文件進行不定期的修改。 (3) 代碼的維護： 隨著系統(tǒng)的發(fā)展和變化，可能會出現(xiàn)舊代碼不能適應(yīng)新要求的問題，因此，有必要變更代碼，予以維護。 (4) 硬件的維護：硬件維護需要就由專職的硬件維護人員負責(zé)，分為定期設(shè)備保養(yǎng)性維護，突發(fā)性的故障維護。 第 8 章 總結(jié) 總結(jié) 通過這次的實習(xí)和畢業(yè)設(shè)計，我 們 經(jīng)歷了開發(fā)一個管理信息系統(tǒng)最基本思路與基本步驟，從開始的需求分析，系統(tǒng)分析，系統(tǒng)模塊設(shè)計， 到 具體的編程開發(fā)。都是按照系統(tǒng)開發(fā)的正規(guī)化步驟進行。同時在這次系統(tǒng)開發(fā)的過程中還是遇到了不少原來未能預(yù)料的困難，由于技術(shù)上的原因和最初構(gòu)想不夠周全，開發(fā)經(jīng)驗不足，加 上時間很緊迫，不能完全把最初的所有設(shè)想完全在最后實現(xiàn)。本系統(tǒng)只能是實現(xiàn)了很簡單的基本功能，該系統(tǒng)的工資管理功能也不是很完善 ， 由于個人技術(shù)原因，沒有達到預(yù)想效果 。 因此本系統(tǒng)在用戶操作、功能需求上還存在著多方面不足。希望在 以后的自主學(xué)習(xí)中，能有更多的收獲 。 參考文獻 [1] 安忠 、吳洪波 . 管理信息系統(tǒng) . 中國鐵道出版社， [2] 王晟、鄧遠輝 . PowerBuilde 數(shù)據(jù)庫開發(fā)經(jīng)典案例解析 . 北京：清華大學(xué)出版社， [3] 張基溫 . 信息系統(tǒng)開發(fā)案例 第三輯 . 北京：清華大學(xué)出版社 出版， [4] 薛華成 . 管理信息系統(tǒng) . 北京：清華大學(xué)出版社， [5] 黃梯云 . 管理信息系統(tǒng) . 北京：高等教育出版社， [6] 傅湘玲 . 企業(yè)信息化集成原理 理論與案例 .北京：北京郵電大學(xué) . [7] 林忠、金延平 . 人事管理 . 大連： 東北財經(jīng)大學(xué)出版社， 工業(yè)工程專業(yè) 2021 級課程設(shè)計 24 附錄 I 使用說明書 一、運行環(huán)境 操作系統(tǒng)： Windows NT/XP/7 硬件配置： CPU：奔騰 667Mhz 以上 內(nèi)存： 64MB 以上 硬盤： 2G 以上空余空間 顯示設(shè)備：標(biāo)準(zhǔn) VGA， 256色 ,880*600 顯示模式以上 其它設(shè)備：鼠標(biāo)，鍵盤 軟件配置：安裝 Microsoft Office Access 2021 數(shù)據(jù)庫 二、操作說明 1．登陸 通過下圖的登陸界面進入企業(yè) 人事管理系統(tǒng)，每個用戶有自己的用戶名和密碼。其登陸界面如下： 圖 2 登錄界面 2．主界面 當(dāng)輸入的用戶名和密碼都正確時即可進入系統(tǒng)的主界面，從而進行相關(guān)的操作，其圖如下： 工業(yè)工程專業(yè) 2021 級課程設(shè)計 25 圖 3 系統(tǒng)主界面 由于系統(tǒng)有許多操作類似的模塊，所以在這就簡單的介紹一下該系統(tǒng)的使用說明，類似的就不再一一 介紹。以下即為系統(tǒng)功能模塊 的一些具體使用說明。 3． 員工信息管理 （ 1）員工信息維護 單擊【員工信息管理】，再點擊【員工信息維護】，進入如下的界 面。點擊【添加 】在彈出的職員信息編輯窗口中填寫相關(guān)的信息，點擊【保存】即可保存相關(guān)的信息；若要修改應(yīng)聘人員錄用的信息，則選中要修改的記錄，點擊【修改】修改相關(guān)的信息，點擊【保存】即可修改相關(guān)的信息；點擊【查詢】按鈕，在彈出的員工信息查詢窗口中，選擇要查詢的條件，點擊【查詢】即可查看要檢索的記錄，這里的查詢條件是并列的；若要刪除相關(guān)的記錄，則選中要刪除的記錄，點擊【 刪除】，在彈出的對話框中，點擊【是】即可刪除。 工業(yè)工程專業(yè) 2021 級課程設(shè)計 26 工業(yè)工程專業(yè) 2021 級課程設(shè)計 27 圖 1 員工信息維護 圖 2 員工信息查詢 4．系統(tǒng)管理 （ 1）用戶管理 單擊【系統(tǒng)管理】，再點擊【用戶管理】，在彈出的窗口中，點擊【新增】填寫相關(guān)的信息后，點擊【保存】即可增加新的用戶；若要刪除用戶，選中要刪除的用戶，點擊【刪除】，在彈出的對話框中，點擊【是】即可；點擊【退出】則退出當(dāng)?shù)拇翱凇? （ 2）修改密碼 單擊【系統(tǒng) 設(shè)置 】，再點 擊【修改密碼】，在彈出的窗口中，按要求填寫相關(guān)的內(nèi)容，點擊【確認 】即可，如下界面。 工業(yè)工程專業(yè) 2021 級課程設(shè)計 28 圖 5 密碼 修改 工業(yè)工程專業(yè) 2021 級課程設(shè)計 29 附錄 II 系統(tǒng)部分源代碼 1. 登錄界面源代碼： Private Sub Login_Click() Dim StrSQL As String UN = PW = If UN And PW Then StrSQL = select UserName,Password,UserPermissions from Admin where UserName= 39。 amp。 UN amp。 39。and Password =39。 amp。 PW amp。 39。 If = adStateClosed Then StrSQL, DTCON, adOpenKeyset, adLockPessimistic, adCmdText End If Group = (2).Value If 0 Then If Group Administrator Then Call CheckLogin End If Unload Me Else MsgBox 用戶名或密碼錯誤，請重新輸入！ , 64, 提示信息 End If Else MsgBox 用戶 名或密碼不能為空，請?zhí)顚懲暾?, 64, 提示信息 工業(yè)工程專業(yè) 2021 級課程設(shè)計 30 End If End Sub 2. 修改用戶密碼模塊代碼： Private Sub CmdOk_Click() Dim StrSQL As String StrSQL = select UserName,Password from Admin where UserName= 39。 amp。 Trim() amp。 39。and Password =39。 amp。 Trim() amp。 39。 If Trim() Empty And Trim() Empty And Trim() Empty Then If = adStateClosed Then StrSQL, DTCON, adOpenKeyset, adLockPessimistic, adCmdText End If If 0 Then (1).Value = Trim() MsgBox 恭喜您密碼修改成功！ , , 密碼修改 Unload Me Else MsgBox 很抱歉，用戶名不存在或原密碼輸入錯誤，請重新輸入！ , vbExclamation, 驗證失敗 End If Else MsgBox 請輸入要修改的用戶名及密碼！ , vbInformation, 錯誤提示 End If End Sub 工業(yè)工程專業(yè) 2021 級課程設(shè)計 31 3. 刪除用戶模塊代碼 ： Private Sub CmdDelUser_Click() Dim StrSQL As String StrSQL = select UserName,Password from Admin where UserName= 39。 amp。 Trim() amp。 39。and Password =39。 amp。 Trim() amp。 39。 If = adStateClosed Then StrSQL, DTCON, adOpenKeyset, adLockPessimistic, adCmdText End If If Trim() Empty And Trim() Empty Then If 0 Then If MsgBox(確定刪除該用戶？ , vbInformation + vbYesNo, 刪除用戶 ) = vbYes Then MsgBox 該用戶刪除成功！ , , 刪除成功 Unload Me End If Else MsgBox 該用戶不存在或用戶口令輸入錯誤，請重新輸入！ , , 提示信息 End If Else MsgBox 請輸入要刪除的用戶名及密碼！ , vbInformation + vbOKOnly, 提示信息 End If End Sub 4. 添加用戶模塊代碼： 工業(yè)工程專業(yè) 2021 級課程設(shè)計 32 Private Sub CmdOk_Click() If Trim() And Trim() And Trim() Then If Trim() = Trim() Then On Error GoTo ErrAddUser (0).Value = Trim() (1).Value = Trim() (2).Value = Trim() MsgBox 用戶添加成功 , , 提示信息 Unload Me Else MsgBox 兩次輸入的密碼不一致，請重新輸入 , 64, 提示信息 End If Else MsgBox 請輸入要添加的用戶名和密碼 , 64, 提示信息 End If Exit Sub ErrAddUser: MsgBox 用戶已存在 , 64, 提示信息 End Sub ： 添加按鈕源代碼： Private Sub CmdAdd_Click() 工業(yè)工程專業(yè) 2021 級課程設(shè)計 33 Call FormTxtValue2 Call TxtState Call CmdState1 If = adStateClosed Then 部門管理 , DTCON, adOpenKeyset, adLockPessimistic, adCmdTable End If Set = RsBranch = 部門名稱 = 部門名稱 If = adStateClosed Then 員工職務(wù) , DTCON, adOpenKeyset, adLockPessimistic, adCmdTable End If Set = RstTitle = 員工職務(wù) = 員工職務(wù) End Sub 編輯按鈕源代碼： Private Sub CmdEdit_Click() If 0 Then Call CmdState1 Call TxtState Else MsgBox 當(dāng)前沒有任何記錄可以編輯！ , , 提示信息 End If End Sub 工業(yè)工程專業(yè) 2021 級課程設(shè)計 34 刪除按鈕源代碼： Private Sub CmdDel_Click() If MsgBox(確定要刪除嗎？ , vbInformation + vbYesNo, 刪除信息 ) = vbYes Then If 0 Then