[管理學]企業(yè)人事檔案管理信息系統(tǒng)報告

1、沈陽航空航天大學 程設 （說明書） 題目 企業(yè)人事檔案管理信息系統(tǒng) 班級 / 學號 2009040602030 學生姓名岳宇峰 指導教師 許良 人事管理信息系統(tǒng)沈陽航空航天大學 目錄 摘要3 第一章系統(tǒng)概述3 第二章需求分析與系統(tǒng)總體設計 4 2.1需求分析4 2.2可行性研究5 2.2.1 操作人員的可行性分析： 5 222硬件的可及技術的可行性： 5 2.2.3經(jīng)濟可行性： 5 2.3信息系統(tǒng)開發(fā)方法的選擇 5 2.4.1組織結(jié)構(gòu)圖6 2.4.2功能結(jié)構(gòu)圖 7 2.5業(yè)務流程圖8 2.6數(shù)據(jù)流和圖9 3.1數(shù)據(jù)庫概念設計 12 3.2數(shù)據(jù)結(jié)構(gòu)與數(shù)據(jù)庫設計 12 3.3代碼設計14 3.3.

2、1、員工編號:14 3.3.2、崗位編號：14 3.3.3權(quán)限編號14 3.4輸入輸出設計15 3.4.1輸入設計15 3.4.2輸出設計15 3.5、模塊功能與處理過程設計與實現(xiàn) 16 3.5.1系統(tǒng)登錄模塊16 3.5.2管理人員查詢與生成報表功能 16 3.5.3人事科功能模塊18 3.5.4人員部檔案處功能模塊 19 3.5.5人事部經(jīng)理功能模塊 20 3.6信息系統(tǒng)安全設計 21 第四章系統(tǒng)實施21 4.1、數(shù)據(jù)庫連接21 4 . 2、登陸代碼22 4.3工資生成代碼 22 4.4員工查詢代碼： 23 4.3密碼修改27 4.4等效業(yè)務量修改，獎金修改 28 4.5在職人員報表生成

3、29 第五章結(jié)束語31 參考文獻32 第5頁 企業(yè)人事檔案管理信息系統(tǒng) 摘要 人事檔案反映著每一個員工個人經(jīng)歷、能力和德才的綜合表現(xiàn)。準確、齊全、完整的 員工人事檔案是企業(yè)全面考察了解、正確評價和使用人才的重要依據(jù)，對一個企業(yè)的人才 管理非常之重要。 但目前在一些企業(yè)，特別是一些小型的私有企業(yè)，管理人員還一直采取手工編輯、檢 索,致使人事檔案管理材料不能及時歸檔整理，存在人事檔案管理資料不完整、收集、歸檔 工作被動、不及時。為此我們充分利用學過的管理信息系統(tǒng)， 和數(shù)據(jù)庫，vb程序開發(fā)知識， 致力于建立一個小型的，成本低的，管理方便的適合中小型企業(yè)的、高度自動化的人事管 理信息系統(tǒng)，只需2到3個

4、人或者更少的人就能完成企業(yè)人事的檔案管理工作，高度節(jié)省 人力物力，同時還可以為企業(yè)提供準確、可靠的人才管理依據(jù)。 關鍵字：人事檔案；信息系統(tǒng)；開發(fā)；實施， 第一章系統(tǒng)概述 目前，據(jù)一項調(diào)查結(jié)果來看，我們中小型企業(yè)對管理軟件（主要是管理信息系統(tǒng)）的 應用小于45%且絕大多數(shù)僅于會計軟件，對人事系統(tǒng)的軟件相當缺乏，更別談系統(tǒng)功能 的實現(xiàn)狀況了，人事管理這塊兒多是人工操作，效率低，且工作復雜，需要人手較多，造 成了人力財力的巨大浪費。若建立一個自動化的成本低的， 適合他們的人事信息管理系統(tǒng), 減少人事部門人員的工作量，降低人事部門員工數(shù)量，對企業(yè)，將會產(chǎn)生巨大的經(jīng)濟效益， 對員工，將會增加員工的工作

5、滿意度，減少人員流失率。為此建立這樣的一個系統(tǒng)無論是 對企業(yè)還是對員工無非都是有利的。 第二章需求分析與系統(tǒng)總體設計 2.1需求分析 人事檔案管理信息系統(tǒng)主要用于對公司內(nèi)部員工等人事信息進行管理，并提供了相關 人事職能部門，為人事部提供了管理工具，同時讓員工可以通過公司內(nèi)部網(wǎng)實現(xiàn)自我管理 和管理人員對公司信息的查詢和統(tǒng)計功能，提高了整體運作效能。 我們所做人事檔案的信息系統(tǒng)的基本功能是管理員工資料，檔案管理，員工工資管理， 崗位管理，報表生成，權(quán)限設置等功能 檔案管理：當員工第一次來公司報到時，人事科負責將員工的基本信息（員工編號， 崗位編號，姓名，性別，合同開始時間，合同結(jié)束時間，身份證號，

6、聯(lián)系方式，所屬部門， 崗位等信息）輸入到通過人事系統(tǒng)輸入到數(shù)據(jù)庫中。當員工出現(xiàn)離職，退休等情況時，檔 案處會根據(jù)員工的狀態(tài)對檔案進行管理。 員工資料管理：人事部門的人事科負責維護普通員工的基本資料。員工可以通過自己 的員工編號登陸到人事系統(tǒng)中，查看自己的相關信息（基本資料，獲獎經(jīng)歷，工資等），如 果發(fā)現(xiàn)有錯誤可以通知人事科來修改信息（這些信息包括員工獲金情況，月基本工資，基 本信息等）。同時自己也可以修改自己的登陸密碼。當員工崗位變動時，人事部門會將其的 相關信息修改，比如員工編號，崗位，部門等。普通員工可以查詢自己的崗位調(diào)動歷史。 員工工資管理：員工工資由月基本工資、應扣除工資、和獎金三部分

7、組成，應扣除工 資可能是由于員工缺勤，遲到，請假等原因造成，這里只用等效缺勤來生成應扣除工資。 各崗位的月基本工資和獎金等級的數(shù)額由人事部經(jīng)理來設定?？记诒碛扇耸虏抗ぷ魅藛T負 責記錄每月員工的出勤情況，等效業(yè)務完成量（非業(yè)務人員則通過相應的換算公式根據(jù)相 應的工作量轉(zhuǎn)化為等效業(yè)務量），最后通過程序來自動生成員工實發(fā)工資。普通員工可以查 看自己的當月工資，獲獎情況，等相關信息。 報表生成：科級以上干部可以獲取公司的人事信息報表，每個月人事部都會生成工資， 財務部可以登陸人事系統(tǒng)，選擇相應的操作，即可獲得相應的工資報表，廠長等可以獲得 公司的在職員工，離職員工，退休員工信息的報表，可以查看員工獲獎

8、情況表，了解員 工業(yè)績狀況。各級管理人員可以為新到的部下獲得崗位職責說明表，讓他們了解相應崗位 的職責，權(quán)力、義務等。 權(quán)限設置：不同的員工登陸系統(tǒng)應具有不同的權(quán)限，人事部只能干人事部的事，普通 員工只能查詢自己的相關信息， 2.2可行性研究 221操作人員的可行性分析： 現(xiàn)在程序開發(fā)技術已經(jīng)在大學中普及，基本上每個大學畢業(yè)生，都會點程序開發(fā)。招 聘一個這樣的員工很簡單，而且這樣的人員在正常的企業(yè)，應該也不在少數(shù)，從人員上是 可以的，也可以交專門的開發(fā)人員去開發(fā)。 2.2.2硬件的可及技術的可行性： 這樣的程序開發(fā)，用普通的開發(fā)語言完全可以達到，比如VB VC, SQLServer acces

9、s, 都可以用于程序開發(fā)，而這些軟件對電腦的要求配置也不高， 一個4000元以上的電腦完全 可以達到硬件要求，。 2.2.3經(jīng)濟可行性： 因為現(xiàn)在電腦已經(jīng)相當普及，在企業(yè)購置一個差不多配置的電腦，10000萬元左右， 對一個公司完全屬于可控開支之內(nèi)。而開發(fā)這樣的一個信息系統(tǒng)，至少可以節(jié)省一到兩個 人的工作量，按一個人一個月工資 2000元計算，一年就可以至少節(jié)省 40000 50000元， 經(jīng)濟效益是相當可觀的了。開發(fā)這樣的一個系統(tǒng)的系統(tǒng)開發(fā)費用大概在10000元左右，一 年系統(tǒng)維護費用也不會太高，大概幾千左右。經(jīng)濟上也是可行的。 2.3信息系統(tǒng)開發(fā)方法的選擇 Vb界面友好，而且我們學的是 V

10、b語言，對此比較熟悉，數(shù)據(jù)庫的選擇可是 Access或 者是SQL server ,但由于后者功能更加完善，所以我們就選擇了 VB和SQL server .但 VB程序運行的慢，如有學過其他的編程，比如有 Java,等高級的編程語言，也可以選擇， 由于時間有限，我們就以VB和SQL server作為開發(fā)工具 2.4組織結(jié)構(gòu)與功能分析 2.4.1組織結(jié)構(gòu)圖 人 賬爲I_i后拓任占！銷爲 冋 檔贏（招歸j調(diào)|出匸（清 j食孑（車訶j車晶采匸 第12頁 企業(yè)人事檔案管理系統(tǒng) 242功能結(jié)構(gòu)圖 員工個人員工工資管 員工檔案管 統(tǒng)計輸出 安全管理 考核信 息管 信息管理理理 員 計 同 合 工 員 工

11、續(xù) 檔 檔 約 案 案 信 信 息 息 刪 添 員 生 生 成 成 成 員 印 印 工 工 崗 狀 資 位 態(tài) 報 說 報 表 明 生 限 權(quán) 碼 管 管 理 理 密 1 業(yè) 務 務 量 量 修 統(tǒng) 改 計 業(yè) 2.5業(yè)務流程圖 業(yè)務流程圖 調(diào)入人員 通知 入人 員 員通知提交 調(diào)入人 人事 科 員工 本廠職 工 廠長 批準 提交 V 工資制度 變動 調(diào)出人員通 知 離退休人員 通知 離退休人員 通知 職工崗位變 動通知 職工基本 信息變更任 提 交 調(diào)入人員 統(tǒng)計處理 調(diào)入人員 檔案 調(diào)入人 調(diào)入人員 登記 J 調(diào)出 r 表添加記錄 職工信息 變動處理 職工統(tǒng)計 處理 職丄丄資 處理 職工數(shù)

12、據(jù) 庫 員工信息表 崗位職 責表 職工統(tǒng)計 表 職工信息表 一員名單 廠長 職工 - 提交-H 職工 檔案 取出 職工工資 報表 十財務處 人事 科 職工檔 案 離退休人員 檔案處理 離退休人 員檔案表 各級管理 人員 調(diào)出人員 檔案處理 調(diào)出人員 檔案表 各級管理 人員 2.6數(shù)據(jù)流和圖 頂層圖 職工 登陸 人事管理系統(tǒng) 人事部 維護 人事調(diào)動表 人員 1 1 廠長 各種報表 職責說明書 職工工資報表 離退休人員信息表 調(diào)出人員檔案信息表 新員工 賬務科 各級管理 人員 各級管理 人員 一級細化圖 D1 賬號表 各級管理 人員 F0 D2崗位說明表 職工 F1 人事信息處理 D3 獎金報表

13、D4勤報表 -*D5員工檔案 P4- 修改獎金數(shù)額 * P5 考勤核算 P6 調(diào)入人員處理 P7 木人員處 理 P8 P9 員工信息變 更處理 P10 員工處 理 第 10頁 人事管理信息系統(tǒng)沈陽航空航天大學 第11頁 二級細化圖 人事管理信息系統(tǒng)沈陽航空航天大學 第三章系統(tǒng)設計 頁 3.2數(shù)據(jù)結(jié)構(gòu)與數(shù)據(jù)庫設計 十 一！腿鋰樹ZK唇 |債魏Jfi屛快然 -| J d at ah o_ninpw*r i j敗as手耗吞ej |d*3 + I丄東竝丟 ti LZi dLo鬲恒餛哺表 + 口弘s工貿(mào)生威FUl問表 + n虹I葦渤袞 + :二 dbc 黒耳巳芮工禾 亠a dto.人爭調(diào)劫表 出a dL

14、c員丄工HS點 亠二弘0昱工按獎燈況表 111 dbi，n T 后貝古 + n 4bc.毆號義 I-二視閏 耒軌換團 4Lo Vie_gaiO-l 工姿般表 db. VI _2Og-2工費相表 dLw. Vi.w匚在取;5工巖 flhn 2w-注僭盤工禾 dbQ, View 詛fF為1帯 dbc. Vi決_tl 工表 趾6上工_變初歩表 dba. VI few HftRlS 工表 賬號表的設計 衰=Server=(local);Database=database_ma npower;Uid=Jack;Pwd=111111 Adodc1.Comma ndType = adCmdTable Ado

15、dc1.RecordSource =崗位說明表 Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Colu mn s(1).Locked = True DataGrid1.Colum ns(0)丄 ocked = True DataGrid1.Colum ns(3)丄 ocked = True End Sub Private Sub DataGrid1_Cha nge() Dim i As In teger i = MsgBox(你確定& vbCrLf & 要修改此員工的基本工資嗎, vbOKCancel, 警 告) If i

16、 = 1 The n DataGrid1.DataCha nged = True Cnn.Execute update 員工信息表 set 月基本工資=& Adodc1.Recordset.Fields( 月基本工資)& where 所在崗位編號=& ” & Adodc1.Recordset.Fields(崗位編號 )& Else DataGridl.DataCha nged = False End If End Sub 4.4等效業(yè)務量修改，獎金修改 Public Fun ctio n Newipt() Rs4.Open select * from 獎金表,Cnn, , , adCmdU n

17、known Do While Not Rs4.EOF For i = 0 To 6 Combol.Addltem Rs4.Fields(0) Amt(i) = Rs4.Fields(1) Awd(i) = Rs4.Fields(2) Rs4.MoveNext Next i Loop Rs4.Close End Fun cti on Private Sub amoun tmodify_Click() DataGridl.Visible = False Framel.Visible = True Framel.Caption =等效業(yè)務量修改 Cmd_Awdmod.Visible = False

18、Cmd_Amtmod.Visible = True End Sub Private Sub awardmodify_Click() Framel.Visible = True Cmd_Awdmod.Visible = True Cmd_Amtmod.Visible = False Framel.Caption =獎金額修改 End Sub Private Sub Cmd_Amtmod_Click() i = MsgBox(你確認要修改等效業(yè)務量嗎？, vbOKCancel, 請確認) If i = 1 The n Cnn .Execute update 獎金表 set 等效業(yè)務量要求=& Va

19、l(Text1.Text) & where 獎金編號=& ” & Combo1 丄 ist(Combo1.List In dex) & ” Newipt End If End Sub Private Sub Cmd_Awdmod_Click() i = MsgBox(你確認要修改獎金數(shù)額嗎？, vbOKCancel, 請確認) If i = 1 The n Cnn .Execute update 獎金表 set 獎金數(shù)額=& Val(Text1.Text) & where 獎金編 號=& ” & Combo1 丄ist(Combo1.ListIndex) & ” Newipt End If E

20、nd Sub 4.5在職人員報表生成 Private Sub nu mbers_o n_ Click() Dim newcel As New Excel.Application, i, J, K As Integer, Clo As String, Clo2 As Stri ng rs_ma.Open select * from view_在職員工表, Cnn, 3, 2, adCmdUnknown n ewcel.Visible = False n ewcel.Workbooks.Add Do While Not rs_ma.EOF For i = 2 To (rs_ma.RecordCou

21、 nt + 1) Step 1 For J = 65 To (64 + rs_ma.Fields.Count) Step 1 Clo = Chr(J) & i Clo1 = Chr(J) & 1 n ewcel.Ra nge(Clo1).FormulaR1C1 = rs_ma.Fields(J - 65).Name n ewcel.Ra nge(Clo).Select n ewcel.ActiveCell.FormulaR1C1 = rs_ma.Fields(J - 65) Next J rs_ma.MoveNext Next i Loop newcel.Ra nge(A & rs_ma.Re

22、cordCou nt + 2).FormulaR1C1 = 總?cè)藬?shù)” newcel.Ra nge(B & rs_ma.RecordCou nt + 2).FormulaR1C1 = rs_ma.RecordCou nt n ewcel.Visible = True rs_ma.Close End Sub If Len (Ga nbia) 0 The n Dim WrdApp As New Word.Applicati on With WrdApp .Visible = False .Docume nts.Add End With rs_ma.Open select * from崗位說明表 where 崗位編號=& & Ganbia & ”, Cnn, , , adCmdU nknown If rs_ma.EOF The n MsgBox 請輸入正確的崗位編號,沒有此崗位編號 GoTo X End If WrdApp. ActiveDocume nt.Co nten t.Fo nt.Size = 18 WrdApp.ActiveDocument.Content.Text=崗位說明書& vbCrLf & rs_ma.Fields(O).Name & : & rs_ma.Fields(O) & vbCrLf & rs_ma.Fi