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

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

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

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

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

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

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

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

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

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

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

11、維護(hù)”菜單中的“系統(tǒng)用戶管理”，就可以進(jìn)入下圖的界面，從而實(shí)現(xiàn)對用戶的添加，刪除，修改操作。2.3 模塊的整體流程登錄系統(tǒng)通過驗(yàn)證系統(tǒng)管理模塊主窗體添加新用戶刪除用戶修改用戶重新登錄圖2-2式模塊整體流程2.4 數(shù)據(jù)庫的設(shè)計(jì)本次設(shè)計(jì)的系統(tǒng)使用的是Access 2000作為數(shù)據(jù)庫管理系統(tǒng)，在Access中，新建一個(gè)數(shù)據(jù)庫，將其命名為“HR.mdb”，在新建的數(shù)據(jù)庫中建立一個(gè)名為SystemUser的表，表中用戶名為關(guān)鍵字，唯一標(biāo)識出表中的記錄。其字段結(jié)構(gòu)如表3-1所示：表2-1 用戶管理表（Admin）字段名字段說明類型寬度備注用戶名稱管理員名文本10主關(guān)鍵字用戶權(quán)限管理員權(quán)限文本8不能為空密碼

12、管理員密碼文本8不能為空2.5 程序的實(shí)現(xiàn) 2.5.1 操作方法當(dāng)用戶以Administrator用戶登錄窗體后，點(diǎn)擊“系統(tǒng)維護(hù)”菜單中的“系統(tǒng)用戶管理”項(xiàng)后，則出現(xiàn)如圖2-3所示的“系統(tǒng)用戶管理”窗體。圖2-3 系統(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)擊圖片，修改用戶信息，最后點(diǎn)擊保存即可；2.5.2代碼的實(shí)現(xiàn)（1）添加用戶Private Sub cmdAdd_Click() txtNa

13、me.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 If If tx

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

15、 + 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 = Nothing

16、 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)用戶失敗!", v

17、bCritical + vbOKOnly, "錯(cuò)誤提示" 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.Enabled =

18、 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、quot; 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位的口令!" & vbCrLf

20、& "是: 修改/否:不修改", 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, "信息不完整" cmbPermission

21、.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.Selected

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

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

24、整，即可以執(zhí)行添加、刪除和修改基本信息的操作，以適應(yīng)管理上的需求。通過此模塊，可以快速高效的對部門進(jìn)行的調(diào)整，以減少不必要的工作量，將工作人員從繁瑣的日常事務(wù)中解脫出來。3.3 模塊的整體流程根據(jù)大多數(shù)中小企業(yè)的管理流程，結(jié)合上述的功能，模塊的整體流程如圖3-1所示：登錄用戶通過驗(yàn)證程序主窗口對現(xiàn)有部門的信息進(jìn)行管理（包括添加、修改、刪除）查詢現(xiàn)有部門的相關(guān)信息重新登錄查詢幫助信息圖3-1 部門管理模塊總體流程圖3.4 數(shù)據(jù)庫的設(shè)計(jì)本次設(shè)計(jì)所用的數(shù)據(jù)庫為Access，在名為HR的數(shù)據(jù)庫中建立了一個(gè)表，名字為Department，可以在程序中對其進(jìn)行調(diào)用。本模塊以企業(yè)部門的基本信息為對象，編制了

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

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

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

28、pID 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 = Departments.Depar

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

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

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

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

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

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

35、If Set Dep = Nothing '當(dāng)對象引用到集合中的其他的存空間時(shí)，再添加新的數(shù)據(jù)時(shí)，可以正常添加數(shù)據(jù)，但再次查詢時(shí)，原來集合中對應(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(DTPIn.Value) Dep.depInner = Trim(tx

36、tInner.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.depNote subitem

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

38、bPrivate 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 Integer) Set

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

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

41、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) Dep.depMaster

42、 = 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 = Dep.depN

43、ame 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 frmDepManage.cm

44、dDelete.Enabled = False frmDepManage.cmdModify.Enabled = False Unload Me MsgBox "修改部門信息成功!", vbInformation + vbOKOnly, "成功提示" Else frmDepManage.cmdDelete.Enabled = False frmDepManage.cmdModify.Enabled = False Unload Me MsgBox "修改部門信息失敗!", vbCritical + vbOKOnly, "錯(cuò)誤

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

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

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

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

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

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

51、 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.Text).empSex txtEmpBorn.T

52、ext = 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 = Employees.Employees(&

53、quot;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_" & Trim(cmbEmpID.T

54、ext).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.Text).empFinalSchool txtE

55、mpFinalDate.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.Text).empDuty txtEmpPost.Te