分组数生成.prg

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

*****计算分组情况的程序********张冰***********88
*!*	set path to c:\zbydhxt
use 统计表.dbf in 0 alias ee1
use 分组情况.dbf in 0 alias ee2
use 项目初始.dbf in 0 alias ee3
use 竞赛参数.dbf in 0 alias ee4
sele ee4
zds=直道数
wds=弯道数
cj=是否有成绩
use
sele ee1
go 1
sele ee2
do while .not.eof()
   rrr=最多参赛人数
   zb=分组名称
   skip
   sele ee1
   repl all 单位的最多人数 with rrr for 分组名称=zb
   sele ee2
enddo
sele ee3
do while .not.eof()
   xmdm=项目代码
   ffff=是否分道
   skip
  sele ee1
   repl all 是否分道 with ffff for 项目代码=xmdm
 sele ee3
 enddo
 rs1=0
 rs2=0
 zs1=0
 zs2=0
 sele ee1
 go 1
 do while .not.eof()&&&&&&&&&&&&&&&&&&&&&&&&&&&要重设参数!!!!!!!!!!!1!!!!!!!!!!!!!
    ffff=是否分道
    dws=单位数
    zrs=总人数
    
    if ffff=.F.
       rs1=zrs
       zs1=1
       rs2=0
       zs2=0
       zss=1
     else
       if zrs<=wds.and.zrs>1  &&&多于一人
          rs1=zrs
          zs1=1
          rs2=0
          zs2=0
          zss=1
****
       else
         m1=int(zrs/wds)
         m2=mod(zrs,wds)
         if m2=0
            zss=m1   &&&正好分组
         else
            zss=m1+1
         endif
******
         x1=int(zrs/zss)
         x2=mod(zrs,zss)
         if x2=0
            rs1=x1
            zs1=zss
            rs2=0
            zs2=0
         else
            rs1=x1+1
            zs1=x2
            rs2=x1
            zs2=zss-x2
         endif
       endif
      endif
   repl 分组数 with zss,组数1 with zs1,人数1 with rs1,组数2 with zs2,人数2 with rs2
    skip
enddo



sele ee1
set filter to left(项目代码,2)='JL'&&&项目代码="JL1".or.项目代码="JL2"
go top
do while .not.eof()
   dws=单位数
   if dws<=wds
      zss=1
      zs1=1
      rs1=dws
      zs2=0
      rs2=0
     if dws>9
         m1=int(dws/wds)
         m2=mod(dws,wds
         if m2=0
            zss=m1   &&&正好分组
         else
            zss=m1+1
         endif
******
         x1=int(dws/zss)
         x2=mod(dws,zss)
         if x2=0
            rs1=x1
            zs1=zss
            rs2=0
            zs2=0
         else
            rs1=x1+1
            zs1=x2
            rs2=x1
            zs2=zss-x2
          endif
        endif
       endif
       repl 分组数 with zss,组数1 with zs1,人数1 with rs1,组数2 with zs2,人数2 with rs2,单位的最多人数 with 1
    skip
  enddo
 sele 1
 set filter to  
sele 1
use
sele 2
use
sele 3
use