2001tzhmc.prg

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

*PUBLIC BBM           && 报表名
SET CENTURY ON 
SET DATE TO ANSI

BBM="ZGHMC.FRX"
IF USED("RSXX")
   SELE RSXX
   ELSE
     SELE 0
     USE ..\DATA\RSXX ALIAS RSXX
ENDIF
IF USED("ZGGZ")
   SELE ZGGZ
   ELSE
     SELE 0
     USE ..\DATA\ZGGZ ALIAS ZGGZ
ENDIF
INDEX ON 编号 TAG 编号
IF USED("JSGZ")
   SELE JSGZ
   ELSE
     SELE 0
     USE ..\DATA\JSGZ ALIAS JSGZ
ENDIF
INDEX ON 编号 TAG 编号

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 EMPTY(CXTJ)
	SELECT DISTINCT Rsxx.排序号, Rsxx.编号, Rsxx.姓名, Rsxx.性别,;
		  Rsxx.出生日期, Rsxx.工作时间, Rsxx.行政职务, Rsxx.技术职务, Rsxx.工资编号,;
		  ZGGZ.工资档次,ZGGZ.工资总额,Zggz.职务工资, Zggz.活工资, Zggz.教护工资, ZGGZ.教护津贴, Zggz.保留津贴,;
		  ZGGZ.工资档次,Jsgz.工资总额,Jsgz.职务工资, Jsgz.活工资, Jsgz.教护工资, Jsgz.教护津贴, Jsgz.保留津贴,;
		  Jsgz.月增工资;
		  FROM  rsgl!rsxx INNER JOIN rsgl!zggz;
		  INNER JOIN rsgl!jsgz ;
		  ON  Zggz.编号 = Jsgz.编号 ;
		  ON  Rsxx.编号 = Zggz.编号;
          ORDER BY Rsxx.部门 ,RSXX.工资编号;
		  INTO TABLE 2001tz1.dbf
   ELSE
     SELECT DISTINCT Rsxx.排序号, Rsxx.编号, Rsxx.姓名, Rsxx.性别,;
		  Rsxx.出生日期, Rsxx.工作时间, Rsxx.行政职务, Rsxx.技术职务, Rsxx.工资编号,;
		  ZGGZ.工资档次,ZGGZ.工资总额,Zggz.职务工资, Zggz.活工资, Zggz.教护工资, ZGGZ.教护津贴, Zggz.保留津贴,;
		  ZGGZ.工资档次,Jsgz.工资总额,Jsgz.职务工资, Jsgz.活工资, Jsgz.教护工资, Jsgz.教护津贴, Jsgz.保留津贴,;
		  Jsgz.月增工资;
		  FROM  rsgl!rsxx INNER JOIN rsgl!zggz;
		  INNER JOIN rsgl!jsgz ;
		  ON  Zggz.编号 = Jsgz.编号 ;
		  ON  Rsxx.编号 = Zggz.编号;
          ORDER BY Rsxx.部门 ,RSXX.工资编号;
		  INTO TABLE 2001tz1.dbf;
		  WHERE &CXTJ
ENDIF
TZBM=ALIAS()
COUNT TO ZJL
IF ZJL<=0
   =MESSAGEBOX("无可打印数据!",0+16,"提示信息")
   USE IN RSXX
   USE IN &TZBM
   RETURN
ENDIF
STORE 1 TO P1,P2,P3
YJL=30
ZYM=0000
_PAGENO=1
_PEPAGE=9999
_PWAIT=.F.

REPORT FORM 2001tz2.frx NOEJECT NOCONSOLE TO PRINTER PROMPT
*REPORT FORM 2001tz2.frx NOEJECT NOCONSOLE PREVIEW 
IF USED("RSXX")
   USE IN RSXX
ENDIF
IF USED(TZBM)
   USE IN &TZBM
ENDIF
*ERASE 2001TZ1.DBF
RETURN