zwjsspb.prg

包括了6个VFP程序设计实例

IF USED("RSXX")
   SELE RSXX
   ELSE
     SELE 0
     USE ..\..\DATA\RSXX ALIAS RSXX
ENDIF
IF USED("CXSTRU")
   SELE CXSTRU
   ELSE
     SELE 0
     USE ..\CXSTRU.SYS ALIAS CXSTRU EXCL
ENDIF
ZAP
APPE FROM ..\CXRSXX.SYS
CD..
DO TYCX WITH "RSXX.DBF","RSXX",.F.
CD GRJS
SELE RSXX
SET ORDER TO 编号
IF USED("ZGGZ")
   SELE ZGGZ
   ELSE
     SELE 0
     USE ..\..\DATA\ZGGZ ALIAS ZGGZ
ENDIF
SET ORDER TO 编号
IF USED("JSGZ")
   SELE JSGZ
   ELSE
     SELE 0
     USE ..\..\DATA\JSGZ ALIAS JSGZ EXCL
ENDIF
SET ORDER TO 排序号
IF EMPTY(CXTJ)
   SELECT DIST JSGZ.编号 AS 编号,JSGZ.排序号 AS 排序号,JSGZ.工资编号 AS 工资编号,考核年度,考核等次,工资档次,职务工资,活工资,比例,保留津贴,教护工资,教护津贴,工资总额,月增工资,月增职务,月增教护,YM ;
          FROM JSGZ,RSXX WHERE JSGZ.编号=RSXX.编号 AND RSXX.工作性质="工人" GROUP BY JSGZ.编号 ORDER BY JSGZ.工资编号 INTO DBF JSMXB.DBF
   ELSE
     SELECT DIST JSGZ.编号 AS 编号,JSGZ.排序号 AS 排序号,JSGZ.工资编号 AS 工资编号,考核年度,考核等次,工资档次,职务工资,活工资,比例,保留津贴,教护工资,教护津贴,工资总额,月增工资,月增职务,月增教护,YM ;
            FROM JSGZ,RSXX WHERE JSGZ.编号=RSXX.编号 AND RSXX.工作性质="工人" AND &CXTJ GROUP BY JSGZ.编号 ORDER BY JSGZ.工资编号 INTO DBF JSMXB.DBF
ENDIF
SELE RSXX
SET FILTER TO
IF USED("JSMXB")
   SELE JSMXB
   ELSE
     SELE 0
     USE JSMXB ALIAS JSMXB
ENDIF
YJL=30
COUNT TO ZJL
IF ZJL<=0
   =MESSAGEBOX("无可打印数据!",0+16,"提示信息")
   USE IN JSGZ
   USE IN RSXX
   USE IN ZGGZ
   USE IN JSMXB
   RETURN
ENDIF
STORE 1 TO P1,P2,P3
YJL=30
ZYM=0000
_PAGENO=1
_PEPAGE=9999
_PWAIT=.F.
DO FORM ZWJSPRINT
SELE JSGZ
USE
SELE RSXX
USE
SELE ZGGZ
USE
USE IN JSMXB
*ERASE TQJSMXB.DBF
RETURN