sjcbb.prg

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

PUBLIC MREPNAME
MREPNAME="JSCBB"

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
CD..
APPE FROM CXRSXX.SYS
DO TYCX WITH "RSXX.DBF","RSXX",.F.
CD ZSSJ
SELE RSXX
SET ORDER TO 编号
IF USED("ZGGZ")
   SELE ZGGZ
   ELSE
     SELE 0
     USE ..\..\DATA\ZGGZ ALIAS ZGGZ
ENDIF
SET ORDER TO 编号
IF USED("JSGZ")
   SELE JSGZ
   ELSE
     SELE 0
     USE ..\..\DATA\JSGZ ALIAS JSGZ EXCL
ENDIF
SET ORDER TO 排序号
IF EMPTY(CXTJ)
   SELECT DIST JSGZ.编号 AS 编号,JSGZ.排序号 AS 排序号,JSGZ.工资编号 AS 工资编号,考核年度,考核等次,工资档次,职务工资,活工资,比例,保留津贴,教护工资,教护津贴,工资总额,月增工资,月增职务,月增教护,YM ;
          FROM JSGZ,RSXX WHERE JSGZ.编号=RSXX.编号 GROUP BY JSGZ.编号 ORDER BY JSGZ.工资编号 INTO DBF JSMXB.DBF
   ELSE
     SELECT DIST JSGZ.编号 AS 编号,JSGZ.排序号 AS 排序号,JSGZ.工资编号 AS 工资编号,考核年度,考核等次,工资档次,职务工资,活工资,比例,保留津贴,教护工资,教护津贴,工资总额,月增工资,月增职务,月增教护,YM ;
            FROM JSGZ,RSXX WHERE JSGZ.编号=RSXX.编号 AND &CXTJ GROUP BY JSGZ.编号 ORDER BY JSGZ.工资编号 INTO DBF JSMXB.DBF
ENDIF
SELE RSXX
SET FILTER TO
IF USED("JSMXB")
   SELE JSMXB
   ELSE
     SELE 0
     USE JSMXB ALIAS JSMXB
ENDIF
COUNT TO ZJL
IF ZJL<=0
   =MESSAGEBOX("无可打印数据!",0+16,"提示信息")
   USE IN JSGZ
   USE IN RSXX
   USE IN ZGGZ
   USE IN JSMXB
   RETURN
ENDIF
SET RELATION TO 编号 INTO RSXX ADDI
SET RELATION TO 编号 INTO ZGGZ ADDI
*DEFINE WINDOW PRINTXSWIN IN desktop FROM 6,2 TO 34,105 TITLE '打印预览';
*       NOCLOSE NOZOOM font "宋体",9 SYSTEM FLOAT
*REPORT FORM JSCBB.frx NOEJECT NOCONSOLE PREVIEW WINDOW PRINTXSWIN
_PAGENO=1
_PEPAGE=9999
_PWAIT=.F.
DO FORM CBB_PRINT
RELEASE WINDOW PRINTXSWIN
SELE JSGZ
USE
SELE RSXX
USE
SELE ZGGZ
USE
USE IN JSMXB
*ERASE JSMXB.DBF
RETURN