【正文】 Exit Sub End If If = Then MsgBox 部門描述不能為空,請(qǐng)輸入部門描述!, vbInformation + vbOKOnly, 信息不完整 Exit Sub End If If = Then MsgBox 部門錄入人不能為空,請(qǐng)輸入部門錄入人!, vbInformation + vbOKOnly, 信息不完整 Exit Sub End If Set Dep = Nothing 39。33 部門信息管理界面在此窗體中即可實(shí)現(xiàn)對(duì)部門信息的管理工作，（1） 點(diǎn)擊“添加”按鈕，即可彈出“添加部門”(frmAddDep)窗體，如圖34所示：圖34 部門添加界面在窗體中輸入需要更改的信息后，點(diǎn)擊“添加”按扭后，添加信息，如想取消輸入則點(diǎn)擊清除按扭即可，然后點(diǎn)擊“關(guān)閉”按鈕退出添加窗體（2）點(diǎn)擊“刪除”按鈕點(diǎn)擊“刪除”按鈕后，彈出“部門信息刪除”（frmDeleteDep）窗體，如圖35所示：圖35 刪除部門信息界面在列表中點(diǎn)擊要?jiǎng)h除的信息后，點(diǎn)擊“刪除”按鈕，即可刪除信息，點(diǎn)擊“關(guān)閉”關(guān)閉窗體。對(duì)部門信息進(jìn)行管理，即對(duì)部門信息進(jìn)行增加、刪除、修改操作，從而實(shí)現(xiàn)對(duì)部門信息的管理工作。 ).depDateIn = (K_ amp。 ).depMaster = (K_ amp。 ).DepID = (K_ amp。如果沒(méi)有查找到相關(guān)信息，則會(huì)彈出“錯(cuò)誤揭示”消息框，并顯示“您所查找的部門不存在,請(qǐng)重新查找!”點(diǎn)擊確定后，重新輸入進(jìn)行查找。在窗體中添加一個(gè)部門信息查詢的窗體，取名為frmDepQuery .frm,并為frmDepQuery .frm窗體進(jìn)行菜單的設(shè)計(jì)和代碼的設(shè)計(jì)。在此表中，以部門編碼字段為該表的主關(guān)鍵字（Primary Key，PK），它唯一標(biāo)識(shí)了每一個(gè)部門的記錄， 其詳表如下表所示：表31 Department表字段名類型寬度備注部門編碼文本7主關(guān)鍵字部門名稱文本10不能為空部門主管數(shù)字長(zhǎng)整型不能為空，對(duì)應(yīng)于Department表id字段部門描述文本200可以為空錄入時(shí)間日期/時(shí)間10可以為空錄入人文本8可以為空 程序的實(shí)現(xiàn)在主菜單中，設(shè)計(jì)了三個(gè)根菜單，“人事信息管理”，“系統(tǒng)維護(hù)”和“雜項(xiàng)”。 模塊的整體流程根據(jù)大多數(shù)中小企業(yè)的管理流程，結(jié)合上述的功能，模塊的整體流程如圖31所示：登錄用戶通過(guò)驗(yàn)證程序主窗口對(duì)現(xiàn)有部門的信息進(jìn)行管理（包括添加、修改、刪除）查詢現(xiàn)有部門的相關(guān)信息重新登錄查詢幫助信息圖31 部門管理模塊總體流程圖 數(shù)據(jù)庫(kù)的設(shè)計(jì)本次設(shè)計(jì)所用的數(shù)據(jù)庫(kù)為Access，在名為HR的數(shù)據(jù)庫(kù)中建立了一個(gè)表，名字為Department，可以在程序中對(duì)其進(jìn)行調(diào)用。（2）在操作方面在此部分中，用戶可以根據(jù)管理中的不同需求，對(duì)部門信息進(jìn)行調(diào)整，即可以執(zhí)行添加、刪除和修改基本信息的操作，以適應(yīng)管理上的需求。在組織所劃分的這些部門中，它們既相互獨(dú)立，又相互協(xié)作，不同的部門擁有不同的工作內(nèi)容，承擔(dān)著不同的職責(zé)，擁有不同的權(quán)限，需完成組織特定方面的工作，各部門又相互協(xié)作，共同完成組織方方面面的工作，從而實(shí)現(xiàn)組織的目標(biāo)，因此對(duì)部門的信息進(jìn)行管理就顯必不可少了。3部門信息管理每個(gè)企業(yè)因其企業(yè)性質(zhì)及管理模式的不同，組織結(jié)構(gòu)也不盡相同，因此部門的劃分方法及細(xì)化程度也不一樣。 是: 修改/否:不修改, vbInformation + vbYesNo, 安全提示) = vbYes Then = Exit Sub End If End If If = Then MsgBox 用戶權(quán)限不能為空,請(qǐng)輸入用戶權(quán)限., vbInformation + vbOKOnly, 信息不完整 Exit Sub End If = Trim() = Trim() = Trim() User = (1).Text = 39。 , ) , , , , = False = False = False = FalseEnd Sub（2）刪除用戶Private Sub cmdDelete_Click() Call ClearInfoEnd Sub（3）修改用戶 If = Then MsgBox 用戶名不能為空,請(qǐng)輸入用戶名., vbInformation + vbOKOnly, 信息不完整 Exit Sub End If If = Then MsgBox 用戶口令不能為空,請(qǐng)輸入用口令., vbInformation + vbOKOnly, 信息不完整 Exit Sub End If If Len(Trim()) 6 Then If MsgBox(用戶口令長(zhǎng)度小于6位,建議使用長(zhǎng)度大于6位的口令! amp。 vbCrLf amp。其字段結(jié)構(gòu)如表31所示：表21 用戶管理表（Admin）字段名字段說(shuō)明類型寬度備注用戶名稱管理員名文本10主關(guān)鍵字用戶權(quán)限管理員權(quán)限文本8不能為空密碼管理員密碼文本8不能為空 程序的實(shí)現(xiàn) 操作方法當(dāng)用戶以Administrator用戶登錄窗體后，點(diǎn)擊“系統(tǒng)維護(hù)”菜單中的“系統(tǒng)用戶管理”項(xiàng)后，則出現(xiàn)如圖23所示的“系統(tǒng)用戶管理”窗體。登陸界面如圖所示：圖21 登陸界面（2） 添加新用戶因?yàn)槠髽I(yè)信息管理的工作量較大，因此需要參與的各層管理人員也會(huì)相應(yīng)的增加，所以我專門增加了一些管理人員，以適應(yīng)企業(yè)管理的需求，通過(guò)點(diǎn)擊操作界面上的“系統(tǒng)維護(hù)”菜單中的“系統(tǒng)用戶管理”，就可以進(jìn)入下圖的界面，從而實(shí)現(xiàn)對(duì)用戶的添加，刪除，修改操作。Administrator用戶是管理員用戶，可以在系統(tǒng)用戶管理中，增加相應(yīng)的用戶，并且指定用戶的權(quán)限（即擁有添加、刪除、修改系統(tǒng)信息的權(quán)限）；User用戶為普通用戶，只能對(duì)系統(tǒng)信息瀏覽。2系統(tǒng)用戶管理模塊 開發(fā)前提一般在開發(fā)一個(gè)數(shù)據(jù)庫(kù)系統(tǒng)時(shí)，需要設(shè)置操作人員，而這些操作人員的身份也有所不同，那么他們就可以根據(jù)各自不同的身份利用本系統(tǒng)來(lái)進(jìn)行不同的操作。正文 我開發(fā)的中小企業(yè)“人事信息管理系統(tǒng)”軟件主要由系統(tǒng)用戶管理、部門管理、員工管理、工資管理、數(shù)據(jù)管理和和幫助六個(gè)模塊組成。即用戶可輸入所要備份數(shù)據(jù)文件及恢復(fù)數(shù)據(jù)文件的完整保存路徑，包括保存文件名，并為此次操作起一個(gè)別名，點(diǎn)擊備份即可。在工資信息查詢功能中，用戶可以在表中選擇所列出的員工編碼和工資月份，選擇相應(yīng)的員工編碼和工資月份，點(diǎn)擊查詢進(jìn)行查詢；在工資信息管理窗口中，根據(jù)表中已經(jīng)列出的當(dāng)前數(shù)據(jù)庫(kù)中的所有員工工資信息，選擇需處理的員工信息，然后點(diǎn)擊相應(yīng)的操作按鈕，如添加，刪除，修改等，然后進(jìn)行操作，點(diǎn)擊確定按鈕即可實(shí)現(xiàn)相應(yīng)的功能。 課題解決的主要問(wèn)題首先簡(jiǎn)要陳述一下我設(shè)計(jì)的中小型“企業(yè)人事信息管理系統(tǒng)”軟件主要解決的幾方面問(wèn)題：（1） 在“系統(tǒng)用戶管理模塊”中，完成系統(tǒng)用戶的添加、用戶密碼的修改操作；（2） 在“部門管理模塊”中，用戶可根據(jù)所在企業(yè)部門的劃分及變動(dòng)情況，實(shí)現(xiàn)對(duì)企業(yè)部門信息的查詢，添加，修改，刪除工作。（4） 操作簡(jiǎn)便軟件使用直觀的圖形界面，即見既得的錄入格式、方便的錄入方式，電腦操作與手工處理流程完全一致，任何人員可在極短時(shí)間內(nèi)無(wú)師自通。（2） 簡(jiǎn)化工作流程大大的提高了人事系統(tǒng)的的辦事效率，從而節(jié)省了大量的人力、物力和財(cái)力等資源。應(yīng)用軟件在當(dāng)前居于主流且技術(shù)領(lǐng)先系統(tǒng)平臺(tái)上設(shè)計(jì)，并且安裝簡(jiǎn)單。在符合管理需要的條件下，使操作簡(jiǎn)單、便捷。 軟件設(shè)計(jì)所能達(dá)到的技術(shù)參數(shù)本次軟件開發(fā)的工具是Visual Basic ，數(shù)據(jù)環(huán)境使用的是Microsoft Access 2000。而實(shí)現(xiàn)企業(yè)信息化的管理，能夠提高企業(yè)管理質(zhì)量、減輕企業(yè)人事管理部門的壓力。面對(duì)越來(lái)越大的信息量，就需要使用“小型企業(yè)人事管理系統(tǒng)”來(lái)提高整個(gè)企業(yè)的管理工作效率。在這個(gè)系統(tǒng)的設(shè)計(jì)中我使用了功能強(qiáng)大的Visual Basic ，Microsoft Access 2000作為數(shù)據(jù)庫(kù)管理系統(tǒng)，該系統(tǒng)實(shí)現(xiàn)了較為簡(jiǎn)單的人事信息管理，其中包括部門管理，員工管理，工資管理等功能。中小型企業(yè)“人事信息管理系統(tǒng)”設(shè)計(jì)摘要隨著市場(chǎng)競(jìng)爭(zhēng)的加劇，中小型企業(yè)要想在激烈的競(jìng)爭(zhēng)中立于不敗之地，就要不斷的加強(qiáng)管理，信息量也就不可避免增加很多，以往的管理模式已不再適應(yīng)現(xiàn)在社會(huì)經(jīng)濟(jì)發(fā)展的需求和企業(yè)對(duì)信息的需求，擁有一套能夠?qū)ζ髽I(yè)人事信息進(jìn)行系統(tǒng)管理的應(yīng)用軟件，就顯得猶為得要。在畢業(yè)設(shè)計(jì)期間，我根據(jù)中小型企業(yè)自身的特點(diǎn)，設(shè)計(jì)了一套經(jīng)濟(jì)型的信息管理系統(tǒng)。本系統(tǒng)設(shè)計(jì)適用于中小型企業(yè)的人事系統(tǒng)管理，在一定程序上提高了企業(yè)的管理效率，規(guī)范了管理，減輕人事管理部門的壓力，將人們從繁重而單一的工作中解放出來(lái)，從而進(jìn)一步提高了小型企業(yè)人事信息管理的工作效率，以下為我關(guān)鍵詞：數(shù)據(jù)庫(kù)，模塊，部門管理，員工管理，工資管理Abstract目 錄1前言 課題的意義、目的 課題研究的范圍 軟件設(shè)計(jì)所能達(dá)到的技術(shù)參數(shù) 課題解決的主要問(wèn)題正文2系統(tǒng)用戶管理模塊 開發(fā)前提 模塊的建立 模塊的整體流程 數(shù)據(jù)庫(kù)的設(shè)計(jì) 程序的實(shí)現(xiàn) 操作方法（1）添加用戶（2）刪除用戶（3）修改用戶 得出的結(jié)果以及對(duì)結(jié)果的討論3部門信息管理 模塊的整體流程 數(shù)據(jù)庫(kù)的設(shè)計(jì) 程序的實(shí)現(xiàn) 部門信息查詢的操作方法：（1）彈出部門查詢窗休（2）實(shí)現(xiàn)查詢功能的代碼如下（1）彈出部門管理窗體（）的代碼（2）實(shí)現(xiàn)部門管理中的添加、刪除、修改功能的代碼4員工信息管理 模塊的整體流程、刪除、修改代碼實(shí)現(xiàn)5工資信息管理5．2模塊的建立6數(shù)據(jù)管理（1）數(shù)據(jù)備份操作方法（2）數(shù)據(jù)備份代碼實(shí)現(xiàn)（1）數(shù)據(jù)恢復(fù)的操作方法（2）數(shù)據(jù)恢復(fù)代碼的實(shí)現(xiàn)7 結(jié)論 進(jìn)一步加強(qiáng)了對(duì)數(shù)據(jù)庫(kù)技術(shù)的認(rèn)識(shí) 存在的問(wèn)題 以后的努力方向8 致謝9參考文獻(xiàn)1前言 課題的意義、目的隨著市場(chǎng)競(jìng)爭(zhēng)的加劇，有關(guān)企業(yè)人事管理的各項(xiàng)信息量也成倍增長(zhǎng)。 課題研究的范圍因?yàn)橛?jì)算機(jī)及其應(yīng)用軟件的不斷發(fā)展，使得企業(yè)信息化管理已經(jīng)越來(lái)越得到重視。那么就我設(shè)計(jì)的“中小型企業(yè)人事信息管理系統(tǒng)”軟件具體的講，就是要做到對(duì)企業(yè)人事信息的規(guī)范化管理、和快速的查詢，從而減少管理方面的工作量。充分考慮到實(shí)際情況，使得開發(fā)的應(yīng)用系統(tǒng)具有較好的維護(hù)性。而且采用了功能強(qiáng)大的數(shù)據(jù)庫(kù)系統(tǒng)，適應(yīng)大規(guī)模數(shù)據(jù)處理的要求。我設(shè)計(jì)的“中小型企業(yè)人事信息管理系統(tǒng)”具有以下幾個(gè)特點(diǎn)：（1） 查詢方便提供信息重組功能，將離散、單一的信息通過(guò)有機(jī)的結(jié)合，向使用者提供的數(shù)據(jù)更加快速、有效和準(zhǔn)確。（3） 實(shí)用性強(qiáng)軟件充分滿足中小型企業(yè)的不同管理需求，且操作簡(jiǎn)單，易于維護(hù)，便于保存和傳閱。（5）功能齊全可以隨時(shí)查詢或統(tǒng)計(jì)企業(yè)員工的各種資料。（3） 在“員工管理模塊”中，可以實(shí)現(xiàn)對(duì)所在企業(yè)員工基本信息的錄入，根據(jù)不同的身份給予不同的使用權(quán)限，實(shí)現(xiàn)對(duì)員工基本信息的添加、編輯和刪除操作；（4） 在“工資管理模塊”中，分為工資信息查詢和工資信息管理。 （5） 在“數(shù)據(jù)管理模塊”中，實(shí)現(xiàn)對(duì)數(shù)據(jù)的備份及恢復(fù)功以。備份或恢復(fù)成功后會(huì)有相應(yīng)的成功提示信息出現(xiàn)。以下為我對(duì)這幾個(gè)模塊的整個(gè)開發(fā)過(guò)程。而本模塊的作用就在于：利用系統(tǒng)初始設(shè)置的兩個(gè)用戶名和密碼登錄后（Administrator用戶和User用戶），可根據(jù)不同的權(quán)限對(duì)系統(tǒng)擁有不同的操作權(quán)限。 模塊的建立根據(jù)本系統(tǒng)的需求，結(jié)合實(shí)際系統(tǒng)管理情況，本模塊應(yīng)作如下的細(xì)化：（1） 用戶登錄界面在安裝好本系統(tǒng)后，首次使用時(shí)利用系統(tǒng)初始設(shè)置的用戶名和密碼登錄，即后進(jìn)入系統(tǒng)用戶管理窗體，后可添加，刪除，修改用戶。 模塊的整體流程登錄系統(tǒng)通過(guò)驗(yàn)證系統(tǒng)管理模塊主窗體添加新用戶刪除用戶修改用戶重新登錄圖22式模塊整體流程 數(shù)據(jù)庫(kù)的設(shè)計(jì)本次設(shè)計(jì)的系統(tǒng)使用的是Access 2000作為數(shù)據(jù)庫(kù)管理系統(tǒng)，在Access中，新建一個(gè)數(shù)據(jù)庫(kù)，將其命名為“”，在新建的數(shù)據(jù)庫(kù)中建立一個(gè)名為SystemUser的表，表中用戶名為關(guān)鍵字，唯一標(biāo)識(shí)出表中的記錄。圖23 系統(tǒng)用戶管理界面（1）添加系統(tǒng)用戶：點(diǎn)擊添加按鈕，輸入相應(yīng)的用戶名稱，用戶權(quán)限和用戶口令（最好不少于6位），再點(diǎn)擊保存即可；（2）刪除系統(tǒng)用戶：在列表中選擇要?jiǎng)h除的用戶，之后再點(diǎn)擊刪除索按鈕即可；（3）修改系統(tǒng)用戶：再列表中選擇要修改的用戶，然后點(diǎn)擊圖片，修改用戶信息