不分组项目报表生成.prg

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

*!*	set path to c:\zbydhxt
use 分组后存放表.dbf in 0 alias fz
use 不分组项目表.dbf in 0 alias fzd
use 统计表.dbf in 0 alias tj
sele fzd
zap
sele tj
go top
do while .not.eof()
   xmdm=项目代码
   xmmc=项目名称
   fd=是否分道
   xb=性别
   zbb=组别
   zs=分组数
   zrs=总人数
   skip
  
   
if fd<>.T..and.zrs>1
   xh=0
   sele fz
   set filter to 项目代码=xmdm.and.性别=xb.and.组别=zbb
   go top
   for tt=1 to ceiling(zrs/2)
          sele fzd
          append blank
          for ll=1 to 2
              xh=xh+1
              if xh>zrs
                 exit
              endif
              sele fz
              hm=号码
              xm=姓名
              dwdm=单位代码
              dwmc=单位简称
              ***xxhh=序号
              skip
              sele fzd
              repl 项目代码 with xmdm,项目名称 with xmmc,性别 with xb,组别 with zbb,总组数 with zs,总人数 with zrs
              
              if ll=1
                 repl 序号 with xh,号码 with hm,姓名 with xm,单位代码 with dwdm,单位简称 with dwmc
               endif
               if ll=2
                 repl 序号1 with xh,号码1 with hm,姓名1 with xm,单位代码1 with dwdm,单位简称1 with dwmc
               endif
            endfor
            if xh>zrs
            exit
            endif
     endfor
     sele fz
     set filter to 
 endif
sele tj  
enddo


sele fzd
repl all 赛别 with "决赛" for 总组数=1
repl all 赛别 with "预赛" for 总组数>1


use 日程.dbf in 0 alias rc
sele fzd
go top
do while .not.eof()
   xmdm=项目代码
   xb=性别
   zb=组别
   sele rc
   locate for 项目代码=xmdm.and.性别=xb.and.组别=zb
     if found()
        sx=顺序
        lb=类别
        rq=日期
        zx=总序
        sele fzd
        repl 顺序 with sx,类别 with lb,日期 with rq,总序 with zx
      else
         messagebox("你的日程编排有问题,可能是漏项!!")
      endif
      sele fzd
      skip
enddo







clear all