ltjsmxb.prg

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

PUBLIC MDATANAME
PUBLIC MREPNAME
MDATANAME="LTJSMXB"
MREPNAME="LTJSMXB"

IF USED("LTXX")
   SELE LTXX
   ELSE
     SELE 0
     USE ..\..\DATA\LTXX ALIAS LTXX
ENDIF
SET ORDER TO 编号
IF USED("LTAZ")
   SELE LTAZ
   ELSE
     SELE 0
     USE ..\..\DATA\LTAZ ALIAS LTAZ
ENDIF
SET ORDER TO 编号
SELECT DIST LTAZ.编号 AS 编号,姓名,性别,出生日期,工作时间,工龄,离退休时间,工作性质,行政职级,行政职务,技术职务,技术级别,类别,离退休费,津补贴,退职费,LTAZ.月增金额,00 AS YM;
       FROM LTAZ,LTXX WHERE LTAZ.编号=LTXX.编号 GROUP BY LTAZ.编号 ORDER BY LTXX.类别 INTO DBF LTJSMXB.DBF
IF USED("LTJSMXB")
   SELE LTJSMXB
   ELSE
     SELE 0
     USE LTJSMXB ALIAS LTJSMXB
ENDIF
YJL=30
COUNT TO ZJL
IF ZJL<=0
   =MESSAGEBOX("无可打印数据!",0+16,"提示信息")
   USE IN LTAZ
   USE IN LTXX
   USE IN LTJSMXB
   RETURN
ENDIF
STORE 1 TO P1,P2,P3
YJL=18
ZYM=0000
_PAGENO=1
_PEPAGE=9999
_PWAIT=.F.
DO FORM PRINT
SELE LTAZ
USE
SELE LTXX
USE
USE IN LTJSMXB
*ERASE JSMXB.DBF
RETURN