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

1、中小型企業(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)。在這個(gè)系統(tǒng)的設(shè)計(jì)中我使用了功能強(qiáng)大的Visual Basic 6.0作為軟件開(kāi)發(fā)工具，Microsoft Access 2000作為數(shù)據(jù)庫(kù)管理系統(tǒng)，該系統(tǒng)實(shí)現(xiàn)了較為簡(jiǎn)單的人事信息管理，其中包括部門管理，員工管理，工資管理等功能。本系統(tǒng)設(shè)計(jì)適用于

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

3、的討論3部門信息管理3.1模塊開(kāi)發(fā)前提3.2模塊的建立 3.3 模塊的整體流程3.4 數(shù)據(jù)庫(kù)的設(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模塊開(kāi)發(fā)前提4.2模塊的建立4.3 模塊的整體流程4.4數(shù)據(jù)庫(kù)設(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模塊開(kāi)發(fā)前提52模塊的建立5.3模塊的整體流程5.4數(shù)據(jù)庫(kù)的設(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開(kāi)發(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簡(jiǎn)便

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

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

7、和財(cái)力等資源。（3） 實(shí)用性強(qiáng)軟件充分滿足中小型企業(yè)的不同管理需求，且操作簡(jiǎn)單，易于維護(hù)，便于保存和傳閱。（4） 操作簡(jiǎn)便軟件使用直觀的圖形界面，即見(jiàn)既得的錄入格式、方便的錄入方式，電腦操作與手工處理流程完全一致，任何人員可在極短時(shí)間內(nèi)無(wú)師自通。（5）功能齊全可以隨時(shí)查詢或統(tǒng)計(jì)企業(yè)員工的各種資料。1.4 課題解決的主要問(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è)部門信息的查詢，添加，修改，刪除工作。（3

8、） 在“員工管理模塊”中，可以實(shí)現(xiàn)對(duì)所在企業(yè)員工基本信息的錄入，根據(jù)不同的身份給予不同的使用權(quán)限，實(shí)現(xiàn)對(duì)員工基本信息的添加、編輯和刪除操作；（4） 在“工資管理模塊”中，分為工資信息查詢和工資信息管理。在工資信息查詢功能中，用戶可以在表中選擇所列出的員工編碼和工資月份，選擇相應(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)的功能。 （5） 在“數(shù)據(jù)管理模塊”中，實(shí)現(xiàn)對(duì)數(shù)據(jù)的備份及恢復(fù)功以。即用戶可輸入所要備份數(shù)據(jù)文件及恢復(fù)數(shù)

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

10、作權(quán)限。Administrator用戶是管理員用戶，可以在系統(tǒng)用戶管理中，增加相應(yīng)的用戶，并且指定用戶的權(quán)限（即擁有添加、刪除、修改系統(tǒng)信息的權(quán)限）；User用戶為普通用戶，只能對(duì)系統(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è)信息管理的工作量較大，因此需要參與的各層管理人員也會(huì)相應(yīng)的增加，所以我專門增加了一些管理人員，以適應(yīng)企業(yè)管理的需求，通過(guò)點(diǎn)擊操作

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

12、8不能為空密碼管理員密碼文本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(

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

14、f If txtPassword.Text = "" Then MsgBox "用戶口令不能為空,請(qǐng)輸入用口令.", vbInformation + vbOKOnly, "信息不完整" txtPassword.SetFocus Exit Sub End If If Len(Trim(txtPassword.Text) < 6 Then If MsgBox("用戶口令長(zhǎng)度小于6位,建議使用長(zhǎng)度大于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)限不能為空,請(qǐng)輸入用戶權(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, "錯(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.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 "用戶名不能為空,請(qǐng)輸入用戶名.", vbInformation + vbOKOnly, "

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

20、vbCrLf & "是: 修改/否:不修改", vbInformation + vbYesNo, "安全提示") = vbYes Then txtPassword.Text = "" txtPassword.SetFocus Exit Sub End If End If If cmbPermission.Text = "" Then MsgBox "用戶權(quán)限不能為空,請(qǐng)輸入用戶權(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é)果以及對(duì)結(jié)果的討論通過(guò)使用該模塊，就可以有效的規(guī)范擁有使用權(quán)限的不同層次的管理人員的數(shù)量，便于企業(yè)領(lǐng)導(dǎo)隨時(shí)查閱他們的信息，規(guī)范管理，保證輸入本系統(tǒng)的所有信息的準(zhǔn)確性和一致性，確?！叭耸滦畔⒐芾硐到y(tǒng)”的正常運(yùn)行。3部門信息管理3.1模塊開(kāi)發(fā)前提每個(gè)企業(yè)因其企業(yè)性質(zhì)及管理模式的不同，組織結(jié)構(gòu)也不盡相同，因此部門的劃分方法及細(xì)化程度也不一樣。但對(duì)于一個(gè)中小型企業(yè)來(lái)說(shuō)，一般都會(huì)采用直線制，

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

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

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

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

27、消息框，并顯示“您所查找的部門不存在,請(qǐng)重新查找!”點(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_" & 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 "您所查找的部門不存在,請(qǐng)重新查找!", vbCritical + vbOKOnly, "錯(cuò)誤提示"End Sub3.5.2部門信息管理在工程中添加一個(gè)部門信息管理的窗體，取名為frmDe

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

31、2）點(diǎn)擊“刪除”按鈕點(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 部門信息修改界面修改過(guò)信息后，點(diǎn)擊“修改”按鈕，即完成對(duì)部門信息的修改工作，然后點(diǎn)擊“關(guān)閉”按鈕退出修改窗體。3.5.2.2代碼實(shí)現(xiàn)（1）彈出部門管理窗體（frmDepManage.frm）的代碼Private Sub mnuDe

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

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

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

35、t Sub End If Set Dep = Nothing '當(dāng)對(duì)象引用到集合中的其他的內(nèi)存空間時(shí)，再添加新的數(shù)據(jù)時(shí)，可以正常添加數(shù)據(jù)，但再次查詢時(shí)，原來(lái)集合中對(duì)應(yīng)的數(shù)據(jù)會(huì)被覆蓋掉，但不會(huì)影響到數(shù)據(jù)庫(kù)的巨鹿添加 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, "錯(cuò)誤提示" End IfEnd Sub實(shí)現(xiàn)對(duì)部門信息刪除的代碼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實(shí)現(xiàn)對(duì)部門信息修改功能的代碼 If txtDepID.Text = "" Then MsgBox "部門編碼不能為空,請(qǐng)輸入部門編碼!", vbInformation + vbOKOnly, "信息不完整" txtDepID.SetFocus Exit Sub End If If txtDepName.Text = "" Then MsgBox "部門名稱不能為空,請(qǐng)輸入部門名稱!", vbInformation + vbOKOnl

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

41、ormation + vbOKOnly, "信息不完整" txtDepNote.SetFocus Exit Sub End If If txtInner.Text = "" Then MsgBox "部門錄入人不能為空,請(qǐng)輸入部門錄入人!", 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, "錯(cuò)誤提示" End IfEnd Sub4員工信息管理4.1模塊開(kāi)發(fā)前提在企業(yè)的管理中人是最活躍的因素，同時(shí)也是一個(gè)組織最基本的單位，是企業(yè)的基石，基石的穩(wěn)健與否，直接聯(lián)系著一個(gè)企業(yè)的興衰與穩(wěn)定，因此，每個(gè)企業(yè)都非常重視對(duì)人的管理，對(duì)企業(yè)員工的信息進(jìn)行有高質(zhì)高效的管理，可以充分發(fā)揮員工的潛能，是完全有必要的，而實(shí)現(xiàn)這一目標(biāo)，就需要借助于計(jì)算機(jī)技術(shù)，對(duì)員工的基本信息進(jìn)行管理，以減輕管理人員的工作負(fù)擔(dān)，提升管理質(zhì)量。根據(jù)一般的中小型企業(yè)人事管理的實(shí)際要求，該模塊主要具有以下功能：（1） 掌握整個(gè)企業(yè)每個(gè)員工的基本情況。其中包括員工編號(hào)、姓名、性別、年齡、政治面貌、籍貫、出

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

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

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

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

50、息。如果輸入錯(cuò)誤則點(diǎn)擊“清除”鍵后重新輸入進(jìn)行查找，如果沒(méi)有查找到相關(guān)信息，則會(huì)彈出“錯(cuò)誤揭示”消息框，并顯示“您所查找的員工不存在,請(qǐng)重新查找!”點(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.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.