【導(dǎo)讀】實(shí)現(xiàn)企業(yè)人事工資的管理勢(shì)在必行。本系統(tǒng)結(jié)合微型企業(yè)實(shí)際的人事制度，經(jīng)過(guò)。2021作為數(shù)據(jù)庫(kù)開(kāi)發(fā)出來(lái)的單機(jī)版人事管理系統(tǒng)。工資的新增、老員工工資修改、員工工資的計(jì)發(fā)和查詢等工資管理工作。作等繁雜的勞動(dòng)，即節(jié)省了人力，又方便快捷，還大大提高數(shù)據(jù)的準(zhǔn)確性。

　　

【正文】 ；設(shè)立員工工作評(píng)價(jià)管理，方便企業(yè)了解員工的工作情況，為企業(yè)的用人提供參考價(jià)值；系統(tǒng)還能夠自動(dòng)計(jì)算企業(yè)員工的工資，使企業(yè)的工資與考勤緊密結(jié)合；以及靈活 的密碼設(shè)置管理滿足了安全保密的要求，以保證本系統(tǒng)的應(yīng)用能在促進(jìn)微型企業(yè)人事管理效率的增長(zhǎng)并使其人事管理盡快走向科學(xué)化、正規(guī)化和現(xiàn)代化。 但是由于時(shí)間和技術(shù)上的一些原因，所以該系統(tǒng)還有許多不盡人意的地方，比如，用戶界面不夠美觀，未能實(shí)現(xiàn)相關(guān)報(bào)表的打印和數(shù)據(jù)統(tǒng)計(jì)的功能，企業(yè)人事管理的聯(lián)網(wǎng)操作還有待開(kāi)發(fā)等方面的問(wèn)題，這些都有待于進(jìn)一步的改善。 畢業(yè)論文（企業(yè)人事管理系統(tǒng)開(kāi)發(fā)） 第 33 頁(yè) 共 40 頁(yè) 參考文獻(xiàn) [1] 劉韜 . Visual Basic 數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航（第二版 ） .人民郵電出版社 , 2021(8). [2] 李成大 . 軟件工程基礎(chǔ) . 電子工業(yè)出版社， 2021 [3] 梁偉 ,蘇瑞 . Visual Basic 管理信息系統(tǒng)項(xiàng)目開(kāi)發(fā)實(shí)踐 . 科學(xué)出版社 , 2021 (3). [4] 季海娟 . Visual Basic 基礎(chǔ)教程 . 清華大學(xué)出版社 , 2021(1). [5] 陳虎 . 數(shù)據(jù)庫(kù)技術(shù) — SQL. 北方交通大學(xué)出版社， 2021. [6] Robert Sheldon. SQL 實(shí)用教程 . 清華大學(xué)出版社， 2021. [7] 郜煥平 ,馬希榮 . Visual Basic 程 序設(shè)計(jì) . 機(jī)械工業(yè)出版社 , 2021(1). [8] Bob Reselman 等 . Visual Basic 使用指南 . 電子工業(yè)出版社 ,2021(1) [9] 王福成等 . Visual Basic 數(shù)據(jù)庫(kù)開(kāi)發(fā)指南 . 清華大學(xué)出版社，2021(1). [10] VB 愛(ài)好者樂(lè)園： [11] 中國(guó)代碼： [12] 源碼之家： [13] VB 編程樂(lè)園： [14] 問(wèn)專(zhuān)家： 畢業(yè)論文（企業(yè)人事管理系統(tǒng)開(kāi)發(fā)） 第 34 頁(yè) 共 40 頁(yè) 致 謝 本論文的工作是在我的指導(dǎo)教師梁謹(jǐn)老師的悉心指導(dǎo)下完成的，他嚴(yán)謹(jǐn)細(xì)致的治學(xué)態(tài)度、豐富全面的學(xué)術(shù)思想、對(duì)學(xué)生的嚴(yán)格要求和悉心幫助，都給我留下了深刻的印象。我特向?qū)煴硎居芍缘木匆狻? 在畢業(yè)設(shè)計(jì)過(guò)程中，本人掌握了 Visual 的可視化編程方法和 SQL Server 2021 數(shù)據(jù)庫(kù)的使用，并且初步掌握了軟件開(kāi)發(fā)的設(shè)計(jì)與調(diào)試。 通過(guò)此次畢業(yè)設(shè)計(jì)的完成，把理論知識(shí)運(yùn)用到實(shí)踐中，即加深了對(duì)理論知識(shí)的理解，也認(rèn)識(shí) 到本人在實(shí)踐中的不足，認(rèn)識(shí)到只有從不斷的實(shí)踐工作中，才能真正學(xué)會(huì)知識(shí)，增強(qiáng)自己的工作能力。 在此本人向所有幫助和指導(dǎo)過(guò)我的老師和同學(xué)表示誠(chéng)摯的感謝。 畢業(yè)論文（企業(yè)人事管理系統(tǒng)開(kāi)發(fā)） 第 35 頁(yè) 共 40 頁(yè) 附 錄 （以員工基本信息為例） 一、添加模塊 If gintMode = 1 Then txtSQL = select * from manrecord where ygid=39。 amp。 Trim(txtItem(0)) amp。 39。 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。 amp。 Trim(txtItem(0)) amp。 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。 , yyyymmdd) Case Else .TextMatrix(.Rows 1, i) = (i 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。 amp。 Trim((, 1)) amp。 39。// 記載當(dāng)前記錄位置 Set mrc = ExecuteSQL(txtSQL, MsgText)// 執(zhí)行刪除操作 = select * from manrecord// 重新載入記錄 flagEdit = True