jsbfb.prg

来自「包括了6个VFP程序设计实例」· PRG 代码 · 共 61 行

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
DO TYCX WITH "RSXX.DBF","RSXX",.F.
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 排序号,RSXX.姓名 AS 姓名,JSGZ.月增职务 AS 月增职务,JSGZ.月增工资-JSGZ.月增职务-JSGZ.月增教护 AS 月增活工资,JSGZ.月增教护 AS 月增教护,JSGZ.月增工资 AS 月增工资,YM ;
          FROM JSGZ,RSXX WHERE JSGZ.编号=RSXX.编号 GROUP BY JSGZ.编号 ORDER BY JSGZ.排序号 INTO DBF JSBFB.DBF
   ELSE
     SELECT DIST JSGZ.排序号 AS 排序号,RSXX.姓名 AS 姓名,JSGZ.月增职务 AS 月增职务,JSGZ.月增工资-JSGZ.月增职务-JSGZ.月增教护 AS 月增活工资,JSGZ.月增教护 AS 月增教护,JSGZ.月增工资 AS 月增工资,YM ;
            FROM JSGZ,RSXX WHERE JSGZ.编号=RSXX.编号 AND &CXTJ GROUP BY JSGZ.编号 ORDER BY JSGZ.排序号 INTO DBF JSBFB.DBF
ENDIF
USE IN JSGZ
USE IN RSXX
IF USED("JSBFB")
   SELE JSBFB
   ELSE
     SELE 0
     USE JSBFB ALIAS JSBFB
ENDIF
YJL=30
COUNT TO ZJL
IF ZJL<=0
   =MESSAGEBOX("无可打印数据!",0+16,"提示信息")
   USE IN JSBFB
   RETURN
ENDIF
STORE 1 TO P1,P2,P3
YJL=30
ZYM=0000
_PAGENO=1
_PEPAGE=9999
_PWAIT=.F.
DO FORM PRINT1