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

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

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

3、value="123"do form 工資管理系統(tǒng)歡迎界面.scxelsei=i+1if i<=3messagebox("用戶名或密碼錯(cuò)誤")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("用戶名或密碼錯(cuò)誤")thisform.cbo用戶名.value=""thisform.txt密碼.value=""thisform.cbo用戶名.setfocuselse messagebox("信息有誤,不能登錄")endifendifendcase退出代碼如下： release thisform工資管理系統(tǒng)歡迎界面

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

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

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

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

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

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

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

12、.value=""messagebox("沒(méi)有找到記錄！",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="確認(rèn)修改"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修改密碼界面：確認(rèn)代碼如下USE 用戶密碼表.dbf if empty(thisform.text2.value) or empty(thisform.text1.value) messagebox("請(qǐng)輸入用戶名稱(chēng)和密碼!",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)成功修改，請(qǐng)?jiān)谙麓蔚卿洉r(shí)使用新密碼") Endif Endif else messagebox("用戶名或密碼錯(cuò)誤,請(qǐng)重新輸入!",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("真的要?jiǎng)h除當(dāng)前記錄嗎?",32+4+256,"刪除記錄")=6use 工資表 exclusiveset order to tag zgbhseek text1deletepackendifthisform.refresh打印界面：預(yù)覽代碼如下：if thisform.check1.valu

20、e=1report form 工資報(bào)表.frx previewendifif thisform.check2.value=1report form 生產(chǎn)部工資報(bào)表.frx previewendifif thisform.check3.value=1report form 銷(xiāo)售部工資報(bào)表.frx previewendifif thisform.check4.value=1report form 技術(shù)部工資報(bào)表.frx previewendifif thisform.check5.value=1report form 公關(guān)部工資報(bào)表.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("請(qǐng)選定部門(mén)！")endifcase this.value=2if thisform.check1.value=1report form 工資報(bào)表.frx to printerendifif thisform.check2.value=1report form 生產(chǎn)部工資報(bào)表 to p

22、rinterendifif thisform.check3.value=1report form 銷(xiāo)售部工資報(bào)表 to printerendifif thisform.check4.value=1report form 技術(shù)部工資報(bào)表 to printerendifif thisform.check5.value=1report form 公關(guān)部工資報(bào)表 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("請(qǐng)選定部門(mén)！")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("請(qǐng)選定部門(mén)！")endifcase t

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

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("請(qǐng)選定部門(mén)！")endifcase this.value=3thisform.releaseendcase所用報(bào)表如下： 工資報(bào)表還有公關(guān)部工資報(bào)表，技術(shù)部工資報(bào)表，銷(xiāo)售部工資報(bào)表，生產(chǎn)部工資報(bào)表類(lèi)似這里不在一一列舉4.連編程序 連編應(yīng)用程序項(xiàng)目本設(shè)計(jì)的收尾工作。通過(guò)連編將項(xiàng)目資源，如視圖、查詢、表單、報(bào)表、菜單、類(lèi)、過(guò)程這些包含于項(xiàng)目管理器中的文件信息結(jié)合在一起，生成一個(gè)擴(kuò)展名為salary.exe可執(zhí)行文件的應(yīng)用程序