lthmc.prg

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

PUBLIC BBM           && 报表名
BBM="LTHMC.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
SELECT DIST LTXX.编号,姓名,行政职务,IIF(工作性质="工人",工作性质,技术职务) AS 技术职务,任用方式,性别,民族,出生日期,籍贯,工作时间,政治面貌,文化程度,LTAZ.离退休费,LTAZ.津补贴,000 AS YM ;
       FROM LTXX,LTAZ ORDER BY LTXX.类别,LTAZ.离退休时间 INTO DBF ZGHMC.DBF WHERE LTXX.编号=LTAZ.编号
IF USED("ZGHMC")
   SELE ZGHMC
   ELSE
     SELE 0
     USE ZGHMC ALIAS ZGHMC
ENDIF
COUNT TO ZJL
IF ZJL<=0
   =MESSAGEBOX("无可打印数据!",0+16,"提示信息")
   USE IN LTXX
   USE IN LTAZ
   RETURN
ENDIF
STORE 1 TO P1,P2,P3
YJL=18
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