通用工资管理系统.docx

1、通用工资管理系统通用工资管理系统一 数据库：通用工资管理系统：1 档案dangan：2 部门department：3 工资money：4 用户user：二 主程序main:set talk off* 开始 *with _screen .enabled=.t. .windowstate=2 .visible=.t. .caption=通用工资管理系统 .controlbox=.f.ENDWITHDO FORM begin.scxREAD events* 登录界面 *with _screen .enabled=.t. .windowstate=2 .visible=.f. .closable=.t

2、. .maxbutton=.t. .minbutton=.t. .movable=.t.ENDWITHDO FORM enter.scxREAD events* 欢迎进入通用工资管理系统 *DO FORM main.scxREAD events* 菜单 *with _screen .enabled=.t. .windowstate=2 .visible=.t. .caption=通用工资管理系统 .controlbox=.f.ENDWITHDO main.mpr READ events 三 菜单main.mnx:MAIN.MPR SET SYSMENU TOSET SYSMENU AUTOMA

3、TICDEFINE PAD _38j0xxhyn OF _MSYSMENU PROMPT 查询 COLOR SCHEME 3DEFINE PAD _38j0xxhyo OF _MSYSMENU PROMPT 编辑 COLOR SCHEME 3DEFINE PAD _38j0xxhyp OF _MSYSMENU PROMPT 打印 COLOR SCHEME 3DEFINE PAD _38j0xxhyq OF _MSYSMENU PROMPT 退出 COLOR SCHEME 3ON PAD _38j0xxhyn OF _MSYSMENU ACTIVATE POPUP 查询ON PAD _38j0x

4、xhyo OF _MSYSMENU ACTIVATE POPUP 编辑ON PAD _38j0xxhyp OF _MSYSMENU ACTIVATE POPUP 打印ON SELECTION PAD _38j0xxhyq OF _MSYSMENU quitDEFINE POPUP 查询 MARGIN RELATIVE SHADOW COLOR SCHEME 4DEFINE BAR 1 OF 查询 PROMPT 基本信息查询DEFINE BAR 2 OF 查询 PROMPT 工资信息查询DEFINE BAR 3 OF 查询 PROMPT 个人收入查询ON SELECTION BAR 1 OF 查

5、询 do form dangan.scxON SELECTION BAR 2 OF 查询 do form viewmoney.scxON SELECTION BAR 3 OF 查询 do form input.scxDEFINE POPUP 编辑 MARGIN RELATIVE SHADOW COLOR SCHEME 4DEFINE BAR 1 OF 编辑 PROMPT 基本信息修改DEFINE BAR 2 OF 编辑 PROMPT 工资信息修改ON SELECTION BAR 1 OF 编辑 do form editbase.scxON SELECTION BAR 2 OF 编辑 do fo

6、rm editmoney.scxDEFINE POPUP 打印 MARGIN RELATIVE SHADOW COLOR SCHEME 4DEFINE BAR 1 OF 打印 PROMPT 打印档案DEFINE BAR 2 OF 打印 PROMPT 打印个人基本资信息DEFINE BAR 3 OF 打印 PROMPT 打印个人收入信息DEFINE BAR 4 OF 打印 PROMPT 打印综合信息ON SELECTION BAR 1 OF 打印 report form dangan.frx to printerON SELECTION BAR 2 OF 打印 report form money

7、base.frx to printer ON SELECTION BAR 3 OF 打印 report form input.frx to printerON SELECTION BAR 4 OF 打印 report form result.frx to printer四 表单1 开始通用工资管理系统begin:Load:clear eventsTIMER: 1) Timer: Dely=Dely+1IF Dely=5 RELEASE ThisformRELEASE Delay CLEAR EVENTS ENDIF2) Init: public delydely=0 2 登录enter: 1)

8、 登录：LOCATE FOR ALLTRIM(user.username)=ALLTRIM(thisform.text1.value)IF FOUND() AND ALLTRIM(user.password)=ALLTRIM(thisform.text2.value) MESSAGEBOX(登录成功!) RELEASE thisform CLEAR events ELSE MESSAGEBOX(密码错误！请重新输入！) thisform.text1.setfocusendif2）退出：RELEASE thisform3 欢迎进入通用工资管理系统begin:Load:clear eventsTI

9、MER: 1) Timer: Delay=Delay+1IF Delay=5 RELEASE Thisform RELEASE Delay CLEAR EVENTS ENDIF2) Init: public delaydely=04 档案dangan:OK:release thisform5 基本信息修改editbase:1) 添加：append blank thisform.txt1.refresh thisform.txt2.refreshthisform.txt3.refreshthisform.txt4.refreshthisform.txt5.refreshthisform.txt6

10、.refreshthisform.txt1.setfocus2）删除：mes=确要删除 +allt(编号)+ 这条记录?yn=messagebox(mes,1+32+0,操作提示)if yn=1 DELETE pack SKIP if eof() go bottom ENDIF thisform.txt1.refresh thisform.txt2.refresh thisform.txt3.refresh thisform.txt4.refresh thisform.txt5.refresh thisform.txt6.refresh thisform.txt1.setfocus endif

11、return3）：skip -1 if bof() wait 已到开头 window nowait go top endif thisform.txt1.refresh thisform.txt2.refreshthisform.txt3.refreshthisform.txt4.refreshthisform.txt5.refreshthisform.txt6.refreshthisform.txt1.setfocus 4） ：skip if eof() wait 已到结尾 window nowait go bottom endif thisform.txt1.refresh thisfor

12、m.txt2.refreshthisform.txt3.refreshthisform.txt4.refreshthisform.txt5.refreshthisform.txt6.refreshthisform.txt1.setfocus 5）退出：thisform.release 6 工资信息添加与修改editmoney:1) 添加：append blank thisform.txt1.refresh thisform.txt2.refreshthisform.txt3.refreshthisform.txt4.refreshthisform.txt5.refreshthisform.tx

13、t6.refreshthisform.txt7.refresh thisform.txt8.refreshthisform.txt9.refreshthisform.txt10.refreshthisform.txt11.refreshthisform.txt.Refreshthisform.txt1.setfocus 2）删除：mes=确要删除 +allt(编号)+ 这条记录?yy=messagebox(mes,1+32+0,操作提示)if yy=1 DELETE PACK SKIP if eof() go bottom ENDIFthisform.txt1.refresh thisform

14、.txt2.refreshthisform.txt3.refreshthisform.txt4.refreshthisform.txt5.refreshthisform.txt6.refreshthisform.txt7.refresh thisform.txt8.refreshthisform.txt9.refreshthisform.txt10.refreshthisform.txt11.refreshthisform.txt.Refreshthisform.txt1.setfocus endifreturn3）：skip -1 if bof() wait 已到开头 window nowa

15、it go top endif thisform.txt1.refresh thisform.txt2.refreshthisform.txt3.refreshthisform.txt4.refreshthisform.txt5.refreshthisform.txt6.refreshthisform.txt7.refresh thisform.txt8.refreshthisform.txt9.refreshthisform.txt10.refreshthisform.txt11.refreshthisform.txt.Refreshthisform.refresh4） ：skip if e

16、of() wait 已到结尾 window nowait go bottom endif thisform.txt1.refresh thisform.txt2.refreshthisform.txt3.refreshthisform.txt4.refreshthisform.txt5.refreshthisform.txt6.refreshthisform.txt7.refresh thisform.txt8.refreshthisform.txt9.refreshthisform.txt10.refreshthisform.txt11.refreshthisform.txt.Refreshthisform.refresh 5）退出：thisform.release 7 个人收入情况input:退出：thisform.release8 个人基本工资情况viewmoney:退出：release thisform五 报表：1 人员档案dangan:2 个人收入情况input:3 个人基本工资信息moneybase:4 综合信息result: