cx.prg

本工资管理系统由foxpro编写,可在VF下运行

SET TALK OFF
IF USED("GZ")
	select gz
else 
 	select 0
 	use(locfile("gz.dbf","DBF","请找到库文件GZ.DBF"));
 		AGAIN ALIAS GZ
 ENDIF
IF NOT WEXIST("CXCOTROL")
	DEFINE WINDOW CXCOTROL FROM 2,2 TO 20,10;
 		COLO SCHEME 7;
 		SHADOW
ENDIF
IF NOT WEXIST("CXRESULT")
	DEFINE WINDOW CXRESULT FROM 2,12 TO 20,76;
		COLO SCHEME 8;
		SHADOW
ENDIF

IF WVISIBLE("CXRESULT")
	ACTIVATE WINDOW CXRESULT SAME
ELSE
	ACTIVATE WINDOW CXRESULT NOSHOW
ENDIF
RCOL=1
@rcol,2 say "编    号:" get 编号 
@rcol,22 say "姓    名:" get 姓名
@rcol,42 say "基本工资:" get 基本工资 
@rcol+2,2 say "工作量奖:" get 工作量奖
@rcol+2,22 say "误 餐 费:" get 误餐费
@rcol+2,42 say "班主任费:" get 班主任费
@rcol+4,2 say "寒 炭 费:" get 寒炭费
@rcol+4,22 say "资 料 费:" get 资料费
@rcol+4,42 say "其 它 1 :" get 其它1
@rcol+6,2 say "其 它 2 :" get 其它2
@rcol+6,30 say "应发合计:" get 应发合计
@rcol+8,2 say "会    费:" get 会费 
@rcol+8,22 say "电    费:" get 电费
@rcol+8,42 say "电 话 费:" get 电话费
@rcol+10,2 say "液化汽费:" get 液化汽费
@rcol+10,22 say "欠    条:" get 欠条 
@rcol+10,42 say "礼    币:" get 礼币 
@rcol+12,2 say "救 灾 款:" get 救灾款 
@rcol+12,22 say "其 它 3 :" get 其它3 
@rcol+12,42 say "其 它 4 :" get 其它4 
@rcol+14,2 say "扣款合计:" get 扣款合计
@rcol+14,30 say "实发工资:" get 实发工资


IF WVISIBLE("CXCOTROL")
	ACTIVATE WINDOW CXCOTROL SAME
ELSE
	ACTIVATE WINDOW CXCOTROL NOSHOW
ENDIF
@2,0 GET M.CHOICE PICTURE"@*HN <\1.第一个;<\2.下一个;<\3.上一个;<\4.最后一个;<\5.查找;\?<\6.退出";
	SIZE 1,12,0 DEFAULT 1 VALID REFRESH1()
READ CYCLE

IF USED("GZ")
	SELECT GZ
	USE
ENDIF
RELEASE WINDOW CXCONTROL
RELEASE WINDOW CXRESULT