工資管理軟件的功能實現(xiàn)

申請免費試用、咨詢電話：400-8352-114

　　工資管理軟件的功能實現(xiàn)

　　員工基本信息模塊編碼設計

　　1、員工基本信息增刪改功能

　　員工基本信息模塊主要分為員工信息瀏覽界面和員工信息查詢界面，員工信息瀏覽界面如圖4.1所示：

　　具體編碼如下：

　　(1)“增加新記錄”按鈕控件源代碼：

　　thisform.pageframe1.page1.fy1.enabled=.F.

　　thisform.pageframe1.page1.command2.enabled=.F.

　　thisform.pageframe1.page1.command3.enabled=.F.

　　thisform.pageframe1.page1.command4.enabled=.T.

　　if thisform.pageframe1.page1.command1.caption='增加新記錄'

　　thisform.pageframe1.page1.txtpid.enabled=.T.

　　thisform.pageframe1.page1.txtpname.enabled=.T.

　　thisform.pageframe1.page1.txtpsex.enabled=.T.

　　thisform.pageframe1.page1.txtpjob.enabled=.T.

　　thisform.pageframe1.page1.txtpindate.enabled=.T.

　　thisform.pageframe1.page1.txtprank.enabled=.T.

　　append blank

　　thisform.pageframe1.page1.command1.caption='增加確認'

　　thisform.pageframe1.page1.refresh

　　thisform.pageframe1.page1.txtpid.setfocus

　　else

　　getid=alltrim(thisform.pageframe1.page1.txtpid.value)

　　getname=alltrim(thisform.pageframe1.page1.txtpname.value)

　　getsex=alltrim(thisform.pageframe1.page1.txtpsex.value)

　　getjob=alltrim(thisform.pageframe1.page1.txtpjob.value)

　　getindate=alltrim(thisform.pageframe1.page1.txtpindate.value)

　　getrank=alltrim(thisform.pageframe1.page1.txtprank.value)

　　if empty(getid) or empty(getname) or empty(getsex) or empty(getjob) or empty(getindate) or empty(getrank)

　　messagebox("資料不足",48,"錯誤")

　　else

　　thisform.pageframe1.page1.command1.caption='增加新記錄'

　　tableupdate(.t.)

　　thisform.pageframe1.page1.txtpid.enabled=.F.

　　thisform.pageframe1.page1.txtpname.enabled=.F.

　　thisform.pageframe1.page1.txtpsex.enabled=.F.

　　thisform.pageframe1.page1.txtpjob.enabled=.F.

　　thisform.pageframe1.page1.txtpindate.enabled=.F.

　　thisform.pageframe1.page1.txtprank.enabled=.F.

　　thisform.pageframe1.page1.fy1.enabled=.T.

　　thisform.pageframe1.page1.command2.enabled=.T.

　　thisform.pageframe1.page1.command3.enabled=.T.

　　thisform.pageframe1.page1.command4.enabled=.F.

　　endif

　　endif

　　(2)“修改這條記錄”按鈕控件源代碼：

　　thisform.pageframe1.page1.command1.enabled=.F.

　　thisform.pageframe1.page1.command3.enabled=.F.

　　thisform.pageframe1.page1.command4.enabled=.T.

　　thisform.pageframe1.page1.fy1.enabled=.F.

　　if thisform.pageframe1.page1.command2.caption='修改這條記錄'

　　thisform.pageframe1.page1.txtpid.enabled=.T.

　　thisform.pageframe1.page1.txtpname.enabled=.T.

　　thisform.pageframe1.page1.txtpsex.enabled=.T.

　　thisform.pageframe1.page1.txtpjob.enabled=.T.

　　thisform.pageframe1.page1.txtpindate.enabled=.T.

　　thisform.pageframe1.page1.txtprank.enabled=.T.

　　thisform.pageframe1.page1.command2.caption='修改確認'

　　thisform.pageframe1.page1.refresh

　　thisform.pageframe1.page1.txtpid.setfocus

　　else

　　thisform.pageframe1.page1.command2.caption='修改這條記錄'

　　tableupdate(.t.)

　　thisform.pageframe1.page1.txtpid.enabled=.F.

　　thisform.pageframe1.page1.txtpname.enabled=.F.

　　thisform.pageframe1.page1.txtpsex.enabled=.F.

　　thisform.pageframe1.page1.txtpjob.enabled=.F.

　　thisform.pageframe1.page1.txtpindate.enabled=.F.

　　thisform.pageframe1.page1.txtprank.enabled=.F.

　　thisform.pageframe1.page1.command1.enabled=.T.

　　thisform.pageframe1.page1.command3.enabled=.T.

　　thisform.pageframe1.page1.command4.enabled=.F.

　　thisform.pageframe1.page1.fy1.enabled=.T.

　　endif

　　2、員工信息查詢功能

　　員工信息查詢界面如圖4.2所示。

　　圖4.2

　　具體編碼如下：

　　“查詢”按鈕控件源代碼：

　　getpid=alltrim(thisform.pageframe1.page2.text1.value)

　　getpname=alltrim(thisform.pageframe1.page2.text2.value)

　　flag1=thisform.pageframe1.page2.check1.value

　　flag2=thisform.pageframe1.page2.check2.value

　　if flag1=0 and flag2=0

　　messagebox("請輸入查詢條件",48,"錯誤")

　　endif

　　if flag1=1 and flag2=0

　　set order to pid

　　seek getpid

　　if found()

　　messagebox("查到記錄",48,"注意")

　　select * from personnel where pid=getpid into cursor ling

　　thisform.pageframe1.page3.enabled=.T.

　　thisform.pageframe1.page3.refresh

　　else

　　messagebox("沒有這條記錄",48,"注意")

　　endif

　　endif

　　if flag1=0 and flag2=1

　　set order to pname

　　seek getpname

　　if found()

　　messagebox("查到記錄",48,"注意")

　　select * from personnel where pname=getpname into cursor ling

　　thisform.pageframe1.page3.enabled=.T.

　　thisform.pageframe1.page3.refresh

　　else

　　messagebox("沒有這條記錄",48,"注意")

　　endif

　　endif

　　if flag1=1 and flag2=1

　　set order to pid

　　seek getpid

　　if personnel.pname=getpname

　　messagebox("查到記錄",48,"注意")

　　select * from personnel where pid=getpid and pname=getpname into cursor ling

　　thisform.pageframe1.page3.enabled=.T.

　　thisform.pageframe1.page3.refresh

　　else

　　messagebox("沒有這條記錄",48,"注意")

　　endif

　　endif

　　4.2工資結構設置模塊編碼設計

　　工資結構設置模塊界面如圖4.3所示

　　圖4.3

　　其中“基礎工資”功能界面如圖4.4所示：

　　圖4.4

　　具體編碼如下：

　　“修改”按鈕控件源代碼：

　　thisform.grdrank.column1.text1.enabled=.T.

　　thisform.grdrank.column2.text1.enabled=.T.

　　thisform.grdrank.column1.text1.setfocus

　　“修改確認”按鈕控件源代碼：

　　thisform.grdrank.column1.text1.enabled=.F.

　　thisform.grdrank.column2.text1.enabled=.F.

　　“添加”按鈕控件源代碼：

　　append blank

　　go bottom

　　thisform.grdrank.column1.text1.enabled=.T.

　　thisform.grdrank.column2.text1.enabled=.T.

　　thisform.grdrank.column1.text1.setfocus

　　“刪除”按鈕控件源代碼：

　　thisform.grdrank.recordsource=''

　　use rank exclusive

　　delete from rank where rname=getid

　　pack

　　thisform.grdrank.recordsource='rank'

　　thisform.grdrank.refresh

　　“退出”按鈕控件源代碼：

　　thisform.release

　　do form formdataformat

　　4.3入口程序

　　各模塊程序編寫完成后，要為程序編寫一個入口程序。該程序的作用是完成應用系統(tǒng)一系列的初始化設置。

　　工資信息系統(tǒng)的入口程序如下：

　　clear screen

　　clear events

　　open database databasesalary

　　do form formksjm

　　read events

　　4.4連編程序

　　連編應用程序項目本設計的收尾工作。通過連編將項目資源，如視圖、查詢、表單、報表、菜單、類、過程這些包含于項目管理器中的文件信息結合在一起，生成一個擴展名為salary.exe可執(zhí)行文件，或擴展名為.app的應用程序。

　　連編程序之前，要進行設置主文件、確定包含或排除文件、設置項目信息等操作。泛普軟件完成這些操作后，運行主程序，當主程序沒有錯誤后，即可連編項目。