jscbb.prg

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

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
APPE FROM ..\CXRSXX.SYS
CD..
DO TYCX WITH "RSXX.DBF","RSXX",.F.
CD ZWJS
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
RELEASE WINDOW PRINTXSWIN
SELE JSGZ
USE
SELE RSXX
USE
SELE ZGGZ
USE
USE IN JSMXB
*ERASE JSMXB.DBF
RETURN