名单报表生成.prg

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

***第二步
***从队员初始.dbf 到名单报表的转换不用考虑项目问题，，，，，运行此程序无问题出现就可以运行报表了，打印了!!运动员名单!!!
*!*	set path to c:\zbydhxt
use 队员初始.dbf in 0 alias bbbb1
use 名单报表.dbf in 0 alias bbbb2
use 项目初始.dbf in 0 alias bbbb6
use 单位人数统计.dbf in 0 alias bbbb8
use 单位初始.dbf in 0 alias bbbb3
sele bbbb2
zap
sele bbbb8
go 1
do while .not.eof()
   nnn=0
   dwdm=单位代码
   dwmc=单位简称
   xb=性别
   zb=分组名称
   zrs11=人数
   skip
   sele bbbb1
   set filter to 单位代码=dwdm.and.性别=xb.and.分组名称=zb
   locate for 单位代码=dwdm.and.性别=xb.and.分组名称=zb
*****************************************************    
For nnnn6=1 to ceiling(zrs11/2)
   Sele bbbb2
   Append blank
   repl 单位代码 with dwdm,单位简称 with dwmc,性别 with xb,分组名称 with zb
for zd=1 to 2
   sele bbbb1 
   Hm=号码
   xm=姓名
   xmdm1=项目1
   xmdm2=项目2
   xmdm3=项目3
********************************************empty(xm3)<>.T.
***取项目名称***
********************************************
sele bbbb6
if  empty(xmdm1)<>.T.     
   locate for 项目代码=xmdm1
   if found()
      xmdm1=项目代码
      xmmc1=项目名称
   endif
else
xmmc1=''
xmdm1=''
endif 
 
if empty(xmdm2)<>.T.   
   locate for 项目代码=xmdm2
   if found()
      xmdm2=项目代码
      xmmc2=项目名称
   endif
else
xmmc2=''
xmdm2=''
endif

if empty(xmdm3)<>.T.   
   locate for 项目代码=xmdm3
   if found()
      xmdm3=项目代码
      xmmc3=项目名称
   endif
else
xmmc3=''
xmdm3=''
endif
********************************************
***nnn=nnn+1
***if nnn<=zrs11
  Sele bbbb2
  Do case
     Case zd=1
     repl 号码1 with hm,姓名1 with xm,项目代码11 with xmdm1,项目代码12 with xmdm2,项目代码13 with xmdm3,;
     项目名称11 with xmmc1,项目名称12 with xmmc2,项目名称13 with xmmc3
     case zd=2
     repl 号码2 with hm,姓名2 with xm,项目代码21 with xmdm1,项目代码22 with xmdm2,项目代码23 with xmdm3,;
     项目名称21 with xmmc1,项目名称22 with xmmc2,项目名称23 with xmmc3
     
***else
**exit  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
***endif
nnn=nnn+1
if nnn>zrs11
exit
endif
sele bbbb1
skip
endfor

if nnn>zrs11
exit
endif
endfor
sele bbbb1
set filter to 
****************************************
sele bbbb8
enddo
**************************
**************************
sele bbbb2
go 1
do while .not.eof()
   dwdm=单位代码
   sele bbbb3
   locate for 单位代码=dwdm
      if found()
         dwmc=分组名称
         jl=教练
         ld=领队
       else
          dwmc="项目库中没有这个代码"
          jl=''
          ld=''
       endif
     sele bbbb2
     repl 单位简称 with dwmc,教练 with jl,领队 with ld
     skip
 enddo
**************************
**************************
sele bbbb1
use
sele bbbb2
use
sele bbbb6
use
sele bbbb8
use
sele bbbb3
use