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

1、中小型企業(yè)“人事信息管理系統(tǒng)”設(shè)計摘要隨著市場競爭的加劇，中小型企業(yè)要想在激烈的競爭中立于不敗之地，就要不斷的加強管理，信息量也就不可避免增加很多，以往的管理模式已不再適應現(xiàn)在社會經(jīng)濟發(fā)展的需求和企業(yè)對信息的需求，擁有一套能夠?qū)ζ髽I(yè)人事信息進行系統(tǒng)管理的應用軟件，就顯得猶為得要。在畢業(yè)設(shè)計期間，我根據(jù)中小型企業(yè)自身的特點，設(shè)計了一套經(jīng)濟型的信息管理系統(tǒng)。在這個系統(tǒng)的設(shè)計中我使用了功能強大的Visual Basic 6.0作為軟件開發(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 操作方法2.5.2代碼的實現(xiàn)（1）添加用戶（2）刪除用戶（3）修改用戶2.6 得出的結(jié)果以及對結(jié)果

3、的討論3部門信息管理3.1模塊開發(fā)前提3.2模塊的建立 3.3 模塊的整體流程3.4 數(shù)據(jù)庫的設(shè)計3.5 程序的實現(xiàn)3.5.1部門信息查詢3.5.1.1 部門信息查詢的操作方法：3.5.1.2代碼的實現(xiàn)（1）彈出部門查詢窗休（2）實現(xiàn)查詢功能的代碼如下3.5.2部門信息管理3.5.2.1部門信息管理的操作方法3.5.2.2代碼實現(xiàn)（1）彈出部門管理窗體（frmDepManage.frm）的代碼（2）實現(xiàn)部門管理中的添加、刪除、修改功能的代碼4員工信息管理4.1模塊開發(fā)前提4.2模塊的建立4.3 模塊的整體流程4.4數(shù)據(jù)庫設(shè)計4.5程序的實現(xiàn)4.5.1員工信息查詢4.5.1.1員工信息查詢的操作

4、方法4.5.1.2代碼實現(xiàn)4.5.2員工信息管理4.5.2.1員工信息管理的操作方法4.5.2.2員工管理中的添加、刪除、修改代碼實現(xiàn)5工資信息管理5.1模塊開發(fā)前提52模塊的建立5.3模塊的整體流程5.4數(shù)據(jù)庫的設(shè)計5.5程序的實現(xiàn)5.5.1工資信息查詢5.5.1.1工資信息查詢的操作方法5.5.1.2代碼實現(xiàn)5.5.2工資信息管理5.5.2.1工資信息管理的操作方法5.5.2.2代碼實現(xiàn)6數(shù)據(jù)管理6.1開發(fā)前提6.2程序的實現(xiàn)6.2.1數(shù)據(jù)備份（1）數(shù)據(jù)備份操作方法（2）數(shù)據(jù)備份代碼實現(xiàn)6.2.2數(shù)據(jù)恢復（1）數(shù)據(jù)恢復的操作方法（2）數(shù)據(jù)恢復代碼的實現(xiàn)7 結(jié)論7.1取得的成果7.1.1簡便

5、的操作方法7.1.2 進一步加強了對數(shù)據(jù)庫技術(shù)的認識7.2 存在的問題7.3 以后的努力方向8 致謝9參考文獻1前言1.1 課題的意義、目的隨著市場競爭的加劇，有關(guān)企業(yè)人事管理的各項信息量也成倍增長。面對越來越大的信息量，就需要使用“小型企業(yè)人事管理系統(tǒng)”來提高整個企業(yè)的管理工作效率。1.2 課題研究的范圍因為計算機及其應用軟件的不斷發(fā)展，使得企業(yè)信息化管理已經(jīng)越來越得到重視。而實現(xiàn)企業(yè)信息化的管理，能夠提高企業(yè)管理質(zhì)量、減輕企業(yè)人事管理部門的壓力。那么就我設(shè)計的“中小型企業(yè)人事信息管理系統(tǒng)”軟件具體的講，就是要做到對企業(yè)人事信息的規(guī)范化管理、和快速的查詢，從而減少管理方面的工作量。1.3 軟

6、件設(shè)計所能達到的技術(shù)參數(shù)本次軟件開發(fā)的工具是Visual Basic 6.0，數(shù)據(jù)環(huán)境使用的是Microsoft Access 2000。充分考慮到實際情況，使得開發(fā)的應用系統(tǒng)具有較好的維護性。在符合管理需要的條件下，使操作簡單、便捷。而且采用了功能強大的數(shù)據(jù)庫系統(tǒng)，適應大規(guī)模數(shù)據(jù)處理的要求。應用軟件在當前居于主流且技術(shù)領(lǐng)先系統(tǒng)平臺上設(shè)計，并且安裝簡單。我設(shè)計的“中小型企業(yè)人事信息管理系統(tǒng)”具有以下幾個特點：（1） 查詢方便提供信息重組功能，將離散、單一的信息通過有機的結(jié)合，向使用者提供的數(shù)據(jù)更加快速、有效和準確。（2） 簡化工作流程大大的提高了人事系統(tǒng)的的辦事效率，從而節(jié)省了大量的人力、物力

7、和財力等資源。（3） 實用性強軟件充分滿足中小型企業(yè)的不同管理需求，且操作簡單，易于維護，便于保存和傳閱。（4） 操作簡便軟件使用直觀的圖形界面，即見既得的錄入格式、方便的錄入方式，電腦操作與手工處理流程完全一致，任何人員可在極短時間內(nèi)無師自通。（5）功能齊全可以隨時查詢或統(tǒng)計企業(yè)員工的各種資料。1.4 課題解決的主要問題首先簡要陳述一下我設(shè)計的中小型“企業(yè)人事信息管理系統(tǒng)”軟件主要解決的幾方面問題：（1） 在“系統(tǒng)用戶管理模塊”中，完成系統(tǒng)用戶的添加、用戶密碼的修改操作；（2） 在“部門管理模塊”中，用戶可根據(jù)所在企業(yè)部門的劃分及變動情況，實現(xiàn)對企業(yè)部門信息的查詢，添加，修改，刪除工作。（3

8、） 在“員工管理模塊”中，可以實現(xiàn)對所在企業(yè)員工基本信息的錄入，根據(jù)不同的身份給予不同的使用權(quán)限，實現(xiàn)對員工基本信息的添加、編輯和刪除操作；（4） 在“工資管理模塊”中，分為工資信息查詢和工資信息管理。在工資信息查詢功能中，用戶可以在表中選擇所列出的員工編碼和工資月份，選擇相應的員工編碼和工資月份，點擊查詢進行查詢；在工資信息管理窗口中，根據(jù)表中已經(jīng)列出的當前數(shù)據(jù)庫中的所有員工工資信息，選擇需處理的員工信息，然后點擊相應的操作按鈕，如添加，刪除，修改等，然后進行操作，點擊確定按鈕即可實現(xiàn)相應的功能。 （5） 在“數(shù)據(jù)管理模塊”中，實現(xiàn)對數(shù)據(jù)的備份及恢復功以。即用戶可輸入所要備份數(shù)據(jù)文件及恢復數(shù)

9、據(jù)文件的完整保存路徑，包括保存文件名，并為此次操作起一個別名，點擊備份即可。備份或恢復成功后會有相應的成功提示信息出現(xiàn)。正文 我開發(fā)的中小企業(yè)“人事信息管理系統(tǒng)”軟件主要由系統(tǒng)用戶管理、部門管理、員工管理、工資管理、數(shù)據(jù)管理和和幫助六個模塊組成。以下為我對這幾個模塊的整個開發(fā)過程。2系統(tǒng)用戶管理模塊2.1 開發(fā)前提一般在開發(fā)一個數(shù)據(jù)庫系統(tǒng)時，需要設(shè)置操作人員，而這些操作人員的身份也有所不同，那么他們就可以根據(jù)各自不同的身份利用本系統(tǒng)來進行不同的操作。而本模塊的作用就在于：利用系統(tǒng)初始設(shè)置的兩個用戶名和密碼登錄后（Administrator用戶和User用戶），可根據(jù)不同的權(quán)限對系統(tǒng)擁有不同的操

10、作權(quán)限。Administrator用戶是管理員用戶，可以在系統(tǒng)用戶管理中，增加相應的用戶，并且指定用戶的權(quán)限（即擁有添加、刪除、修改系統(tǒng)信息的權(quán)限）；User用戶為普通用戶，只能對系統(tǒng)信息瀏覽。2.2 模塊的建立根據(jù)本系統(tǒng)的需求，結(jié)合實際系統(tǒng)管理情況，本模塊應作如下的細化：（1） 用戶登錄界面在安裝好本系統(tǒng)后，首次使用時利用系統(tǒng)初始設(shè)置的用戶名和密碼登錄，即后進入系統(tǒng)用戶管理窗體，后可添加，刪除，修改用戶。登陸界面如圖所示：圖2-1 登陸界面（2） 添加新用戶因為企業(yè)信息管理的工作量較大，因此需要參與的各層管理人員也會相應的增加，所以我專門增加了一些管理人員，以適應企業(yè)管理的需求，通過點擊操作

11、界面上的“系統(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ù)庫，將其命名為“HR.mdb”，在新建的數(shù)據(jù)庫中建立一個名為SystemUser的表，表中用戶名為關(guān)鍵字，唯一標識出表中的記錄。其字段結(jié)構(gòu)如表3-1所示：表2-1 用戶管理表（Admin）字段名字段說明類型寬度備注用戶名稱管理員名文本10主關(guān)鍵字用戶權(quán)限管理員權(quán)限文本

12、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)用戶：點擊添加按鈕，輸入相應的用戶名稱，用戶權(quán)限和用戶口令（最好不少于6位），再點擊保存即可；（2）刪除系統(tǒng)用戶：在列表中選擇要刪除的用戶，之后再點擊刪除索按鈕即可；（3）修改系統(tǒng)用戶：再列表中選擇要修改的用戶，然后點擊圖片，修改用戶信息，最后點擊保存即可；2.5.2代碼的實現(xiàn)（1）添加用戶Private Sub cmdAdd_Click(

13、) txtName.Enabled = True txtPassword.Enabled = True cmbPermission.Enabled = True cmdSave.Enabled = True Call ClearInfoEnd SubPrivate Sub cmdSave_Click() If txtName.Text = "" Then MsgBox "用戶名不能為空,請輸入用戶名.", vbInformation + vbOKOnly, "信息不完整" txtName.SetFocus Exit Sub End I

14、f If txtPassword.Text = "" Then MsgBox "用戶口令不能為空,請輸入用口令.", vbInformation + vbOKOnly, "信息不完整" txtPassword.SetFocus Exit Sub End If If Len(Trim(txtPassword.Text) < 6 Then If MsgBox("用戶口令長度小于6位,建議使用長度大于6位的口令!" & vbCrLf & "是: 修改/否:不修改", vbInfo

15、rmation + vbYesNo, "安全提示") = vbYes Then txtPassword.Text = "" txtPassword.SetFocus Exit Sub End If End If If cmbPermission.Text = "" Then MsgBox "用戶權(quán)限不能為空,請輸入用戶權(quán)限.", vbInformation + vbOKOnly, "信息不完整" cmbPermission.SetFocus Exit Sub End If Set User =

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

17、uot;, vbCritical + vbOKOnly, "錯誤提示" End If Set subitem = lvwMain.ListItems.Add(, "K_" & User.UserName, User.UserName) subitem.ListSubItems.Add , , User.UserPermission subitem.ListSubItems.Add , , User.UserPassword cmdSave.Enabled = False txtName.Enabled = False txtPassword.En

18、abled = False cmbPermission.Enabled = FalseEnd Sub（2）刪除用戶Private Sub cmdDelete_Click() lvwMain.ListItems.Remove lvwMain.SelectedItem.Key Users.DeleteUser User.UserName Call ClearInfoEnd Sub（3）修改用戶 If txtName.Text = "" Then MsgBox "用戶名不能為空,請輸入用戶名.", vbInformation + vbOKOnly, "

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

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

21、mission.SetFocus Exit Sub End If User.UserName = Trim(txtName.Text) User.UserPassword = Trim(txtPassword.Text) User.UserPermission = Trim(cmbPermission.Text) Users.ModifyUser User lvwMain.SelectedItem.Text = User.UserName lvwMain.SelectedItem.ListSubItems(1).Text = User.UserPermission 'lvwMain.S

22、electedItem.ListSubItems(2).Text = User.UserPassword Call ClearInfo cmdModify.Enabled = FalseEnd Sub2.6 得出的結(jié)果以及對結(jié)果的討論通過使用該模塊，就可以有效的規(guī)范擁有使用權(quán)限的不同層次的管理人員的數(shù)量，便于企業(yè)領(lǐng)導隨時查閱他們的信息，規(guī)范管理，保證輸入本系統(tǒng)的所有信息的準確性和一致性，確?！叭耸滦畔⒐芾硐到y(tǒng)”的正常運行。3部門信息管理3.1模塊開發(fā)前提每個企業(yè)因其企業(yè)性質(zhì)及管理模式的不同，組織結(jié)構(gòu)也不盡相同，因此部門的劃分方法及細化程度也不一樣。但對于一個中小型企業(yè)來說，一般都會采用直線制，

23、部門職能制等適合中小型企業(yè)的組織結(jié)構(gòu)。在組織所劃分的這些部門中，它們既相互獨立，又相互協(xié)作，不同的部門擁有不同的工作內(nèi)容，承擔著不同的職責，擁有不同的權(quán)限，需完成組織特定方面的工作，各部門又相互協(xié)作，共同完成組織方方面面的工作，從而實現(xiàn)組織的目標，因此對部門的信息進行管理就顯必不可少了。3.2模塊的建立 根據(jù)本系統(tǒng)的需求，結(jié)合實際管理情況，本模塊應作如下細化：（1）在查詢方面隨著企業(yè)規(guī)模的不斷擴大，企業(yè)中設(shè)立的部門也越來越具體化，因此部門的數(shù)量也不可避免的增加，查詢功能的實現(xiàn)，可以很好的解決管理工作中繁瑣的查找工作，從而很好的提高管理效率。（2）在操作方面在此部分中，用戶可以根據(jù)管理中的不同需

24、求，對部門信息進行調(diào)整，即可以執(zhí)行添加、刪除和修改基本信息的操作，以適應管理上的需求。通過此模塊，可以快速高效的對部門進行的調(diào)整，以減少不必要的工作量，將工作人員從繁瑣的日常事務中解脫出來。3.3 模塊的整體流程根據(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è)部門的基

25、本信息為對象，編制了一份表格，其中詳述了每個字段的設(shè)置及對其的說明。在此表中，以部門編碼字段為該表的主關(guān)鍵字（Primary Key，PK），它唯一標識了每一個部門的記錄， 其詳表如下表所示：表3-1 Department表字段名類型寬度備注部門編碼文本7主關(guān)鍵字部門名稱文本10不能為空部門主管數(shù)字長整型不能為空，對應于Department表id字段部門描述文本200可以為空錄入時間日期/時間10可以為空錄入人文本8可以為空3.5 程序的實現(xiàn)在主菜單中，設(shè)計了三個根菜單，“人事信息管理”，“系統(tǒng)維護”和“雜項”?！叭耸滦畔⒐芾怼辈藛斡脕韺ζ髽I(yè)的部門、員工、工資等信息進行管理，在本節(jié)中，著重談到

26、的是其中的對部門信息的管理工作。3.5.1部門信息查詢在窗體中添加一個部門信息查詢的窗體，取名為frmDepQuery .frm,并為frmDepQuery .frm窗體進行菜單的設(shè)計和代碼的設(shè)計。3.5.1.1 部門信息查詢的操作方法：當用戶需要對部門信息進行查詢時，可以在主界面的“人事信息管理”根菜單中，選擇“部門信息查詢”選項，也可點擊主窗體上的快捷鍵“部門信息查詢”，彈出“部門信息查詢”窗體，如圖3-2所示圖3-2 部門信息查詢界面在窗體中的“部門編碼”中輸入要查詢的部門編碼，點擊“查詢”按鈕，即可在窗體中“查詢結(jié)果”下方顯示所要查詢的信息。如果沒有查找到相關(guān)信息，則會彈出“錯誤揭示”

27、消息框，并顯示“您所查找的部門不存在,請重新查找!”點擊確定后，重新輸入進行查找。3.5.1.2代碼的實現(xiàn)（1）彈出部門查詢窗休（frmDepQuery .frm）：Private Sub mnuDepartQuery_Click() ListBarMain.ActiveList = 1 frmDepQuery.ShowEnd Sub（2）實現(xiàn)查詢功能的代碼如下：Private Sub cmdQuery_Click()On Error GoTo LabErr txtDepID.Text = Departments.Departments("K_" & cmbDepI

28、D.Text).DepID txtDepName.Text = Departments.Departments("K_" & cmbDepID.Text).depName txtDepMaster.Text = Departments.Departments("K_" & cmbDepID.Text).depMaster txtDepNote.Text = Departments.Departments("K_" & cmbDepID.Text).depNote txtDateIn.Text = Departm

29、ents.Departments("K_" & cmbDepID.Text).depDateIn txtInner.Text = Departments.Departments("K_" & cmbDepID.Text).depInner Exit SubLabErr: Call ClearInfo MsgBox "您所查找的部門不存在,請重新查找!", vbCritical + vbOKOnly, "錯誤提示"End Sub3.5.2部門信息管理在工程中添加一個部門信息管理的窗體，取名為frmDe

30、pManage.frm 并為這個窗體進行代碼設(shè)計。3.5.2.1部門信息管理的操作方法對部門信息進行管理，即對部門信息進行增加、刪除、修改操作，從而實現(xiàn)對部門信息的管理工作?？稍谶M入主界面后單擊“人事信息管理”菜單，選擇“部門信息管理”項，則會彈出部門信息管理窗體，如圖3-3 所示：圖 3-3 部門信息管理界面在此窗體中即可實現(xiàn)對部門信息的管理工作，（1） 點擊“添加”按鈕，即可彈出“添加部門”(frmAddDep)窗體，如圖3-4所示：圖3-4 部門添加界面在窗體中輸入需要更改的信息后，點擊“添加”按扭后，添加信息，如想取消輸入則點擊清除按扭即可，然后點擊“關(guān)閉”按鈕退出添加窗體（

31、2）點擊“刪除”按鈕點擊“刪除”按鈕后，彈出“部門信息刪除”（frmDeleteDep）窗體，如圖3-5所示：圖3-5 刪除部門信息界面在列表中點擊要刪除的信息后，點擊“刪除”按鈕，即可刪除信息，點擊“關(guān)閉”關(guān)閉窗體。（3）點擊“修改”按鈕先在列表中選中需修改的部門信息，點擊“修改”按鈕后彈出“部門信息修改”（frmModifyDep）窗體，如圖3-6所示：圖3-6 部門信息修改界面修改過信息后，點擊“修改”按鈕，即完成對部門信息的修改工作，然后點擊“關(guān)閉”按鈕退出修改窗體。3.5.2.2代碼實現(xiàn)（1）彈出部門管理窗體（frmDepManage.frm）的代碼Private Sub mnuDe

32、partManage_Click() ListBarMain.ActiveList = 1 frmDepManage.ShowEnd Sub（2）實現(xiàn)部門管理中的添加、刪除、修改功能實現(xiàn)添加部門信息的的代碼Private Sub cmdAdd_Click() If txtDepID.Text = "" Then MsgBox "部門編碼不能為空,請輸入部門編碼!", vbInformation + vbOKOnly, "信息不完整" txtDepID.SetFocus Exit Sub End If If txtDepName.Tex

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

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

35、t Sub End If Set Dep = Nothing '當對象引用到集合中的其他的內(nèi)存空間時，再添加新的數(shù)據(jù)時，可以正常添加數(shù)據(jù)，但再次查詢時，原來集合中對應的數(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(DTPIn.Value) Dep.depInne

36、r = Trim(txtInner.Text) If Departments.AddDepartment(Dep) = True Then Call ClearInfo Set subitem = frmDepManage.lvwMain.ListItems.Add(, "K_" & Dep.DepID, Dep.DepID) subitem.ListSubItems.Add , , Dep.depName subitem.ListSubItems.Add , , Dep.depMaster subitem.ListSubItems.Add , , Dep.depN

37、ote subitem.ListSubItems.Add , , Dep.depDateIn subitem.ListSubItems.Add , , Dep.depInner MsgBox "添加部門信息成功!", vbInformation + vbOKOnly, "成功提示" Else MsgBox "添加部門信息失敗!", vbCritical + vbOKOnly, "錯誤提示" End IfEnd Sub實現(xiàn)對部門信息刪除的代碼Private Sub cmdClear_Click() Call Clea

38、rInfoEnd SubPrivate Sub ClearInfo() txtDepID.Text = "" txtDepName.Text = "" txtDepMaster.Text = "" txtDepNote.Text = "" txtInner.Text = "" txtDepID.SetFocusEnd SubPrivate Sub Form_Load() DTPIn.Value = today()End SubPrivate Sub Form_Unload(Cancel As I

39、nteger) Set Dep = NothingEnd Sub實現(xiàn)對部門信息修改功能的代碼 If txtDepID.Text = "" Then MsgBox "部門編碼不能為空,請輸入部門編碼!", vbInformation + vbOKOnly, "信息不完整" txtDepID.SetFocus Exit Sub End If If txtDepName.Text = "" Then MsgBox "部門名稱不能為空,請輸入部門名稱!", vbInformation + vbOKOnl

40、y, "信息不完整" txtDepName.SetFocus Exit Sub End If If txtDepMaster.Text = "" Then MsgBox "部門主管不能為空,請輸入部門主管!", vbInformation + vbOKOnly, "信息不完整" txtDepMaster.SetFocus Exit Sub End If If txtDepNote.Text = "" Then MsgBox "部門描述不能為空,請輸入部門描述!", vbInf

41、ormation + vbOKOnly, "信息不完整" txtDepNote.SetFocus Exit Sub End If If txtInner.Text = "" Then MsgBox "部門錄入人不能為空,請輸入部門錄入人!", vbInformation + vbOKOnly, "信息不完整" txtInner.SetFocus Exit Sub End If Dep.DepID = Trim(txtDepID.Text) Dep.depName = Trim(txtDepName.Text) De

42、p.depMaster = 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.lvwMain.SelectedItem.Text = Dep.DepID frmDepManage.lvwMain.SelectedItem.ListSubItems(1).Text

43、 = Dep.depName frmDepManage.lvwMain.SelectedItem.ListSubItems(2).Text = Dep.depMaster frmDepManage.lvwMain.SelectedItem.ListSubItems(3).Text = Dep.depNote frmDepManage.lvwMain.SelectedItem.ListSubItems(4).Text = Dep.depDateIn frmDepManage.lvwMain.SelectedItem.ListSubItems(5).Text = Dep.depInner frmD

44、epManage.cmdDelete.Enabled = False frmDepManage.cmdModify.Enabled = False Unload Me MsgBox "修改部門信息成功!", vbInformation + vbOKOnly, "成功提示" Else frmDepManage.cmdDelete.Enabled = False frmDepManage.cmdModify.Enabled = False Unload Me MsgBox "修改部門信息失敗!", vbCritical + vbOKOnl

45、y, "錯誤提示" End IfEnd Sub4員工信息管理4.1模塊開發(fā)前提在企業(yè)的管理中人是最活躍的因素，同時也是一個組織最基本的單位，是企業(yè)的基石，基石的穩(wěn)健與否，直接聯(lián)系著一個企業(yè)的興衰與穩(wěn)定，因此，每個企業(yè)都非常重視對人的管理，對企業(yè)員工的信息進行有高質(zhì)高效的管理，可以充分發(fā)揮員工的潛能，是完全有必要的，而實現(xiàn)這一目標，就需要借助于計算機技術(shù)，對員工的基本信息進行管理，以減輕管理人員的工作負擔，提升管理質(zhì)量。根據(jù)一般的中小型企業(yè)人事管理的實際要求，該模塊主要具有以下功能：（1） 掌握整個企業(yè)每個員工的基本情況。其中包括員工編號、姓名、性別、年齡、政治面貌、籍貫、出

46、生年月、學歷、職稱、家庭住址、電話等。（2） 可以根據(jù)不同的用戶名對員工信息進行瀏覽（3） 可以對員工的信息進行查詢（4） 要求可以對員工基本信息進行變動管理，對員工信息進行添加、刪除和修改操作。4.2模塊的建立由于此模塊是較為重要的一個模塊，因此，我將其作細化：（1） 查找界面用戶可以在現(xiàn)有的信息中進行查找，以便找到滿足條件的員工信息，進行瀏覽或者管理。該部分中可以根據(jù)員工的編號對員工的基本信息進行查詢。（2） 員工基本信息管理界面此部分功能就是如果員工的基本信息改變，那么用戶可以根據(jù)具體情況，對員工進行管理，可以執(zhí)行添加、刪除或者修改基本信息的操作。4.3 模塊的整體流程根據(jù)企業(yè)人事管理流

47、程，結(jié)合上述的各項功能，模塊的整體流程如圖4-1所示：登錄用戶通過驗證程序主窗口對現(xiàn)有員工的信息進行管理（包括添加、修改、刪除）查詢現(xiàn)有員工的基本信息重新登錄查詢幫助信息圖4-1 員工管理模塊總體流程圖4.4數(shù)據(jù)庫設(shè)計和前面一章相似，在名為HR.mdb的數(shù)據(jù)庫中建立1個名為Employee的表，本模塊主要針對的對象為員工的基本信息。其中，職工編號字段為該表的主關(guān)鍵字（Primary Key，PK），它唯一標識了一條教師記錄，這張表的結(jié)構(gòu)如表4-1所示：表4-1 員工表（Employee）字段說明類型寬度備注職工編號文本9主關(guān)鍵字部門編碼文本6不能為空姓名文本8不能為空性別文本2不能為空出生日期

48、日期/時間10不能為空民族文本10不能為空婚否文本2可以為空籍貫文本25不能為空家庭住址文本25不能為空聯(lián)系電話文本13可以為空身份證號特殊18不能為空政治面貌文本4不能為空文化程度文本6不能為空畢業(yè)學校文本20不能為空畢業(yè)時間日期/時間10不能為空所學專業(yè)文本20可以為空外語語種文本8可以為空入廠年月日期/時間10不能為空養(yǎng)老保險號特殊20不能為空職務文本8可以為空職稱文本10可以為空崗位文本10不能為空合同開始時間日期/時間10不能為空合同結(jié)束時間日期/時間10不能為空錄入時間日期/時間10不能為空錄入人文本8不能為空4.5程序的實現(xiàn)登錄后進入的主窗體中的“人事信息管理”主菜單中，“員工信

49、息管理”和“員工信息查詢”，及界面上的快捷菜單，都可以對企業(yè)的員工信息進行查詢與管理，其實現(xiàn)如下所述：4.5.1員工信息查詢在工程中添加一個員工信息查詢的窗體，取名為frmEmpQuery.frm，并為frmEmpQuery.frm窗體進行菜單的設(shè)計和代碼的設(shè)計。4.5.1.1員工信息查詢的操作方法當用戶需要對部門信息進行查詢時，可以在主界面的“人事信息管理”根菜單中，選擇“員工信息查詢”選項，也可點擊主窗體上的快捷鍵，彈出“員工信息查詢”窗體，如圖4-2所示圖4-2 員工工信息查詢界面在窗體中的“員工編號”中輸入要查詢的員工編號，點擊“查詢“按鈕，即可在窗體中“查詢結(jié)果”下方顯示所要查詢的信

50、息。如果輸入錯誤則點擊“清除”鍵后重新輸入進行查找，如果沒有查找到相關(guān)信息，則會彈出“錯誤揭示”消息框，并顯示“您所查找的員工不存在,請重新查找!”點擊確定后，重新輸入進行查找。查詢結(jié)束后點擊“退出”按鈕，退出查詢系統(tǒng)。4.5.1.2代碼實現(xiàn)（1）彈出員工查詢窗休（frmEmpQuery .frm）的代碼Private Sub mnuEmpQuery_Click() ListBarMain.ActiveList = 2 frmEmpQuery.ShowEnd Sub（2）實現(xiàn)查詢功能的代碼On Error GoTo LabErr txtEmpID.Text = Employees.Employ

51、ees("K_" & Trim(cmbEmpID.Text).EmpID txtEmpDepID.Text = Employees.Employees("K_" & Trim(cmbEmpID.Text).empDepID txtEmpName.Text = Employees.Employees("K_" & Trim(cmbEmpID.Text).empName txtEmpSex.Text = Employees.Employees("K_" & Trim(cmbEmpID.T

52、ext).empSex txtEmpBorn.Text = Employees.Employees("K_" & Trim(cmbEmpID.Text).empBornDate txtEmpNation.Text = Employees.Employees("K_" & Trim(cmbEmpID.Text).empNation txtEmpMarry.Text = Employees.Employees("K_" & Trim(cmbEmpID.Text).empMarry txtEmpNative.Text

53、 = Employees.Employees("K_" & Trim(cmbEmpID.Text).empNative txtEmpAddr.Text = Employees.Employees("K_" & Trim(cmbEmpID.Text).empAddr txtEmpPhone.Text = Employees.Employees("K_" & Trim(cmbEmpID.Text).empPhone txtEmpCard.Text = Employees.Employees("K_&quo

54、t; & Trim(cmbEmpID.Text).empCard txtEmpPolity.Text = Employees.Employees("K_" & Trim(cmbEmpID.Text).empPolity txtEmpDegree.Text = Employees.Employees("K_" & Trim(cmbEmpID.Text).empDegree txtEmpFinalSchool.Text = Employees.Employees("K_" & Trim(cmbEmpID.T

55、ext).empFinalSchool txtEmpFinalDate.Text = Employees.Employees("K_" & Trim(cmbEmpID.Text).empFinalDate txtEmpSpecial.Text = Employees.Employees("K_" & Trim(cmbEmpID.Text).empSpecial 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 = Employees.Employees("K_" & Trim(cmbEmpID.