vfp課程設(shè)計報告--人力資源管理系統(tǒng)

1、<p><b>　　Vfp課程設(shè)計報告</b></p><p><b>　　人力資源管理系統(tǒng)</b></p><p>　　姓 名 </p><p>　　學(xué) 院 人文與社會科學(xué)學(xué)院 </p><p>　　專業(yè)班級 公共事業(yè)管理

2、</p><p>　　學(xué) 號 </p><p>　　指導(dǎo)老師 </p><p>　　Vfp人力資源管理系統(tǒng)設(shè)計報告</p><p><b>　　一、系統(tǒng)總體規(guī)劃</b></p><p><b>　　1、系統(tǒng)任務(wù)<

3、;/b></p><p>　　人力資源管理是所有公司、企事業(yè)單位所必需的，功能完善及操作方便的人力資源管理系統(tǒng)，可以大大提高管理員的工作效率，及時準(zhǔn)確的反映員工的基本信息及薪酬情況，本系統(tǒng)是根據(jù)某高等學(xué)校的人力資源進(jìn)行設(shè)計的，主要將人力資源的統(tǒng)計從人工直接統(tǒng)計解放出來，利用計算機(jī)來統(tǒng)計，直接獲得準(zhǔn)確信息，使職員管理工作系統(tǒng)化、規(guī)范化、自動化。具有較強(qiáng)的針對性和功能性。</p><p>

4、;<b>　　2、系統(tǒng)功能</b></p><p>　　本系統(tǒng)采用面向?qū)ο蟮脑O(shè)計思想，以菜單和表單的形式進(jìn)行各表單的調(diào)用，主要完成以下功能：</p><p><b>　?。?）檔案更新</b></p><p><b>　　人事記錄的增加；</b></p><p><b&g

5、t;　　人事記錄的修改；</b></p><p><b>　　人事記錄的刪除；</b></p><p><b>　　人事記錄的瀏覽；</b></p><p><b>　?。?）檔案統(tǒng)計</b></p><p><b>　　統(tǒng)計職工年齡情況</b>

6、;</p><p><b>　　統(tǒng)計職工政治面目</b></p><p><b>　　統(tǒng)計職工婚姻狀況</b></p><p><b>　　統(tǒng)計職工技術(shù)職務(wù)</b></p><p><b>　　統(tǒng)計職工文化程度</b></p><p&g

7、t;<b>　　統(tǒng)計職工民族情況</b></p><p><b>　　統(tǒng)計職工工資情況</b></p><p><b>　?。?）檔案輸出</b></p><p><b>　　a.瀏覽查詢</b></p><p><b>　　查詢輸出個人簡歷&l

8、t;/b></p><p><b>　　查詢輸出家庭成員</b></p><p><b>　　查詢輸出人事卡片</b></p><p><b>　　查詢輸出社會關(guān)系</b></p><p><b>　　b. 精確查詢</b></p>&

9、lt;p>　　精確查詢個人簡歷，家庭成員，人事卡片，社會關(guān)系</p><p><b>　　（4）修改密碼</b></p><p><b>　?。?）報表打印</b></p><p><b>　　檔案統(tǒng)計報表打印</b></p><p><b>　　檔案輸出報表打

10、印</b></p><p><b>　　3、開發(fā)和運(yùn)行環(huán)境</b></p><p>　　開發(fā)工具：Visual FoxPro 6.0</p><p>　　運(yùn)行環(huán)境：Windows 9x 、Windows 2000、Windows XP</p><p><b>　　二、需求分析</b>&l

11、t;/p><p>　　人力資源管理系統(tǒng)的設(shè)計最重要的是各項(xiàng)功能健全，使用方便簡潔，界面友好。本套系統(tǒng)可以滿足管理員對職工信息的瀏覽、修改、查詢、打印、統(tǒng)計等多項(xiàng)功能，操作簡易。</p><p><b>　　三、系統(tǒng)框架</b></p><p><b>　　四、小組成員分工</b></p><p>　　五

12、、系統(tǒng)功能模塊設(shè)計</p><p><b>　　1、登錄模塊</b></p><p>　　管理員通過輸入正確的用戶名、密碼、等級方可進(jìn)入到主菜單,進(jìn)入人事檔案的瀏覽、更新、統(tǒng)計、打印報表以及修改密碼等表單。</p><p><b>　　2、檔案更新模塊</b></p><p>　?。?）增加人事記錄

13、?？芍苯犹砑尤耸掠涗洠鶕?jù)提示輸入新的人事數(shù)據(jù)，點(diǎn)擊確定按鈕保存至rskp表，代號重復(fù)時會有提示，退出返回主菜單；</p><p>　?。?）修改人事記錄。瀏覽人事記錄的過程中，隨時可以通過點(diǎn)擊編輯按鈕進(jìn)行修改，點(diǎn)擊保存可保存修改后的記錄，退出返回主菜單；</p><p>　　（3）刪除人事記錄。瀏覽人事記錄的過程中，隨時可以通過點(diǎn)擊刪除按鈕刪除這一條記錄，退出返回主菜單。</p&g

14、t;<p><b>　　3、檔案輸出模塊</b></p><p>　　四張查詢表單分別用于瀏覽輸出職工個人簡歷、社會關(guān)系、家庭成員和人事基本信息，并可進(jìn)行報表打印。</p><p>　　一張表單精確查詢，輸出任一代號的人員的相關(guān)信息。</p><p><b>　　4、檔案統(tǒng)計模塊</b></p>

15、<p>　　根據(jù)職工的年齡、文化程度、技術(shù)職務(wù)、政治面貌、婚姻狀況、民族、工資以及進(jìn)行統(tǒng)計。</p><p><b>　　5、修改密碼模塊</b></p><p>　　密碼修改功能，該功能方便了用戶對于自身密碼的定期修改的要求，保證了信息的安全。</p><p><b>　　六、數(shù)據(jù)庫設(shè)計</b></p&

16、gt;<p>　　1、數(shù)據(jù)庫表結(jié)構(gòu)設(shè)計</p><p>　　本系統(tǒng)建立數(shù)據(jù)庫后，數(shù)據(jù)庫中主要包括五個數(shù)據(jù)表：人事基本信息表、個人簡歷表、家庭成員信息表、社會關(guān)系信息表、管理人員表，其字段屬性如下：</p><p>　　人事基本信息表rskp</p><p><b>　　家庭成員表jtcy</b></p><p&

17、gt;<b>　　社會關(guān)系表shgx</b></p><p><b>　　個人簡歷表grjl</b></p><p><b>　　管理人員表glry</b></p><p><b>　　2、關(guān)系設(shè)計</b></p><p>　　七、表單介紹及關(guān)鍵的程序代碼

18、</p><p>　　本系統(tǒng)有24張表單，根據(jù)修要對每張表單的autocenter、caption、fontsize、</p><p>　　titlebar等的屬性，并對表單進(jìn)行了界面的修飾與美化。主要表單有如下</p><p><b>　　歡迎界面</b></p><p>　　運(yùn)行“人力資源管理系統(tǒng)”可執(zhí)行文件，首先會

19、顯示一個動態(tài)的很漂亮的歡迎界面。通過設(shè)置計時器，其標(biāo)簽“歡迎登錄人力資源管理系統(tǒng)”從左上角緩緩移動至右下角，登錄界面出現(xiàn)。</p><p>　　timer1事件代碼：</p><p>　　if thisform.label1.left<=150</p><p>　　thisform.label1.left=thisform.label1.left+4</

20、p><p>　　thisform.label1.top=thisform.label1.top+10</p><p><b>　　else</b></p><p>　　thisform.release</p><p>　　do form 歡迎登錄</p><p><b>　　endif<

21、;/b></p><p><b>　　登錄界面</b></p><p>　　輸入正確的管理員姓名、密碼和等級顯示“登錄成功”，進(jìn)入主菜單。如果不輸入則會顯示“姓名或密碼不能為空，請重新輸入”，如果輸入錯誤，則會顯示“用戶不存在或密碼等級錯誤”。</p><p>　　“登錄”按鈕click事件代碼：</p><p>

22、<b>　　USE glry</b></p><p>　　IF EMPTY(THISFORM.TEXT1.VALUE).or.empty(THISFORM.TEXT2.VALUE)</p><p>　　MESSAGEBOX("用戶名或密碼不能為空，請重新輸入",48,"系統(tǒng)提示")</p><p>　　t

23、hisform.text2.SetFocus</p><p><b>　　ELSE</b></p><p>　　locate for alltrim(glry.xm)==alltrim(thisform.text1.value) and alltrim(glry.mm)==alltrim(thisform.text2.value) and alltrim(glry.d

24、j)==alltrim(thisform.text3.value) </p><p>　　IF FOUND()</p><p>　　MESSAGEBOX("成功")</p><p>　　do form 菜單</p><p>　　thisform.release</p><p><b>　　

25、ELSE</b></p><p>　　MESSAGEBOX("用戶不存在或密碼等級錯誤",46,"系統(tǒng)提示")</p><p>　　thisform.text1.Value=""</p><p>　　thisform.text2.Value=""</p><

26、;p>　　thisform.text3.value=""</p><p>　　thisform.text2.SetFocus</p><p><b>　　ENDIF</b></p><p><b>　　ENDIF</b></p><p><b>　　主菜單<

27、/b></p><p>　　主菜單是用戶進(jìn)入系統(tǒng)后主要接觸的界面，由它可以進(jìn)入各個功能模塊。分別單擊按鈕“檔案更新”、“檔案更新”、“檔案輸出”、“修改密碼”可進(jìn)入與之相對應(yīng)的功能模塊，單擊“退出”按鈕退出本系統(tǒng)。為使界面不至于單調(diào)，給主界面加入圖片作為背景。</p><p><b>　　4、檔案更新</b></p><p>　　檔案更新

28、模塊包含了“人事記錄增加”、“人事記錄修改”、“人事記錄刪除”幾個功能模塊，單擊進(jìn)入使用并且左側(cè)會出現(xiàn)主菜單的簡潔版（見下圖）。單擊“退出”即出現(xiàn)結(jié)束界面，退出本系統(tǒng)。</p><p><b>　?。?）人事記錄增加</b></p><p><b>　　人事記錄表單</b></p><p>　　“確定”按鈕的click事件

29、代碼：</p><p>　　set exclusive on</p><p>　　select rskp</p><p>　　if empty(alltrim(thisform.text1.value))</p><p>　　messagebox("代號不能為空",48,"錯誤")</p>

30、<p>　　thisform.text1.setfocus</p><p><b>　　else</b></p><p>　　dh1=alltrim(thisform.text1.value)</p><p>　　xm1=alltrim(thisform.text2.value)</p><p>　　xrzw

31、1=alltrim(thisform.text3.value)</p><p>　　mz1=alltrim(thisform.text4.value)</p><p>　　zzmm1=alltrim(thisform.text5.value)</p><p>　　whcd1=alltrim(thisform.text6.value)</p><p

32、>　　jtcs1=alltrim(thisform.text7.value)</p><p>　　bm1=alltrim(thisform.text8.value)</p><p>　　xb1=alltrim(thisform.text9.value)</p><p>　　csny1=ctod(allt(thisform.text10.value))</

33、p><p>　　jg1=alltrim(thisform.text11.value)</p><p>　　zc1=alltrim(thisform.text12.value)</p><p>　　jkzk1=alltrim(thisform.text13.value)</p><p>　　brcf1=alltrim(thisform.text14

34、.value)</p><p>　　gzbt1=val(allt(thisform.text15.value))</p><p>　　gz1=val(allt(thisform.text16.value))</p><p>　　zh1=val(allt(thisform.text17.value))</p><p>　　hyzk1=alltr

35、im(thisform.text18.value)</p><p>　　jtzz1=alltrim(thisform.text19.value)</p><p>　　bh1=val(allt(thisform.text20.value))</p><p>　　dm1=val(allt(thisform.text21.value))</p><p&

36、gt;　　bz1=allt(thisform.text22.value)</p><p>　　jbdwsj1=ctod(allt(thisform.text23.value))</p><p>　　cjgzsj1=ctod(thisform.text24.value)</p><p>　　nl1=val(allt(thisform.text25.value))<

37、;/p><p>　　set order to dh</p><p><b>　　seek dh1 </b></p><p>　　if !found()</p><p>　　insert into rskp (dh,xm,xrzw,mz,zzmm,whcd,jtcs,bm,xb,csny,jg,zc,jkzk,brcf,gzb

38、t,gz,zh,hyzk,jtzz,bh,dm,bz,jbdwsj,cjgzsj,nl)value(dh1,xm1,xrzw1,mz1,zzmm1,whcd1,jtcs1,bm1,xb1,csny1,jg1,zc1,jkzk1,brcf1,gzbt1,gz1,zh1,hyzk1,jtzz1,bh1,dm1,bz1,jbdwsj1,cjgzsj1,nl1)</p><p>　　messagebox("添加

39、成功！",48,"信息")</p><p>　　thisform.text1.value=''</p><p>　　thisform.text2.value=''</p><p>　　thisform.text3.value=''</p><p>　　thisfor

40、m.text4.value=''</p><p>　　thisform.text5.value=''</p><p>　　thisform.text6.value=''</p><p>　　thisform.text7.value=''</p><p>　　thisform.te

41、xt8.value=''</p><p>　　thisform.text9.value=''</p><p>　　thisform.text10.value=''</p><p>　　thisform.text11.value=''</p><p>　　thisform.text

42、12.value=''</p><p>　　thisform.text13.value=''</p><p>　　thisform.text14.value=''</p><p>　　thisform.text15.value=''</p><p>　　thisform.text

43、16.value=''</p><p>　　thisform.text17.value=''</p><p>　　thisform.text18.value=''</p><p>　　thisform.text19.value=''</p><p>　　thisform.text

44、20.value=''</p><p>　　thisform.text21.value=''</p><p>　　thisform.text22.value=''</p><p>　　thisform.text23.value=''</p><p>　　thisform.text

45、24.value=''</p><p>　　thisform.text25.value=''</p><p><b>　　else</b></p><p>　　messagebox("此代號已存在，請另輸一個",48,"錯誤")</p><p>　　

46、thisform.text1.value=''</p><p>　　thisform.text1.setfocus</p><p><b>　　endif</b></p><p><b>　　endif</b></p><p>　　“取消”按鈕click事件代碼：</p>

47、<p>　　thisform.text1.value=''</p><p>　　thisform.text2.value=''</p><p>　　thisform.text3.value=''</p><p>　　thisform.text4.value=''</p>&l

48、t;p>　　thisform.text5.value=''</p><p>　　thisform.text6.value=''</p><p>　　thisform.text7.value=''</p><p>　　thisform.text8.value=''</p><p&

49、gt;　　thisform.text9.value=''</p><p>　　thisform.text10.value=''</p><p>　　thisform.text11.value=''</p><p>　　thisform.text12.value=''</p><p&g

50、t;　　thisform.text13.value=''</p><p>　　thisform.text14.value=''</p><p>　　thisform.text15.value=''</p><p>　　thisform.text16.value=''</p><p&g

51、t;　　thisform.text17.value=''</p><p>　　thisform.text18.value=''</p><p>　　thisform.text19.value=''</p><p>　　thisform.text20.value=''</p><p&g

52、t;　　thisform.text21.value=''</p><p>　　thisform.text22.value=''</p><p>　　thisform.text23.value=''</p><p>　　thisform.text24.value=''</p><p&g

53、t;　　thisform.text25.value=''</p><p>　　thisform.text1.setfocus</p><p>　　“退出”按鈕click事件代碼：</p><p>　　thisform.release</p><p>　　do form 檔案更新</p><p><

54、b>　?。?）人事記錄修改</b></p><p><b>　　Init事件代碼：</b></p><p>　　thisform.text1.readonly=.t.</p><p>　　thisform.text2.readonly=.t.</p><p>　　thisform.text3.reado

55、nly=.t.</p><p>　　thisform.text4.readonly=.t.</p><p>　　thisform.text5.readonly=.t.</p><p>　　thisform.text6.readonly=.t.</p><p>　　thisform.text16.readonly=.t.</p>

56、<p>　　thisform.text17.readonly=.t.</p><p>　　thisform.text18.readonly=.t.</p><p>　　thisform.text19.readonly=.t.</p><p>　　thisform.text20.readonly=.t.</p><p>　　thisf

57、orm.text21.readonly=.t.</p><p>　　thisform.text7.readonly=.t.</p><p>　　thisform.text8.readonly=.t.</p><p>　　thisform.text9.readonly=.t.</p><p>　　thisform.text10.readonly

58、=.t.</p><p>　　thisform.text11.readonly=.t.</p><p>　　thisform.text12.readonly=.t.</p><p>　　thisform.text13.readonly=.t.</p><p>　　thisform.text14.readonly=.t.</p>

59、<p>　　thisform.text15.readonly=.t.</p><p>　　thisform.text22.readonly=.t.</p><p>　　thisform.text23.readonly=.t.</p><p>　　thisform.text24.readonly=.t.</p><p>　　thisf

60、orm.text25.readonly=.t.</p><p>　　“第一個”按鈕click事件代碼：</p><p><b>　　goto top</b></p><p>　　thisform.command1.enabled=.f.</p><p>　　thisform.command2.enabled=.f.<

61、;/p><p>　　thisform.command3.enabled=.t.</p><p>　　thisform.command4.enabled=.t.</p><p>　　thisform.refresh</p><p>　　“前一個”按鈕click事件代碼：</p><p>　　thisform.command3

62、.enabled=.t.</p><p>　　thisform.command4.enabled=.t.</p><p>　　if not bof()</p><p><b>　　skip-1</b></p><p>　　if recno()=1</p><p>　　thisform.comma

63、nd1.enabled=.f.</p><p>　　thisform.command2.enabled=.f.</p><p>　　messagebox("已經(jīng)到第一條記錄了！",64,"提示")</p><p><b>　　endif</b></p><p><b>　

64、　endif</b></p><p>　　thisform.refresh</p><p>　　“下一個”按鈕click事件代碼：</p><p>　　thisform.command1.enabled=.t.</p><p>　　thisform.command2.enabled=.t.</p><p>

65、　　if not eof()</p><p><b>　　skip 1</b></p><p>　　if recno()=reccount()</p><p>　　thisform.command3.enabled=.f.</p><p>　　thisform.command4.enabled=.f.</p>

66、<p>　　messagebox("已經(jīng)到最后一條記錄了！",64,"提示")</p><p><b>　　endif</b></p><p><b>　　endif</b></p><p>　　thisform.refresh</p><p>

67、　　“最后一個”按鈕click事件代碼：</p><p>　　goto bottom</p><p>　　thisform.command1.enabled=.t.</p><p>　　thisform.command2.enabled=.t.</p><p>　　thisform.command3.enabled=.f.</p>

68、;<p>　　thisform.command4.enabled=.f.</p><p>　　thisform.refresh</p><p>　　“編輯”按鈕click事件代碼：</p><p>　　thisform.text2.readonly=.f.</p><p>　　thisform.text3.readonly=.f

69、.</p><p>　　thisform.text4.readonly=.f.</p><p>　　thisform.text5.readonly=.f.</p><p>　　thisform.text6.readonly=.f.</p><p>　　thisform.text16.readonly=.f.</p><p&

70、gt;　　thisform.text17.readonly=.f.</p><p>　　thisform.text18.readonly=.f.</p><p>　　thisform.text19.readonly=.f.</p><p>　　thisform.text20.readonly=.f.</p><p>　　thisform.te

71、xt21.readonly=.f.</p><p>　　thisform.text7.readonly=.f.</p><p>　　thisform.text8.readonly=.f.</p><p>　　thisform.text9.readonly=.f.</p><p>　　thisform.text10.readonly=.f.&l

72、t;/p><p>　　thisform.text11.readonly=.f.</p><p>　　thisform.text12.readonly=.f.</p><p>　　thisform.text13.readonly=.f.</p><p>　　thisform.text14.readonly=.f.</p><p&

73、gt;　　thisform.text15.readonly=.f.</p><p>　　thisform.text22.readonly=.f.</p><p>　　thisform.text23.readonly=.f.</p><p>　　thisform.text24.readonly=.f.</p><p>　　thisform.te

74、xt25.readonly=.f.</p><p>　　“保存”按鈕click事件代碼：</p><p><b>　　sele rskp</b></p><p>　　locate for dh=allt(thisform.text1.value)</p><p>　　repl xm with allt(thisform.

75、text2.value)</p><p>　　repl xrzw with allt(thisform.text3.value)</p><p>　　repl mz with allt(thisform.text4.value)</p><p>　　repl zzmm with allt(thisform.text5.value)</p><p&

76、gt;　　repl whcd with allt(thisform.text6.value)</p><p>　　repl jtcs with allt(thisform.text7.value)</p><p>　　repl bm with allt(thisform.text8.value)</p><p>　　repl xb with allt(thisfor

77、m.text9.value)</p><p>　　repl csny with thisform.text10.value</p><p>　　repl jg with allt(thisform.text11.value)</p><p>　　repl zc with allt(thisform.text12.value)</p><p>

78、　　repl jkzk with allt(thisform.text13.value)</p><p>　　repl brcf with allt(thisform.text14.value)</p><p>　　repl gzbt with thisform.text15.value</p><p>　　repl gz with thisform.text16.

79、value</p><p>　　repl zh with thisform.text17.value</p><p>　　repl hyzk with allt(thisform.text18.value)</p><p>　　repl jtzz with allt(thisform.text19.value)</p><p>　　repl

80、bh with thisform.text20.value</p><p>　　repl dm with thisform.text21.value</p><p>　　repl bz with thisform.text22.value</p><p>　　repl jbdwsj with thisform.text23.value</p><

81、p>　　repl cjgzsj with thisform.text24.value</p><p>　　repl nl with thisform.text25.value</p><p>　　thisform.text2.readonly=.t.</p><p>　　thisform.text3.readonly=.t.</p><p&

82、gt;　　thisform.text4.readonly=.t.</p><p>　　thisform.text5.readonly=.t.</p><p>　　thisform.text6.readonly=.t.</p><p>　　thisform.text16.readonly=.t.</p><p>　　thisform.text1

83、7.readonly=.t.</p><p>　　thisform.text18.readonly=.t.</p><p>　　thisform.text19.readonly=.t.</p><p>　　thisform.text20.readonly=.t.</p><p>　　thisform.text21.readonly=.t.&l

84、t;/p><p>　　thisform.text7.readonly=.t.</p><p>　　thisform.text8.readonly=.t.</p><p>　　thisform.text9.readonly=.t.</p><p>　　thisform.text10.readonly=.t.</p><p>

85、　　thisform.text11.readonly=.t.</p><p>　　thisform.text12.readonly=.t.</p><p>　　thisform.text13.readonly=.t.</p><p>　　thisform.text14.readonly=.t.</p><p>　　thisform.text1

86、5.readonly=.t.</p><p>　　thisform.text22.readonly=.t.</p><p>　　thisform.text23.readonly=.t.</p><p>　　thisform.text24.readonly=.t.</p><p>　　thisform.text25.readonly=.t.&l

87、t;/p><p><b>　　（3）人事記錄刪除</b></p><p>　　Init事件代碼同“人事記錄編輯”表單</p><p>　　“第一個”、“前一個”、“下一個”、“最后一個”按鈕click事件代碼同“人事記錄修改表單”。</p><p>　　“刪除”按鈕click事件代碼：</p><p>

88、;　　use rskp exclusive</p><p>　　mb=messagebox("確定要刪除嗎？",1+64,"提示")</p><p><b>　　if mb==1</b></p><p>　　delete from rskp where dh=thisform.text1.value<

89、;/p><p><b>　　pack</b></p><p>　　messagebox("刪除成功",64,"提示")</p><p><b>　　endif</b></p><p><b>　　go top</b></p>&

90、lt;p>　　thisform.refresh</p><p><b>　　5、檔案統(tǒng)計</b></p><p>　　點(diǎn)擊相應(yīng)命令按鈕進(jìn)入相應(yīng)的統(tǒng)計表單。例如：</p><p>　　“統(tǒng)計技術(shù)職務(wù)”按鈕click事件代碼：</p><p>　　thisform.release</p><p>

91、;　　do form 技術(shù)職務(wù)統(tǒng)計</p><p><b>　　點(diǎn)擊進(jìn)入如下界面：</b></p><p>　　此表數(shù)據(jù)環(huán)境為：rskp</p><p><b>　　“統(tǒng)計”代碼為：</b></p><p>　　select rskp</p><p><b>　　d

92、o case</b></p><p>　　case empty(thisform.text1.value) and empty(thisform.combo1.value)</p><p>　　select bm as 部門,zc as 職稱,count(*) as 人數(shù) from rskp group by bm,zc order by bm into cursor tj2&

93、lt;/p><p>　　case !empty(thisform.combo1.value) and empty(thisform.text1.value)</p><p>　　select bm as 部門,zc as 職稱,count(*) as 人數(shù) from rskp where zc=thisform.combo1.value group by bm order by bm into

94、 cursor tj2</p><p>　　case !empty(thisform.text1.value) and empty(thisform.combo1.value)</p><p>　　select bm as 部門,zc as 職稱,count(*) as 人數(shù) from rskp where bm=thisform.text1.value group by zc order

95、 by bm into cursor tj2 </p><p>　　case !empty(thisform.text1.value) and !empty(thisform.combo1.value)</p><p>　　select bm as 部門,zc as 職稱,count(*) as 人數(shù) from rskp where bm=thisform.text1.value and

96、zc=thisform.combo1.value group by zc order by bm into cursor tj2 </p><p><b>　　endcase</b></p><p>　　thisform.grid1.visible=.t.</p><p>　　thisform.grid1.recordsourcetype=1&

97、lt;/p><p>　　thisform.grid1.recordsource="tj2"</p><p>　　thisform.grid1.column1.width=75</p><p>　　thisform.grid1.column2.width=75</p><p>　　thisform.grid1.column3.w

98、idth=75</p><p>　　thisform.refresh</p><p>　　表格的recordsourcetype屬性為4—SQL說明，</p><p>　　下拉組合框的rowsourcetype屬性設(shè)置為3—SQL語句，rowsource為select distinct zc from rskp into cursor zc</p>&

99、lt;p>　　在text1中輸入“英語”，職稱中選擇“中級”，點(diǎn)擊“統(tǒng)計”，結(jié)果如下：</p><p>　　其他統(tǒng)計報表原理與此相同。</p><p><b>　　6、檔案輸出</b></p><p>　　點(diǎn)擊相應(yīng)命令按鈕進(jìn)入相應(yīng)的統(tǒng)計表單。例如：</p><p>　　“查詢輸出社會關(guān)系”按鈕click事件代碼：&

100、lt;/p><p>　　thisform.release</p><p>　　do form 查詢輸出社會關(guān)系</p><p>　　點(diǎn)擊進(jìn)入下面的表單：</p><p>　　此表數(shù)據(jù)環(huán)境為shgx以及rskp</p><p>　　Text1的controlsource為rskp.dh,</p><p&g

101、t;　　Text2的controlsource為rskp.bm,</p><p>　　Text3的controlsource為rskp.xm,</p><p>　　Grid1的recordsource為temp1</p><p>　　Recordsourcetype為1-別名</p><p>　　Commandgroup1的click事件代碼

102、為：</p><p>　　select rskp</p><p><b>　　do case</b></p><p>　　case this.value=1</p><p><b>　　go top</b></p><p>　　this.command1.enabled=.f

103、.</p><p>　　this.command2.enabled=.f.</p><p>　　this.command3.enabled=.t.</p><p>　　this.command4.enabled=.t.</p><p>　　thisform.refresh</p><p>　　case this.val

104、ue=2</p><p>　　this.command3.enabled=.t.</p><p>　　this.command4.enabled=.t.</p><p><b>　　skip -1</b></p><p>　　if recno()=1</p><p>　　this.command1

105、.enabled=.f.</p><p>　　this.command2.enabled=.f.</p><p><b>　　endif</b></p><p>　　thisform.refresh</p><p>　　case this.value=3</p><p>　　this.comman

106、d1.enabled=.t.</p><p>　　this.command2.enabled=.t.</p><p><b>　　skip</b></p><p>　　if recno()=reccount()</p><p>　　this.command3.enabled=.f.</p><p>

107、;　　this.command4.enabled=.f.</p><p><b>　　endif</b></p><p>　　thisform.refresh</p><p>　　case this.value=4</p><p>　　goto bottom</p><p>　　this.comm

108、and1.enabled=.t.</p><p>　　this.command2.enabled=.t.</p><p>　　this.command3.enabled=.f.</p><p>　　this.command4.enabled=.f.</p><p>　　thisform.refresh</p><p>

109、　　case this.value=5</p><p>　　report form 社會關(guān)系.frx for alltrim(shgx.dh)=ALLTRIM(ThisForm.text1.value) preview </p><p>　　case this.value=6</p><p>　　thisform.release</p><

110、p>　　do form 檔案輸出 </p><p>　　case this.value=7</p><p>　　select shgx</p><p>　　x=thisform.text1.value</p><p>　　thisform.grid1.recordsourcetype=4</p><p>　　t

111、hisform.grid1.recordsource='select * from shgx where alltrim(shgx.dh)=alltrim(x) and rskp.dh=shgx.dh into cursor tempt1' </p><p>　　thisform.refresh </p><p><b>　　endcase</b>

112、</p><p><b>　　報表預(yù)覽截圖如下：</b></p><p>　　同樣，點(diǎn)擊進(jìn)入人事卡片：</p><p>　　設(shè)置好文本框的controlsource屬性以及buttongroup1的click事件代碼即可運(yùn)行。</p><p>　　精確查詢界面可隨意查詢?nèi)我獯柸藛T信息：</p><p

113、>　　“查詢”click事件代碼：</p><p>　　x=this.parent.text1.value</p><p>　　this.parent.grid1.recordsourcetype=4</p><p>　　this.parent.grid1.recordsource='select dh as 代號,ybrgx as 與本人關(guān)系,csn

114、y as 出生年月,hyzk as 婚姻狀況,whcd as 文化程度,zzmm as 政治面目,gzdw as 工作單位,zwgz as 職務(wù)工種,gz as 工資,jjly as 經(jīng)濟(jì)來源 from jtcy where alltrim(dh)=alltrim(x) into cursor page2'</p><p><b>　　其他頁面類似。</b></p>&

115、lt;p><b>　　7、修改密碼</b></p><p>　　“修改”按鈕click事件代碼為：</p><p><b>　　sele glry</b></p><p>　　if allt(thisform.text1.value)==""</p><p>　　thisf

116、orm.text1.setfocus</p><p><b>　　else</b></p><p>　　locate for allt(xm)==allt(thisform.text1.value)</p><p><b>　　if eof()</b></p><p>　　messagebox(&q

117、uot;此用戶不存在，請重新輸入！",64,"提示")</p><p>　　thisform.text1.value=""</p><p>　　thisform.text2.value=""</p><p>　　thisform.text3.value=""</p>

118、<p>　　thisform.text4.value=""</p><p>　　thisform.text1.setfocus()</p><p><b>　　else</b></p><p>　　if !allt(mm)==allt(thisform.text2.value)</p><p

119、>　　messagebox("密碼錯誤，請重新輸入！",64,"提示")</p><p>　　thisform.text2.value=""</p><p>　　thisform.text3.value=""</p><p>　　thisform.text4.value="

120、;"</p><p>　　thisform.text2.setfocus()</p><p><b>　　else</b></p><p>　　if allt(thisform.text3.value)==""</p><p>　　messagebox("請輸入新密碼！"

121、,64,"提示")</p><p>　　thisform.text3.setfocus</p><p><b>　　else</b></p><p>　　if !allt(thisform.text3.value)==allt(thisform.text4.value)</p><p>　　messa

122、gebox("確認(rèn)密碼錯誤，請重新輸入！",64,"提示")</p><p>　　thisform.text4.value=""</p><p>　　thisform.text4.setfocus</p><p><b>　　else</b></p><p>　

123、　repl mm with allt(thisform.text4.value)</p><p>　　messagebox("修改成功！",64,"提示")</p><p><b>　　endif</b></p><p><b>　　endif</b></p><

124、p><b>　　endif</b></p><p><b>　　endif</b></p><p><b>　　endif</b></p><p>　　“撤銷”按鈕click事件代碼：</p><p>　　thisform.text1.value=""

125、</p><p>　　thisform.text2.value=""</p><p>　　thisform.text3.value=""</p><p>　　thisform.text4.value=""</p><p><b>　　8、退出界面</b><

126、/p><p>　　單擊退出主菜單，運(yùn)行此界面，標(biāo)簽從左側(cè)飛入，右側(cè)飛出，頁面關(guān)閉。</p><p>　　Timer1事件代碼：</p><p>　　if thisform.label1.left<=420</p><p>　　thisform.label1.left=thisform.label1.left+4</p><

127、;p>　　thisform.label2.left=thisform.label2.left+4</p><p><b>　　else</b></p><p>　　thisform.release</p><p><b>　　endif</b></p><p><b>　　9、報表預(yù)

128、覽</b></p><p>　　點(diǎn)擊菜單中的“人事卡片代表”得到所有人的信息報表，如下：</p><p><b>　　其他報表同上。</b></p><p><b>　　八、心得體會 </b></p><p>　　設(shè)計這個程序，我們經(jīng)歷了無數(shù)次失敗。每一個小小的錯誤都讓我們查找了好久，用

129、了四個星期的時間終于做成功了，覺得很不容易。</p><p>　　當(dāng)初覺得做個系統(tǒng)是很簡單的事情，于是挑了一個喜歡的系統(tǒng)，以為會很輕松地完成，可是做下來才發(fā)現(xiàn)有各種問題。我們小組兩人互相研究討論，查閱了許多資料，并請教了許多老師同學(xué)，終于把這個系統(tǒng)做完了，酸甜苦辣算是都嘗過了。從這次的設(shè)計中我們收獲了很多。細(xì)心決定成敗，我們大多數(shù)的問題都是那些不易發(fā)現(xiàn)的小錯誤，還好有各位老師同學(xué)的幫助，我們順利地解決了問題，很感