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

　　

【正文】 活動中占較小的比例約占 4%。它的維護策略主要是常采用提前實現(xiàn)、軟件重用等技術。 對人力資源管理系統(tǒng)，為了使其更加完美， 可以預見在未來不久，需要修改以增加新的功能，因此必須為變更程序做好準備。對于該系統(tǒng)，已經(jīng)具有了查詢各種信息的功能，但是可以預見對于查詢到的內(nèi)容，我們需要在顯示屏幕以外的地方使用或者保存。所以要實現(xiàn)對查詢到的內(nèi)容進行打印的功能。 由于企業(yè)員工調(diào)動頻繁，可以預見在未來將需要對系統(tǒng)添加員工調(diào)動信息的管理，比如添加員工調(diào)動信息，修改員工調(diào)動信息，查詢員工調(diào)動信息，打印員工調(diào)動信息。為了增加系統(tǒng)的安全性，預見未來需要對系統(tǒng)添加系統(tǒng)鎖定的功能，當管理員在使用系統(tǒng)的過程中需要離開時，可 以暫時鎖定系統(tǒng)。只有管理員才能解鎖系統(tǒng)，這樣就可以防止信息的無意泄露。 第七章 開發(fā)總結(jié) 本系統(tǒng)在項目功能和數(shù)據(jù)結(jié)構(gòu)的設計上嚴格要求 ,盡量切實體現(xiàn)實用 ,并兼顧到普通需求和特殊需求 。在程序設計上界面友好 ,操作簡便 , 節(jié)省了大量的工作量 ,加強了檔案記錄的安全性和完整性，提高工作了效率。 人力資源管理系統(tǒng)就是把分散的企事業(yè)單位的職工信息實行統(tǒng)一，集中，規(guī)范的收集管理，建立分類編號管理，電腦存儲查詢以及防火，防潮，防蛀，防盜等現(xiàn)代化，專業(yè)化的管理系統(tǒng)，為企事業(yè)單位和職工解除后顧之憂。 企業(yè)人力資源管理系統(tǒng)為企事 業(yè)單位提供信息咨詢，信息檢索，信息存取等服務。該系統(tǒng)基本上能夠滿足現(xiàn)代企業(yè)人事管理的需求 .信息錄入項目齊全 ,完整 ,系統(tǒng) .現(xiàn)代人力資源管理系統(tǒng)靈活使用表格對各種信息分門別類 ,組成企業(yè)人力資源管理系統(tǒng) ,可以方便地查詢 ,閱讀 ,修改 ,交流和重復使用。 綜上所述本系統(tǒng)基本上能滿足現(xiàn)代企業(yè)人力資源管理系統(tǒng)。 . 參考文獻 1) 劉韜 .駱娟 .何旭洪 .《 Visual basic 數(shù)據(jù)庫系統(tǒng)開發(fā)事例導航》 .第一版 .北京市： 人民郵電出版社， 2021. 2) 張紅軍 .王虹 等 .《 Visual basic 中文 版高級應用與開發(fā)指南》 . 第一版 .北京市：人民郵電出版社， 2021 3) 伍俊良 等 .《 VB 課程設計與系統(tǒng)開發(fā)案例》 . 第一版 .北京市：清華大學出版社 , 2021. 4) 姚巍 .《 Visual Basic 數(shù)據(jù)庫開發(fā)及工程實例》 . 第二版 .北京市：人民郵電出版社 ,2021. 5) 求是科技 .《 Visual Basic 數(shù)據(jù)庫開發(fā)技術與工程實踐》 . 第一版 .北京市：人民郵電出版社， 2021. 6) 劉瑞新 .汪遠征 .《 Visual Basic 程序設計教程》 . 第一版 .北京市：機械工業(yè)出版社， 2021. 7) 劉萌 .周學明 .郭安源 .《 Visual Basic 企業(yè)辦公系統(tǒng)開發(fā)實例導航》 . 第一版 .北京市：人民郵電出版社， 2021. 8) 孟小峰 .王珊 .《數(shù)據(jù)庫系統(tǒng)導論》 . 第二版 .北京市：機械工業(yè)出版社，2021. 9) .《 Database system implementation》 . 第一版 .北京市：機械工業(yè)出版社 , 2021. 10) 張立科 .《數(shù)據(jù)庫開發(fā)技術與工程實踐》 . 第一版 .北京市：人民郵電出版社 ,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 用戶名稱 ,用戶口令 ,用戶權限 from 管理用戶 where 用戶名稱 = 39。 amp。 UserName amp。 39。and 用戶口令 =39。 amp。 PassWord amp。 39。 If = adStateClosed Then StrSQL, DBCON, adOpenKeyset, adLockPessimistic, adCmdText 39。//打開記錄集 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 用戶名域密碼錯誤 , vbExclamation + vbOKOnly, 登錄失敗 39。//關閉記錄集 Counts = Counts + 1 Else MsgBox 密碼錯誤不得 超過三次，否則視您為非法用戶！ , vbCritical, 警告 End End If Else MsgBox 用戶名密碼不能為空 , vbExclamation + vbOKOnly, 登錄失敗 Call Form_Load End If End Sub Private Sub Form_Load() 39。//加載主窗時給文本框賦值 = Administrator = admin End Sub Private Sub TmrChangeColor_Timer() 39。//調(diào)用定義好的改變顏色過程 , Call changecolor(LblWele(0), 0, 1, 2, 3, 4, 5, 6, 7) End Sub Private Sub TmrMoveText1_Timer() 39。//移動 LblShaSi LblShaSi(0).Move LblShaSi(0).Left + 20 LblShaSi(1).Move LblShaSi(1).Left + 20 End Sub Private Sub TmrMoveText2_Timer() 39。//移動 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。//定義一個改變顏色的過程 ,下面的 control就是我們所說的控件 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。//定義一個接受 SQL 語句的字符變量 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 沒有該用戶 , , 刪除失敗 End If Else MsgBox 請輸入要刪除的用戶名及密碼 , vbInformation + vbOKOnly, 驗證錯誤 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。//打開記錄集 End If If 0 Then 39。//判斷記錄集中的記錄是否等于零 (1).Value = Trim() 39。//更新記錄集 MsgBox 密碼修改成功 , , 密碼修改 Unload Me Else MsgBox 沒有該用戶 , vbExclamation, 驗證失敗 End If Else MsgBox 請 輸入要修改的用戶名及密碼 , vbInformation, 錯誤提示 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