【正文】 本信息的操作，以適應(yīng)管理上的需求。通過(guò)此模塊，可以快速高效的對(duì)部門(mén)進(jìn)行的調(diào)整，以減少不必要的工作量，將工作人員從繁瑣的日常事務(wù)中解脫出來(lái)。 模塊的整體流程根據(jù)大多數(shù)中小企業(yè)的管理流程，結(jié)合上述的功能，模塊的整體流程如圖31所示：登錄用戶通過(guò)驗(yàn)證程序主窗口對(duì)現(xiàn)有部門(mén)的信息進(jìn)行管理（包括添加、修改、刪除）查詢現(xiàn)有部門(mén)的相關(guān)信息重新登錄查詢幫助信息圖31 部門(mén)管理模塊總體流程圖 數(shù)據(jù)庫(kù)的設(shè)計(jì)本次設(shè)計(jì)所用的數(shù)據(jù)庫(kù)為Access，在名為HR的數(shù)據(jù)庫(kù)中建立了一個(gè)表，名字為Department，可以在程序中對(duì)其進(jìn)行調(diào)用。本模塊以企業(yè)部門(mén)的基本信息為對(duì)象，編制了一份表格，其中詳述了每個(gè)字段的設(shè)置及對(duì)其的說(shuō)明。在此表中，以部門(mén)編碼字段為該表的主關(guān)鍵字（Primary Key，PK），它唯一標(biāo)識(shí)了每一個(gè)部門(mén)的記錄， 其詳表如下表所示：表31 Department表字段名類型寬度備注部門(mén)編碼文本7主關(guān)鍵字部門(mén)名稱文本10不能為空部門(mén)主管數(shù)字長(zhǎng)整型不能為空，對(duì)應(yīng)于Department表id字段部門(mén)描述文本200可以為空錄入時(shí)間日期/時(shí)間10可以為空錄入人文本8可以為空 程序的實(shí)現(xiàn)在主菜單中，設(shè)計(jì)了三個(gè)根菜單，“人事信息管理”，“系統(tǒng)維護(hù)”和“雜項(xiàng)”?！叭耸滦畔⒐芾怼辈藛斡脕?lái)對(duì)企業(yè)的部門(mén)、員工、工資等信息進(jìn)行管理，在本節(jié)中，著重談到的是其中的對(duì)部門(mén)信息的管理工作。在窗體中添加一個(gè)部門(mén)信息查詢的窗體，取名為frmDepQuery .frm,并為frmDepQuery .frm窗體進(jìn)行菜單的設(shè)計(jì)和代碼的設(shè)計(jì)。 部門(mén)信息查詢的操作方法：當(dāng)用戶需要對(duì)部門(mén)信息進(jìn)行查詢時(shí)，可以在主界面的“人事信息管理”根菜單中，選擇“部門(mén)信息查詢”選項(xiàng)，也可點(diǎn)擊主窗體上的快捷鍵“部門(mén)信息查詢”，彈出“部門(mén)信息查詢”窗體，如圖32所示圖32 部門(mén)信息查詢界面在窗體中的“部門(mén)編碼”中輸入要查詢的部門(mén)編碼，點(diǎn)擊“查詢”按鈕，即可在窗體中“查詢結(jié)果”下方顯示所要查詢的信息。如果沒(méi)有查找到相關(guān)信息，則會(huì)彈出“錯(cuò)誤揭示”消息框，并顯示“您所查找的部門(mén)不存在,請(qǐng)重新查找!”點(diǎn)擊確定后，重新輸入進(jìn)行查找。（1）彈出部門(mén)查詢窗休（frmDepQuery .frm）：Private Sub mnuDepartQuery_Click() = 1 End Sub（2）實(shí)現(xiàn)查詢功能的代碼如下：Private Sub cmdQuery_Click()On Error GoTo LabErr = (K_ amp。 ).DepID = (K_ amp。 ).depName = (K_ amp。 ).depMaster = (K_ amp。 ).depNote = (K_ amp。 ).depDateIn = (K_ amp。 ).depInner Exit SubLabErr: Call ClearInfo MsgBox 您所查找的部門(mén)不存在,請(qǐng)重新查找!, vbCritical + vbOKOnly, 錯(cuò)誤提示End Sub在工程中添加一個(gè)部門(mén)信息管理的窗體， 并為這個(gè)窗體進(jìn)行代碼設(shè)計(jì)。對(duì)部門(mén)信息進(jìn)行管理，即對(duì)部門(mén)信息進(jìn)行增加、刪除、修改操作，從而實(shí)現(xiàn)對(duì)部門(mén)信息的管理工作?？稍谶M(jìn)入主界面后單擊“人事信息管理”菜單，選擇“部門(mén)信息管理”項(xiàng)，則會(huì)彈出部門(mén)信息管理窗體，如圖33 所示：圖33 部門(mén)信息管理界面在此窗體中即可實(shí)現(xiàn)對(duì)部門(mén)信息的管理工作，（1） 點(diǎn)擊“添加”按鈕，即可彈出“添加部門(mén)”(frmAddDep)窗體，如圖34所示：圖34 部門(mén)添加界面在窗體中輸入需要更改的信息后，點(diǎn)擊“添加”按扭后，添加信息，如想取消輸入則點(diǎn)擊清除按扭即可，然后點(diǎn)擊“關(guān)閉”按鈕退出添加窗體（2）點(diǎn)擊“刪除”按鈕點(diǎn)擊“刪除”按鈕后，彈出“部門(mén)信息刪除”（frmDeleteDep）窗體，如圖35所示：圖35 刪除部門(mén)信息界面在列表中點(diǎn)擊要?jiǎng)h除的信息后，點(diǎn)擊“刪除”按鈕，即可刪除信息，點(diǎn)擊“關(guān)閉”關(guān)閉窗體。（3）點(diǎn)擊“修改”按鈕先在列表中選中需修改的部門(mén)信息，點(diǎn)擊“修改”按鈕后彈出“部門(mén)信息修改”（frmModifyDep）窗體，如圖36所示：圖36 部門(mén)信息修改界面修改過(guò)信息后，點(diǎn)擊“修改”按鈕，即完成對(duì)部門(mén)信息的修改工作，然后點(diǎn)擊“關(guān)閉”按鈕退出修改窗體。（1）彈出部門(mén)管理窗體（）的代碼Private Sub mnuDepartManage_Click() = 1 End Sub（2）實(shí)現(xiàn)部門(mén)管理中的添加、刪除、修改功能①實(shí)現(xiàn)添加部門(mén)信息的的代碼Private Sub cmdAdd_Click() If = Then MsgBox 部門(mén)編碼不能為空,請(qǐng)輸入部門(mén)編碼!, vbInformation + vbOKOnly, 信息不完整 Exit Sub End If If = Then MsgBox 部門(mén)名稱不能為空,請(qǐng)輸入部門(mén)名稱!, vbInformation + vbOKOnly, 信息不完整 Exit Sub End If If = Then MsgBox 部門(mén)主管不能為空,請(qǐng)輸入部門(mén)主管!, vbInformation + vbOKOnly, 信息不完整 Exit Sub End If If = Then MsgBox 部門(mén)描述不能為空,請(qǐng)輸入部門(mén)描述!, vbInformation + vbOKOnly, 信息不完整 Exit Sub End If If = Then MsgBox 部門(mén)錄入人不能為空,請(qǐng)輸入部門(mén)錄入人!, vbInformation + vbOKOnly, 信息不完整 Exit Sub End If Set Dep = Nothing 39。當(dāng)對(duì)象引用到集合中的其他的內(nèi)存空間時(shí)，再添加新的數(shù)據(jù)時(shí)，可以正常添加數(shù)據(jù)，但再次查詢時(shí)，原來(lái)集合中對(duì)應(yīng)的數(shù)據(jù)會(huì)被覆蓋掉，但不會(huì)影響到數(shù)據(jù)庫(kù)的巨鹿添加 = Trim() = Trim() = Trim() = Trim() = Trim() = Trim() If (Dep) = True Then Call ClearInfo Set subitem = (, K_ amp。 , ) , , , , , , , , , , MsgBox 添加部門(mén)信息成功!, vbInformation + vbOKOnly, 成功提示 Else MsgBox 添加部門(mén)信息失敗!, vbCritical + vbOKOnly, 錯(cuò)誤提示 End IfEnd Sub②實(shí)現(xiàn)對(duì)部門(mén)信息刪除的代碼Private Sub cmdClear_Click() Call ClearInfoEnd SubPrivate Sub ClearInfo() = = = = = End SubPrivate Sub Form_Load() = today()End SubPrivate Sub Form_Unload(Cancel As Integer) Set Dep = NothingEnd Sub③實(shí)現(xiàn)對(duì)部門(mén)信息修改功能的代碼 If = Then MsgBox 部門(mén)編碼不能為空,請(qǐng)輸入部門(mén)編碼!, vbInformation + vbOKOnly, 信息不完整 Exit Sub End If If = Then MsgBox 部門(mén)名稱不能為空,請(qǐng)輸入部門(mén)名稱!, vbInformation + vbOKOnly, 信息不完整 Exit Sub End If If = Then MsgBox 部門(mén)主管不能為空,請(qǐng)輸入部門(mén)主管!, vbInformation + vbOKOnly, 信息不完整 Exit Sub End If If = Then MsgBox 部門(mén)描述不能為空,請(qǐng)輸入部門(mén)描述!, vbInformation + vbOKOnly, 信息不完整 Exit Sub End If If = Then MsgBox 部門(mén)錄入人不能為空,請(qǐng)輸入部門(mén)錄入人!, vbInformation + vbOKOnly, 信息不完整 Exit Sub End If = Trim() = Trim() = Trim() = Trim() = Trim() = Trim() If (Dep) = True Then = (1).Text = (2).Text = (3).Text = (4).Text = (5).Text = = False = False Unload Me MsgBox 修改部門(mén)信息成功!, vbInformation + vbOKOnly, 成功提示 Else = False = False Unload Me MsgBox 修改部門(mén)信息失敗!, vbCritical + vbOKOnly, 錯(cuò)誤提示 End IfEnd Sub4員工信息管理在企業(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)、姓名、性別、年齡、政治面貌、籍貫、出生年月、學(xué)歷、職稱、家庭住址、電話等。（2） 可以根據(jù)不同的用戶名對(duì)員工信息進(jìn)行瀏覽（3） 可以對(duì)員工的信息進(jìn)行查詢（4） 要求可以對(duì)員工基本信息進(jìn)行變動(dòng)管理，對(duì)員工信息進(jìn)行添加、刪除和修改操作。由于此模塊是較為重要的一個(gè)模塊，因此，我將其作細(xì)化：（1） 查找界面用戶可以在現(xiàn)有的信息中進(jìn)行查找，以便找到滿足條件的員工信息，進(jìn)行瀏覽或者管理。該部分中可以根據(jù)員工的編號(hào)對(duì)員工的基本信息進(jìn)行查詢。（2） 員工基本信息管理界面此部分功能就是如果員工的基本信息改變，那么用戶可以根據(jù)具體情況，對(duì)員工進(jìn)行管理，可以執(zhí)行添加、刪除或者修改基本信息的操作。 模塊的整體流程根據(jù)企業(yè)人事管理流程，結(jié)合上述的各項(xiàng)功能，模塊的整體流程如圖41所示：登錄用戶通過(guò)驗(yàn)證程序主窗口對(duì)現(xiàn)有員工的信息進(jìn)行管理（包括添加、修改、刪除）查詢現(xiàn)有員工的基本信息重新登錄查詢幫助信息圖41 員工管理模塊總體流程圖和前面一章相似，本模塊主要針對(duì)的對(duì)象為員工的基本信息。其中，職工編號(hào)字段為該表的主關(guān)鍵字（Primary Key，PK），它唯一標(biāo)識(shí)了一條教師記錄，這張表的結(jié)構(gòu)如表41所示：表41 員工表（Employee）字段說(shuō)明類型寬度備注職工編號(hào)文本9主關(guān)鍵字部門(mén)編碼文本6不能為空姓名文本8不能為空性別文本2不能為空出生日期日期/時(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í)間1