2001lttz.prg

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

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

BBM="ZGHMC.FRX"
IF USED("LTXX")
   SELE LTXX
   ELSE
     SELE 0
     USE ..\DATA\LTXX ALIAS LTXX
ENDIF
IF USED("LTAZ")
   SELE LTAZ
   ELSE
     SELE 0
     USE ..\DATA\LTAZ ALIAS LTAZ
ENDIF
IF USED("CXSTRU")
   SELE CXSTRU
   ELSE
     SELE 0
     USE CXSTRU.SYS ALIAS CXSTRU EXCL
ENDIF
ZAP
APPE FROM CXRSXX.SYS
DO TYCX WITH "LTXX.DBF","LTXX",.F.
SELE LTXX
*SET ORDER TO 编号
IF EMPTY(CXTJ)
	SELECT DISTINCT LTXX.排序号, LTXX.编号, LTXX.姓名, LTXX.性别,;
		  LTXX.工作时间, LTAZ.离退休时间, LTXX.工作性质,LTXX.行政职务,LTXX.行政职级,LTXX.技术职务,LTXX.技术级别,LTXX.工资编号,;
		  LTAZ.月增金额 FROM  LTXX INNER JOIN LTAZ ;
		  ON  LTXX.编号 = LTAZ.编号;
          ORDER BY LTXX.部门 ,LTXX.工资编号;
		  INTO TABLE 2001LTTZ.dbf ;
		  WHERE 类别<>"离休"
   ELSE
	SELECT DISTINCT LTXX.排序号, LTXX.编号, LTXX.姓名, LTXX.性别,;
		  LTXX.工作时间, LTAZ.离退休时间, LTXX.工作性质,LTXX.行政职务,LTXX.行政职级,LTXX.技术职务,LTXX.技术级别, LTXX.工资编号,;
		  LTAZ.月增金额 FROM  LTXX INNER JOIN LTAZ ;
		  ON  LTXX.编号 = LTAZ.编号;
          ORDER BY LTXX.部门 ,LTXX.工资编号;
		  INTO TABLE 2001LTTZ.dbf ;
		  WHERE 类别<>"离休" AND &CXTJ
ENDIF
BROW
TZBM=ALIAS()
COUNT TO ZJL
IF ZJL<=0
   =MESSAGEBOX("无可打印数据!",0+16,"提示信息")
   USE IN LTXX
   USE IN &TZBM
   RETURN
ENDIF
STORE 1 TO P1,P2,P3
YJL=30
ZYM=0000
_PAGENO=1
_PEPAGE=9999
_PWAIT=.F.

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