vfp課程設(shè)計(jì)報(bào)告人力資源管理系統(tǒng)

1、Vfp課程設(shè)計(jì)報(bào)告人力資源管理系統(tǒng)姓 名 張瑾、楊舒儀 學(xué) 院 人文與社會(huì)科學(xué)學(xué)院 專業(yè)班級(jí) 公共事業(yè)管理 學(xué) 號(hào) 1115450133、1115450129指導(dǎo)老師 陳芬 Vfp人力資源管理系統(tǒng)設(shè)計(jì)報(bào)告一、系統(tǒng)總體規(guī)劃 1、系統(tǒng)任務(wù)人力資源管理是所有公司、企事業(yè)單位所必需的，功能完善及操作方便的人力資源管理系統(tǒng)，可以大大提高管理員的工作效率，及時(shí)準(zhǔn)確的反映員工的基本信息及薪酬情況，本系統(tǒng)是根據(jù)某高等學(xué)校的人力資源進(jìn)行設(shè)計(jì)的，主要將人力資源的統(tǒng)計(jì)從人工直接統(tǒng)計(jì)解放出來(lái)，利用計(jì)算機(jī)來(lái)統(tǒng)計(jì)，直接獲得準(zhǔn)確信息，使職員管理工作系統(tǒng)化、規(guī)范化、自動(dòng)化。具有較強(qiáng)的針對(duì)性和功能性。2、系統(tǒng)功能本系統(tǒng)采用面向

2、對(duì)象的設(shè)計(jì)思想，以菜單和表單的形式進(jìn)行各表單的調(diào)用，主要完成以下功能：（1）檔案更新l 人事記錄的增加；l 人事記錄的修改；l 人事記錄的刪除；l 人事記錄的瀏覽；（2）檔案統(tǒng)計(jì)l 統(tǒng)計(jì)職工年齡情況l 統(tǒng)計(jì)職工政治面目l 統(tǒng)計(jì)職工婚姻狀況l 統(tǒng)計(jì)職工技術(shù)職務(wù)l 統(tǒng)計(jì)職工文化程度l 統(tǒng)計(jì)職工民族情況l 統(tǒng)計(jì)職工工資情況（3）檔案輸出a.瀏覽查詢l 查詢輸出個(gè)人簡(jiǎn)歷l 查詢輸出家庭成員l 查詢輸出人事卡片l 查詢輸出社會(huì)關(guān)系b. 精確查詢l 精確查詢個(gè)人簡(jiǎn)歷，家庭成員，人事卡片，社會(huì)關(guān)系（4）修改密碼（5）報(bào)表打印l 檔案統(tǒng)計(jì)報(bào)表打印l 檔案輸出報(bào)表打印3、開(kāi)發(fā)和運(yùn)行環(huán)境開(kāi)發(fā)工具：Visual F

3、oxPro 6.0運(yùn)行環(huán)境：Windows 9x 、Windows 2000、Windows XP二、需求分析人力資源管理系統(tǒng)的設(shè)計(jì)最重要的是各項(xiàng)功能健全，使用方便簡(jiǎn)潔，界面友好。本套系統(tǒng)可以滿足管理員對(duì)職工信息的瀏覽、修改、查詢、打印、統(tǒng)計(jì)等多項(xiàng)功能，操作簡(jiǎn)易。三、系統(tǒng)框架統(tǒng)計(jì)職工年齡統(tǒng)計(jì)文化程度統(tǒng)計(jì)政治面目統(tǒng)計(jì)職工工資統(tǒng)計(jì)技術(shù)職務(wù)統(tǒng)計(jì)職工民族統(tǒng)計(jì)婚姻狀況歡迎界面登陸主菜單檔案統(tǒng)計(jì)檔案更新檔案輸出修改密碼退出人事記錄更新人事記錄添加人事記錄刪除查詢輸出社會(huì)關(guān)系查詢輸出個(gè)人簡(jiǎn)歷查詢輸出人事卡片查詢輸出家庭成員退出界面精確查詢四、小組成員分工數(shù)據(jù)庫(kù)的創(chuàng)建楊舒儀表和視圖的創(chuàng)建楊舒儀各表之間關(guān)系的建

4、立楊舒儀歡迎界面張瑾登錄設(shè)置楊舒儀修改密碼楊舒儀數(shù)據(jù)輸出張瑾數(shù)據(jù)更新楊舒儀數(shù)據(jù)統(tǒng)計(jì)張瑾精確查詢張瑾報(bào)表設(shè)計(jì)張瑾結(jié)束界面楊舒儀表單整合張瑾Bug修正張瑾楊舒儀菜單的創(chuàng)建張瑾主程序的編寫(xiě)張瑾系統(tǒng)美化張瑾楊舒儀五、系統(tǒng)功能模塊設(shè)計(jì)1、登錄模塊管理員通過(guò)輸入正確的用戶名、密碼、等級(jí)方可進(jìn)入到主菜單,進(jìn)入人事檔案的瀏覽、更新、統(tǒng)計(jì)、打印報(bào)表以及修改密碼等表單。2、檔案更新模塊（1）增加人事記錄?？芍苯犹砑尤耸掠涗洠鶕?jù)提示輸入新的人事數(shù)據(jù)，點(diǎn)擊確定按鈕保存至rskp表，代號(hào)重復(fù)時(shí)會(huì)有提示，退出返回主菜單；（2）修改人事記錄。瀏覽人事記錄的過(guò)程中，隨時(shí)可以通過(guò)點(diǎn)擊編輯按鈕進(jìn)行修改，點(diǎn)擊保存可保存修改后的記

5、錄，退出返回主菜單；（3）刪除人事記錄。瀏覽人事記錄的過(guò)程中，隨時(shí)可以通過(guò)點(diǎn)擊刪除按鈕刪除這一條記錄，退出返回主菜單。3、檔案輸出模塊四張查詢表單分別用于瀏覽輸出職工個(gè)人簡(jiǎn)歷、社會(huì)關(guān)系、家庭成員和人事基本信息，并可進(jìn)行報(bào)表打印。一張表單精確查詢，輸出任一代號(hào)的人員的相關(guān)信息。4、檔案統(tǒng)計(jì)模塊 根據(jù)職工的年齡、文化程度、技術(shù)職務(wù)、政治面貌、婚姻狀況、民族、工資以及進(jìn)行統(tǒng)計(jì)。5、修改密碼模塊密碼修改功能，該功能方便了用戶對(duì)于自身密碼的定期修改的要求，保證了信息的安全。六、數(shù)據(jù)庫(kù)設(shè)計(jì)1、數(shù)據(jù)庫(kù)表結(jié)構(gòu)設(shè)計(jì)本系統(tǒng)建立數(shù)據(jù)庫(kù)后，數(shù)據(jù)庫(kù)中主要包括五個(gè)數(shù)據(jù)表：人事基本信息表、個(gè)人簡(jiǎn)歷表、家庭成員信息表、社會(huì)關(guān)

6、系信息表、管理人員表，其字段屬性如下：人事基本信息表rskp字段名標(biāo)題字段類型寬度小數(shù)位數(shù)dh代號(hào)字符型4bm部門(mén)字符型8xm姓名字符型8xb性別字符型2xrzw現(xiàn)任職務(wù)字符型10csny出生年月日期型8mz民族字符型8jg籍貫字符型10zzmm政治面目字符型8zc職稱字符型6whcd文化程度字符型4jkzk健康狀況字符型4jtcs家庭出身字符型10brcf本人成分字符型4hyzk婚姻狀況字符型4cjgzsj參加工作時(shí)間日期型8jbdwsj進(jìn)本單位時(shí)間日期型8gz工資數(shù)值型62gzbt工資補(bǔ)貼數(shù)值型62jtzz家庭住址字符型20nl年齡數(shù)值型4bz備注字符型40bh編號(hào)數(shù)值型1zh職號(hào)數(shù)值型3

7、dm代碼數(shù)值型1家庭成員表jtcy字段名標(biāo)題字段類型寬度小數(shù)位數(shù)dh代號(hào)字符型4ybrgx與本人關(guān)系字符型4csny出生年月日期型8hyzk婚姻狀況字符型8whcd文化程度字符型8zzmm政治面目字符型8gzdw工作單位字符型10zwgz職務(wù)工種字符型10gz工資數(shù)值型62jjly經(jīng)濟(jì)來(lái)源字符型10社會(huì)關(guān)系表shgx字段名標(biāo)題字段類型寬度小數(shù)位數(shù)dh代號(hào)字符型4gxxm關(guān)系姓名字符型6ybrgx與本人關(guān)系字符型4zzmm政治面目字符型4gzdw工作單位字符型20zwgz職務(wù)工種字符型6bz備注字符型20個(gè)人簡(jiǎn)歷表grjl字段名標(biāo)題字段類型寬度小數(shù)位數(shù)dh代號(hào)字符型4kssj開(kāi)始時(shí)間日期型8xm

8、結(jié)束時(shí)間日期型8gzdw工作單位字符型20drzw擔(dān)任職務(wù)字符型10管理人員表glry字段名標(biāo)題字段類型寬度小數(shù)位數(shù)xm姓名字符型8mm密碼字符型6dj等級(jí)字符型22、關(guān)系設(shè)計(jì)七、表單介紹及關(guān)鍵的程序代碼本系統(tǒng)有24張表單，根據(jù)修要對(duì)每張表單的autocenter、caption、fontsize、titlebar等的屬性，并對(duì)表單進(jìn)行了界面的修飾與美化。主要表單有如下1、 歡迎界面運(yùn)行“人力資源管理系統(tǒng)”可執(zhí)行文件，首先會(huì)顯示一個(gè)動(dòng)態(tài)的很漂亮的歡迎界面。通過(guò)設(shè)置計(jì)時(shí)器，其標(biāo)簽“歡迎登錄人力資源管理系統(tǒng)”從左上角緩緩移動(dòng)至右下角，登錄界面出現(xiàn)。timer1事件代碼：if thisform.la

9、bel1.left=150 thisform.label1.left=thisform.label1.left+4 thisform.label1.top=thisform.label1.top+10else thisform.release do form 歡迎登錄endif2、 登錄界面輸入正確的管理員姓名、密碼和等級(jí)顯示“登錄成功”，進(jìn)入主菜單。如果不輸入則會(huì)顯示“姓名或密碼不能為空，請(qǐng)重新輸入”，如果輸入錯(cuò)誤，則會(huì)顯示“用戶不存在或密碼等級(jí)錯(cuò)誤”?！暗卿洝卑粹oclick事件代碼：USE glryIF EMPTY(THISFORM.TEXT1.VALUE).or.empty(THISFO

10、RM.TEXT2.VALUE)MESSAGEBOX(用戶名或密碼不能為空，請(qǐng)重新輸入,48,系統(tǒng)提示)ELSElocate for alltrim(glry.xm)=alltrim(thisform.text1.value) and alltrim(glry.mm)=alltrim(thisform.text2.value) and alltrim(glry.dj)=alltrim(thisform.text3.value) IF FOUND()MESSAGEBOX(成功)do form 菜單thisform.releaseELSEMESSAGEBOX(用戶不存在或密碼等級(jí)錯(cuò)誤,46,系統(tǒng)提示

11、)thisform.text1.Value=thisform.text2.Value=thisform.text3.value=ENDIFENDIF3、 主菜單主菜單是用戶進(jìn)入系統(tǒng)后主要接觸的界面，由它可以進(jìn)入各個(gè)功能模塊。分別單擊按鈕“檔案更新”、“檔案更新”、“檔案輸出”、“修改密碼”可進(jìn)入與之相對(duì)應(yīng)的功能模塊，單擊“退出”按鈕退出本系統(tǒng)。為使界面不至于單調(diào)，給主界面加入圖片作為背景。4、檔案更新檔案更新模塊包含了“人事記錄增加”、“人事記錄修改”、“人事記錄刪除”幾個(gè)功能模塊，單擊進(jìn)入使用并且左側(cè)會(huì)出現(xiàn)主菜單的簡(jiǎn)潔版（見(jiàn)下圖）。單擊“退出”即出現(xiàn)結(jié)束界面，退出本系統(tǒng)。（1）人事記錄增加人

12、事記錄表單“確定”按鈕的click事件代碼：set exclusive onselect rskpif empty(alltrim(thisform.text1.value) messagebox(代號(hào)不能為空,48,錯(cuò)誤)else dh1=alltrim(thisform.text1.value) xm1=alltrim(thisform.text2.value) xrzw1=alltrim(thisform.text3.value) mz1=alltrim(thisform.text4.value) zzmm1=alltrim(thisform.text5.value) whcd1=all

13、trim(thisform.text6.value) jtcs1=alltrim(thisform.text7.value) bm1=alltrim(thisform.text8.value) xb1=alltrim(thisform.text9.value) csny1=ctod(allt(thisform.text10.value) jg1=alltrim(thisform.text11.value) zc1=alltrim(thisform.text12.value) jkzk1=alltrim(thisform.text13.value) brcf1=alltrim(thisform.

14、text14.value) gzbt1=val(allt(thisform.text15.value) gz1=val(allt(thisform.text16.value) zh1=val(allt(thisform.text17.value) hyzk1=alltrim(thisform.text18.value) jtzz1=alltrim(thisform.text19.value) bh1=val(allt(thisform.text20.value) dm1=val(allt(thisform.text21.value) bz1=allt(thisform.text22.value

15、) jbdwsj1=ctod(allt(thisform.text23.value) cjgzsj1=ctod(thisform.text24.value) nl1=val(allt(thisform.text25.value) set order to dh seek dh1 if !found() insert into rskp (dh,xm,xrzw,mz,zzmm,whcd,jtcs,bm,xb,csny,jg,zc,jkzk,brcf,gzbt,gz,zh,hyzk,jtzz,bh,dm,bz,jbdwsj,cjgzsj,nl)value(dh1,xm1,xrzw1,mz1,zzm

16、m1,whcd1,jtcs1,bm1,xb1,csny1,jg1,zc1,jkzk1,brcf1,gzbt1,gz1,zh1,hyzk1,jtzz1,bh1,dm1,bz1,jbdwsj1,cjgzsj1,nl1) messagebox(添加成功！,48,信息) thisform.text1.value= thisform.text2.value= thisform.text3.value= thisform.text4.value= thisform.text5.value= thisform.text6.value= thisform.text7.value= thisform.text8

17、.value= thisform.text9.value= thisform.text10.value= thisform.text11.value= thisform.text12.value= thisform.text13.value= thisform.text14.value= thisform.text15.value= thisform.text16.value= thisform.text17.value= thisform.text18.value= thisform.text19.value= thisform.text20.value= thisform.text21.v

18、alue= thisform.text22.value= thisform.text23.value= thisform.text24.value= thisform.text25.value= else messagebox(此代號(hào)已存在，請(qǐng)另輸一個(gè),48,錯(cuò)誤) thisform.text1.value= endifendif“取消”按鈕click事件代碼：thisform.text1.value= thisform.text2.value= thisform.text3.value= thisform.text4.value= thisform.text5.value= thisform

19、.text6.value= thisform.text7.value= thisform.text8.value= thisform.text9.value= thisform.text10.value= thisform.text11.value= thisform.text12.value= thisform.text13.value= thisform.text14.value= thisform.text15.value= thisform.text16.value= thisform.text17.value= thisform.text18.value= thisform.text

20、19.value= thisform.text20.value= thisform.text21.value= thisform.text22.value= thisform.text23.value= thisform.text24.value= thisform.text25.value=“退出”按鈕click事件代碼：thisform.releasedo form 檔案更新（2）人事記錄修改Init事件代碼：thisform.text1.readonly=.t.thisform.text2.readonly=.t.thisform.text3.readonly=.t.thisform.t

21、ext4.readonly=.t.thisform.text5.readonly=.t.thisform.text6.readonly=.t.thisform.text16.readonly=.t.thisform.text17.readonly=.t.thisform.text18.readonly=.t.thisform.text19.readonly=.t.thisform.text20.readonly=.t.thisform.text21.readonly=.t.thisform.text7.readonly=.t.thisform.text8.readonly=.t.thisfor

22、m.text9.readonly=.t.thisform.text10.readonly=.t.thisform.text11.readonly=.t.thisform.text12.readonly=.t.thisform.text13.readonly=.t.thisform.text14.readonly=.t.thisform.text15.readonly=.t.thisform.text22.readonly=.t.thisform.text23.readonly=.t.thisform.text24.readonly=.t.thisform.text25.readonly=.t.

23、“第一個(gè)”按鈕click事件代碼：goto topmand1.enabled=.f.mand2.enabled=.f.mand3.enabled=.t.mand4.enabled=.t.thisform.refresh“前一個(gè)”按鈕click事件代碼：mand3.enabled=.t.mand4.enabled=.t.if not bof()skip-1if recno()=1 mand1.enabled=.f. mand2.enabled=.f. messagebox(已經(jīng)到第一條記錄了！,64,提示) endifendifthisform.refresh“下一個(gè)”按鈕click事件代碼：m

24、and1.enabled=.t.mand2.enabled=.t.if not eof()skip 1if recno()=reccount()mand3.enabled=.f.mand4.enabled=.f. messagebox(已經(jīng)到最后一條記錄了！,64,提示)endifendifthisform.refresh“最后一個(gè)”按鈕click事件代碼：goto bottommand1.enabled=.t.mand2.enabled=.t.mand3.enabled=.f.mand4.enabled=.f.thisform.refresh“編輯”按鈕click事件代碼：thisform.

25、text2.readonly=.f.thisform.text3.readonly=.f.thisform.text4.readonly=.f.thisform.text5.readonly=.f.thisform.text6.readonly=.f.thisform.text16.readonly=.f.thisform.text17.readonly=.f.thisform.text18.readonly=.f.thisform.text19.readonly=.f.thisform.text20.readonly=.f.thisform.text21.readonly=.f.thisfo

26、rm.text7.readonly=.f.thisform.text8.readonly=.f.thisform.text9.readonly=.f.thisform.text10.readonly=.f.thisform.text11.readonly=.f.thisform.text12.readonly=.f.thisform.text13.readonly=.f.thisform.text14.readonly=.f.thisform.text15.readonly=.f.thisform.text22.readonly=.f.thisform.text23.readonly=.f.t

27、hisform.text24.readonly=.f.thisform.text25.readonly=.f.“保存”按鈕click事件代碼：sele rskplocate for dh=allt(thisform.text1.value) repl xm with allt(thisform.text2.value) repl xrzw with allt(thisform.text3.value) repl mz with allt(thisform.text4.value) repl zzmm with allt(thisform.text5.value) repl whcd with

28、allt(thisform.text6.value) repl jtcs with allt(thisform.text7.value) repl bm with allt(thisform.text8.value) repl xb with allt(thisform.text9.value) repl jg with allt(thisform.text11.value) repl zc with allt(thisform.text12.value) repl jkzk with allt(thisform.text13.value) repl brcf with allt(thisfo

29、rm.text14.value) repl hyzk with allt(thisform.text18.value) repl jtzz with allt(thisform.text19.value)thisform.text2.readonly=.t.thisform.text3.readonly=.t.thisform.text4.readonly=.t.thisform.text5.readonly=.t.thisform.text6.readonly=.t.thisform.text16.readonly=.t.thisform.text17.readonly=.t.thisfor

30、m.text18.readonly=.t.thisform.text19.readonly=.t.thisform.text20.readonly=.t.thisform.text21.readonly=.t.thisform.text7.readonly=.t.thisform.text8.readonly=.t.thisform.text9.readonly=.t.thisform.text10.readonly=.t.thisform.text11.readonly=.t.thisform.text12.readonly=.t.thisform.text13.readonly=.t.th

31、isform.text14.readonly=.t.thisform.text15.readonly=.t.thisform.text22.readonly=.t.thisform.text23.readonly=.t.thisform.text24.readonly=.t.thisform.text25.readonly=.t.（3）人事記錄刪除Init事件代碼同“人事記錄編輯”表單“第一個(gè)”、“前一個(gè)”、“下一個(gè)”、“最后一個(gè)”按鈕click事件代碼同“人事記錄修改表單”?！皠h除”按鈕click事件代碼：use rskp exclusivemb=messagebox(確定要?jiǎng)h除嗎？,1+6

32、4,提示)if mb=1 pack messagebox(刪除成功,64,提示)endifgo topthisform.refresh5、檔案統(tǒng)計(jì)點(diǎn)擊相應(yīng)命令按鈕進(jìn)入相應(yīng)的統(tǒng)計(jì)表單。例如：“統(tǒng)計(jì)技術(shù)職務(wù)”按鈕click事件代碼：thisform.releasedo form 技術(shù)職務(wù)統(tǒng)計(jì)點(diǎn)擊進(jìn)入如下界面：此表數(shù)據(jù)環(huán)境為：rskp“統(tǒng)計(jì)”代碼為：select rskpdo case case empty(thisform.text1.value) and empty(bo1.value) select bm as 部門(mén),zc as 職稱,count(*) as 人數(shù) from rskp grou

33、p by bm,zc order by bm into cursor tj2 case !empty(bo1.value) and empty(thisform.text1.value) select bm as 部門(mén),zc as 職稱,count(*) as 人數(shù) from rskp where zc=bo1.value group by bm order by bm into cursor tj2 case !empty(thisform.text1.value) and empty(bo1.value) select bm as 部門(mén),zc as 職稱,count(*) as 人數(shù) fr

34、om rskp where bm=thisform.text1.value group by zc order by bm into cursor tj2 case !empty(thisform.text1.value) and !empty(bo1.value) select bm as 部門(mén),zc as 職稱,count(*) as 人數(shù) from rskp where bm=thisform.text1.value and zc=bo1.value group by zc order by bm into cursor tj2 endcasethisform.grid1.visible

35、=.t.thisform.grid1.recordsourcetype=1thisform.grid1.recordsource=tj2thisform.grid1.column1.width=75thisform.grid1.column2.width=75thisform.grid1.column3.width=75thisform.refresh表格的recordsourcetype屬性為4SQL說(shuō)明，下拉組合框的rowsourcetype屬性設(shè)置為3SQL語(yǔ)句，rowsource為select distinct zc from rskp into cursor zc在text1中輸入“

36、英語(yǔ)”，職稱中選擇“中級(jí)”，點(diǎn)擊“統(tǒng)計(jì)”，結(jié)果如下：其他統(tǒng)計(jì)報(bào)表原理與此相同。6、檔案輸出點(diǎn)擊相應(yīng)命令按鈕進(jìn)入相應(yīng)的統(tǒng)計(jì)表單。例如：“查詢輸出社會(huì)關(guān)系”按鈕click事件代碼：thisform.releasedo form 查詢輸出社會(huì)關(guān)系點(diǎn)擊進(jìn)入下面的表單：此表數(shù)據(jù)環(huán)境為shgx以及rskpText1的controlsource為rskp.dh,Text2的controlsource為rskp.bm,Text3的controlsource為rskp.xm,Grid1的recordsource為temp1Recordsourcetype為1-別名Commandgroup1的click事件代碼為

37、：select rskpdo case case this.value=1 go top mand1.enabled=.f. mand2.enabled=.f. mand3.enabled=.t. mand4.enabled=.t. thisform.refresh case this.value=2 mand3.enabled=.t. mand4.enabled=.t. skip -1 if recno()=1 mand1.enabled=.f. mand2.enabled=.f. endif thisform.refresh case this.value=3 mand1.enabled=

38、.t. mand2.enabled=.t. skip if recno()=reccount() mand3.enabled=.f. mand4.enabled=.f. endif thisform.refresh case this.value=4 goto bottom mand1.enabled=.t. mand2.enabled=.t. mand3.enabled=.f. mand4.enabled=.f. thisform.refresh case this.value=5 report form 社會(huì)關(guān)系.frx for alltrim(shgx.dh)=ALLTRIM(ThisF

39、orm.text1.value) preview case this.value=6 thisform.release do form 檔案輸出 case this.value=7 select shgx thisform.grid1.recordsourcetype=4 thisform.grid1.recordsource=select * from shgx where alltrim(shgx.dh)=alltrim(x) and rskp.dh=shgx.dh into cursor tempt1 thisform.refresh endcase報(bào)表預(yù)覽截圖如下：同樣，點(diǎn)擊進(jìn)入人事卡

40、片：設(shè)置好文本框的controlsource屬性以及buttongroup1的click事件代碼即可運(yùn)行。精確查詢界面可隨意查詢?nèi)我獯?hào)人員信息：“查詢”click事件代碼：this.parent.grid1.recordsourcetype=4this.parent.grid1.recordsource=select dh as 代號(hào),ybrgx as 與本人關(guān)系,csny as 出生年月,hyzk as 婚姻狀況,whcd as 文化程度,zzmm as 政治面目,gzdw as 工作單位,zwgz as 職務(wù)工種,gz as 工資,jjly as 經(jīng)濟(jì)來(lái)源 from jtcy where alltrim(dh)=alltrim(x) into cursor page2其他頁(yè)面類似。7、修改密碼“修