ltbfb.prg

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

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 LTXX.排序号 AS 排序号,LTXX.姓名 AS 姓名,LTAZ.月增金额 AS 月增金额,00 AS YM ;
       FROM LTXX,LTAZ WHERE LTXX.编号=LTAZ.编号 GROUP BY LTAZ.编号 ORDER BY LTXX.排序号 INTO DBF LTBFB.DBF
USE IN LTXX
USE IN LTAZ
IF USED("LTBFB")
   SELE LTBFB
   ELSE
     SELE 0
     USE LTBFB ALIAS LTBFB
ENDIF
YJL=30
COUNT TO ZJL
IF ZJL<=0
   =MESSAGEBOX("无可打印数据!",0+16,"提示信息")
   USE IN LTBFB
   RETURN
ENDIF
STORE 1 TO P1,P2,P3
YJL=30
ZYM=0000
_PAGENO=1
_PEPAGE=9999
_PWAIT=.F.
DO FORM PRINT1