【正文】 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ì)量。其中，職工編號(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í)間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不能為空登錄后進(jìn)入的主窗體中的“人事信息管理”主菜單中，“員工信息管理”和“員工信息查詢”，及界面上的快捷菜單，都可以對(duì)企業(yè)的員工信息進(jìn)行查詢與管理，其實(shí)現(xiàn)如下所述：在工程中添加一個(gè)員工信息查詢的窗體。 Trim()).empSex = (K_ amp。 Trim()).empPolity = (K_ amp。 Trim()).empDuty = (K_ amp。然后點(diǎn)擊“關(guān)閉”按鈕退出修改窗體。由此引發(fā)管理質(zhì)量的低下，不利于企業(yè)的管理，因此由能力所限，本人設(shè)計(jì)的工資管理模塊，使工資管理工作由手工變?yōu)槭褂糜?jì)算機(jī)管理，在一定程度上提高工資管理的效率，減少了浪費(fèi)和出錯(cuò)率。 Trim() amp。 Trim() amp。 Trim()).salOverWork = (K_ amp。 Trim() amp。 Trim() amp。 Trim()).salKeap = (K_ amp。 Trim() amp。 vbCrLf amp。 vbCrLf amp。 = = CSng(FormatNumber(, 2)) = CSng(FormatNumber(, 2)) = CSng(FormatNumber(, 2)) = CSng(FormatNumber(, 2)) = CSng(FormatNumber(, 2)) = CSng(FormatNumber(, 2)) = CSng(FormatNumber(, 2)) = CSng(FormatNumber(, 2)) = CSng(FormatNumber(, 2)) = CSng(FormatNumber(, 2)) = CSng(FormatNumber(, 2)) = CSng(FormatNumber(, 2)) = = If (Sal) = True Then Call ClearInfo = False Set subitem = (, K_ amp。 ) = False = False Unload Me MsgBox 刪除員工工資信息成功!, vbInformation + vbOKOnly, 成功提示 Else = False = False Unload Me MsgBox 刪除員工工資信息失敗!, vbCritical + vbOKOnly, 錯(cuò)誤提示 End If Else = False = False Unload Me End IfEnd Sub③實(shí)現(xiàn)對(duì)員工信息修改功能的代碼Private Sub cmdModify_Click() If = Then MsgBox 員工編碼不能為空,請(qǐng)輸入員工編碼!, vbInformation + vbOKOnly, 輸入信息不完整 Exit Sub End If If = Then MsgBox 員工工資年份不能為空,請(qǐng)輸入員工工資年份!, vbInformation + vbOKOnly, 輸入信息不完整 Exit Sub End If If = Then MsgBox 員工工資月份不能為空,請(qǐng)輸入員工工資月份!, vbInformation + vbOKOnly, 輸入信息不完整 。 , ) , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , MsgBox 添加員工工資信息成功!, vbInformation + vbOKOnly, 成功提示 Else MsgBox 添加員工工資信息失敗!, vbCritical + vbOKOnly, 錯(cuò)誤提示 End IfEnd Sub②實(shí)現(xiàn)對(duì)工資信息刪除的代碼Private Sub cmdDelete_Click() If MsgBox(確認(rèn)刪除該員工 amp。 vbCrLf amp。 vbCrLf amp。對(duì)員工工資信息進(jìn)行管理，即對(duì)員工工資信息進(jìn)行增加、刪除、修改操作，從而實(shí)現(xiàn)對(duì)員工信息的管理工作。 Trim() amp。 Trim()).salSick = (K_ amp。 Trim() amp。 Trim() amp。 Trim()).salPost = (K_ amp。 Trim() amp。（2） 在工資管理方面在此模塊中，我的設(shè)計(jì)是可以對(duì)員工的工資信息進(jìn)行添加，修改，刪除操作；如果在添加操作過(guò)程中輸入信息不全，則會(huì)提出相應(yīng)的提示，以增加準(zhǔn)確度。 , ) , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , MsgBox 添加員工信息成功!, vbInformation + vbOKOnly, 成功提示 Else MsgBox 添加員工信息失敗!, vbCritical + vbOKOnly, 錯(cuò)誤提示 End IfEnd Sub②實(shí)現(xiàn)對(duì)員工信息刪除的代碼Private Sub cmdDelete_Click() If MsgBox(確認(rèn)刪除該員工的信息嗎? amp。 Trim()).empPactBegin = (K_ amp。 Trim()).empFinalSchool = (K_ amp。 Trim()).empNation = (K_ amp。如果輸入錯(cuò)誤則點(diǎn)擊“清除”鍵后重新輸入進(jìn)行查找，如果沒(méi)有查找到相關(guān)信息，則會(huì)彈出“錯(cuò)誤揭示”消息框，并顯示“您所查找的員工不存在,請(qǐng)重新查找!”點(diǎn)擊確定后，重新輸入進(jìn)行查找。其中包括員工編號(hào)、姓名、性別、年齡、政治面貌、籍貫、出生年月、學(xué)歷、職稱、家庭住址、電話等。對(duì)部門(mén)信息進(jìn)行管理，即對(duì)部門(mén)信息進(jìn)行增加、刪除、修改操作，從而實(shí)現(xiàn)對(duì)部門(mén)信息的管理工作。如果沒(méi)有查找到相關(guān)信息，則會(huì)彈出“錯(cuò)誤揭示”消息框，并顯示“您所查找的部門(mén)不存在,請(qǐng)重新查找!”點(diǎn)擊確定后，重新輸入進(jìn)行查找。（2）在操作方面在此部分中，用戶可以根據(jù)管理中的不同需求，對(duì)部門(mén)信息進(jìn)行調(diào)整，即可以執(zhí)行添加、刪除和修改基本信息的操作，以適應(yīng)管理上的需求。 , ) , , , , = False = False = False = FalseEnd Sub（2）刪除用戶Private Sub cmdDelete_Click() Call ClearInfoEnd Sub（3）修改用戶 If = Then MsgBox 用戶名不能為空,請(qǐng)輸入用戶名., vbInformation + vbOKOnly, 信息不完整 Exit Sub End If If = Then MsgBox 用戶口令不能為空,請(qǐng)輸入用口令., vbInformation + vbOKOnly, 信息不完整 Exit Sub End If If Len(Trim()) 6 Then If MsgBox(用戶口令長(zhǎng)度小于6位,建議使用長(zhǎng)度大于6位的口令! amp。Administrator用戶是管理員用戶，可以在系統(tǒng)用戶管理中，增加相應(yīng)的用戶，并且指定用戶的權(quán)限（即擁有添加、刪除、修改系統(tǒng)信息的權(quán)限）；User用戶為普通用戶，只能對(duì)系統(tǒng)信息瀏覽。在工資信息查詢功能中，用戶可以在表中選擇所列出的員工編碼和工資月份，選擇相應(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)的功能。應(yīng)用軟件在當(dāng)前居于主流且技術(shù)領(lǐng)先系統(tǒng)平臺(tái)上設(shè)計(jì)，并且安裝簡(jiǎn)單。面對(duì)越來(lái)越大的信息量，就需要使用“小型企業(yè)人事管理系統(tǒng)”來(lái)提高整個(gè)企業(yè)的管理工作效率。本系統(tǒng)設(shè)計(jì)適用于中小型企業(yè)的人事系統(tǒng)管理，在一定程序上提高了企業(yè)的管理效率，規(guī)范了管理，減輕人事管理部門(mén)的壓力，將人們從繁重而單一的工作中解放出來(lái)，從而進(jìn)一步提高了小型企業(yè)人事信息管理的工作效率，以下為我關(guān)鍵詞：數(shù)據(jù)庫(kù)，模塊，部門(mén)管理，員工管理，工資管理Abstract目 錄1前言 課題的意義、目的 課題研究的范圍