sjhmc.prg

来自「包括了6个VFP程序设计实例」· PRG 代码 · 共 46 行

SET MARK TO "."
IF USED("RSXX")
   SELE RSXX
   ELSE
     SELE 0
     USE ..\DATA\RSXX ALIAS RSXX
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 RSXX
SET ORDER TO 编号
IF EMPTY(CXTJ)
   SELECT DIST RSXX.排序号 AS 排序号,RSXX.姓名 AS 姓名,RSXX.性别 AS 性别,RSXX.科室 AS 科室,RSXX.行政职务 AS 行政职务,RSXX.技术职务 AS 技术职务,RSXX.学历 AS 学历,RSXX.所学专业 AS 专业,IIF(EMPTY(RSXX.出生日期),"",subs(dtoc(RSXX.出生日期),1,7)) AS 出生年月,RSXX.民族 AS 民族,RSXX.籍贯 AS 籍贯,IIF(EMPTY(RSXX.工作时间),"",subs(dtoc(RSXX.工作时间),1,7)) AS 工作时间,RSXX.政治面貌 AS 政治面貌,00 AS YM ;
          FROM RSXX GROUP BY RSXX.编号 ORDER BY RSXX.排序号 INTO DBF SJHMC.DBF
   ELSE
     SELECT DIST RSXX.排序号 AS 排序号,RSXX.姓名 AS 姓名,RSXX.性别 AS 性别,RSXX.科室 AS 科室,RSXX.行政职务 AS 行政职务,RSXX.技术职务 AS 技术职务,RSXX.学历 AS 学历,RSXX.所学专业 AS 专业,IIF(EMPTY(RSXX.出生日期),"",subs(dtoc(RSXX.出生日期),1,7)) AS 出生年月,RSXX.民族 AS 民族,RSXX.籍贯 AS 籍贯,IIF(EMPTY(RSXX.工作时间),"",subs(dtoc(RSXX.工作时间),1,7)) AS 工作时间,RSXX.政治面貌 AS 政治面貌,00 AS YM ;
            FROM RSXX WHERE &CXTJ GROUP BY RSXX.编号 ORDER BY RSXX.排序号 INTO DBF SJHMC.DBF
ENDIF
IF USED("SJHMC")
   SELE SJHMC
   ELSE
     SELE 0
     USE SJHMC ALIAS SJHMC
ENDIF
YJL=30
COUNT TO ZJL
IF ZJL<=0
   =MESSAGEBOX("无可打印数据!",0+16,"提示信息")
   USE IN SJHMC
   RETURN
ENDIF
STORE 1 TO P1,P2,P3
YJL=30
ZYM=0000
_PAGENO=1
_PEPAGE=9999
_PWAIT=.F.
DO FORM PRINT2