jpbctotal.prg

通过VFP编程的方式来统计指定数据库中的有关数据

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: JPBCTOTAL.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 SET TALK OFF
 SET SAFETY OFF
 SET DELETED ON
 SET DATE TO ANSI
 SET CENTURY ON
 LNSELE00 = SELECT()
 DM = IIF(TYPE('SHORTNAME') = 'C',SHORTNAME,'')
 IF TYPE('DATEFROM') <> 'C'
    DATEEND0 = DATE()
    DATEEND = DTOC(DATE())
    IF DAY(DATE()) = 1
       DATEEND0 = DATE() - 1
       DATEEND = DTOC(DATE() - 1)
    ENDIF 
    DATEFROM0 = DATEEND0
    LNMONTH = MONTH(DATEFROM0)
    DO WHILE .T.
       DATEFROM0 = DATEFROM0 - 1
       IF MONTH(DATEFROM0) < LNMONTH
          DATEFROM0 = DATEFROM0 + 1
          EXIT 
       ENDIF 
    ENDDO 
    DATEFROM = DTOC(DATEFROM0)
 ENDIF 
 WAIT WINDOW NOWAIT TIMEOUT 60 '正在进行数据计算......'
 SELECT 0
 IF TYPE('FULLNAME') <> 'C'
    FULLNAME = ''
    IF FILE('本店店名.dbf')
       USE 本店店名
       FULLNAME = 店名
       USE 
    ENDIF 
    IF FILE('单位名称.DBF')
       USE 单位名称
       FULLNAME = 全名
       USE 
    ENDIF 
 ENDIF 
 SELECT 0
 DO CASE 
 CASE FILE('JPGL\JPBCK.DBF')
    USE JPGL\JPBCK
 CASE FILE('\VFP\JPGL\JPBCK.DBF')
    USE \VFP\JPGL\JPBCK
 CASE FILE('C:\VFP\JPGL\JPBCK.DBF')
    USE C:\VFP\JPGL\JPBCK
 CASE FILE('JPBCK.DBF')
    USE JPBCK
 OTHERWISE 
    CREATE TABLE JPBCK ( JCRQ C ( 10 ) , CCRQ C ( 10 ) , B C ( 3 ) , D I , MODEL C ( 10 ) ,  ;
         F I , F1 I , M I , MF C ( 2 ) , JG C ( 8 ) , BCYY C ( 10 ) , O I )
 ENDCASE 
 SELECT 0
 DO CASE 
 CASE FILE('JPGL\JP.DBF')
    USE JPGL\JP
 CASE FILE('\VFP\JPGL\JP.DBF')
    USE \VFP\JPGL\JP
 CASE FILE('C:\VFP\JPGL\JP.DBF')
    USE C:\VFP\JPGL\JP
 CASE FILE('JP.DBF')
    USE JP
 OTHERWISE 
    CREATE TABLE JP ( DJH C ( 6 ) , JCRQ C ( 10 ) , CCRQ C ( 10 ) , B C ( 3 ) , D I , MODEL  ;
         C ( 10 ) , F I , F1 I , M I , MF C ( 2 ) , LRY C ( 8 ) , DH I , L1  ;
         N ( 8 , 2 ) , L N ( 8 , 2 ) , O I , P I )
 ENDCASE 
 SELECT 0
 SELECT JPBCK.JG  JG , JPBCK.CCRQ  CCRQ , JPBCK.BCYY  BCYY , JP.B  B , JP.D  D ,  ;
      JP.MODEL  MODEL , JP.F  F , JP.F1  F1 , JP.L  L , JP.L1  L1 , JPBCK.MF  MF ,  ;
      JPBCK.O  O WHERE  ;
      JPBCK.B = JP.B AND JPBCK.D = JP.D AND JPBCK.CCRQ >= DATEFROM AND  ;
JPBCK.CCRQ <= DATEEND ORDER BY JPBCK.JG , JP.B ,  ;
      JP.MODEL , JPBCK.CCRQ , JP.D INTO CURSOR CURSJPBC FROM JPBCK , JP
 LN = _TALLY
 SELECT JPBCK
 USE 
 SELECT JP
 USE 
 SELECT CURSJPBC
 COUNT TO LNRECC
 SUM TO LNL L
 IF LN > 0
    DATETIME = DATETIME()
    REPORT FORM 镜片报残 PREVIEW NOCONSOLE
    REPORT FORM 镜片报残 TO PRINTER PROMPT NOCONSOLE
    GO TOP
 ELSE 
    = MESSAGEBOX('无相关数据！    ',64,'信息')
 ENDIF 
 USE 
 SELECT (LNSELE00)
 RETURN 
*