【正文】 容。 ) amp。 dBeginDate amp。 dEndDate amp。 一、員工工作評價信息添加子模塊 選擇“員工工作評價管理 |添加工作評價信息”菜單，如圖 所示： 圖 員工工作評價信息添加窗口 畢業(yè)論文（企業(yè)人事管理系統(tǒng)開發(fā)） 第 24 頁 共 40 頁 首先，系統(tǒng)會初始化部門名稱： txtSQL = select DISTINCT ygdept from manrecord Set mrc = ExecuteSQL(txtSQL, MsgText) 這時，會加入部門內(nèi)容： cboItem(0).AddItem Trim(mrc!ygdept) 同樣，事先要進行員工檔案建立。 三、員工工作評價信息查詢子模塊 選擇“員工工作評價管理 |查詢工作評價信息”菜單，將出現(xiàn)如圖 4. 12 所示的窗體。 一、計發(fā)員工工資子模塊 選擇“員工工資管理 |計發(fā)員工工資信息”菜單，將出現(xiàn)如圖 413 所示的窗體。 而系統(tǒng)會自動的計算員工的實發(fā)工資。 稅額的計算方法是： If dblTotal = 0 Then dblTotal = 0 ElseIf dblTotal 0 And dblTotal = 500 Then dblTotal = dblTotal * ElseIf dblTotal 500 And dblTotal = 2021 Then dblTotal = dblTotal * 25 ElseIf dblTotal 200 And dblTotal = 5000 Then dblTotal = dblTotal * 125 畢業(yè)論文（企業(yè)人事管理系統(tǒng)開發(fā)） 第 26 頁 共 40 頁 ElseIf dblTotal 5000 And dblTotal = 20210 Then dblTotal = dblTotal * 375 Else MsgBox 請手工計算稅額！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If 二、員工工資信息修改子模塊 選擇“員工工資管理 |修改員工工資信息”菜單，將出現(xiàn)如圖 所示的窗體。兩種查詢也可畢業(yè)論文（企業(yè)人事管理系統(tǒng)開發(fā)） 第 27 頁 共 40 頁 以結(jié)合使用。UID=sa。用到 Form_Activate 函數(shù)。 39。 畢業(yè)論文（企業(yè)人事管理系統(tǒng)開發(fā)） 第 28 頁 共 40 頁 Trim((, 1)) amp。 圖 系統(tǒng)登錄 畢業(yè)論文（企業(yè)人事管理系統(tǒng)開發(fā)） 第 29 頁 共 40 頁 輸入用戶名和密碼后，進入系統(tǒng)。 圖 查詢員工信息 圖 查詢員工信息結(jié)果 畢業(yè)論文（企業(yè)人事管理系統(tǒng)開發(fā)） 第 30 頁 共 40 頁 選擇“員工考勤管理 |添加考勤信息”菜單，添加新記錄的信息，包括基本信息、出勤信息和其他信息。選擇“員工工資管 理 |計發(fā)員工工資信息”菜單，如圖 所示 . 圖 計發(fā)員工工資 畢業(yè)論文（企業(yè)人事管理系統(tǒng)開發(fā)） 第 31 頁 共 40 頁 系統(tǒng)的編譯 從本系統(tǒng)的調(diào)度過程可以看出，本系統(tǒng)基本上能夠運行 。 圖 進行項目的屬性設(shè)置 最后選擇“文件 |生成 ”菜單，編譯開始。通過測試的可執(zhí)行文件，就可以發(fā)布了 。 但是由于時間和技術(shù)上的一些原因，所以該系統(tǒng)還有許多不盡人意的地方，比如，用戶界面不夠美觀，未能實現(xiàn)相關(guān)報表的打印和數(shù)據(jù)統(tǒng)計的功能，企業(yè)人事管理的聯(lián)網(wǎng)操作還有待開發(fā)等方面的問題，這些都有待于進一步的改善。 通過此次畢業(yè)設(shè)計的完成，把理論知識運用到實踐中，即加深了對理論知識的理解，也認識 到本人在實踐中的不足，認識到只有從不斷的實踐工作中，才能真正學(xué)會知識，增強自己的工作能力。 Trim(txtItem(0)) amp。 Trim(txtItem(0)) amp。 End Select Next i Loop End With End If End Sub 三、刪除模塊 If flagEdit Then If 1 Then//判斷信息列表內(nèi)容是否為空 If MsgBox(真的要刪除這條文件記錄么？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then intCount = txtSQL = delete from manrecord where ygid=39。// 記載當前記錄位置 Set mrc = ExecuteSQL(txtSQL, MsgText)// 執(zhí)行刪除操作 = select * from manrecord// 重新載入記錄 flagEdit = True 。 Trim((, 1)) amp。 Set mrc = ExecuteSQL(txtSQL, MsgText)// 先刪除已有記錄 txtSQL = select * from manrecord Set mrc = ExecuteSQL(txtSQL, MsgText) For intCount = 0 To 2 (intCount) = Trim(txtItem(intCount)) Next intCount (3) = Trim() For intCount = 3 To 18 (intCount + 1) = Trim(txtItem(intCount)) Next intCount//再加入新記錄 If gintMode = 1 Then MsgBox 記錄添加成功！ , vbOKOnly + vbExclamation, 警告 For i = 0 To 18 txtItem(i).Text = mblChange = False Next i 畢業(yè)論文（企業(yè)人事管理系統(tǒng)開發(fā)） 第 36 頁 共 40 頁 0 = select * from manrecord 1 Else MsgBox 記錄修改成功！ , vbOKOnly + vbExclamation, 警告 Unload Me = select * from manrecord 0 End If 二、修改模塊 兩個函數(shù)的編寫 ShowTitle: Public Sub ShowTitle() Dim i As Integer With msgList .Cols = 21 .TextMatrix(0, 1) = 編號 .TextMatrix(0, 2) = 姓名 .TextMatrix(0, 3) = 部門 .TextMatrix(0, 4) = 性別 .TextMatrix(0, 5) = 出生日期 .TextMatrix(0, 6) = 籍貫 .TextMatrix(0, 7) = 學(xué)歷 .TextMatrix(0, 8) = 專業(yè) .TextMatrix(0, 9) = 參加工作時間 .TextMatrix(0, 10) = 入黨時間 .TextMatrix(0, 11) = 職稱 .TextMatrix(0, 12) = 職稱時間 .TextMatrix(0, 13) = 原身份 .TextMatrix(0, 14) = 原工作單位 .TextMatrix(0, 15) = 原職務(wù) .TextMatrix(0, 16) = 進入公司時間 .TextMatrix(0, 17) = 起薪時間 .TextMatrix(0, 18) = 調(diào)入時間 .TextMatrix(0, 19) = 檔號 .TextMatrix(0, 20) = 備注 .FixedRows = 1 畢業(yè)論文（企業(yè)人事管理系統(tǒng)開發(fā)） 第 37 頁 共 40 頁 For i = 0 To 20 .ColAlignment(i) = 0 Next i .FillStyle = flexFillRepeat .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols 1 .CellAlignment = 4 .ColWidth(0) = 300 .ColWidth(1) = 1000 .ColWidth(2) = 1000 .ColWidth(3) = 1000 .ColWidth(4) = 600 .ColWidth(5) = 1000 .ColWidth(6) = 2021 .ColWidth(7) = 1000 .ColWidth(8) = 2021 .ColWidth(9) = 1200 .ColWidth(10) = 1000 .ColWidth(11) = 1200 .ColWidth(12) = 1000 .ColWidth(13) = 1200 .ColWidth(14) = 3000 .ColWidth(15) = 1000 .ColWidth(16) = 1200 .ColWidth(17) = 1000 .ColWidth(18) = 1000 .ColWidth(19) = 1000 .ColWidth(20) = 1000 .Row = 1 End With End Sub ShowData: Public Sub ShowData() Dim j As Integer Dim i As Integer Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then With msgList .Rows = 1 Do While Not .Rows = .Rows + 1 畢業(yè)論文（企業(yè)人事管理系統(tǒng)開發(fā)） 第 38 頁 共 40 頁 For i = 1 To Select Case (i 1).Type Case adDBDate .TextMatrix(.Rows 1, i) = Format((i 1) amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 已經(jīng)存在此員工檔案編號的記錄！ , vbOKOnly + vbExclamation, 警告 txtItem(0).SetFocus txtItem(0).SelStart = 0 tx