通用工资管理系统.docx
- 文档编号:2389415
- 上传时间:2023-05-03
- 格式:DOCX
- 页数:18
- 大小:275.70KB
通用工资管理系统.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:
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 通用 工资管理 系统