【正文】 // 記載當(dāng)前記錄位置 Set mrc = ExecuteSQL(txtSQL, MsgText)// 執(zhí)行刪除操作 = select * from manrecord// 重新載入記錄 flagEdit = True 。 Trim((, 1)) amp。 End Select Next i Loop End With End If End Sub 三、刪除模塊 If flagEdit Then If 1 Then//判斷信息列表內(nèi)容是否為空 If MsgBox(真的要?jiǎng)h除這條文件記錄么？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then intCount = txtSQL = delete 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)開發(fā)） 第 36 頁(yè) 共 40 頁(yè) 0 = select * from manrecord 1 Else MsgBox 記錄修改成功！ , vbOKOnly + vbExclamation, 警告 Unload Me = select * from manrecord 0 End If 二、修改模塊 兩個(gè)函數(shù)的編寫 ShowTitle: Public Sub ShowTitle() Dim i As Integer With msgList .Cols = 21 .TextMatrix(0, 1) = 編號(hào) .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) = 參加工作時(shí)間 .TextMatrix(0, 10) = 入黨時(shí)間 .TextMatrix(0, 11) = 職稱 .TextMatrix(0, 12) = 職稱時(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)開發(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)開發(fā)） 第 38 頁(yè) 共 40 頁(yè) For i = 1 To Select Case (i 1).Type Case adDBDate .TextMatrix(.Rows 1, i) = Format((i 1) amp。 Trim(txtItem(0)) amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 已經(jīng)存在此員工檔案編號(hào)的記錄！ , vbOKOnly + vbExclamation, 警告 txtItem(0).SetFocus txtItem(0).SelStart = 0 txtItem(0).SelLength = Len(txtItem(0)) Exit Sub End If End If //添加判斷是否有相同的 ID 記錄 txtSQL = delete from manrecord where ygid=39。 Trim(txtItem(0)) amp。 畢業(yè)論文（企業(yè)人事管理系統(tǒng)開發(fā)） 第 35 頁(yè) 共 40 頁(yè) 附 錄 （以員工基本信息為例） 一、添加模塊 If gintMode = 1 Then txtSQL = select * from manrecord where ygid=39。 通過(guò)此次畢業(yè)設(shè)計(jì)的完成，把理論知識(shí)運(yùn)用到實(shí)踐中，即加深了對(duì)理論知識(shí)的理解，也認(rèn)識(shí) 到本人在實(shí)踐中的不足，認(rèn)識(shí)到只有從不斷的實(shí)踐工作中，才能真正學(xué)會(huì)知識(shí)，增強(qiáng)自己的工作能力。我特向?qū)煴硎居芍缘木匆狻? 但是由于時(shí)間和技術(shù)上的一些原因，所以該系統(tǒng)還有許多不盡人意的地方，比如，用戶界面不夠美觀，未能實(shí)現(xiàn)相關(guān)報(bào)表的打印和數(shù)據(jù)統(tǒng)計(jì)的功能，企業(yè)人事管理的聯(lián)網(wǎng)操作還有待開發(fā)等方面的問(wèn)題，這些都有待于進(jìn)一步的改善。其功能基本符合該類企業(yè)的人事管理方面的需求。通過(guò)測(cè)試的可執(zhí)行文件，就可以發(fā)布了 。編譯通過(guò)后，生成可執(zhí)行文件 。 圖 進(jìn)行項(xiàng)目的屬性設(shè)置 最后選擇“文件 |生成 ”菜單，編譯開始。 在系統(tǒng)的編譯和發(fā)行以前，需要設(shè)置工程項(xiàng)目的屬性。選擇“員工工資管 理 |計(jì)發(fā)員工工資信息”菜單，如圖 所示 . 圖 計(jì)發(fā)員工工資 畢業(yè)論文（企業(yè)人事管理系統(tǒng)開發(fā)） 第 31 頁(yè) 共 40 頁(yè) 系統(tǒng)的編譯 從本系統(tǒng)的調(diào)度過(guò)程可以看出，本系統(tǒng)基本上能夠運(yùn)行 。輸入內(nèi)容完畢，單擊“保存”按鈕。 圖 查詢員工信息 圖 查詢員工信息結(jié)果 畢業(yè)論文（企業(yè)人事管理系統(tǒng)開發(fā)） 第 30 頁(yè) 共 40 頁(yè) 選擇“員工考勤管理 |添加考勤信息”菜單，添加新記錄的信息，包括基本信息、出勤信息和其他信息。 選擇“員工基本信息 |添加員工信息”菜單，出現(xiàn)如圖 所示的窗口，輸入 員工信息的各項(xiàng)內(nèi)容。 圖 系統(tǒng)登錄 畢業(yè)論文（企業(yè)人事管理系統(tǒng)開發(fā)） 第 29 頁(yè) 共 40 頁(yè) 輸入用戶名和密碼后，進(jìn)入系統(tǒng)。 然后再進(jìn)行刪除操作： Set mrc = ExecuteSQL(txtSQL, MsgText) 刪除后再重新載入記錄： = select * from manrecord 最后重新顯示數(shù)據(jù)： 四、右鍵彈出模塊 在修改模塊的界面中，可以單擊鼠標(biāo)右鍵，出現(xiàn)如圖 所示的窗口： 圖 右鍵彈出窗口 松開鼠標(biāo)的時(shí)候會(huì)發(fā)生 MouseUp 事件： If Button = 2 And Shift = 0 Then PopupMenu End If 5. 系統(tǒng)的編譯實(shí)現(xiàn) 系統(tǒng)的調(diào)試 完成程序各個(gè)功能模塊的創(chuàng)建后，就可以來(lái)看看整個(gè)系統(tǒng)的運(yùn)行了。 畢業(yè)論文（企業(yè)人事管理系統(tǒng)開發(fā)） 第 28 頁(yè) 共 40 頁(yè) Trim((, 1)) amp。 miCount = miCount + 1 If miCount = 3 Then End If 三、刪除模塊 在編寫代碼時(shí)，要先記錄被刪除對(duì)象的當(dāng)前位置： intCount = txtSQL = delete from manrecord where ygid=39。 39。 amp。用到 Form_Activate 函數(shù)。 SQL， Set ExecuteSQL = rst 二、登陸模塊 系統(tǒng)啟動(dòng)時(shí)，彈出個(gè)登錄窗口，如圖 所示。UID=sa。這樣可以極大的提高代碼的效