czgzb_zz.prg

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

PUBLIC MDATANAME
PUBLIC MREPNAME
MDATANAME="GZMXB"
MREPNAME="ZZGZB"

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 CZGZB
SELE RSXX
SET ORDER TO 编号
IF USED("ZGGZ")
   SELE ZGGZ
   ELSE
     SELE 0
     USE ..\..\DATA\ZGGZ ALIAS ZGGZ
ENDIF
SET ORDER TO 编号
IF EMPTY(CXTJ)
   SELECT DIST ZGGZ.编号 AS 编号,ZGGZ.排序号 AS 排序号,ZGGZ.工资编号 AS 工资编号,姓名,身份证号,科室,性别,工作时间,工作性质,职称系列,技术职务,技术级别,职务工资,活工资,比例,保留津贴,教护工资,教护津贴,其他工资,工资总额,00 as ym ;
          FROM ZGGZ,RSXX WHERE ZGGZ.编号=RSXX.编号 GROUP BY ZGGZ.编号 ORDER BY ZGGZ.排序号 INTO DBF GZMXB.DBF
   ELSE
     SELECT DIST ZGGZ.编号 AS 编号,ZGGZ.排序号 AS 排序号,ZGGZ.工资编号 AS 工资编号,姓名,身份证号,科室,性别,工作时间,工作性质,职称系列,技术级别,技术职务,职务工资,活工资,比例,保留津贴,教护工资,教护津贴,其他工资,工资总额,00 as ym ;
            FROM ZGGZ,RSXX WHERE ZGGZ.编号=RSXX.编号 AND &CXTJ GROUP BY ZGGZ.编号 ORDER BY ZGGZ.排序号 INTO DBF GZMXB.DBF
ENDIF
SELE RSXX
SET FILTER TO
IF USED("GZMXB")
   SELE GZMXB
   ELSE
     SELE 0
     USE GZMXB ALIAS GZMXB
ENDIF
YJL=30
COUNT TO ZJL
IF ZJL<=0
   =MESSAGEBOX("无可打印数据!",0+16,"提示信息")
   USE IN ZGGZ
   USE IN RSXX
   USE IN GZMXB
   RETURN
ENDIF
STORE 1 TO P1,P2,P3
YJL=28
ZYM=0000
_PAGENO=1
_PEPAGE=9999
_PWAIT=.F.
DO FORM PRINT
SELE ZGGZ
USE
SELE RSXX
USE
USE IN GZMXB
*ERASE JSMXB.DBF
RETURN