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

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

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

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

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

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

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

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

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

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

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

12、管理員密碼文本8不能為空2.5 程序的實現 2.5.1 操作方法當用戶以Administrator用戶登錄窗體后，點擊“系統維護”菜單中的“系統用戶管理”項后，則出現如圖2-3所示的“系統用戶管理”窗體。圖2-3 系統用戶管理界面（1）添加系統用戶：點擊添加按鈕，輸入相應的用戶名稱，用戶權限和用戶口令（最好不少于6位），再點擊保存即可；（2）刪除系統用戶：在列表中選擇要刪除的用戶，之后再點擊刪除索按鈕即可；（3）修改系統用戶：再列表中選擇要修改的用戶，然后點擊圖片，修改用戶信息，最后點擊保存即可；2.5.2代碼的實現（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 "用戶權限不能為空,請輸入用戶權限.", 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 "添加系統用戶成功!", vbInformation + vbOKOnly, "成功提示" Else Call ClearInfo MsgBox "添加系統用戶失敗!", v

17、bCritical + 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.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 "用戶權限不能為空,請輸入用戶權限.", 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 得出的結果以及對結果的討論通過使用該模塊，就可以有效的規擁有使用權限的不同層次的管理人員的數量，便于企業領導隨時查閱他們的信息，規管理，保證輸入本系統的所有信息的準確性和一致性，確保“人事信息管理系統”的正常運行。3部門信息管理3.1模塊開發前提每個企業因其企業性質及管理模式的不同，組織結構也不盡相同，因此部門的劃分方法及細化程度也不一樣。但對于一個中小型企業來說，一般都會采用直線制，部門職能制等適合中

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

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

25、一份表格，其中詳述了每個字段的設置及對其的說明。在此表中，以部門編碼字段為該表的主關鍵字（Primary Key，PK），它唯一標識了每一個部門的記錄， 其詳表如下表所示：表3-1 Department表字段名類型寬度備注部門編碼文本7主關鍵字部門名稱文本10不能為空部門主管數字長整型不能為空，對應于Department表id字段部門描述文本200可以為空錄入時間日期/時間10可以為空錄入人文本8可以為空3.5 程序的實現在主菜單中，設計了三個根菜單，“人事信息管理”，“系統維護”和“雜項”。“人事信息管理”菜單用來對企業的部門、員工、工資等信息進行管理，在本節中，著重談到的是其中的對部門信息

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

27、查找的部門不存在,請重新查找!”點擊確定后，重新輸入進行查找。3.5.1.2代碼的實現（1）彈出部門查詢窗休（frmDepQuery .frm）：Private Sub mnuDepartQuery_Click() ListBarMain.ActiveList = 1 frmDepQuery.ShowEnd Sub（2）實現查詢功能的代碼如下：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, "錯誤提示"End Sub3.5.2部門信息管理在工程中添加一個部門信息管理的窗體，取名為frmDepManage.fr

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

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

32、_Click() ListBarMain.ActiveList = 1 frmDepManage.ShowEnd Sub（2）實現部門管理中的添加、刪除、修改功能實現添加部門信息的的代碼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 '當對象引用到集合中的其他的存空間時，再添加新的數據時，可以正常添加數據，但再次查詢時，原來集合中對應的數據會被覆蓋掉，但不會影響到數據庫的巨鹿添加 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, "錯誤提示" End IfEnd Sub實現對部門信息刪除的代碼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實現對部門信息修改功能的代碼 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, "錯誤

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

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

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

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

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

50、找，如果沒有查找到相關信息，則會彈出“錯誤揭示”消息框，并顯示“您所查找的員工不存在,請重新查找!”點擊確定后，重新輸入進行查找。查詢結束后點擊“退出”按鈕，退出查詢系統。4.5.1.2代碼實現（1）彈出員工查詢窗休（frmEmpQuery .frm）的代碼Private Sub mnuEmpQuery_Click() ListBarMain.ActiveList = 2 frmEmpQuery.ShowEnd Sub（2）實現查詢功能的代碼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