【正文】 開(kāi)發(fā)） 第 18 頁(yè) 共 40 頁(yè) 圖 修改密碼窗口 首先判斷兩次輸入的密碼是否一致，如果一致的話，就找到該用戶名，修改其密碼： txtSQL = select * from user_Info1 where user_ID =39。 Trim(txtItem(0)) amp。 howTitle 函數(shù) : 首先要定義列數(shù)： .Cols = 21 然后要定義列標(biāo)題： .TextMatrix(0, 1) = 編號(hào) .TextMatrix(0, 2) = 姓名 .TextMatrix(0, 3) = 部門(mén) .TextMatrix(0, 4) = 性別 .TextMatrix(0, 5) = 出生日期 .TextMatrix(0, 6) = 籍貫 . . . .TextMatrix(0, 20) = 備注 還要固定表頭： .FixedRows = 1 之后還要進(jìn)行一些格式的設(shè)置等等。 amp。 and ygdate1 = 39。 = False 這里還用到了一個(gè)控件 SSTAB(屬性頁(yè)控件 )： 如圖 所示： 圖 設(shè)置屬性頁(yè)控件 可以將各種文本錄入控件放在屬性頁(yè)控件的各個(gè)頁(yè)面上，組成“基本信息”、“考勤信息”、“其他信息”。 amp。 and kqdate=39。 二、員工工作評(píng)價(jià)信息修改子模塊 選擇“員工工作評(píng)價(jià)管理 |修改工作評(píng)價(jià)信息”菜單，將出現(xiàn)如圖 411 所示的窗體。 底薪和計(jì)發(fā)時(shí)間不能為空。 三、 員工工資信息的查詢子模塊 選擇“員工工資管理 |員工工資查詢”菜單，將出現(xiàn)如圖 415 所示的窗體。 SQL， Set ExecuteSQL = rst 二、登陸模塊 系統(tǒng)啟動(dòng)時(shí)，彈出個(gè)登錄窗口，如圖 所示。 miCount = miCount + 1 If miCount = 3 Then End If 三、刪除模塊 在編寫(xiě)代碼時(shí)，要先記錄被刪除對(duì)象的當(dāng)前位置： intCount = txtSQL = delete from manrecord where ygid=39。 選擇“員工基本信息 |添加員工信息”菜單，出現(xiàn)如圖 所示的窗口，輸入 員工信息的各項(xiàng)內(nèi)容。 在系統(tǒng)的編譯和發(fā)行以前，需要設(shè)置工程項(xiàng)目的屬性。其功能基本符合該類(lèi)企業(yè)的人事管理方面的需求。 畢業(yè)論文（企業(yè)人事管理系統(tǒng)開(kāi)發(fā)） 第 35 頁(yè) 共 40 頁(yè) 附 錄 （以員工基本信息為例） 一、添加模塊 If gintMode = 1 Then txtSQL = select * from manrecord where ygid=39。 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)開(kāi)發(fā)） 第 36 頁(yè) 共 40 頁(yè) 0 = select * from manrecord 1 Else MsgBox 記錄修改成功！ , vbOKOnly + vbExclamation, 警告 Unload Me = select * from manrecord 0 End If 二、修改模塊 兩個(gè)函數(shù)的編寫(xiě) ShowTitle: Public Sub ShowTitle() Dim i As Integer With msgList .Cols = 21 .TextMatrix(0, 1) = 編號(hào) .TextMatrix(0, 2) = 姓名 .TextMatrix(0, 3) = 部門(mén) .TextMatrix(0, 4) = 性別 .TextMatrix(0, 5) = 出生日期 .TextMatrix(0, 6) = 籍貫 .TextMatrix(0, 7) = 學(xué)歷 .TextMatrix(0, 8) = 專(zhuān)業(yè) .TextMatrix(0, 9) = 參加工作時(shí)間 .TextMatrix(0, 10) = 入黨時(shí)間 .TextMatrix(0, 11) = 職稱(chēng) .TextMatrix(0, 12) = 職稱(chēng)時(shí)間 .TextMatrix(0, 13) = 原身份 .TextMatrix(0, 14) = 原工作單位 .TextMatrix(0, 15) = 原職務(wù) .TextMatrix(0, 16) = 進(jìn)入公司時(shí)間 .TextMatrix(0, 17) = 起薪時(shí)間 .TextMatrix(0, 18) = 調(diào)入時(shí)間 .TextMatrix(0, 19) = 檔號(hào) .TextMatrix(0, 20) = 備注 .FixedRows = 1 畢業(yè)論文（企業(yè)人事管理系統(tǒng)開(kāi)發(fā)） 第 37 頁(yè) 共 40 頁(yè) 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)開(kāi)發(fā)） 第 38 頁(yè) 共 40 頁(yè) For i = 1 To Select Case (i 1).Type Case adDBDate .TextMatrix(.Rows 1, i) = Format((i 1) amp。// 記載當(dāng)前記錄位置 Set mrc = ExecuteSQL(txtSQL, MsgText)// 執(zhí)行刪除操作 = select * from manrecord// 重新載入記錄 flagEdit = True 。 Trim(txtItem(0)) amp。 通過(guò)此次畢業(yè)設(shè)計(jì)的完成，把理論知識(shí)運(yùn)用到實(shí)踐中，即加深了對(duì)理論知識(shí)的理解，也認(rèn)識(shí) 到本人在實(shí)踐中的不足，認(rèn)識(shí)到只有從不斷的實(shí)踐工作中，才能真正學(xué)會(huì)知識(shí)，增強(qiáng)自己的工作能力。通過(guò)測(cè)試的可執(zhí)行文件，就可以發(fā)布了 。選擇“員工工資管 理 |計(jì)發(fā)員工工資信息”菜單，如圖 所示 . 圖 計(jì)發(fā)員工工資 畢業(yè)論文（企業(yè)人事管理系統(tǒng)開(kāi)發(fā)） 第 31 頁(yè) 共 40 頁(yè) 系統(tǒng)的編譯 從本系統(tǒng)的調(diào)度過(guò)程可以看出，本系統(tǒng)基本上能夠運(yùn)行 。 圖 系統(tǒng)登錄 畢業(yè)論文（企業(yè)人事管理系統(tǒng)開(kāi)發(fā)） 第 29 頁(yè) 共 40 頁(yè) 輸入用戶名和密碼后，進(jìn)入系統(tǒng)。 39。UID=sa。 稅額的計(jì)算方法是： 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)開(kāi)發(fā)） 第 26 頁(yè) 共 40 頁(yè) ElseIf dblTotal 5000 And dblTotal = 20210 Then dblTotal = dblTotal * 375 Else MsgBox 請(qǐng)手工計(jì)算稅額！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If 二、員工工資信息修改子模塊 選擇“員工工資管理 |修改員工工資信息”菜單，將出現(xiàn)如圖 所示的窗體。 一、計(jì)發(fā)員工工資子模塊 選擇“員工工資管理 |計(jì)發(fā)員工工資信息”菜單，將出現(xiàn)如圖 413 所示的窗體。 一、員工工作評(píng)價(jià)信息添加子模塊 選擇“員工工作評(píng)價(jià)管理 |添加工作評(píng)價(jià)信息”菜單，如圖 所示： 圖 員工工作評(píng)價(jià)信息添加窗口 畢業(yè)論文（企業(yè)人事管理系統(tǒng)開(kāi)發(fā)）