【正文】 留在“點(diǎn)”的階段, 遠(yuǎn)未做到系統(tǒng)引進(jìn), 消化吸收, 實(shí)現(xiàn)真正意義上的從勞動(dòng)人事管理向人力資源管理的功能性轉(zhuǎn)變。人才市場(chǎng)體系的建立, 使得人力資源流動(dòng)渠道暢通, 員工進(jìn)出變得容易, 辭職或被辭退變得正常, 企業(yè)能不斷地吐故納新, 保持活力。人力資源管理始終是圍繞著如何充分開發(fā)人力資源這一核心目標(biāo)展開活動(dòng)。（2）擴(kuò)展企業(yè)的人力資本企業(yè)擁有三大資源, 即人力資源、物質(zhì)資源和財(cái)力資源。該公司有一套專門負(fù)責(zé)培訓(xùn), 增加企業(yè)的人力資本形成初級(jí)班人才開發(fā)、高級(jí)班人才開發(fā)等一系列完善的擴(kuò)展人力資本的體系, 為企業(yè)的技術(shù)開發(fā)、營(yíng)銷管理奠定了堅(jiān)實(shí)的人才基礎(chǔ)?？杀硎鰹椋喝说淖畲笫褂脙r(jià)值=最大限度地發(fā)揮人的有效技能人的有效技能=人的勞動(dòng)技能適用率發(fā)揮率有效率人力資源管理就是通過(guò)提高人的技能的適用率、發(fā)揮率和有效率, 達(dá)到人盡其才、人盡其能, 最大限度地發(fā)揮人的潛能, 最終實(shí)現(xiàn)企業(yè)利潤(rùn)最大化的目標(biāo)?，F(xiàn)代企業(yè)應(yīng)探索建立企業(yè)文化、經(jīng)營(yíng)理念和知識(shí)技能培訓(xùn)協(xié)調(diào)統(tǒng)一的培訓(xùn)開發(fā)機(jī)制，采取靈活多樣的培訓(xùn)方式，加強(qiáng)和開展不同層次的員工培訓(xùn)，注重培訓(xùn)效果。因此，為了加快公司的信息化步伐，提高公司的管理水平以在激烈的社會(huì)競(jìng)爭(zhēng)中立于不敗之地，建設(shè)和完善人力資源管理系統(tǒng)已變得十分必要和迫切?；竟べY根據(jù)員工的級(jí)別劃分（試用員工、正式員工、組長(zhǎng)、部門經(jīng)理、總經(jīng)理），獎(jiǎng)金應(yīng)根據(jù)員工的業(yè)績(jī)由其直接或更高級(jí)的領(lǐng)導(dǎo)確定。（4）．在許多大型的公司中，每個(gè)員工通常都有名目繁多的福利項(xiàng)目。（7）．系統(tǒng)還應(yīng)該提供強(qiáng)大的數(shù)據(jù)統(tǒng)計(jì)、查詢、報(bào)表生成以及打印等功能。分析的根本目的是在開發(fā)者和提出需求的用戶之間建立一種理解和溝通的機(jī)制，因此，人事管理信息系統(tǒng)的需求分析也應(yīng)該是有開發(fā)人員和用戶或者客戶一起完成的。員工和各級(jí)管理這是系統(tǒng)的用戶，而系統(tǒng)管理員是管理整個(gè)軟件系統(tǒng)的，雖然系統(tǒng)管理員也是一個(gè)員工，但這并不影響本系統(tǒng)的功能?？记诘怯浻涗泦T工的外出，考勤信息只適用于部門經(jīng)理以下職務(wù)的員工。工資信息管理有系統(tǒng)管理員完成，同時(shí)工資信息管理也包括工資信息的添加、編輯和查詢功能。這里進(jìn)行系統(tǒng)建模，其框圖如圖31所示。實(shí)際開發(fā)人事管理信息系統(tǒng)時(shí)，領(lǐng)域分析是建立在模塊分析基礎(chǔ)上的。不是所有的類都有狀態(tài)圖。在架構(gòu)設(shè)計(jì)中，將定義包（子系統(tǒng)）、包間的相關(guān)性和基本的通信機(jī)制。應(yīng)用邏輯是需要編碼設(shè)計(jì)的，而技術(shù)邏輯主要包括用戶接口、數(shù)據(jù)庫(kù)或者通信刪除。業(yè)務(wù)對(duì)象包(Business Object Package)：業(yè)務(wù)對(duì)象包包含上面設(shè)計(jì)的分析模型的類域。然后，就可以進(jìn)行詳細(xì)設(shè)計(jì)了。此外，用戶的維護(hù)水平也是一個(gè)重要的方面。如表41所示[3]。數(shù)據(jù)庫(kù)的選擇還要考慮與操作系統(tǒng)的配合。因此，建議系統(tǒng)都使用Windows 9Windows 2000或者Windows XP操作系統(tǒng)。選擇如表43所示。PowerDesign是數(shù)據(jù)庫(kù)Sybase公司提供的數(shù)據(jù)庫(kù)分析工具，具備了上述全部功能，本節(jié)將利用該工具完成ER圖分析和數(shù)據(jù)庫(kù)建模。首先從大的方面設(shè)計(jì)出各個(gè)實(shí)體之間的關(guān)系，然后在這個(gè)關(guān)系的基礎(chǔ)上進(jìn)行細(xì)化。 Server 2000數(shù)據(jù)庫(kù)系統(tǒng)所能夠支持的實(shí)際數(shù)據(jù)模型，也就是數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)，包括員工基本信息表、員工考勤信息表、員工工資信息表、員工福利信息表。表53 員工培訓(xùn)信息表列名數(shù)據(jù)類型字段大小是否可以為空員工號(hào)Char10NOT NULL姓名Nvarchar20NULL底薪Real4NULL補(bǔ)貼Real10NULL獎(jiǎng)金Real10NULL加班費(fèi)Real20NULL扣考核Real4NULL代扣養(yǎng)老金Real4NULL代扣醫(yī)療保險(xiǎn)Real4NULL代扣住房公積金Real4NULL稅前小計(jì)Real4NULL所得稅Real50NULL房屋補(bǔ)貼Real4NULL車旅費(fèi)Real4NULL實(shí)發(fā)工資Real4NULL時(shí)間Datetime4NULL員工福利信息表，如表54所示。) and OBJECTPROPERTY(id, N39。[dbo].[考勤信息]39。if exists (select * from where id = object_id(N39。) = 1)drop table [dbo].[工資信息表]GOCREATE TABLE [dbo].[工資信息表] ( [序號(hào)] [int] NULL , [員工號(hào)] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [姓名] [nvarchar] (20) COLLATE Chinese_PRC_CI_AS NULL , [底薪] [real] NULL , [補(bǔ)貼] [real] NULL , [獎(jiǎng)金] [real] NULL , [加班費(fèi)] [real] NULL , [扣考核] [real] NULL , [代扣養(yǎng)老金] [real] NULL , [代扣醫(yī)療保險(xiǎn)] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [代扣住房公積金] [real] NULL , [稅前小計(jì)] [real] NULL , [所的稅] [real] NULL , [房屋補(bǔ)貼] [real] NULL , [車旅費(fèi)] [real] NULL , [實(shí)發(fā)工資] [real] NULL , [時(shí)間] [datetime] NULL ) ON [PRIMARY]GO創(chuàng)建員工福利費(fèi)信息表語(yǔ)句如下。IsUserTable39。一個(gè)友好完善的界面不僅能夠方便系統(tǒng)的使用者，還能是各個(gè)模塊間的劃分明確，結(jié)構(gòu)更趨于完善。在新建立的這個(gè)窗體中添加所需要的控件，創(chuàng)建好的窗體如圖61所示[5]。然后通過(guò)該窗口來(lái)設(shè)置控件的屬性。經(jīng)過(guò)以上的操作，就創(chuàng)建了本系統(tǒng)中最主要的一個(gè)界面。用戶首先需要輸入用戶名，然后輸入密碼。這兩個(gè)Textbox(文本框)控件分別用來(lái)讓用戶輸入其用戶名和密碼，還有兩個(gè)按鈕分別用來(lái)確定和取消登錄。4個(gè)Label（標(biāo)簽）用來(lái)表示文本框的提示。通過(guò)用戶的分級(jí)可以滿足不同業(yè)務(wù)的需要，方便管理。單擊“確認(rèn)”按鈕就可以對(duì)當(dāng)前用戶的密碼進(jìn)行修改，設(shè)置兩個(gè)文本框的目的同樣是為了減少錯(cuò)誤輸入所造成的麻煩。整個(gè)窗體的結(jié)構(gòu)，如圖68所示：圖68 添加員工信息窗體其中打“*”的地方表示是必須填寫的。（2）編輯員工信息界面需要選擇“員工信息管理”|“編輯員工信息”命令，就可以進(jìn)入“編輯員工信息”界面，所出現(xiàn)的窗體如圖69所示：圖69 編輯員工信息窗體在這個(gè)窗體中由3個(gè)部分組成，員工信息部分、導(dǎo)航部分和編輯部分。（3）查詢員工信息界面查詢員工信息模塊的界面如圖610所示，可以采取按員工號(hào)、按姓名和按身份證號(hào)的3種查詢方式。圖610 查詢員工信息圖611 添加DataGrid控件（4）統(tǒng)計(jì)員工信息統(tǒng)計(jì)員工信息模塊的界面如圖612所示，可根據(jù)出生時(shí)間和轉(zhuǎn)正時(shí)間兩種方式進(jìn)行統(tǒng)計(jì)。員工考勤信息部分與“添加員工考勤信息”部分的界面設(shè)計(jì)類似。圖617 查詢考勤信息窗口（4）統(tǒng)計(jì)考勤信息統(tǒng)計(jì)員工考勤模塊的界面如圖618所示，可根據(jù)全勤天數(shù)進(jìn)行統(tǒng)計(jì)。員工工資信息部分與“添加員工工資信息”部分的界面設(shè)計(jì)類似。圖623 查詢工資信息窗口（4）統(tǒng)計(jì)工資信息界面統(tǒng)計(jì)工資信息界面如圖624所示，可按工資數(shù)額進(jìn)行統(tǒng)計(jì)。員工考勤信息部分與“添加員工福利信息”部分的界面設(shè)計(jì)類似。圖629 查詢福利費(fèi)信息窗口（4）統(tǒng)計(jì)福利費(fèi)信息統(tǒng)計(jì)福利費(fèi)信息的界面如圖630所示，可按福利費(fèi)的金額進(jìn)行統(tǒng)計(jì)。該系統(tǒng)主要包括六大模塊，分別是系統(tǒng)管理、員工基本信息管理、工資信息管理、考勤信息管理、福利費(fèi)信息管理。該系統(tǒng)主要運(yùn)用了界面簡(jiǎn)潔，操作直觀，使用方便的VB技術(shù)，并結(jié)合了能夠存儲(chǔ)大量的數(shù)據(jù)，具有強(qiáng)大的管理功能的SQL Server 2000數(shù)據(jù)庫(kù)建設(shè)而成，彌補(bǔ)了傳統(tǒng)的人事管理方式，效率低下、安全性差的不足，完成了設(shè)計(jì)的要求。但是由于時(shí)間比較倉(cāng)促，加上本人軟件設(shè)計(jì)經(jīng)驗(yàn)的不足。同時(shí)，也要感謝我的老師和同學(xué)們?cè)诒鞠到y(tǒng)的設(shè)計(jì)過(guò)程中給予我的支持和幫助。執(zhí)行SQL語(yǔ)句并返回Recordset對(duì)象 Dim n As Dim rst As Dim sTokens() As String On Error GoTo ExecuteSQL_Error sTokens = Split(SQL) Set n = New CONN 39。 條記錄 39。UID=sa。該模塊負(fù)責(zé)鏈接數(shù)據(jù)庫(kù)，并判定用戶所要進(jìn)行的操作類型。在本章的管理信息系統(tǒng)中，都是采用ADO數(shù)據(jù)庫(kù)訪問(wèn)模型來(lái)進(jìn)行數(shù)據(jù)庫(kù)訪問(wèn)的，所以在項(xiàng)目中必須添加對(duì)ADO對(duì)象的引用。Public fMainForm As frmMain 39。用戶級(jí)別Public CONN As String 39。Private Sub Form_Load() OK = False miCount = 0End Sub登錄模塊中的用戶名與密碼的識(shí)別函數(shù)。 amp。對(duì)所輸入的用戶名進(jìn)行查詢 Set mrc = ExecuteSQL(txtSQL, MsgText) If = True Then MsgBox 沒有這個(gè)用戶，請(qǐng)重新輸入用戶名!, vbOKOnly + vbExclamation, 警告 Else If Trim((1)) = Trim() Then 39。記錄密碼輸入的次數(shù)，累計(jì)到3此則自動(dòng)結(jié)束程序 End IfEnd Sub添加用戶模塊代碼設(shè)計(jì)添加用戶模塊主要是向數(shù)據(jù)庫(kù)中添加一條新紀(jì)錄，所以主要依賴于cmdOK控件Click事件下的函數(shù)來(lái)執(zhí)行此操作。判斷是否有重復(fù)記錄 MsgBox 用戶已經(jīng)存在，請(qǐng)重新輸入用戶名！, vbOKOnly + vbExclamation, 警告 Text1(0).SetFocus Text1(0).Text = Text1(1).Text = Text1(2).Text = Exit Sub Else End If Wend End If If Trim(Text1(1).Text) Trim(Text1(2).Text) Then 39。一個(gè)使用的是Insert，一個(gè)使用的是Update。 amp。 amp。具體的代碼如下：Private Sub Form_Load() Dim txtSQL As String Dim mrc As Dim MsgText As String txtSQL = select username from Manager Set mrc = ExecuteSQL(txtSQL, MsgText) While = False (0) 39。判斷用戶的權(quán)限 MsgBox 只有超級(jí)管理員才有此權(quán)限！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If () Then If MsgBox(真的要?jiǎng)h除用戶 amp。 39。同時(shí)，由于員工號(hào)是員工基本信息表的主鍵，所以在保存信息前，要檢查輸入的員工號(hào)是否唯一。 Trim() amp。添加新記錄 (0) = Trim() (1) = Trim() (2) = Trim() (3) = (4) = Trim() (5) = Trim() (6) = Trim() (7) = Trim() (8) = Trim() (9) = Trim() (10) = Trim() (11) = Trim() (12) = Trim() (13) = Trim() (14) = Trim() (15) = Trim() (16) = Trim() (17) = Trim() (18) = Trim() (19) = Trim() (20) = Trim() (21) = Trim() (22) = Trim() (23) = Trim() (24) = Trim() (25) = Trim() (26) = Trim() MsgBox 員工信息添加成功！, vbOKOnly + vbExclamation, 添加員工信息 End IfEnd Sub編輯員工信息這里首先要定義一個(gè)全局的Recordset變量mrc