ltdyhmc.prg

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

PUBLIC BBM           && 报表名
BBM="DYHMC.FRX"
IF USED("ltxx")
   SELE ltxx
   ELSE
     SELE 0
     USE ..\DATA\ltxx ALIAS ltxx
ENDIF
IF USED("CXSTRU")
   SELE CXSTRU
   ELSE
     SELE 0
     USE CXSTRU.SYS ALIAS CXSTRU EXCL
ENDIF
ZAP
APPE FROM CXltxx.SYS
DO TYCX WITH "ltxx.DBF","ltxx",.F.
SELE ltxx
SET ORDER TO 编号
IF EMPTY(CXTJ)
   SELECT DIST 编号,姓名,行政职务,行政职级,技术职务,性别,民族,出生日期,籍贯,家庭成分,本人成分,政治面貌,入党时间,工作时间,计工龄时间,赤医龄,护教时间,评定时间,任职日期,毕业时间,毕业学校,学制,学历,000 AS YM ;
          FROM ltxx WHERE 政治面貌="中共党员" OR 政治面貌="中共预备党员"  ORDER BY 类别,编号 INTO DBF ZGHMC.DBF
   ELSE
     SELECT DIST 编号,姓名,行政职务,行政职级,技术职务,性别,民族,出生日期,籍贯,家庭成分,本人成分,政治面貌,入党时间,工作时间,计工龄时间,赤医龄,护教时间,评定时间,任职日期,毕业时间,毕业学校,学制,学历,000 AS YM ;
            FROM ltxx WHERE (政治面貌="中共党员" OR 政治面貌="中共预备党员") AND &CXTJ ORDER BY 类别,编号 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 ltxx
   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("ZGHMC")
   USE IN ZGHMC
ENDIF
*ERASE JSMXB.DBF
RETURN