【導(dǎo)讀】隨著計(jì)算機(jī)技術(shù)的不斷發(fā)展，計(jì)算機(jī)作為知識(shí)經(jīng)濟(jì)時(shí)代的產(chǎn)物，已被廣泛應(yīng)用于社會(huì)各個(gè)行業(yè)和領(lǐng)域。隨著我國(guó)國(guó)企改革的深入和社會(huì)主義。人力資源是企業(yè)自身戰(zhàn)略目標(biāo)的一個(gè)非常關(guān)鍵的因素。個(gè)專門(mén)用于人力資源管理的系統(tǒng)是必要的。本系統(tǒng)使的開(kāi)發(fā)工具是VisualBasic，后臺(tái)數(shù)據(jù)庫(kù)使用Access. 人力資源管理系統(tǒng)，VisualBasic，Access2021.現(xiàn)在，人事不僅是企業(yè)最珍貴的資產(chǎn)，而且應(yīng)該是唯一“動(dòng)態(tài)的資產(chǎn)”。仍然是人的問(wèn)題。錢(qián)是不能主動(dòng)創(chuàng)造價(jià)值的，即使是被投資于很好的項(xiàng)目，也是。行為才能創(chuàng)造價(jià)值。做出相應(yīng)的判斷和處理。物力的同時(shí)無(wú)法做到實(shí)時(shí)監(jiān)控，難以保證數(shù)據(jù)的準(zhǔn)確性和及時(shí)性。公司集團(tuán)非常急需一。產(chǎn)效率，從而加強(qiáng)了管理的信息化手段，提高了本單位的經(jīng)濟(jì)效益。順應(yīng)了社會(huì)的信息化、社會(huì)化潮流，縮短了整個(gè)社會(huì)化大生產(chǎn)的周期。力又非常容易出差錯(cuò)，為了解決這個(gè)矛盾，第一代的人力資源管理系統(tǒng)應(yīng)運(yùn)而生。幾乎沒(méi)有報(bào)表生成功能和薪資數(shù)據(jù)分析功能。20世紀(jì)70年代末。

　　

【正文】 活動(dòng)中占較小的比例約占 4%。它的維護(hù)策略主要是常采用提前實(shí)現(xiàn)、軟件重用等技術(shù)。 對(duì)人力資源管理系統(tǒng)，為了使其更加完美， 可以預(yù)見(jiàn)在未來(lái)不久，需要修改以增加新的功能，因此必須為變更程序做好準(zhǔn)備。對(duì)于該系統(tǒng)，已經(jīng)具有了查詢各種信息的功能，但是可以預(yù)見(jiàn)對(duì)于查詢到的內(nèi)容，我們需要在顯示屏幕以外的地方使用或者保存。所以要實(shí)現(xiàn)對(duì)查詢到的內(nèi)容進(jìn)行打印的功能。 由于企業(yè)員工調(diào)動(dòng)頻繁，可以預(yù)見(jiàn)在未來(lái)將需要對(duì)系統(tǒng)添加員工調(diào)動(dòng)信息的管理，比如添加員工調(diào)動(dòng)信息，修改員工調(diào)動(dòng)信息，查詢員工調(diào)動(dòng)信息，打印員工調(diào)動(dòng)信息。為了增加系統(tǒng)的安全性，預(yù)見(jiàn)未來(lái)需要對(duì)系統(tǒng)添加系統(tǒng)鎖定的功能，當(dāng)管理員在使用系統(tǒng)的過(guò)程中需要離開(kāi)時(shí)，可 以暫時(shí)鎖定系統(tǒng)。只有管理員才能解鎖系統(tǒng)，這樣就可以防止信息的無(wú)意泄露。 第七章 開(kāi)發(fā)總結(jié) 本系統(tǒng)在項(xiàng)目功能和數(shù)據(jù)結(jié)構(gòu)的設(shè)計(jì)上嚴(yán)格要求 ,盡量切實(shí)體現(xiàn)實(shí)用 ,并兼顧到普通需求和特殊需求 。在程序設(shè)計(jì)上界面友好 ,操作簡(jiǎn)便 , 節(jié)省了大量的工作量 ,加強(qiáng)了檔案記錄的安全性和完整性，提高工作了效率。 人力資源管理系統(tǒng)就是把分散的企事業(yè)單位的職工信息實(shí)行統(tǒng)一，集中，規(guī)范的收集管理，建立分類編號(hào)管理，電腦存儲(chǔ)查詢以及防火，防潮，防蛀，防盜等現(xiàn)代化，專業(yè)化的管理系統(tǒng)，為企事業(yè)單位和職工解除后顧之憂。 企業(yè)人力資源管理系統(tǒng)為企事 業(yè)單位提供信息咨詢，信息檢索，信息存取等服務(wù)。該系統(tǒng)基本上能夠滿足現(xiàn)代企業(yè)人事管理的需求 .信息錄入項(xiàng)目齊全 ,完整 ,系統(tǒng) .現(xiàn)代人力資源管理系統(tǒng)靈活使用表格對(duì)各種信息分門(mén)別類 ,組成企業(yè)人力資源管理系統(tǒng) ,可以方便地查詢 ,閱讀 ,修改 ,交流和重復(fù)使用。 綜上所述本系統(tǒng)基本上能滿足現(xiàn)代企業(yè)人力資源管理系統(tǒng)。 . 參考文獻(xiàn) 1) 劉韜 .駱娟 .何旭洪 .《 Visual basic 數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)事例導(dǎo)航》 .第一版 .北京市： 人民郵電出版社， 2021. 2) 張紅軍 .王虹 等 .《 Visual basic 中文 版高級(jí)應(yīng)用與開(kāi)發(fā)指南》 . 第一版 .北京市：人民郵電出版社， 2021 3) 伍俊良 等 .《 VB 課程設(shè)計(jì)與系統(tǒng)開(kāi)發(fā)案例》 . 第一版 .北京市：清華大學(xué)出版社 , 2021. 4) 姚巍 .《 Visual Basic 數(shù)據(jù)庫(kù)開(kāi)發(fā)及工程實(shí)例》 . 第二版 .北京市：人民郵電出版社 ,2021. 5) 求是科技 .《 Visual Basic 數(shù)據(jù)庫(kù)開(kāi)發(fā)技術(shù)與工程實(shí)踐》 . 第一版 .北京市：人民郵電出版社， 2021. 6) 劉瑞新 .汪遠(yuǎn)征 .《 Visual Basic 程序設(shè)計(jì)教程》 . 第一版 .北京市：機(jī)械工業(yè)出版社， 2021. 7) 劉萌 .周學(xué)明 .郭安源 .《 Visual Basic 企業(yè)辦公系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航》 . 第一版 .北京市：人民郵電出版社， 2021. 8) 孟小峰 .王珊 .《數(shù)據(jù)庫(kù)系統(tǒng)導(dǎo)論》 . 第二版 .北京市：機(jī)械工業(yè)出版社，2021. 9) .《 Database system implementation》 . 第一版 .北京市：機(jī)械工業(yè)出版社 , 2021. 10) 張立科 .《數(shù)據(jù)庫(kù)開(kāi)發(fā)技術(shù)與工程實(shí)踐》 . 第一版 .北京市：人民郵電出版社 ,2021. 附錄 程序清單 附錄 1 系統(tǒng)登陸窗體代碼： Option Explicit Private Counts As Byte Private Sub cmdcancel_Click() 39。//結(jié)束 End End Sub Private Sub CmdLogin_Click() Dim StrSQL As String UserName = CStr(Trim()) 39。//將文本框內(nèi)的值賦給定義好的全局變量 PassWord = CStr(Trim()) If UserName Empty And PassWord Empty Then 39。//用戶名與密碼是否為空 StrSQL = select 用戶名稱 ,用戶口令 ,用戶權(quán)限 from 管理用戶 where 用戶名稱 = 39。 amp。 UserName amp。 39。and 用戶口令 =39。 amp。 PassWord amp。 39。 If = adStateClosed Then StrSQL, DBCON, adOpenKeyset, adLockPessimistic, adCmdText 39。//打開(kāi)記錄集 End If Group = (2).Value If (2).Value Administrators Then Call CheckLogin End If If 0 Then 39。//判斷記錄集記錄條數(shù)是否為 0 Unload Me 39。//顯示主窗 ElseIf Counts 2 Then MsgBox 用戶名域密碼錯(cuò)誤 , vbExclamation + vbOKOnly, 登錄失敗 39。//關(guān)閉記錄集 Counts = Counts + 1 Else MsgBox 密碼錯(cuò)誤不得 超過(guò)三次，否則視您為非法用戶！ , vbCritical, 警告 End End If Else MsgBox 用戶名密碼不能為空 , vbExclamation + vbOKOnly, 登錄失敗 Call Form_Load End If End Sub Private Sub Form_Load() 39。//加載主窗時(shí)給文本框賦值 = Administrator = admin End Sub Private Sub TmrChangeColor_Timer() 39。//調(diào)用定義好的改變顏色過(guò)程 , Call changecolor(LblWele(0), 0, 1, 2, 3, 4, 5, 6, 7) End Sub Private Sub TmrMoveText1_Timer() 39。//移動(dòng) LblShaSi LblShaSi(0).Move LblShaSi(0).Left + 20 LblShaSi(1).Move LblShaSi(1).Left + 20 End Sub Private Sub TmrMoveText2_Timer() 39。//移動(dòng) LblShaSi If LblShaSi(0).Left + LblShaSi(0).Width = + LblShaSi(0).Width Then LblShaSi(0).Move 1500 End If If LblShaSi(1).Left + LblShaSi(1).Width = + LblShaSi(1).Width Then LblShaSi(1).Move 1500 End If End Sub 39。//定義一個(gè)改變顏色的過(guò)程 ,下面的 control就是我們所說(shuō)的控件 Sub changecolor(LCnt As Control, color1 As Integer, _ color2 As Integer, color3 As Integer, _ color4 As Integer, color5 As Integer, _ color6 As Integer, color7 As Integer, _ color8 As Integer) Dim tmep As Integer tmep = Val() 39。//將返回包含于字符串內(nèi)的數(shù)字賦給 TEMP Select Case tmep Case color1 = color2 Case color2 = color3 Case color3 = color4 Case color4 = color5 Case color5 = color6 Case color6 = color7 Case color7 = color8 Case color8 = color1 End Select = QBColor() 39。//給控件 LCnt 中的字體賦予顏色 ,注意QBColor 是將一值 End Sub 附錄 2 修改密碼窗體代碼： Private Sub CmdClose_Click() Unload Me End Sub Private Sub CmdDelUser_Click() Dim StrSQL As String 39。//定義一個(gè)接受 SQL 語(yǔ)句的字符變量 StrSQL = select 用戶名稱 ,用戶口令 from 管理用戶 where 用戶名稱 = 39。 amp。 Trim() amp。 39。and 用戶口令 =39。 amp。 Trim() amp。 39。 If = adStateClosed Then StrSQL, DBCON, adOpenKeyset, adLockPessimistic, adCmdText End If If Trim() Empty And Trim() Empty Then If 0 Then If MsgBox(確定刪除該用戶？ , vbInformation + vbYesNo, 刪除用戶 ) = vbYes Then 39。//刪除記錄 MsgBox 用戶已刪除 , , 刪除成功 Unload Me End If Else MsgBox 沒(méi)有該用戶 , , 刪除失敗 End If Else MsgBox 請(qǐng)輸入要?jiǎng)h除的用戶名及密碼 , vbInformation + vbOKOnly, 驗(yàn)證錯(cuò)誤 End If End Sub Private Sub cmdOK_Click() Dim StrSQL As String StrSQL = select 用戶名稱 ,用戶口令 from 管理用戶 where 用戶名稱 = 39。 amp。 Trim() amp。 39。and 用戶口令 =39。 amp。 Trim() amp。 39。 If Trim() Empty And Trim() Empty And Trim() Empty Then If = adStateClosed Then StrSQL, DBCON, adOpenKeyset, adLockPessimistic, adCmdText 39。//打開(kāi)記錄集 End If If 0 Then 39。//判斷記錄集中的記錄是否等于零 (1).Value = Trim() 39。//更新記錄集 MsgBox 密碼修改成功 , , 密碼修改 Unload Me Else MsgBox 沒(méi)有該用戶 , vbExclamation, 驗(yàn)證失敗 End If Else MsgBox 請(qǐng) 輸入要修改的用戶名及密碼 , vbInformation, 錯(cuò)誤提示 End If End Sub d the whale municate over hundreds of miles? How did it use echoes to find its prey in the ocean gloom, to stun fish, diagnose illness in another whale? Questionsto which the answers could prove invaluable. But instead of learning, men threatened to wipe the species out. Aboard the catcher boat