1、. . . . 課程設計（論文）書題目：人事管理系統1. 引言 21.1.系統名稱： 21.2.開發目標： 21.3.主要功能： 22.系統開發的可行性 32.1.開發的可行性 32.2.系統運行支持的可行性 32.2.1系統環境的可行性。 32.3.系統可行性 42.3.1技術可行性 42.3.2經濟可行性 42.3.3管理的可行性 43.系統分析 53.1.業務流程圖 53.2.數據流程圖 53.3.數據字典 64.系統設計 74.1.功能模塊設計 84.1.1數據維護模塊 84.1.2查詢模塊 94.1.3報表處理模塊 94.1.4系統維護模塊 94.1.5退出模塊 94.2輸出設計 1

2、04.3數據庫結構設計 104.3.1數據庫表設計 104.3.2表間關系 124.4.輸入設計 134.4代碼設計 144.4.1查詢成績表單 144.4.2學生成績維護表單 154.4.3統計界面代碼 164.4.4登陸界面代碼 164.4.5學生信息維護表單 174.4.6主程序代碼 195.系統實施 205.1試運行結果 205.2試運行結果分析 216.系統小結 231. 引言1.1.系統名稱： 人事管理系統1.2.開發目標：開發出一個操作簡便，界面友好，靈活實用，安全可靠的人事管理系統。該系統的開發以企業員工為對象，能夠提高企業對員工信息的管理，減輕企業人力資源管理人員對員工相關信

3、息管理和統計的負擔，提高企業學校對員工信息的規化管理。該人事管理系統能夠與時對員工信息進行收集整理，使企業相關部門與時獲取可靠的員工信息，便于管理。1.3.主要功能： 人事管理系統主要是對職工個人信息、工作業績評價進行管理和數據的統計，要現功能如下。·部門的管理：能夠添加、刪除、修改部門信息。·民族信息的管理：能夠添加、刪除、修改民族信息。·職工信息的管理：包括職工個人信息的添加、修改、刪除、查詢和打印。·職工工作業績評價的管理：包括職工工作業績評價信息的添加、修改、刪除、查詢和打印。·統計報表：包括統計各種職稱的人數、各部門的人數。·

4、;系統功能：包括修改密碼、退出系統、關于本系統。本系統使用置的登錄用戶，不許修改用戶名。1.4系統開發隨著計算機技術的飛速發展，計算機在企業管理中的應用日益普與。企業人事管理系統是公司管理的一個重要容。隨著當今企業人員數量的增加，企業的人事管理工作也變得越來越復雜。如果能夠實現其管理的自動化，無疑將給企業管理部門帶來極大的方便。高效準確的人事管理系統能夠提高員工的工作效率和工作熱情，減輕工作負擔。因此，利用計算機技術實現企業人事的管理勢在必行。2.系統開發的可行性2.1.開發的可行性 該系統開發后的好處：(1)為企業人力資源管理人員提供各部門員工的基本信息，以作為其進行考核和總結評比的依據。

5、（2）方便企業高層管理人員記錄，統計各部門生產效率，提高工作效率，減輕負擔；總結經驗，提高工作質量。(3)實現快速方便地處理大量數據信息，完成信息的錄入、添加、修改、刪除、統計、查詢、排序等處理要求。(4)輸出和打印各類相關報表。2.2.系統運行支持的可行性2.2.1系統環境的可行性。（1） 軟件環境： 用戶端：Windows2000，Windows2003，Windows XP 服務器端：WindowsNT/Windows2000與以上操作系統編程語言：SOL數據庫：Visual FoxPro6.0 （2）硬件環境：有高性能的電子計算機、大容量的存貯裝置，個人電腦（終端）以與聯結起來的網線等

6、，組成信息資源共享的計算機網絡，有共享的打印機，掃描儀等等。2.3.系統可行性2.3.1技術可行性系統要求在windows2000以上環境運行，后臺數據庫采用access2003，使用SOL編程，采用ADO方式連接數據庫，這些在目前都是容易實現的。程序將部分需要經常調用的數據存入存，可提高程序運行速度 2.3.2經濟可行性在經濟上，用此系統加強了企業人事管理效率，為企業人力資源管理人員提高了工作效率，可節省人力資源的開支。 2.3.3管理的可行性在工作上，企業人力資源部門需要管理的信息量非常大，開發了此系統，可極大提高工作人員的工作效率。方便信息的儲存和修改，與以后隨時查詢信息，是一個比較人性

7、化的管理系統。由以上分析得出，本系統可進行開發。3.系統分析3.1. 數據流程圖人事管理 身份驗證 身份驗證 員工信息人事管理系統3.2. 業務流程圖員工相關信息錄入身份驗證登錄信息查詢（打印相關報表）結束3.3.數據字典數據流名稱：職工信息 數據結構：01職工編號0203部門編號04性別 05出生日期06籍貫07專業08學歷09民族編號10婚姻11號1213住址14政治面貌15參加工作時間16調入時間17職稱編號18職務19原工作單位20簡歷21照片22備注排序方式：按職工編號升序排列4.系統設計以需求分析說明書為依據，針對人力資源管理人員對員工相關信息的管理需求，參照現有的開發環境，利用可

8、用資源和使用環境，設計、構造并確定出能滿足相應功能的類和類成員函數。4.1.功能模塊設計本系統大致分為五大功能模塊：系統、職工信息管理、工作評價管理、統計輸出、幫助。人事管理系統工作評價管理 統計輸出職工信息管理 幫助 系統4.1.1系統模塊 本模塊包括修改密碼和退出系統兩個部分，用戶可以通過此模塊修改用戶密碼和選擇是否退出系統。4.1.2職工信息管理模塊 本模塊包含了編輯基礎信息、編輯職工信息和查詢職工信息三個部分，可進行如職工基本信息編輯、查詢等相關操作。4.1.3工作評價管理模塊 本模塊可以編輯、查詢職工工作評價，相關信息可以成為以后對員工進行評價的依據。4.1.4統計輸出模塊 本模塊包

9、括輸出各職稱人數、輸出各部門人數、打印檔案報表、打印工作評價表四個模塊，可對企業部員工的相關信息進行統計。4.1.5幫助模塊本模塊可以為用戶提供關于本系統的相關幫助，協助用戶更好地使用該人事管理系統。4.2輸出設計4.3數據庫結構設計4.3.1數據庫表設計（1）部門表（2）民族表（3）職稱表（4）職工檔案表（5）工作評價表4.3.2表間關系4.4.輸入設計（1）登錄界面（2）信息錄入、修改界面4.5代碼設計4.5.1主程序代碼Close ALLClear ALLSet Talk OffSet Century OnSet Safety OffON ERROR Messagebox(Message

10、(),0, “警告”)Public g_usernameWITH_SCREEN.Visible=.F.NAME=人事管理.CLOSABLE=.F.HEIGHT=600.WIDTH=800.WINDOWSTATE=2.CAPTION=人事管理系統.ICON=047.icoENDWITHSET CLASSLIB TO mytoolbar.vcxbar1=CREATEOBJECT(mytoolbar)bar1.LEFT=0bar1.TOP=0bar1.SHOWDo Form f_welcomeRead EventsSet Sysmenu To Default4.5.2建立系統封面表單（1）確定登錄按

11、鈕select userthisform.n=thisform.n+1locate for alltrim(user name)=alltrim(thisform.text1.value)if found() and alltrim(userpasswd); = alltrim(thisform.text2.value) g_username=thisform.text1.value thisform.release do main_menu.mpr _Screen.Visible=.T.else if thisform.n<5MessageBox(“用戶名或密碼錯誤，請重新輸入”，48

12、,“警告”)thisform.text1.setfocus elseMessageBox(“密碼連續錯誤5次，系統無法運行”，48,“警告”)thisform.releasequit endifendif（2）退出按鈕代碼ans=MessageBox(“真的要退出系統”，4+32，“確認”)if ans=6 thisform.release quitelse thisform.text1.setfocusendif4.5.3建立職工檔案相關的表單（1）命令按鈕組增加append blankgo topn=thisform.pageframel.Activepagen=alltrim(str(n

13、)thisform.pageframel.page&n.gridl.readonly=.F.thisform.pageframel.page&n.gridl.refresh()thisform.pageframel.page&n.gridl.setfocus()this.parent.CmdDel.Enabled=.F.this.parent.CmdModi.Enabled=.F.（2）命令按鈕組刪除n=thisform.pageframel.Activepagen=alltrim(str(n)yn=MessageBox(“真的刪除當前記錄？”，4+32，”確認刪除”)

14、if yn=6 strl= thisform.pageframel.page&n.gridl.recordsource dele pack thisform.pageframel.page&n.gridl.recordsource=strl thisform.pageframel.page&n.gridl.refresh thisform.pageframel.page&n.gridl.setfocus() this.parent.CmdAdd.Enabled=.F. this.parent.CmdModi.Enabled=.F.endif（3）命令按鈕組修改n

15、=thisform.pageframel.Activepagen=alltrim(str(n)thisform.pageframel.page&n.gridl.readonly=.F.thisform.pageframel.page&n.gridl.refreshthisform.pageframel.page&n.gridl.setfocusthis.parent.CmdAdd.Enabled=.F.this.parent.CmdDel.Enabled=.F.this.enabled=.f.（4）命令按鈕組保存flushn=thisform.pageframel.Ac

16、tivepagen=alltrim(str(n)go topthisform.pageframel.page&n.gridl.refreshthisform.pageframel.page&n.gridl.setfocus()thisform.pageframel.page&n.gridl.readonly=.T.this.parent.CmdAdd.Enabled=.T.this.parent.CmdDel.Enabled=.T.this.parent.CmdModi.Enabled=.T.（5）命令按鈕組退出thisform.release4.5.4建立工作評價相關

17、的表單（1）確定單選按鈕組do casecase this.value=1 thisform.text1.enabled=.T. thisform bol.enabled=.F. thisform.Cmd_query.enabled=.F. thisform.text1.setfocuscase this.value=2 thisform bol.enabled=.T. thisform.text1.enabled=.F. thisform.Cmd_query.enabled=.F. thisform bol.setfocusendcase（2）確定查詢按鈕select appraisedo

18、case case thisform.optiongroup1.value=1select employeelocate for=alltrim(thisform.text1.value)if found() g_zgbh=職工編號 set filter to 職工編號=g_zgbh endifcase thisform.optiongroup1.value=2set filter to 部門編號=thisform bol.valueendcasego topthisform.gridl.refresh（3）確定全部按鈕select appraiseset filter tothisform.gridl.refresh（4）設定退出按鈕thisform.release4.5.5建立系統相關的表單（1）確定按鈕代碼select userset exact on locate for username=g_username and userpasswd=thisform