【導(dǎo)讀】數(shù)量的競爭，通過人力資源的開發(fā)而建立企業(yè)的競爭優(yōu)勢已成為一種共識。值的首要因素也不再是有形資產(chǎn)，以人力資源等為代表的無形資產(chǎn)正在取而代之?，F(xiàn)代企業(yè)急需建立起一套有效的人力資源管理系統(tǒng)。本文通過對國美上海大區(qū)電器銷售有?，嵐ぷ髁鞒蹋奖阈畔⒉樵円约敖y(tǒng)計查看。并使用系統(tǒng)自動計算薪金，降低了工作中可能。出錯的概率，并且解決了可能會出現(xiàn)的信息外泄以及非法修改的問題。本系統(tǒng)提供了員工基本信息管理、考勤管理、績效管理以及薪金管理等功能。運作過程和具體內(nèi)容。描述了開發(fā)過程中可行性分析、需求分析、功能模塊設(shè)計、數(shù)據(jù)模。型設(shè)計到系統(tǒng)具體的菜單設(shè)計、窗體設(shè)計、代碼設(shè)計等。

　　

【正文】 縮短長度便于輸入，提供處理效率。同時也方便記憶，減少讀寫地差錯。 適用性。盡量明確反映編碼對象的特點，以便于識別與記憶，使用戶容易理 解和掌握。 規(guī)范性。代碼的結(jié)構(gòu)、類型、編碼格式必須嚴(yán)格統(tǒng)一，以便于計算機(jī)處理。 代碼詳細(xì)設(shè)計 （ 1）目標(biāo)編號：合成碼的方法進(jìn)行設(shè)計，由 6 位組成，前 3 位是部門簡稱，后 3 位是員工編號。如： sal001，則代表銷售部門的員工編號為 001 的員工制定的目標(biāo)編號。 XXX 000 部門縮寫 員工編號 （ 2）部門編號：由順序碼組成，從 1開始依次類推。 如： 1代表人事部門等。 1 序號 （ 3）用戶編號：由順序碼組成，由系統(tǒng)按管理員創(chuàng)建用戶的先后順序自動生成。 1 序號 華北電力大學(xué)本科畢業(yè)設(shè)計（論文） 23 系 統(tǒng)權(quán)限設(shè)計 權(quán)限控制雖然不是一個獨立存在的模塊，但是它卻貫穿于整個系統(tǒng)的運行過程當(dāng)中。企業(yè)人力資源管理系統(tǒng)的權(quán)限管理是非常必要的。 （ 1） 總經(jīng)理 為總經(jīng)理特別建立一個用戶， 總經(jīng)理 ，他可以查看系統(tǒng)內(nèi)的所有信息，另外還可以對各部門領(lǐng)導(dǎo)進(jìn)行領(lǐng)導(dǎo)績效考評。 （ 2） 人事部門主管 “人力資源主管”用戶是本系統(tǒng)中權(quán)限最高的用戶，可以完成系統(tǒng)中幾乎所有的功能，對系統(tǒng)信息進(jìn)行管理。系統(tǒng)初始化后有一個默認(rèn)的“人力資源主管”用戶 hrmanager。在績效考核模塊中， hrmanager只能查看。在其他模塊中， hrmanager都 可以進(jìn)行添加修改和刪除記錄，并有對所有數(shù)據(jù)進(jìn)行查詢顯示的權(quán)限。同時，只有該用戶才可以對四金制度以及考勤增扣款制度進(jìn)行修改及添加，對員工發(fā)放每月工資。 （ 3） 人事專員 人事專員對“人力資源主管”用戶沒有管理權(quán)限，這是為了符合人事制度而做的設(shè)置。人事專員可以對公司員工基本信息、考勤信息進(jìn)行添加，修改，刪除以及查詢。對各部門員工進(jìn)行績效考核，進(jìn)行自我考評，還可以對自身的用戶名和密碼進(jìn)行修改。 （ 4） 部門主管 部門主管（包括人事主管）可以修改自身的用戶名和密碼?？梢詫ζ洳块T的員工基本信息、考勤信息、考評進(jìn)行查詢 。添加本部門下屬員工考評記錄，以及自我考評，目標(biāo)文件。 （ 5） 普通員工 普通員工是指隸屬于各個部門的員工?？梢孕薷淖陨淼挠脩裘兔艽a，查詢自己的相關(guān)信息，添加自我考評以及目標(biāo)文件。 輸入輸出設(shè)計 系統(tǒng)輸入輸出 （ I/0） 設(shè)計是一個在系統(tǒng)設(shè)計中一個重要的環(huán)節(jié) ,它對于用戶和今后系統(tǒng)使用的方便和安全可靠性來說都是十分重要的。一個好的輸入系統(tǒng)設(shè)計可以為用戶和系統(tǒng)雙方帶來良好的工作環(huán)境 ,一個好的輸出設(shè)計可以為管理者提供簡捷、明了、有效、實用的管理和控制信息。 輸出輸入設(shè)計原則 （ 1） 控制輸 入量：本系統(tǒng)中，客戶基本信息量較大，在輸入過程中所占時間較長，可以將輸入方式定為選擇方式，避免大量文字輸入占去時間，減少輸入延遲。 （ 2） 減少輸入錯誤：本系統(tǒng)將采用多種校驗方法來減少輸入錯誤，提高輸入效率，避免額外步驟。 （ 3） 輸入過程盡量簡化：在提供糾錯和校驗的同時，應(yīng)保證輸入過程簡單易用，不能華北電力大學(xué)本科畢業(yè)設(shè)計（論文） 24 因為查錯、糾錯而使輸入復(fù)雜化。 輸出格式 本系統(tǒng)的輸出設(shè)計主要采用屏幕顯示輸出方式，員工檔案信息還可以 Excel格式文件輸出。屏幕顯示輸出：使用系統(tǒng)的條件查詢程序?qū)σ樵兊挠涗洈?shù)據(jù)內(nèi)容進(jìn)行查詢并直接輸出到屏幕，顯示是按照預(yù)先已經(jīng)設(shè)計好的格式。 系統(tǒng)還對針對員工考勤情況以及考評情況做出了每月統(tǒng)計，方便了人事部門對考勤以及考評情況的了解，提高管理的工作效率。 輸出設(shè)備 本系統(tǒng)的輸出介質(zhì)采用顯示器輸出。 輸入設(shè)備 本系統(tǒng)采用鍵盤－磁盤輸入裝置。由數(shù)據(jù)錄入人員通過工作站錄入，經(jīng)拼寫檢查驗證后由磁盤存儲。成本低，速度快，適用于本系統(tǒng)中的大量數(shù)據(jù)輸入。 輸入屏幕設(shè)計 輸入設(shè)計要盡量減少用戶的輸入動作 ， 具有自 動 數(shù)據(jù)校驗和檢查的功能 ， 采用面向?qū)ο蟮妮斎敕绞健? 輸入校驗設(shè)計 系統(tǒng)要對輸入的數(shù)據(jù)具有一定的糾錯能力 ， 程 序 設(shè)計時要考慮到數(shù)據(jù)的校驗問題 ，比 如對數(shù)據(jù)的類型和長度進(jìn)行限制。 （ 1） 數(shù)據(jù)類型 ： 對各類編號要按照代碼設(shè)計中設(shè)計的要求執(zhí)行，對數(shù)值類型的數(shù)據(jù)輸入也要限制輸入字母或漢字。對貨幣輸入的數(shù)據(jù)輸入要按照數(shù)據(jù)庫設(shè)計的小數(shù)要求 ，同樣也要限制字母和漢字的輸入。 （ 2） 數(shù)據(jù)長度：數(shù)據(jù)長度要適當(dāng)限制，做到既符合數(shù)據(jù)庫要求又能滿足今后進(jìn)一步的擴(kuò)張。對精確定制的數(shù)據(jù)長度要嚴(yán)格控制，輸入錯誤即要警告提醒并跳出該程序。 比如身份證號，各類編號等。 小結(jié) 本章完成了對 人力資源管理子系統(tǒng)的設(shè)計，分為總體設(shè) 計和詳細(xì)設(shè)計兩部分對系統(tǒng)的總體結(jié)構(gòu)形式和可利用的資源進(jìn)行了設(shè)計，同時 設(shè)計部分也直接為系統(tǒng)實施奠定了基礎(chǔ)。 華北電力大學(xué)本科畢業(yè)設(shè)計（論文） 25 第四章 系統(tǒng)實施 總體方案實施和設(shè)備安裝 總體方案實施和設(shè)備安裝按總體設(shè)計的要求安裝的軟件有 VB SQL SERVER2021。 建立數(shù)據(jù)庫系統(tǒng) 根據(jù)上文數(shù)據(jù)與數(shù)據(jù)流程分析、數(shù)據(jù) /過程分析以及數(shù)據(jù)庫設(shè)計工作在 SQL SERVER系統(tǒng)中建立數(shù)據(jù)庫系統(tǒng)。 連接數(shù)據(jù)庫 采取代碼連接的方式，連接代碼如下： Public Const DATABASE As String = HrSys Public Const DSN As String = HrSys Public Const DB_USER_NAME As String = sa Public Const DB_PASSWORD As String = sa 要將數(shù)據(jù)庫中的數(shù)據(jù)顯示在界面上，首先用 Command方法運行 sql語句，將數(shù)據(jù)從數(shù)據(jù)庫中轉(zhuǎn)移到 Adodc的數(shù)據(jù)集中，再運用 Datagrid控件，將 Adodc中的數(shù)據(jù)顯示在界面中。 系統(tǒng)界面和輔助功能模塊實施 （ 1） 登陸窗口 系統(tǒng)主要分為四種權(quán)限：經(jīng)理、普通員工、人事專員和人力資源主管，不同的權(quán)限可以執(zhí)行不同的操作。經(jīng)理主要給下級員工的銷售業(yè)績進(jìn)行考評，但其他的信息職能查看。人事專員主要錄入考勤信息和評價員工團(tuán)隊合作指標(biāo)。人力資源主管主要可以修改薪金發(fā)放的系數(shù)和其他指標(biāo)系數(shù) ， 如圖 41所示。 圖 41 登陸窗口圖 （ 2） 操作界面 驗證用戶名和密碼后，由此進(jìn)入績效管理系統(tǒng) ， 如圖 42所示。 華北電力大學(xué)本科畢業(yè)設(shè)計（論文） 26 圖 42 操作界面圖 （ 3） 員工管理 員工管理主要分員工信息錄入和員工信息查看，只有人事專員可以錄入，其他權(quán)限只能查看員工 信息 ， 如圖 43所示。 華北電力大學(xué)本科畢業(yè)設(shè)計（論文） 27 圖 43 員工信息錄入圖 （ 4） 部門管理 部門管理主要 分為部門信息錄入和部門信息查看，本系統(tǒng)主要錄入了門店的部門信息 ， 如圖 44所示。 圖 44 系統(tǒng) 功能結(jié)構(gòu)圖 （ 5） 薪金 管理 華北電力大學(xué)本科畢業(yè)設(shè)計（論文） 28 員工績效考評文件和薪金制度都確定后，就可以生成員工的工資單 ， 如圖 45所示。 圖 45 系統(tǒng) 功能結(jié)構(gòu)圖 核心系統(tǒng)功能模塊實施 （ 1） 每月考勤登陸模塊 該模塊主要是讀取考勤表格，添加員工的重要考勤信息， 考勤的指標(biāo)除去常規(guī)的遲到、早退、請假等曾扣款項目外，還增加了三類加班的值班，符合零售營業(yè) 員的上班規(guī)律 ，如圖 46所示。 華北電力大學(xué)本科畢業(yè)設(shè)計（論文） 29 圖 46 考勤情況登陸 主要代碼如下： Private Sub Form_Load（ ) Dim DepName As String 39。初始化窗體控件 For i = 1999 To 2100 Trim（ Str（ i)) Next For i = 1 To 12 Trim（ Str（ i)) Next yy = Year（ Now) If yy 1998 And yy 2101 Then = Trim（ Str（ yy)) End If mm = Month（ Now) 華北電力大學(xué)本科畢業(yè)設(shè)計（論文） 30 If mm 0 And mm 13 Then = Trim（ Str（ mm)) End If 39。讀取部門列表 = select Dep_Name from Department While Not DepName = （ 0) DepName Wend End Sub Private Sub txtBj_LostFocus（ ) If IsNumeric（ ) = False Then MsgBox 只能輸入數(shù)字 End If End Sub Private Sub txtCd_LostFocus（ ) If IsNumeric（ ) = False Then MsgBox 只能輸入數(shù)字 End If End Sub Private Sub txtKg_LostFocus（ ) If IsNumeric（ ) = False Then MsgBox 只能輸入數(shù)字 End If End Sub Private Sub txtOt1_LostFocus（ ) If IsNumeric（ ) = False Then MsgBox 只能輸入數(shù) 字 華北電力大學(xué)本科畢業(yè)設(shè)計（論文） 31 End If End Sub Private Sub txtOt2_LostFocus（ ) If IsNumeric（ ) = False Then MsgBox 只能輸入數(shù)字 End If End Sub Private Sub txtOt3_LostFocus（ ) If IsNumeric（ ) = False Then MsgBox 只能輸入數(shù)字 End If End Sub Private Sub txtQq_LostFocus（ ) If IsNumeric（ ) = False Then MsgBox 只能輸入數(shù)字 End If End Sub Private Sub txtSj_LostFocus（ ) If IsNumeric（ ) = False Then MsgBox 只能輸入數(shù)字 End If End Sub Private Sub txtZt_LostFocus（ ) If IsNumeric（ ) = False Then MsgBox 只能輸入數(shù) 字 End If End Sub 華北電力大學(xué)本科畢業(yè)設(shè)計（論文） 32 （ 2） 績效考評登陸模塊 該模塊是系統(tǒng)的核心模塊，用于員工的三種績效指標(biāo)考評，每種指標(biāo)需要不同的權(quán)限登陸，才能夠進(jìn)行考評 ， 如圖 42 所示。 圖 47 添加考評信息 主要流程為： 主要代碼為： Private Sub Check1_Click（ ) 開始 收集登陸信息 警告無此權(quán)限 提示已完成 賬戶存在 權(quán)限判斷 本月考評 完成 填寫考評分?jǐn)?shù) 結(jié)束 選擇考評月份和員工 Y N Y N 華北電力大學(xué)本科畢業(yè)設(shè)計（論文） 33 Dim empname As String If = 1 Then = = False = = False Else If 3 Then = = True Else = = True = = True End If End If End Sub Private Sub Combo4_Click（ ) Dim rs As New SqlStmt = select Emp_Id,Emp_NAME from Employees where Emp_NAME=39。 amp。 Trim（ ) amp。 39。 SqlStmt, , adOpenStatic, adLockReadOnly = rs（ 0) SqlStmt = End Sub Private Sub ComboDepName_click（ ) Dim empid As String If 1 Then 華北電力大學(xué)本科畢業(yè)設(shè)計（論文） 34 39。HR