中小型企業(yè)人事信息管理系統(tǒng)設(shè)計范本

1、河南理工大學(xué)本科畢業(yè)設(shè)計（論文）中小型企業(yè)“人事信息管理系統(tǒng)”設(shè)計摘要隨著市場競爭的加劇，中小型企業(yè)要想在激烈的競爭中立于不敗之地，就要不斷的加強管理，信息量也就不可避免增加很多，以往的管理模式已不再適應(yīng)現(xiàn)在社會經(jīng)濟發(fā)展的需求和企業(yè)對信息的需求，擁有一套能夠?qū)ζ髽I(yè)人事信息進行系統(tǒng)管理的應(yīng)用軟件，就顯得猶為得要。在畢業(yè)設(shè)計期間，我根據(jù)中小型企業(yè)自身的特點，設(shè)計了一套經(jīng)濟型的信息管理系統(tǒng)。在這個系統(tǒng)的設(shè)計中我使用了功能強大的作為軟件開發(fā)工具，Microsoft Access 2000作為數(shù)據(jù)庫管理系統(tǒng)，該系統(tǒng)實現(xiàn)了較為簡單的人事信息管理，其中包括部門管理，員工管理，工資管理等功能。本系統(tǒng)設(shè)計適用于

2、中小型企業(yè)的人事系統(tǒng)管理，在一定程序上提高了企業(yè)的管理效率，規(guī)范了管理，減輕人事管理部門的壓力，將人們從繁重而單一的工作中解放出來，從而進一步提高了小型企業(yè)人事信息管理的工作效率，以下為我關(guān)鍵詞：數(shù)據(jù)庫，模塊，部門管理，員工管理，工資管理Abstract目 錄1前言1.1 課題的意義、目的1.2 課題研究的范圍1.3 軟件設(shè)計所能達到的技術(shù)參數(shù)1.4 課題解決的主要問題正文2系統(tǒng)用戶管理模塊2.1 開發(fā)前提2.2 模塊的建立2.3 模塊的整體流程2.4 數(shù)據(jù)庫的設(shè)計2.5 程序的實現(xiàn) 2.5.1 操作方法代碼的實現(xiàn)（1）添加用戶（2）刪除用戶（3）修改用戶2.6 得出的結(jié)果以及對結(jié)果的討論3部

3、門信息管理模塊開發(fā)前提模塊的建立 3.3 模塊的整體流程3.4 數(shù)據(jù)庫的設(shè)計3.5 程序的實現(xiàn)部門信息查詢3.5.1.1 部門信息查詢的操作方法：代碼的實現(xiàn)（1）彈出部門查詢窗休（2）實現(xiàn)查詢功能的代碼如下部門信息管理部門信息管理的操作方法代碼實現(xiàn)（1）彈出部門管理窗體（）的代碼（2）實現(xiàn)部門管理中的添加、刪除、修改功能的代碼4員工信息管理模塊開發(fā)前提模塊的建立4.3 模塊的整體流程數(shù)據(jù)庫設(shè)計程序的實現(xiàn)員工信息查詢員工信息查詢的操作方法代碼實現(xiàn)員工信息管理員工信息管理的操作方法員工管理中的添加、刪除、修改代碼實現(xiàn)5工資信息管理模塊開發(fā)前提52模塊的建立模塊的整體流程數(shù)據(jù)庫的設(shè)計程序的實現(xiàn)工資信

4、息查詢工資信息查詢的操作方法代碼實現(xiàn)工資信息管理工資信息管理的操作方法代碼實現(xiàn)6數(shù)據(jù)管理開發(fā)前提程序的實現(xiàn)數(shù)據(jù)備份（1）數(shù)據(jù)備份操作方法（2）數(shù)據(jù)備份代碼實現(xiàn)數(shù)據(jù)恢復(fù)（1）數(shù)據(jù)恢復(fù)的操作方法（2）數(shù)據(jù)恢復(fù)代碼的實現(xiàn)7 結(jié)論取得的成果簡便的操作方法7.1.2 進一步加強了對數(shù)據(jù)庫技術(shù)的認識7.2 存在的問題7.3 以后的努力方向8 致謝9參考文獻1前言1.1 課題的意義、目的隨著市場競爭的加劇，有關(guān)企業(yè)人事管理的各項信息量也成倍增長。面對越來越大的信息量，就需要使用“小型企業(yè)人事管理系統(tǒng)”來提高整個企業(yè)的管理工作效率。1.2 課題研究的范圍因為計算機及其應(yīng)用軟件的不斷發(fā)展，使得企業(yè)信息化管理已經(jīng)

5、越來越得到重視。而實現(xiàn)企業(yè)信息化的管理，能夠提高企業(yè)管理質(zhì)量、減輕企業(yè)人事管理部門的壓力。那么就我設(shè)計的“中小型企業(yè)人事信息管理系統(tǒng)”軟件具體的講，就是要做到對企業(yè)人事信息的規(guī)范化管理、和快速的查詢，從而減少管理方面的工作量。1.3 軟件設(shè)計所能達到的技術(shù)參數(shù)本次軟件開發(fā)的工具是，數(shù)據(jù)環(huán)境使用的是Microsoft Access 2000。充分考慮到實際情況，使得開發(fā)的應(yīng)用系統(tǒng)具有較好的維護性。在符合管理需要的條件下，使操作簡單、便捷。而且采用了功能強大的數(shù)據(jù)庫系統(tǒng)，適應(yīng)大規(guī)模數(shù)據(jù)處理的要求。應(yīng)用軟件在當前居于主流且技術(shù)領(lǐng)先系統(tǒng)平臺上設(shè)計，并且安裝簡單。我設(shè)計的“中小型企業(yè)人事信息管理系統(tǒng)”具

6、有以下幾個特點：（1） 查詢方便提供信息重組功能，將離散、單一的信息通過有機的結(jié)合，向使用者提供的數(shù)據(jù)更加快速、有效和準確。（2） 簡化工作流程大大的提高了人事系統(tǒng)的的辦事效率，從而節(jié)省了大量的人力、物力和財力等資源。（3） 實用性強軟件充分滿足中小型企業(yè)的不同管理需求，且操作簡單，易于維護，便于保存和傳閱。（4） 操作簡便軟件使用直觀的圖形界面，即見既得的錄入格式、方便的錄入方式，電腦操作與手工處理流程完全一致，任何人員可在極短時間內(nèi)無師自通。（5）功能齊全可以隨時查詢或統(tǒng)計企業(yè)員工的各種資料。1.4 課題解決的主要問題首先簡要陳述一下我設(shè)計的中小型“企業(yè)人事信息管理系統(tǒng)”軟件主要解決的幾方

7、面問題：（1） 在“系統(tǒng)用戶管理模塊”中，完成系統(tǒng)用戶的添加、用戶密碼的修改操作；（2） 在“部門管理模塊”中，用戶可根據(jù)所在企業(yè)部門的劃分及變動情況，實現(xiàn)對企業(yè)部門信息的查詢，添加，修改，刪除工作。（3） 在“員工管理模塊”中，可以實現(xiàn)對所在企業(yè)員工基本信息的錄入，根據(jù)不同的身份給予不同的使用權(quán)限，實現(xiàn)對員工基本信息的添加、編輯和刪除操作；（4） 在“工資管理模塊”中，分為工資信息查詢和工資信息管理。在工資信息查詢功能中，用戶可以在表中選擇所列出的員工編碼和工資月份，選擇相應(yīng)的員工編碼和工資月份，點擊查詢進行查詢；在工資信息管理窗口中，根據(jù)表中已經(jīng)列出的當前數(shù)據(jù)庫中的所有員工工資信息，選擇需

8、處理的員工信息，然后點擊相應(yīng)的操作按鈕，如添加，刪除，修改等，然后進行操作，點擊確定按鈕即可實現(xiàn)相應(yīng)的功能。 （5） 在“數(shù)據(jù)管理模塊”中，實現(xiàn)對數(shù)據(jù)的備份及恢復(fù)功以。即用戶可輸入所要備份數(shù)據(jù)文件及恢復(fù)數(shù)據(jù)文件的完整保存路徑，包括保存文件名，并為此次操作起一個別名，點擊備份即可。備份或恢復(fù)成功后會有相應(yīng)的成功提示信息出現(xiàn)。正文 我開發(fā)的中小企業(yè)“人事信息管理系統(tǒng)”軟件主要由系統(tǒng)用戶管理、部門管理、員工管理、工資管理、數(shù)據(jù)管理和和幫助六個模塊組成。以下為我對這幾個模塊的整個開發(fā)過程。2系統(tǒng)用戶管理模塊2.1 開發(fā)前提一般在開發(fā)一個數(shù)據(jù)庫系統(tǒng)時，需要設(shè)置操作人員，而這些操作人員的身份也有所不同，那

9、么他們就可以根據(jù)各自不同的身份利用本系統(tǒng)來進行不同的操作。而本模塊的作用就在于：利用系統(tǒng)初始設(shè)置的兩個用戶名和密碼登錄后（Administrator用戶和User用戶），可根據(jù)不同的權(quán)限對系統(tǒng)擁有不同的操作權(quán)限。Administrator用戶是管理員用戶，可以在系統(tǒng)用戶管理中，增加相應(yīng)的用戶，并且指定用戶的權(quán)限（即擁有添加、刪除、修改系統(tǒng)信息的權(quán)限）；User用戶為普通用戶，只能對系統(tǒng)信息瀏覽。2.2 模塊的建立根據(jù)本系統(tǒng)的需求，結(jié)合實際系統(tǒng)管理情況，本模塊應(yīng)作如下的細化：（1） 用戶登錄界面在安裝好本系統(tǒng)后，首次使用時利用系統(tǒng)初始設(shè)置的用戶名和密碼登錄，即后進入系統(tǒng)用戶管理窗體，后可添加，刪

10、除，修改用戶。登陸界面如圖所示：圖2-1 登陸界面（2） 添加新用戶因為企業(yè)信息管理的工作量較大，因此需要參與的各層管理人員也會相應(yīng)的增加，所以我專門增加了一些管理人員，以適應(yīng)企業(yè)管理的需求，通過點擊操作界面上的“系統(tǒng)維護”菜單中的“系統(tǒng)用戶管理”，就可以進入下圖的界面，從而實現(xiàn)對用戶的添加，刪除，修改操作。2.3 模塊的整體流程登錄系統(tǒng)通過驗證系統(tǒng)管理模塊主窗體添加新用戶刪除用戶修改用戶重新登錄圖2-2式模塊整體流程2.4 數(shù)據(jù)庫的設(shè)計本次設(shè)計的系統(tǒng)使用的是Access 2000作為數(shù)據(jù)庫管理系統(tǒng)，在Access中，新建一個數(shù)據(jù)庫，將其命名為“”，在新建的數(shù)據(jù)庫中建立一個名為SystemUs

11、er的表，表中用戶名為關(guān)鍵字，唯一標識出表中的記錄。其字段結(jié)構(gòu)如表3-1所示：表2-1 用戶管理表（Admin）字段名字段說明類型寬度備注用戶名稱管理員名文本10主關(guān)鍵字用戶權(quán)限管理員權(quán)限文本8不能為空密碼管理員密碼文本8不能為空2.5 程序的實現(xiàn) 2.5.1 操作方法當用戶以Administrator用戶登錄窗體后，點擊“系統(tǒng)維護”菜單中的“系統(tǒng)用戶管理”項后，則出現(xiàn)如圖2-3所示的“系統(tǒng)用戶管理”窗體。圖2-3 系統(tǒng)用戶管理界面（1）添加系統(tǒng)用戶：點擊添加按鈕，輸入相應(yīng)的用戶名稱，用戶權(quán)限和用戶口令（最好不少于6位），再點擊保存即可；（2）刪除系統(tǒng)用戶：在列表中選擇要刪除的用戶，之后再點擊

12、刪除索按鈕即可；（3）修改系統(tǒng)用戶：再列表中選擇要修改的用戶，然后點擊圖片，修改用戶信息，最后點擊保存即可；代碼的實現(xiàn)（1）添加用戶Private Sub cmdAdd_Click() txtName.Enabled = True txtPassword.Enabled = True cmbPermission.Enabled = True cmdSave.Enabled = True Call ClearInfoEnd SubPrivate Sub cmdSave_Click() If txtName.Text = "" Then MsgBox "用戶名不能為空

13、,請輸入用戶名.", vbInformation + vbOKOnly, "信息不完整" Exit Sub End If If txtPassword.Text = "" Then MsgBox "用戶口令不能為空,請輸入用口令.", vbInformation + vbOKOnly, "信息不完整" Exit Sub End If If Len(Trim(txtPassword.Text) < 6 Then If MsgBox("用戶口令長度小于6位,建議使用長度大于6位的口令!&quo

14、t; & vbCrLf & "是: 修改/否:不修改", vbInformation + vbYesNo, "安全提示") = vbYes Then txtPassword.Text = "" Exit Sub End If End If If cmbPermission.Text = "" Then MsgBox "用戶權(quán)限不能為空,請輸入用戶權(quán)限.", vbInformation + vbOKOnly, "信息不完整" Exit Sub End If Se

15、t User = Nothing User.UserName = Trim(txtName.Text) User.UserPassword = Trim(txtPassword.Text)ssion = Trim(cmbPermission.Text) If Users.AddUser(User) = True Then Call ClearInfo MsgBox "添加系統(tǒng)用戶成功!", vbInformation + vbOKOnly, "成功提示" Else Call ClearInfo MsgBox "添加系統(tǒng)用戶失敗!",

16、vbCritical + vbOKOnly, "錯誤提示" End If Set subitem = lvwMain.ListItems.Add(, "K_" & User.UserName, User.UserName) cmdSave.Enabled = False txtName.Enabled = False txtPassword.Enabled = False cmbPermission.Enabled = FalseEnd Sub（2）刪除用戶Private Sub cmdDelete_Click() Call ClearInfoE

17、nd Sub（3）修改用戶 If txtName.Text = "" Then MsgBox "用戶名不能為空,請輸入用戶名.", vbInformation + vbOKOnly, "信息不完整" Exit Sub End If If txtPassword.Text = "" Then MsgBox "用戶口令不能為空,請輸入用口令.", vbInformation + vbOKOnly, "信息不完整" Exit Sub End If If Len(Trim(txtPa

18、ssword.Text) < 6 Then If MsgBox("用戶口令長度小于6位,建議使用長度大于6位的口令!" & vbCrLf & "是: 修改/否:不修改", vbInformation + vbYesNo, "安全提示") = vbYes Then txtPassword.Text = "" Exit Sub End If End If If cmbPermission.Text = "" Then MsgBox "用戶權(quán)限不能為空,請輸入用戶權(quán)限.

19、", vbInformation + vbOKOnly, "信息不完整" Exit Sub End If User.UserName = Trim(txtName.Text) User.UserPassword = Trim(txtPassword.Text) User.UserPermission = Trim(cmbPermission.Text) Users.ModifyUser User lvwMain.SelectedItem.ListSubItems(1).T Call ClearInfo cmdModify.Enabled = FalseEnd Su

20、b2.6 得出的結(jié)果以及對結(jié)果的討論通過使用該模塊，就可以有效的規(guī)范擁有使用權(quán)限的不同層次的管理人員的數(shù)量，便于企業(yè)領(lǐng)導(dǎo)隨時查閱他們的信息，規(guī)范管理，保證輸入本系統(tǒng)的所有信息的準確性和一致性，確?！叭耸滦畔⒐芾硐到y(tǒng)”的正常運行。3部門信息管理模塊開發(fā)前提每個企業(yè)因其企業(yè)性質(zhì)及管理模式的不同，組織結(jié)構(gòu)也不盡相同，因此部門的劃分方法及細化程度也不一樣。但對于一個中小型企業(yè)來說，一般都會采用直線制，部門職能制等適合中小型企業(yè)的組織結(jié)構(gòu)。在組織所劃分的這些部門中，它們既相互獨立，又相互協(xié)作，不同的部門擁有不同的工作內(nèi)容，承擔著不同的職責(zé)，擁有不同的權(quán)限，需完成組織特定方面的工作，各部門又相互協(xié)作，共同

21、完成組織方方面面的工作，從而實現(xiàn)組織的目標，因此對部門的信息進行管理就顯必不可少了。模塊的建立 根據(jù)本系統(tǒng)的需求，結(jié)合實際管理情況，本模塊應(yīng)作如下細化：（1）在查詢方面隨著企業(yè)規(guī)模的不斷擴大，企業(yè)中設(shè)立的部門也越來越具體化，因此部門的數(shù)量也不可避免的增加，查詢功能的實現(xiàn)，可以很好的解決管理工作中繁瑣的查找工作，從而很好的提高管理效率。（2）在操作方面在此部分中，用戶可以根據(jù)管理中的不同需求，對部門信息進行調(diào)整，即可以執(zhí)行添加、刪除和修改基本信息的操作，以適應(yīng)管理上的需求。通過此模塊，可以快速高效的對部門進行的調(diào)整，以減少不必要的工作量，將工作人員從繁瑣的日常事務(wù)中解脫出來。3.3 模塊的整體流

22、程根據(jù)大多數(shù)中小企業(yè)的管理流程，結(jié)合上述的功能，模塊的整體流程如圖3-1所示：登錄用戶通過驗證程序主窗口對現(xiàn)有部門的信息進行管理（包括添加、修改、刪除）查詢現(xiàn)有部門的相關(guān)信息重新登錄查詢幫助信息圖3-1 部門管理模塊總體流程圖3.4 數(shù)據(jù)庫的設(shè)計本次設(shè)計所用的數(shù)據(jù)庫為Access，在名為HR的數(shù)據(jù)庫中建立了一個表，名字為Department，可以在程序中對其進行調(diào)用。本模塊以企業(yè)部門的基本信息為對象，編制了一份表格，其中詳述了每個字段的設(shè)置及對其的說明。在此表中，以部門編碼字段為該表的主關(guān)鍵字（Primary Key，PK），它唯一標識了每一個部門的記錄， 其詳表如下表所示：表3-1 Depa

23、rtment表字段名類型寬度備注部門編碼文本7主關(guān)鍵字部門名稱文本10不能為空部門主管數(shù)字長整型不能為空，對應(yīng)于Department表id字段部門描述文本200可以為空錄入時間日期/時間10可以為空錄入人文本8可以為空3.5 程序的實現(xiàn)在主菜單中，設(shè)計了三個根菜單，“人事信息管理”，“系統(tǒng)維護”和“雜項”。“人事信息管理”菜單用來對企業(yè)的部門、員工、工資等信息進行管理，在本節(jié)中，著重談到的是其中的對部門信息的管理工作。部門信息查詢在窗體中添加一個部門信息查詢的窗體，取名為frmDepQuery .frm,并為frmDepQuery .frm窗體進行菜單的設(shè)計和代碼的設(shè)計。3.5.1.1 部門信

24、息查詢的操作方法：當用戶需要對部門信息進行查詢時，可以在主界面的“人事信息管理”根菜單中，選擇“部門信息查詢”選項，也可點擊主窗體上的快捷鍵“部門信息查詢”，彈出“部門信息查詢”窗體，如圖3-2所示圖3-2 部門信息查詢界面在窗體中的“部門編碼”中輸入要查詢的部門編碼，點擊“查詢”按鈕，即可在窗體中“查詢結(jié)果”下方顯示所要查詢的信息。如果沒有查找到相關(guān)信息，則會彈出“錯誤揭示”消息框，并顯示“您所查找的部門不存在,請重新查找!”點擊確定后，重新輸入進行查找。代碼的實現(xiàn)（1）彈出部門查詢窗休（frmDepQuery .frm）：Private Sub mnuDepartQuery_Click()

25、 ListBarMain.ActiveList = 1End Sub（2）實現(xiàn)查詢功能的代碼如下：Private Sub cmdQuery_Click()On Error GoTo LabErr txtDepID.Text = Departments.Departments("K_" & cmbDepID.Text).DepID txtDepName.Text = Departments.Departments("K_" & cmbDepID.Text).depName txtDepMaster.Text = Departments.De

26、partments("K_" & cmbDepID.Text).depMaster txtDepNote.Text = Departments.Departments("K_" & cmbDepID.Text).depNote txtDateIn.Text = Departments.Departments("K_" & cmbDepID.Text).depDateIn txtInner.Text = Departments.Departments("K_" & cmbDepID.T

27、ext).depInner Exit SubLabErr: Call ClearInfo MsgBox "您所查找的部門不存在,請重新查找!", vbCritical + vbOKOnly, "錯誤提示"End Sub部門信息管理在工程中添加一個部門信息管理的窗體，取名為frmDepManage.frm 并為這個窗體進行代碼設(shè)計。部門信息管理的操作方法對部門信息進行管理，即對部門信息進行增加、刪除、修改操作，從而實現(xiàn)對部門信息的管理工作?？稍谶M入主界面后單擊“人事信息管理”菜單，選擇“部門信息管理”項，則會彈出部門信息管理窗體，如圖3-3 所示：圖

28、60;3-3 部門信息管理界面在此窗體中即可實現(xiàn)對部門信息的管理工作，（1） 點擊“添加”按鈕，即可彈出“添加部門”(frmAddDep)窗體，如圖3-4所示：圖3-4 部門添加界面在窗體中輸入需要更改的信息后，點擊“添加”按扭后，添加信息，如想取消輸入則點擊清除按扭即可，然后點擊“關(guān)閉”按鈕退出添加窗體（2）點擊“刪除”按鈕點擊“刪除”按鈕后，彈出“部門信息刪除”（frmDeleteDep）窗體，如圖3-5所示：圖3-5 刪除部門信息界面在列表中點擊要刪除的信息后，點擊“刪除”按鈕，即可刪除信息，點擊“關(guān)閉”關(guān)閉窗體。（3）點擊“修改”按鈕先在列表中選中需修改的部門信息，點擊“修改”按鈕后彈

29、出“部門信息修改”（frmModifyDep）窗體，如圖3-6所示：圖3-6 部門信息修改界面修改過信息后，點擊“修改”按鈕，即完成對部門信息的修改工作，然后點擊“關(guān)閉”按鈕退出修改窗體。代碼實現(xiàn)（1）彈出部門管理窗體（）的代碼Private Sub mnuDepartManage_Click() ListBarMain.ActiveList = 1End Sub（2）實現(xiàn)部門管理中的添加、刪除、修改功能實現(xiàn)添加部門信息的的代碼Private Sub cmdAdd_Click() If txtDepID.Text = "" Then MsgBox "部門編碼不能為

30、空,請輸入部門編碼!", vbInformation + vbOKOnly, "信息不完整" Exit Sub End If If txtDepName.Text = "" Then MsgBox "部門名稱不能為空,請輸入部門名稱!", vbInformation + vbOKOnly, "信息不完整" txtDep Exit Sub End If If txtDepMaster.Text = "" Then MsgBox "部門主管不能為空,請輸入部門主管!",

31、 vbInformation + vbOKOnly, "信息不完整" Exit Sub End If If txtDepNote.Text = "" Then MsgBox "部門描述不能為空,請輸入部門描述!", vbInformation + vbOKOnly, "信息不完整" Exit Sub End If If txtInner.Text = "" Then MsgBox "部門錄入人不能為空,請輸入部門錄入人!", vbInformation + vbOKOnly,

32、 "信息不完整" Exit Sub End If Set Dep = Nothing '當對象引用到集合中的其他的內(nèi)存空間時，再添加新的數(shù)據(jù)時，可以正常添加數(shù)據(jù)，但再次查詢時，原來集合中對應(yīng)的數(shù)據(jù)會被覆蓋掉，但不會影響到數(shù)據(jù)庫的巨鹿添加 Dep.DepID = Trim(txtDepID.Text) Dep.depName = Trim(txtDepName.Text) Dep.depMaster = Trim(txtDepMaster.Text) Dep.depNote = Trim(txtDepNote.Text) Dep.depDateIn = Trim(DT

33、PIn.Value) Dep.depInner = Trim(txtInner.Text) If Departments.AddDepartment(Dep) = True Then Call ClearInfo Set subitem = frmDepManage.lvwMain.ListItems.Add(, "K_" & Dep.DepID, Dep.DepID) MsgBox "添加部門信息成功!", vbInformation + vbOKOnly, "成功提示" Else MsgBox "添加部門信息失敗

34、!", vbCritical + vbOKOnly, "錯誤提示" End IfEnd Sub實現(xiàn)對部門信息刪除的代碼Private Sub cmdClear_Click() Call ClearInfoEnd SubPrivate Sub ClearInfo() txtDepID.Text = "" txtDepName.Text = "" txtDepMaster.Text = "" txtDepNote.Text = "" txtInner.Text = ""

35、End SubPrivate Sub Form_Load() DTPIn.Value = today()End SubPrivate Sub Form_Unload(Cancel As Integer) Set Dep = NothingEnd Sub實現(xiàn)對部門信息修改功能的代碼 If txtDepID.Text = "" Then MsgBox "部門編碼不能為空,請輸入部門編碼!", vbInformation + vbOKOnly, "信息不完整" Exit Sub End If If txtDepName.Text = &qu

36、ot;" Then MsgBox "部門名稱不能為空,請輸入部門名稱!", vbInformation + vbOKOnly, "信息不完整" Exit Sub End If If txtDepMaster.Text = "" Then MsgBox "部門主管不能為空,請輸入部門主管!", vbInformation + vbOKOnly, "信息不完整" Exit Sub End If If txtDepNote.Text = "" Then MsgBox &q

37、uot;部門描述不能為空,請輸入部門描述!", vbInformation + vbOKOnly, "信息不完整" Exit Sub End If If txtInner.Text = "" Then MsgBox "部門錄入人不能為空,請輸入部門錄入人!", vbInformation + vbOKOnly, "信息不完整" Exit Sub End If Dep.DepID = Trim(txtDepID.Text) Dep.depName = Trim(txtDepName.Text) Dep.de

38、pMaster = Trim(txtDepMaster.Text) Dep.depNote = Trim(txtDepNote.Text) Dep.depDateIn = Trim(txtDateIn.Text) Dep.depInner = Trim(txtInner.Text) If Departments.ModifyDepartment(Dep) = True Then frmDepManage.cmdDelete.Enabled = False frmDepManage.cmdModify.Enabled = False Unload Me MsgBox "修改部門信息成功

39、!", vbInformation + vbOKOnly, "成功提示" Else frmDepManage.cmdDelete.Enabled = False frmDepManage.cmdModify.Enabled = False Unload Me MsgBox "修改部門信息失敗!", vbCritical + vbOKOnly, "錯誤提示" End IfEnd Sub4員工信息管理模塊開發(fā)前提在企業(yè)的管理中人是最活躍的因素，同時也是一個組織最基本的單位，是企業(yè)的基石，基石的穩(wěn)健與否，直接聯(lián)系著一個企業(yè)的興衰與

40、穩(wěn)定，因此，每個企業(yè)都非常重視對人的管理，對企業(yè)員工的信息進行有高質(zhì)高效的管理，可以充分發(fā)揮員工的潛能，是完全有必要的，而實現(xiàn)這一目標，就需要借助于計算機技術(shù)，對員工的基本信息進行管理，以減輕管理人員的工作負擔，提升管理質(zhì)量。根據(jù)一般的中小型企業(yè)人事管理的實際要求，該模塊主要具有以下功能：（1） 掌握整個企業(yè)每個員工的基本情況。其中包括員工編號、姓名、性別、年齡、政治面貌、籍貫、出生年月、學(xué)歷、職稱、家庭住址、電話等。（2） 可以根據(jù)不同的用戶名對員工信息進行瀏覽（3） 可以對員工的信息進行查詢（4） 要求可以對員工基本信息進行變動管理，對員工信息進行添加、刪除和修改操作。模塊的建立由于此模塊

41、是較為重要的一個模塊，因此，我將其作細化：（1） 查找界面用戶可以在現(xiàn)有的信息中進行查找，以便找到滿足條件的員工信息，進行瀏覽或者管理。該部分中可以根據(jù)員工的編號對員工的基本信息進行查詢。（2） 員工基本信息管理界面此部分功能就是如果員工的基本信息改變，那么用戶可以根據(jù)具體情況，對員工進行管理，可以執(zhí)行添加、刪除或者修改基本信息的操作。4.3 模塊的整體流程根據(jù)企業(yè)人事管理流程，結(jié)合上述的各項功能，模塊的整體流程如圖4-1所示：登錄用戶通過驗證程序主窗口對現(xiàn)有員工的信息進行管理（包括添加、修改、刪除）查詢現(xiàn)有員工的基本信息重新登錄查詢幫助信息圖4-1 員工管理模塊總體流程圖數(shù)據(jù)庫設(shè)計和前面一章

42、相似，在名為的數(shù)據(jù)庫中建立1個名為Employee的表，本模塊主要針對的對象為員工的基本信息。其中，職工編號字段為該表的主關(guān)鍵字（Primary Key，PK），它唯一標識了一條教師記錄，這張表的結(jié)構(gòu)如表4-1所示：表4-1 員工表（Employee）字段說明類型寬度備注職工編號文本9主關(guān)鍵字部門編碼文本6不能為空姓名文本8不能為空性別文本2不能為空出生日期日期/時間10不能為空民族文本10不能為空婚否文本2可以為空籍貫文本25不能為空家庭住址文本25不能為空聯(lián)系電話文本13可以為空身份證號特殊18不能為空政治面貌文本4不能為空文化程度文本6不能為空畢業(yè)學(xué)校文本20不能為空畢業(yè)時間日期/時間1

43、0不能為空所學(xué)專業(yè)文本20可以為空外語語種文本8可以為空入廠年月日期/時間10不能為空養(yǎng)老保險號特殊20不能為空職務(wù)文本8可以為空職稱文本10可以為空崗位文本10不能為空合同開始時間日期/時間10不能為空合同結(jié)束時間日期/時間10不能為空錄入時間日期/時間10不能為空錄入人文本8不能為空程序的實現(xiàn)登錄后進入的主窗體中的“人事信息管理”主菜單中，“員工信息管理”和“員工信息查詢”，及界面上的快捷菜單，都可以對企業(yè)的員工信息進行查詢與管理，其實現(xiàn)如下所述：員工信息查詢在工程中添加一個員工信息查詢的窗體，取名為，并為窗體進行菜單的設(shè)計和代碼的設(shè)計。員工信息查詢的操作方法當用戶需要對部門信息進行查詢時

44、，可以在主界面的“人事信息管理”根菜單中，選擇“員工信息查詢”選項，也可點擊主窗體上的快捷鍵，彈出“員工信息查詢”窗體，如圖4-2所示圖4-2 員工工信息查詢界面在窗體中的“員工編號”中輸入要查詢的員工編號，點擊“查詢“按鈕，即可在窗體中“查詢結(jié)果”下方顯示所要查詢的信息。如果輸入錯誤則點擊“清除”鍵后重新輸入進行查找，如果沒有查找到相關(guān)信息，則會彈出“錯誤揭示”消息框，并顯示“您所查找的員工不存在,請重新查找!”點擊確定后，重新輸入進行查找。查詢結(jié)束后點擊“退出”按鈕，退出查詢系統(tǒng)。代碼實現(xiàn)（1）彈出員工查詢窗休（frmEmpQuery .frm）的代碼Private Sub mnuEmpQ

45、uery_Click() ListBarMain.ActiveList = 2End Sub（2）實現(xiàn)查詢功能的代碼On Error GoTo LabErr txtEmpID.Text = Employees.Employees("K_" & Trim(cmbEmpID.Text).EmpID txtEmpDepID.Text = Employees.Employees("K_" & Trim(cmbEmpID.Text).empDepID txtEmpName.Text = Employees.Employees("K_&qu

46、ot; & Trim(cmbEmpID.Text).empName txtEmpSex.Text = Employees.Employees("K_" & Trim(cmbEmpID.Text).empSex txtEmpBorn.Text = Employees.Employees("K_" & Trim(cmbEmpID.Text).empBornDate txtEmpNation.Text = Employees.Employees("K_" & Trim(cmbEmpID.Text).empNa

47、tion txtEmpMarry.Text = Employees.Employees("K_" & Trim(cmbEmpID.Text).empMarry txtEmpNative.Text = Employees.Employees("K_" & Trim(cmbEmpID.Text).empNative txtEmpAddr.Text = Employees.Employees("K_" & Trim(cmbEmpID.Text).empAddr txtEmpPhone.Text = Employees

48、.Employees("K_" & Trim(cmbEmpID.Text).empPhone txtEmpCard.Text = Employees.Employees("K_" & Trim(cmbEmpID.Text).empCard txtEmpPolity.Text = Employees.Employees("K_" & Trim(cmbEmpID.Text).empPolity txtEmpDegree.Text = Employees.Employees("K_" &

49、Trim(cmbEmpID.Text).empDegreeext = Employees.Employees("K_" & Trim(cmbEmpID.Text).empFinalSchool txtEmpFinalDate.Text = Employees.Employees("K_" & Trim(cmbEmpID.Text).empFinalDate txtEmpSpecial.Text = Employees.Employees("K_" & Trim(cmbEmpID.Text).empSpecial

50、 txtEmpLang.Text = Employees.Employees("K_" & Trim(cmbEmpID.Text).empLang txtEmpEntryDate.Text = Employees.Employees("K_" & Trim(cmbEmpID.Text).empEntryDate txtEmpSafety.Text = Employees.Employees("K_" & Trim(cmbEmpID.Text).empSafety txtEmpDuty.Text = Employ

51、ees.Employees("K_" & Trim(cmbEmpID.Text).empDuty txtEmpPost.Text = Employees.Employees("K_" & Trim(cmbEmpID.Text).empPost txtEmpPactBegin.Text = Employees.Employees("K_" & Trim(cmbEmpID.Text).empPactBegin txtEmpPactEnd.Text = Employees.Employees("K_&quo

52、t; & Trim(cmbEmpID.Text).empPactEnd txtDateIn.Text = Employees.Employees("K_" & Trim(cmbEmpID.Text).empDateIn txtInner.Text = Employees.Employees("K_" & Trim(cmbEmpID.Text).empInner Exit SubLabErr: Call ClearInfo MsgBox "您所查找的員工不存在,請重新查找.", vbCritical + vbOK

53、Only, "錯誤提示"End Sub員工信息管理在工程中添加一個員工信息管理的窗體，取名為，并為這個窗體進行代碼設(shè)計。員工信息管理的操作方法對員工信息進行管理，即對員工信息進行增加、刪除、修改操作，從而實現(xiàn)對員工信息的管理工作?？稍谶M入主界面后單擊“人事信息管理”菜單，選擇“員工信息管理”項，則會彈出員工信息管理窗體，如圖4-3所示圖4-3 員工信息管理窗口在此窗體中即可實現(xiàn)對部門信息的管理工作，（1）添加點擊“添加”按鈕，即可彈出“添加員工”窗體，如圖4-4所示圖4-4 添加員工界在窗體中輸入相關(guān)信息后，點擊“添加”按扭后，添加信息，如想取消輸入的內(nèi)容，則點擊“清除”按

54、扭即可，點擊“關(guān)閉”按鈕后，退出添加窗體（2）刪除點擊“刪除”按鈕后，彈出員工信息刪除窗體（frmDeleteEmp），如圖4-5所示：圖4-5 刪除員工信息界面在列表中點擊要刪除的信息后，點擊“刪除”按鈕，即可刪除信息，點擊“關(guān)閉”按鈕后，退出窗體（3）修改先在列表中選中需修改的員工的編碼，然后點擊“修改”按鈕后，彈出“員工信息修改”（frmModifyEmp）窗體如圖4-6所示： 圖4-6 修改員工信息界面修改過后，點擊“修改”按鈕，即完成對員工信息的修改工作。然后點擊“關(guān)閉”按鈕退出修改窗體。代碼實現(xiàn)（1） 彈出員工信息管理窗體（）的代碼如下：Private Sub mnuEmpQuer

55、y_Click() ListBarMain.ActiveList = 2End Sub（2）實現(xiàn)員工管理中的添加、刪除、修改功能的代碼實現(xiàn)添加員工信息的的代碼Private Sub cmdAdd_Click() If txtEmpID.Text = "" Then MsgBox "職工編碼不能為空,請輸入職工編碼!", vbInformation + vbOKOnly, "輸入信息不完整" Exit Sub End If If txtEmpDepID.Text = "" Then MsgBox "部門編碼

56、不能為空,請輸入部門編碼!", vbInformation + vbOKOnly, "輸入信息不完整" Exit Sub End If If txtEmpName.Text = "" Then MsgBox "員工姓名不能為空,請輸入員工姓名!", vbInformation + vbOKOnly, "輸入信息不完整" Exit Sub End If If cmbSex.Text = "" Then MsgBox "員工性別不能為空,請輸入員工性別!", vbInformation + vbOKOnly, "輸入信息不完整" Exit Sub End If If txtEmpNation.Text = "" Then MsgBox "員工民族不能為空,請輸入員工民族!", vbInformation + vbOKOnly, "輸入信息不