各项目人数统计.bak

田径运动会管理系统RAR 用VFP编写

*!*	****张冰
*!*	***第三步
*!*	****************************************************************
*!*	***名项目人数和单位数的统计***不包括接力项目
*!*	set path to c:\zbydhxt

use 项目初始.dbf in 0 alias xx1
use 统计表.dbf in 0 alias tt1
use 队员总表.dbf in 0 alias zz1
use 单位初始.dbf in 0 alias dd1
use 分组情况.dbf in 0 alias ff1
use 性别.dbf in 0 alias xb1
stor 0 to zrs
sele tt1
zap
Sele xx1
go 1
DO WHILE .NOT.EOF()
   xmdm=项目代码
   xmmc=项目名称
   skip
   sele xb1
   go 1
   DO while .not.eof()
     xb=性别
     skip
     sele ff1
     go 1
     DO while .not.eof()
        zb=分组名称
        skip
     sele zz1
     go 1
     set filter to 项目代码=xmdm
     count all for 分组名称=zb.and.性别=xb to zrs
     set filter to
*******************************
     sele tt1
     if zrs<>0
     append blank
      repl 项目代码 with xmdm,项目名称 with xmmc,组别 with zb,性别 with xb,总人数 with zrs
     endif
     SELE ff1
     enddo
     sele xb1
     enddo
     sele xx1
     enddo
******************************接力部分的统计单位数全部
******************************
*******************
sele xx1
use
sele tt1
use
sele zz1
use 
sele dd1
use
sele ff1
use
sele xb1
use

clear all