ltjsspb_2.prg

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

PUBLIC MDATANAME
PUBLIC MREPNAME
MDATANAME="LTJSSPB_1"
MREPNAME="LTJSSPB_2"

IF USED("LTXX")
   SELE LTXX
   ELSE
     SELE 0
     USE ..\..\DATA\LTXX ALIAS LTXX
ENDIF
SET ORDER TO 编号
IF USED("LTAZ")
   SELE LTAZ
   ELSE
     SELE 0
     USE ..\..\DATA\LTAZ ALIAS LTAZ
ENDIF
SET ORDER TO 编号
SELECT DIST LTAZ.编号 AS 编号,姓名,性别,出生日期,工作时间,离退休时间,工作性质,行政职级,行政职务,技术职务,技术级别,工人等级,类别,离退休费,津补贴,退职费,LTAZ.月增金额,00 AS YM;
       FROM LTAZ,LTXX WHERE LTAZ.编号=LTXX.编号 GROUP BY LTAZ.编号 ORDER BY LTXX.类别 INTO DBF LTJSMXB.DBF
IF USED("LTJSMXB")
   SELE LTJSMXB
   ELSE
     SELE 0
     USE LTJSMXB ALIAS LTJSMXB
ENDIF
IF USED("LTJSSPB_1")
   SELE LTJSSPB_1
   ELSE
     SELE 0
     USE LTJSSPB_1 ALIAS LTJSSPB_1
ENDIF
DELE FOR LEN(ALLTRIM(项目))=0
PACK
GO TOP
DO WHILE NOT EOF()
   TJ=LTJSSPB_1.条件
   SELE LTJSMXB
   IF LEN(ALLTRIM(TJ))=0
	  CALCULATE CNT(), SUM(月增金额) TO MCNT,MSUM
	  CALCULATE CNT(), SUM(月增金额),SUM(离退休费+津补贴) FOR 类别="离休" TO MCNT_1,MSUM_1,ZSUM_1
	  CALCULATE CNT(), SUM(月增金额),SUM(离退休费+津补贴) FOR 类别="退休" TO MCNT_2,MSUM_2,ZSUM_2
	  CALCULATE CNT(), SUM(月增金额),SUM(离退休费+津补贴+退职费) FOR 类别="退职" TO MCNT_3,MSUM_3,ZSUM_3
	  ELSE
	    CALCULATE CNT(), SUM(月增金额) FOR &TJ TO MCNT,MSUM
	    CALCULATE CNT(), SUM(月增金额),SUM(离退休费+津补贴) FOR &TJ AND 类别="离休" TO MCNT_1,MSUM_1,ZSUM_1
	    CALCULATE CNT(), SUM(月增金额),SUM(离退休费+津补贴) FOR &TJ AND 类别="退休" TO MCNT_2,MSUM_2,ZSUM_2
	    CALCULATE CNT(), SUM(月增金额),SUM(离退休费+津补贴+退职费) FOR &TJ AND 类别="退职" TO MCNT_3,MSUM_3,ZSUM_3
   ENDIF
   SELE LTJSSPB_1
   REPL 计 WITH MCNT,月增合计 WITH MSUM,离休人数 WITH MCNT_1,离休增金额 WITH MSUM_1,离休费总额 WITH ZSUM_1,退休人数 WITH MCNT_2,退休增金额 WITH MSUM_2,退休费总额 WITH ZSUM_2,退职人数 WITH MCNT_3,退职增金额 WITH MSUM_3,退职费总额 WITH ZSUM_3
   SKIP
ENDDO

COUNT TO ZJL
IF ZJL<=0
   =MESSAGEBOX("无可打印数据!",0+16,"提示信息")
   USE IN LTAZ
   USE IN LTXX
   USE IN LTJSMXB
   RETURN
ENDIF
STORE 1 TO P1,P2,P3
YJL=15
ZYM=0000
_PAGENO=1
_PEPAGE=9999
_PWAIT=.F.
DO FORM PRINT
SELE LTAZ
USE
SELE LTXX
USE
USE IN LTJSMXB
*ERASE JSMXB.DBF
RETURN