ltgzzkb.prg

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

PUBLIC BBM           && 报表名
BBM="LTGZZKB.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 "RSXX.DBF","RSXX",.F.
SELE LTXX
SET ORDER TO 编号
IF EMPTY(CXTJ)
	SELECT Ltxx.人员编码, Ltxx.编号, Ltxx.姓名, Ltxx.性别, Ltxx.行政职务,;
	  Ltxx.技术职务, Ltxx.出生日期, Ltxx.工作时间, Ltaz.离退休时间,;
	  Ltaz.离退休费, Ltaz.津补贴, Ltaz.退职费, 00 AS YM;
	 FROM  ltxx LEFT OUTER JOIN ltaz ;
	   ON  Ltxx.编号 = Ltaz.编号 INTO DBF ZGHMC.DBF ;
	 ORDER BY Ltxx.工作时间
   ELSE
	SELECT Ltxx.人员编码, Ltxx.编号, Ltxx.姓名, Ltxx.性别, Ltxx.行政职务,;
	  Ltxx.技术职务, Ltxx.出生日期, Ltxx.工作时间, Ltaz.离退休时间,;
	  Ltaz.离退休费, Ltaz.津补贴, Ltaz.退职费,00 AS YM;
	 FROM  ltxx LEFT OUTER JOIN ltaz ;
	   ON  Ltxx.编号 = Ltaz.编号 ;
	 WHERE &CXTJ ORDER BY Rsxx.工作时间 INTO DBF ZGHMC.DBF
ENDIF
IF USED("ZGHMC")
   SELE ZGHMC
   ELSE
     SELE 0
     USE ZGHMC ALIAS ZGHMC
ENDIF
COUNT TO ZJL
IF ZJL<=0
   =MESSAGEBOX("无可打印数据!",0+16,"提示信息")
   USE IN RSXX
   USE IN ZGHMC
   RETURN
ENDIF
STORE 1 TO P1,P2,P3
YJL=20
ZYM=0000
_PAGENO=1
_PEPAGE=9999
_PWAIT=.F.

DO FORM HMCPRINT
IF USED("LTXX")
   USE IN LTXX
ENDIF
IF USED("LTAZ")
   USE IN LTAZ
ENDIF
IF USED("ZGHMC")
   USE IN ZGHMC
ENDIF
*ERASE BXHMC.DBF
RETURN