通用工资管理系统

通用工资管理系统

一 数据库：通用工资管理系统：

1 档案dangan：

2 部门department：

3 工资money：

4 用户user：

二 主程序main:

set talk off

*** 开始 ***

with _screen

.enabled=.t.

.windowstate=2

.visible=.t.

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

.controlbox=.f.

ENDWITH

DO FORM begin.scx

READ events

*** 登录界面 ***

with _screen

.enabled=.t.

.windowstate=2

.visible=.f.

.closable=.t.

.maxbutton=.t.

.minbutton=.t.

.movable=.t.

ENDWITH

DO FORM enter.scx

READ events

*** 欢迎进入通用工资管理系统 DO FORM main.scx

READ events

***

*** 菜单 ***

with _screen

.enabled=.t.

.windowstate=2

.visible=.t.

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

.controlbox=.f.

ENDWITH

DO main.mpr

READ events

三 菜单main.mnx:

MAIN.MPR

SET SYSMENU TO

SET SYSMENU AUTOMATIC

DEFINE PAD _38j0xxhyn OF _MSYSMENU PROMPT \"查询\" COLOR SCHEME 3

DEFINE PAD _38j0xxhyo OF _MSYSMENU PROMPT \"编辑\" COLOR SCHEME 3

DEFINE PAD _38j0xxhyp OF _MSYSMENU PROMPT \"打印\" COLOR SCHEME 3

DEFINE PAD _38j0xxhyq OF _MSYSMENU PROMPT \"退出\" COLOR SCHEME 3

ON PAD _38j0xxhyn OF _MSYSMENU ACTIVATE POPUP 查询

ON PAD _38j0xxhyo OF _MSYSMENU ACTIVATE POPUP 编辑

ON PAD _38j0xxhyp OF _MSYSMENU ACTIVATE POPUP 打印

ON SELECTION PAD _38j0xxhyq OF _MSYSMENU quit

DEFINE POPUP 查询 MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF 查询 PROMPT \"基本信息查询\"

DEFINE BAR 2 OF 查询 PROMPT \"工资信息查询\"

DEFINE BAR 3 OF 查询 PROMPT \"个人收入查询\"

ON SELECTION BAR 1 OF 查询 do form dangan.scx

ON SELECTION BAR 2 OF 查询 do form viewmoney.scx

ON SELECTION BAR 3 OF 查询 do form input.scx

DEFINE POPUP 编辑 MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF 编辑 PROMPT \"基本信息修改\"

DEFINE BAR 2 OF 编辑 PROMPT \"工资信息修改\"

ON SELECTION BAR 1 OF 编辑 do form editbase.scx

ON SELECTION BAR 2 OF 编辑 do form editmoney.scx

DEFINE POPUP 打印 MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE 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 printer

ON SELECTION BAR 2 OF 打印 report form moneybase.frx to printer

ON SELECTION BAR 3 OF 打印 report form input.frx to printer

ON SELECTION BAR 4 OF 打印 report form result.frx to printer

四 表单

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

Load:clear events

TIMER: 1) Timer: Dely=Dely+1

IF Dely=5

RELEASE Thisform

RELEASE Delay

CLEAR EVENTS

ENDIF

2) Init: public dely

dely=0

2 登录enter:

1) 登录：

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.setfocus

endif

2）退出：

RELEASE thisform

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

Load:clear events

TIMER: 1) Timer: Delay=Delay+1

IF Delay=5

RELEASE Thisform

RELEASE Delay

CLEAR EVENTS

ENDIF

2) Init: public delay

dely=0

4 档案dangan:

OK:release thisform

5 基本信息修改editbase:

1) 添加：

append blank

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,\"操作提示\")

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

return

3）〈〈：

skip -1

if bof()

wait '已到开头' window nowait

go top

endif

thisform.txt1.refresh

thisform.txt2.refresh

thisform.txt3.refresh

thisform.txt4.refresh

thisform.txt5.refresh

thisform.txt6.refresh

thisform.txt1.setfocus

4） 〉〉：

skip

if eof()

wait '已到结尾' window nowait

go bottom

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) 添加：

append blank

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,\"操作提示\")

if yy=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.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

if bof()

wait '已到开头' window nowait

go top

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

if eof()

wait '已到结尾' window nowait

go bottom

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:

退出：release thisform

五 报表：

1 人员档案dangan:

2 个人收入情况input:

3 个人基本工资信息moneybase:

4 综合信息result: