sjspb.prg

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

PUBLIC MDATANAME
PUBLIC MREPNAME
MDATANAME="JSSPB"
MREPNAME="JSSPB"

CLOSE DATA
IF USED("RSXX")
   SELE RSXX
   ELSE
     SELE 0
     USE ..\..\DATA\RSXX ALIAS RSXX
ENDIF
SELE 0
USE JSSPB ALIAS JSSPB
GO TOP
DO WHILE NOT EOF()
   RECN=RECNO()
   STORE 条件 TO TJ
   IF NOT EMPTY(TJ)
      SELE RSXX
      COUNT TO ZRS FOR &TJ
      SELECT COUNT(RSXX.编号) AS RS,SUM(ZGGZ.工资总额) AS ZGZE,SUM(ZGGZ.职务工资) AS ZGZW,SUM(ZGGZ.教护工资) AS ZGJF,SUM(JSGZ.工资总额) AS JSZE, ;
          SUM(JSGZ.职务工资) AS JSZW,SUM(JSGZ.活工资) AS JSHGZ,SUM(JSGZ.教护工资) AS JSJF,SUM(JSGZ.教护津贴) AS JSJFT,;
          SUM(JSGZ.保留津贴) AS JSBLB,SUM(JSGZ.月增工资) AS YZGZ FROM ..\..\DATA\RSXX,..\..\DATA\ZGGZ,..\..\DATA\JSGZ INTO DBF GZTJ ;
          WHERE RSXX.编号=ZGGZ.编号 AND RSXX.编号=JSGZ.编号 AND &TJ
      ELSE
        SELE RSXX
        COUNT TO ZRS
        SELECT COUNT(RSXX.编号) AS RS,SUM(ZGGZ.工资总额) AS ZGZE,SUM(ZGGZ.职务工资) AS ZGZW,SUM(ZGGZ.教护工资) AS ZGJF,SUM(JSGZ.工资总额) AS JSZE, ;
               SUM(JSGZ.职务工资) AS JSZW,SUM(JSGZ.活工资) AS JSHGZ,SUM(JSGZ.教护工资) AS JSJF,SUM(JSGZ.教护津贴) AS JSJFT,;
               SUM(JSGZ.保留津贴) AS JSBLB,SUM(JSGZ.月增工资) AS YZGZ FROM ..\..\DATA\RSXX,..\..\DATA\ZGGZ,..\..\DATA\JSGZ INTO DBF GZTJ ;
               WHERE RSXX.编号=ZGGZ.编号 AND RSXX.编号=JSGZ.编号
   ENDIF
   IF USED("GZTJ")
      SELE GZTJ
      ELSE
        SELE 0
        USE GZTJ ALIAS GZTJ
   ENDIF
   STORE RS TO MRS
   STORE ZGZE TO MZGZE
   STORE ZGZW TO MZGZW
   STORE ZGJF TO MZGJF
   STORE JSZE TO MJSZE
   STORE JSZW TO MJSZW
   STORE JSHGZ TO MJSHGZ
   STORE JSJF TO MJSJF
   STORE JSJFT TO MJSJFT
   STORE JSBLB TO MJSBLB
   STORE YZGZ TO MYZGZ
   SELE JSSPB
   GO RECN
   REPL 计 WITH ZRS
   REPL 升级人数 WITH MRS
   REPL 现工资计 WITH MZGZE
   REPL 现职务工资 WITH MZGZW
   REPL 现教护工资 WITH MZGJF
   REPL 升工资计 WITH MJSZE
   REPL 升职务工资 WITH MJSZW
   REPL 升活工资 WITH MJSHGZ
   REPL 升教护工资 WITH MJSJF
   REPL 升教护津贴 WITH MJSJFT
   REPL 升保留补贴 WITH MJSBLB
   REPL 月增加工资 WITH MYZGZ
   SKIP
ENDDO
DEFINE WINDOW PRINTXSWIN IN desktop FROM 6,2 TO 34,105 TITLE '打印预览';
       NOCLOSE NOZOOM font "宋体",9 SYSTEM FLOAT
REPORT FORM JSSPB.frx NOEJECT NOCONSOLE PREVIEW WINDOW PRINTXSWIN
RELEASE WINDOW PRINTXSWIN
SELE JSSPB
USE
RETURN