道次自动分配.bak

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

***道次号生成
*****************************************************************************
*****************************************************************************
*!*	set path to c:\zbydhxt
use 统计表.dbf in 0 alias tj
use 分组后存放表.dbf in 0 alias fz
use 道次自动分配顺序.dbf in 0 alias dc
use 竞赛参数.dbf in 0 alias cs
use 项目初始.dbf in 0 alias xcs
sele cs
wds=弯道数
zds=直道数
use

sele fz
do while .not.eof()
cq=rand()
repl 系统抽签值 with cq
skip
enddo

set orde to 系统抽签值

sele tj
do while .not.eof()
   xmdm=项目代码
   fd=是否分道
   xb=性别
   zb=分组名称
   zs=分组数
   zs1=组数1
   zs2=组数2
   rs1=人数1
   rs2=人数2
   skip
   if fd=.T.
   
   sele xcs  &&&&&这里是不分弯道和直道的问题，要是分的话在分组数的计算方面也要改正过来的！！
   locate for 项目代码=xmdm
   if found()
      isnotl=是否有栏
    else
    messagebox("项目代码有问题，在项目库中没找到！")
    endif
  
  
      
   sele fz
   set filter to 项目代码=xmdm.and.性别=xb.and.分组名称=zb
   go top
   if zs1#0
   for z1=1 to zs1
       for r1=1 to rs1
           **************************&&考虑到有栏的项目尽量不分一道的问题！
           if isnotl=.T..and.rs1<wds
             r1=r1+1
            endif
           **************************
           
           
           
           
           sele dc
           locate for 序号=r1
           if found()
              ddcc=道次
            endif
            sele fz
           repl 道次号 with ddcc
           skip
        endfor
    endfor
    endif
    
    if zs2#0
       for z1=1 to zs2
       for r1=1 to rs2
            **************************
           if isnotl=.T..and.rs2<wds
             r1=r1+1
            endif
           **************************
           
           
           sele dc
           locate for 序号=r1
           if found()
              ddcc=道次
            endif
            sele fz
           repl 道次号 with ddcc
           skip
        endfor
        endfor 
    endif
    set filter to
    endif
    sele tj
 enddo
 sele tj
 use
 sele fz
 use
 sele xcs
 use
 clear all