czgzb_lt.prg

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

PUBLIC MDATANAME
PUBLIC MREPNAME
MDATANAME="LTGZMXB"
MREPNAME="LTGZB"

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
CD..
DO TYCX WITH "LTXX.DBF","LTXX",.F.
CD CZGZB
SELE LTXX
SET ORDER TO 编号
IF USED("LTAZ")
   SELE LTAZ
   ELSE
     SELE 0
     USE ..\..\DATA\LTAZ ALIAS LTAZ
ENDIF
SET ORDER TO 编号
IF EMPTY(CXTJ)
   SELECT DIST LTAZ.编号 AS 编号,姓名,身份证号,部门,性别,类别,工作时间,LTAZ.离退休费,LTAZ.津补贴,LTAZ.金额 AS 护理费,00 AS ym ;
          FROM LTAZ,LTXX WHERE LTAZ.编号=LTXX.编号 GROUP BY LTAZ.编号 ORDER BY 类别 INTO DBF LTGZMXB.DBF
   ELSE
     SELECT DIST LTAZ.编号 AS 编号,姓名,身份证号,部门,性别,类别,工作时间,LTAZ.离退休费,LTAZ.津补贴,LTAZ.金额 AS 护理费,00 AS ym ;
               FROM LTAZ,LTXX WHERE LTAZ.编号=LTXX.编号 AND &CXTJ  GROUP BY LTAZ.编号 ORDER BY 类别 INTO DBF LTGZMXB.DBF
ENDIF
SELE LTXX
SET FILTER TO
IF USED("LTGZMXB")
   SELE LTGZMXB
   ELSE
     SELE 0
     USE LTGZMXB ALIAS LTGZMXB
ENDIF
YJL=30
COUNT TO ZJL
IF ZJL<=0
   =MESSAGEBOX("无可打印数据!",0+16,"提示信息")
   USE IN LTAZ
   USE IN LTXX
   USE IN LTGZMXB
   RETURN
ENDIF
STORE 1 TO P1,P2,P3
YJL=28
ZYM=0000
_PAGENO=1
_PEPAGE=9999
_PWAIT=.F.
DO FORM PRINT
SELE LTAZ
USE
SELE LTXX
USE
USE IN LTGZMXB
*ERASE JSMXB.DBF
RETURN