VF課程設計--員工工資管理系統(tǒng)(共17頁)

1、精選優(yōu)質(zhì)文檔-傾情為你奉上數(shù)據(jù)庫技術與應用課程設計 題目：員工工資管理系統(tǒng)系別：測繪工程專業(yè)：地理信息系統(tǒng)班級：姓名：時柳青 孫浩 談士軍 王豪 2014年1月2日 1.功能簡介工資管理信息系統(tǒng)對企業(yè)加強工資管理有著極其重要的作用，就一般的大型企業(yè)來說，它的設計內(nèi)容非常復雜而且繁多，比如擁有工資計算功能，工資統(tǒng)計功能，報表輸出功能，而且設計的模塊也很多，比如工資管理模塊，工資統(tǒng)計模塊，報表設計模塊，打印輸出模塊，模糊查詢模塊等等。通過本系統(tǒng)可以實現(xiàn)員工信息和工資的瀏覽、查詢、編輯和預覽打印報表的功能。 2.概要設計由于這是一次課程設計，制作的系統(tǒng)相對來說比較簡單。包括登錄模塊、數(shù)據(jù)瀏覽模塊、數(shù)

2、據(jù)添加模塊、數(shù)據(jù)修改模塊、數(shù)據(jù)刪除模塊、數(shù)據(jù)查詢模塊、數(shù)據(jù)統(tǒng)計模塊、報表輸出模塊。該工資管理的系統(tǒng)的主要功能如圖所示。 工資管理系統(tǒng)瀏覽查詢統(tǒng)計輸出編輯集體查詢個人查詢添加修改刪除瀏覽模塊要求有員工的基本信息，查詢模塊個人查詢通過職工編號的來查詢員工各自的信息，集體查詢通過查詢一個部門。編輯模塊包括添加、修改、刪除模塊，輸出模塊包括報表的預覽與打印。3.詳細設計工資管理系統(tǒng)主界面 登錄代碼如下：do casecase thisform.optiongroup1.value=1if thisform.cbo用戶名.value="時柳青" and thisform.txt密碼.

3、value="123"do form 工資管理系統(tǒng)歡迎界面.scxelsei=i+1if i<=3messagebox("用戶名或密碼錯誤")thisform.cbo用戶名.value=""thisform.txt密碼.value=""thisform.cbo用戶名.setfocuselse messagebox("信息有誤,不能登錄")endifendifcase thisform.optiongroup1.value=2if thisform.cbo用戶名.value="孫浩

4、" and thisform.txt密碼.value="456"do form 一般用戶登錄后的界面.scxelsek=k+1if k<=3messagebox("用戶名或密碼錯誤")thisform.cbo用戶名.value=""thisform.txt密碼.value=""thisform.cbo用戶名.setfocuselse messagebox("信息有誤,不能登錄")endifendifendcase退出代碼如下： release thisform工資管理系統(tǒng)歡迎界面

5、所用代碼如下：do form 瀏覽界面.scxdo form 個人查詢界面.scxdo form 集體查詢界面.scxdo form 添加記錄界面.scxdo form 修改記錄界面.scxdo form 刪除記錄界面.scx do form 打印界面.scx 所用代碼如下： do form 個人查詢界面.scx do form 集體查詢界面.scx release thisform 集體查詢界面確定代碼如下：do casecase bo1.value="生產(chǎn)部"select 員工表.職工編號,員工表.姓名,工資表.基本工資,工資表.崗位工資,工資表.獎金,工資表.扣所得稅

6、,工資表.實發(fā)工資 from 員工表,工資表;where 員工表.部門='生產(chǎn)部' and 員工表.職工編號=工資表.職工編號 into cursor shchbthisform.grid1.recordsource="shchb"thisform.grid1.refreshcase bo1.value="銷售部"select 員工表.職工編號,員工表.姓名,工資表.基本工資,工資表.崗位工資,工資表.獎金,工資表.扣所得稅,工資表.實發(fā)工資 from 員工表,工資表;where 員工表.部門='銷售部' and 員工表.

7、職工編號=工資表.職工編號 into cursor xshbthisform.grid1.recordsource="xshb"thisform.grid1.refreshcase bo1.value="技術部"select 員工表.職工編號,員工表.姓名,工資表.基本工資,工資表.崗位工資,工資表.獎金,工資表.扣所得稅,工資表.實發(fā)工資 from 員工表,工資表;where 員工表.部門='技術部' and 員工表.職工編號=工資表.職工編號 into cursor jshbthisform.grid1.recordsource=&q

8、uot;jshb"thisform.grid1.refreshcase bo1.value="公關部"select 員工表.職工編號,員工表.姓名,工資表.基本工資,工資表.崗位工資,工資表.獎金,工資表.扣所得稅,工資表.實發(fā)工資 from 員工表,工資表;where 員工表.部門='公關部' and 員工表.職工編號=工資表.職工編號 into cursor ggbthisform.grid1.recordsource="ggb"thisform.grid1.refreshendcase個人查詢界面確定代碼如下zgbh=al

9、ltrim(thisform.text1.value)select 工資表set order to tag 職工編號seek zgbhif found ()select 工資表.職工編號,員工表.姓名,員工表.性別,員工表.工作日期,員工表.職稱,工資表.基本工資,工資表.崗位工資,工資表.獎金,工資表.津貼,工資表.扣所得稅,工資表.實發(fā)工資;from 員工表,工資表;where 工資表.職工編號=alltrim(thisform.text1.value) and 員工表.職工編號=工資表.職工編號 into cursor chxthisform.txt姓名.value=chx.姓名this

10、form.txt性別.value=chx.性別thisform.txt工作日期.value=chx.工作日期thisform.txt職稱.value=chx.職稱thisform.txt基本工資.value=chx.基本工資thisform.txt崗位工資.value=chx.崗位工資thisform.txt獎金.value=chx.獎金thisform.txt津貼.value=chx.津貼thisform.txt扣所得稅.value=chx.扣所得稅thisform.txt實發(fā)工資.value=chx.實發(fā)工資thisform.refreshelsethisform.txt姓名.value=

11、""thisform.txt性別.value=""thisform.txt工作日期.value=""thisform.txt職稱.value=""thisform.txt基本工資.value=""thisform.txt崗位工資.value=""thisform.txt獎金.value=""thisform.txt津貼.value=""thisform.txt扣所得稅.value=""thisform.txt實發(fā)工資

12、.value=""messagebox("沒有找到記錄！",48,"警告")endif瀏覽界面添加記錄界面所用代碼如下：m=messagebox("是否添加?",4+32,"信息窗口")append blankthisform.refreshthisform.text1.enabled=.t.thisform.text2.enabled=.t.thisform.text3.enabled=.t.thisform.text4.enabled=.t.thisform.text5.enabled=.t

13、.thisform.text6.enabled=.t.thisform.text7.enabled=.t.thisform.text8.enabled=.t.thisform.text9.enabled=.t.thisform.text10.enabled=.t.thisform.text11.enabled=.t.thisform.refresh確定代碼thisform.text1.enabled=.f.thisform.text2.enabled=.f.thisform.text3.enabled=.f.thisform.text4.enabled=.f.thisform.text5.en

14、abled=.f.thisform.text6.enabled=.f.thisform.text7.enabled=.f.thisform.text8.enabled=.f.thisform.text9.enabled=.f.thisform.text10.enabled=.f.thisform.text11.enabled=.f.thisform.refresh修改界面：修改記錄代碼：if mand1.caption="修改記錄"thisform.text1.enabled=.T.thisform.text2.enabled=.T.thisform.text3.enabl

15、ed=.T.thisform.text4.enabled=.T.thisform.text5.enabled=.T.thisform.text6.enabled=.T.thisform.text7.enabled=.T.mand1.caption="確認修改"thisform.refreshthisform.text1.setfocuselsemand1.caption="修改記錄"thisform.text1.enabled=.f.thisform.text2.enabled=.f.thisform.text3.enabled=.f.thisform.

16、text4.enabled=.f.thisform.text5.enabled=.f.thisform.text6.enabled=.f.thisform.text7.enabled=.f.endif修改密碼界面：確認代碼如下USE 用戶密碼表.dbf if empty(thisform.text2.value) or empty(thisform.text1.value) messagebox("請輸入用戶名稱和密碼!",48,"警告")elselocate for 用戶名 =alltrim(thisform.text1.value) if 密碼=al

17、ltrim(thisform.text2.value) If ALLTRIM(thisform.text3.Value) = "" MessageBox("新密碼", 16, "提示") else If ALLTRIM(thisform.text3.Value) != ALLTRIM(thisform.text4.Value)MessageBox("倆次輸入的新密碼不同", 16, "提示") thisform.text3.value= "" thisform.text4.v

18、alue= "" elselocate for 用戶名=ALLTRIM(thisform.text1.Value)replace 密碼 with thisform.text3.Value thisform.releaseMessageBox("密碼已經(jīng)成功修改，請在下次登錄時使用新密碼") Endif Endif else messagebox("用戶名或密碼錯誤,請重新輸入!",64,"警告") thisform.text2.value= "" thisform.text1.value= &q

19、uot;" endifendifclose all tablerelease thisformdo form 工資管理系統(tǒng)主界面.scx.刪除界面刪除記錄代碼如下zgbh=alltrim(thisform.text1.value)if messagebox("真的要刪除當前記錄嗎?",32+4+256,"刪除記錄")=6use 工資表 exclusiveset order to tag zgbhseek text1deletepackendifthisform.refresh打印界面：預覽代碼如下：if thisform.check1.valu

20、e=1report form 工資報表.frx previewendifif thisform.check2.value=1report form 生產(chǎn)部工資報表.frx previewendifif thisform.check3.value=1report form 銷售部工資報表.frx previewendifif thisform.check4.value=1report form 技術部工資報表.frx previewendifif thisform.check5.value=1report form 公關部工資報表.frx previewendif打印代碼如下：do caseif

21、 thisform.check1.value=0 and thisform.check2.value=0 and thisform.check3.value=0 and thisform.check4.value=0 and thisform.check5.value=0messagebox("請選定部門！")endifcase this.value=2if thisform.check1.value=1report form 工資報表.frx to printerendifif thisform.check2.value=1report form 生產(chǎn)部工資報表 to p

22、rinterendifif thisform.check3.value=1report form 銷售部工資報表 to printerendifif thisform.check4.value=1report form 技術部工資報表 to printerendifif thisform.check5.value=1report form 公關部工資報表 to printerendifif thisform.check1.value=0 and thisform.check2.value=0 and thisform.check3.value=0 and thisform.check4.val

23、ue=0 and thisform.check5.value=0messagebox("請選定部門！")endifcase this.value=3thisform.releaseendcase打印代碼如下：do caseif thisform.check1.value=0 and thisform.check2.value=0 and thisform.check3.value=0 and thisform.check4.value=0 and thisform.check5.value=0messagebox("請選定部門！")endifcase t

24、his.value=2if thisform.check1.value=1report form 工資報表.frx to printerendifif thisform.check2.value=1report form 生產(chǎn)部工資報表 to printerendifif thisform.check3.value=1report form 銷售部工資報表 to printerendifif thisform.check4.value=1report form 技術部工資報表 to printerendifif thisform.check5.value=1report form 公關部工資報

25、表 to printerendifif thisform.check1.value=0 and thisform.check2.value=0 and thisform.check3.value=0 and thisform.check4.value=0 and thisform.check5.value=0messagebox("請選定部門！")endifcase this.value=3thisform.releaseendcase所用報表如下： 工資報表還有公關部工資報表，技術部工資報表，銷售部工資報表，生產(chǎn)部工資報表類似這里不在一一列舉4.連編程序 連編應用程序項目本設計的收尾工作。通過連編將項目資源，如視圖、查詢、表單、報表、菜單、類、過程這些包含于項目管理器中的文件信息結(jié)合在一起，生成一個擴展名為salary.exe可執(zhí)行文件的應用程序