通用工资管理系统.docx

通用工资管理系统.docx

《通用工资管理系统.docx》由会员分享，可在线阅读，更多相关《通用工资管理系统.docx（18页珍藏版）》请在冰豆网上搜索。

通用工资管理系统

通用工资管理系统

一数据库：

通用工资管理系统：

1档案dangan：

2部门department：

3工资money：

4用户user：

二主程序main:

settalkoff

***开始***

with_screen

.enabled=.t.

.windowstate=2

.visible=.t.

.caption="通用工资管理系统"

.controlbox=.f.

ENDWITH

DOFORMbegin.scx

READevents

***登录界面***

with_screen

.enabled=.t.

.windowstate=2

.visible=.f.

.closable=.t.

.maxbutton=.t.

.minbutton=.t.

.movable=.t.

ENDWITH

DOFORMenter.scx

READevents

***欢迎进入通用工资管理系统***

DOFORMmain.scx

READevents

***菜单***

with_screen

.enabled=.t.

.windowstate=2

.visible=.t.

.caption="通用工资管理系统"

.controlbox=.f.

ENDWITH

DOmain.mpr

READevents

三菜单main.mnx:

MAIN.MPR

SETSYSMENUTO

SETSYSMENUAUTOMATIC

DEFINEPAD_38j0xxhynOF_MSYSMENUPROMPT"查询"COLORSCHEME3

DEFINEPAD_38j0xxhyoOF_MSYSMENUPROMPT"编辑"COLORSCHEME3

DEFINEPAD_38j0xxhypOF_MSYSMENUPROMPT"打印"COLORSCHEME3

DEFINEPAD_38j0xxhyqOF_MSYSMENUPROMPT"退出"COLORSCHEME3

ONPAD_38j0xxhynOF_MSYSMENUACTIVATEPOPUP查询

ONPAD_38j0xxhyoOF_MSYSMENUACTIVATEPOPUP编辑

ONPAD_38j0xxhypOF_MSYSMENUACTIVATEPOPUP打印

ONSELECTIONPAD_38j0xxhyqOF_MSYSMENUquit

DEFINEPOPUP查询MARGINRELATIVESHADOWCOLORSCHEME4

DEFINEBAR1OF查询PROMPT"基本信息查询"

DEFINEBAR2OF查询PROMPT"工资信息查询"

DEFINEBAR3OF查询PROMPT"个人收入查询"

ONSELECTIONBAR1OF查询doformdangan.scx

ONSELECTIONBAR2OF查询doformviewmoney.scx

ONSELECTIONBAR3OF查询doforminput.scx

DEFINEPOPUP编辑MARGINRELATIVESHADOWCOLORSCHEME4

DEFINEBAR1OF编辑PROMPT"基本信息修改"

DEFINEBAR2OF编辑PROMPT"工资信息修改"

ONSELECTIONBAR1OF编辑doformeditbase.scx

ONSELECTIONBAR2OF编辑doformeditmoney.scx

DEFINEPOPUP打印MARGINRELATIVESHADOWCOLORSCHEME4

DEFINEBAR1OF打印PROMPT"打印档案"

DEFINEBAR2OF打印PROMPT"打印个人基本资信息"

DEFINEBAR3OF打印PROMPT"打印个人收入信息"

DEFINEBAR4OF打印PROMPT"打印综合信息"

ONSELECTIONBAR1OF打印reportformdangan.frxtoprinter

ONSELECTIONBAR2OF打印reportformmoneybase.frxtoprinter

ONSELECTIONBAR3OF打印reportforminput.frxtoprinter

ONSELECTIONBAR4OF打印reportformresult.frxtoprinter

四表单

1开始通用工资管理系统begin:

Load:

clearevents

TIMER:

1）Timer:

Dely=Dely+1

IFDely=5

RELEASEThisform

RELEASEDelay

CLEAREVENTS

ENDIF

2）Init:

publicdely

dely=0

2登录enter:

1）登录：

LOCATEFORALLTRIM（user.username）==ALLTRIM（thisform.text1.value）

IFFOUND（）ANDALLTRIM（user.password）==ALLTRIM（thisform.text2.value）

MESSAGEBOX（"登录成功!

"）

RELEASEthisform

CLEARevents

ELSE

MESSAGEBOX（"密码错误！

请重新输入！

"）

thisform.text1.setfocus

endif

2）退出：

RELEASEthisform

3欢迎进入通用工资管理系统begin:

Load:

clearevents

TIMER:

1）Timer:

Delay=Delay+1

IFDelay=5

RELEASEThisform

RELEASEDelay

CLEAREVENTS

ENDIF

2）Init:

publicdelay

dely=0

4档案dangan:

OK:

releasethisform

5基本信息修改editbase:

1）添加：

appendblank

thisform.txt1.refresh

thisform.txt2.refresh

thisform.txt3.refresh

thisform.txt4.refresh

thisform.txt5.refresh

thisform.txt6.refresh

thisform.txt1.setfocus

2）删除：

mes="确要删除"+allt（编号）+"这条记录?

"

yn=messagebox（mes,1+32+0,"操作提示"）

ifyn=1

DELETE

pack

SKIP

ifeof（）

gobottom

ENDIF

thisform.txt1.refresh

thisform.txt2.refresh

thisform.txt3.refresh

thisform.txt4.refresh

thisform.txt5.refresh

thisform.txt6.refresh

thisform.txt1.setfocus

endif

return

3）〈〈：

skip-1

ifbof（）

wait'已到开头'windownowait

gotop

endif

thisform.txt1.refresh

thisform.txt2.refresh

thisform.txt3.refresh

thisform.txt4.refresh

thisform.txt5.refresh

thisform.txt6.refresh

thisform.txt1.setfocus

4）〉〉：

skip

ifeof（）

wait'已到结尾'windownowait

gobottom

endif

thisform.txt1.refresh

thisform.txt2.refresh

thisform.txt3.refresh

thisform.txt4.refresh

thisform.txt5.refresh

thisform.txt6.refresh

thisform.txt1.setfocus

5）退出：

thisform.release

6工资信息添加与修改editmoney:

1）添加：

appendblank

thisform.txt1.refresh

thisform.txt2.refresh

thisform.txt3.refresh

thisform.txt4.refresh

thisform.txt5.refresh

thisform.txt6.refresh

thisform.txt7.refresh

thisform.txt8.refresh

thisform.txt9.refresh

thisform.txt10.refresh

thisform.txt11.refresh

thisform.txt.Refresh

thisform.txt1.setfocus

2）删除：

mes="确要删除"+allt（编号）+"这条记录?

"

yy=messagebox（mes,1+32+0,"操作提示"）

ifyy=1

DELETE

PACK

SKIP

ifeof（）

gobottom

ENDIF

thisform.txt1.refresh

thisform.txt2.refresh

thisform.txt3.refresh

thisform.txt4.refresh

thisform.txt5.refresh

thisform.txt6.refresh

thisform.txt7.refresh

thisform.txt8.refresh

thisform.txt9.refresh

thisform.txt10.refresh

thisform.txt11.refresh

thisform.txt.Refresh

thisform.txt1.setfocus

endif

return

3）〈〈：

skip-1

ifbof（）

wait'已到开头'windownowait

gotop

endif

thisform.txt1.refresh

thisform.txt2.refresh

thisform.txt3.refresh

thisform.txt4.refresh

thisform.txt5.refresh

thisform.txt6.refresh

thisform.txt7.refresh

thisform.txt8.refresh

thisform.txt9.refresh

thisform.txt10.refresh

thisform.txt11.refresh

thisform.txt.Refresh

thisform.refresh

4）〉〉：

skip

ifeof（）

wait'已到结尾'windownowait

gobottom

endif

thisform.txt1.refresh

thisform.txt2.refresh

thisform.txt3.refresh

thisform.txt4.refresh

thisform.txt5.refresh

thisform.txt6.refresh

thisform.txt7.refresh

thisform.txt8.refresh

thisform.txt9.refresh

thisform.txt10.refresh

thisform.txt11.refresh

thisform.txt.Refresh

thisform.refresh

5）退出：

thisform.release

7个人收入情况input:

退出：

thisform.release

8个人基本工资情况viewmoney:

退出：

releasethisform

五报表：

1人员档案dangan:

2个人收入情况input:

3个人基本工资信息moneybase:

4综合信息result: