sbdjb.prg

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

PUBLIC BBM           && 报表名
BBM="SBDJB.FRX"
IF USED("RSXX")
   SELE RSXX
   ELSE
     SELE 0
     USE ..\..\DATA\RSXX ALIAS RSXX
ENDIF
IF USED("ZGGZ")
   SELE ZGGZ
   ELSE
     SELE 0
     USE ..\..\DATA\ZGGZ ALIAS ZGGZ
ENDIF
SELE RSXX
SELECT Rsxx.人员编码, Rsxx.编号, Rsxx.姓名, Rsxx.性别, Rsxx.出生日期,;
       Rsxx.身份证号, Rsxx.工作时间, Zggz.工资总额,00 AS YM ;
       FROM  rsxx LEFT OUTER JOIN zggz ;
       ON  Rsxx.编号 = Zggz.编号 INTO DBF ZGHMC.DBF

IF USED("ZGHMC")
   SELE ZGHMC
   ELSE
     SELE 0
     USE ZGHMC ALIAS ZGHMC
ENDIF
COUNT TO ZJL
IF ZJL<=0
   =MESSAGEBOX("无可打印数据!",0+16,"提示信息")
   USE IN RSXX
   USE IN ZGHMC
   USE IN ZGGZ
   RETURN
ENDIF
STORE 1 TO P1,P2,P3
YJL=18
ZYM=0000
_PAGENO=1
_PEPAGE=9999
_PWAIT=.F.

DO FORM ..\HMCPRINT
IF USED("RSXX")
   USE IN RSXX
ENDIF
IF USED("ZGHMC")
   USE IN ZGHMC
ENDIF
*ERASE ZGHMC.DBF
RETURN