日程用表生成.prg

来自「田径运动会管理系统RAR 用VFP编写」· PRG 代码 · 共 44 行

****日程用表内容原生成！适用于无报名成绩的二赛制比赛！
*!*	set path to c:\zbydhxt
use 统计表.dbf in 0 alias a001
use 日程用表.dbf in 0 alias a002
use 竞赛参数.dbf in 0 alias a003
sele a003
zzss=单项比赛最少人数
use
sele a002
zap
sele a001
do while .not.eof()
xmdm=项目代码
xmmc=项目名称
xb=性别
zb=分组名称
zrs=总人数
fzs=分组数
dws=单位数
*!*	if left(xmdm,2)<>'JL'
sele a002
if zrs>=zzss&&&判断是否进行比赛！
if fzs=1&&直接决赛
append blank
repl 项目代码 with xmdm,项目名称 with xmmc,;
     性别 with xb,分组名称 with zb,单位数 with dws,总人数 with zrs,分组数 with fzs,赛次 with "决赛"
endif
if fzs>1
append blank
repl 项目代码 with xmdm,项目名称 with xmmc,;
     性别 with xb,分组名称 with zb,单位数 with dws,总人数 with zrs,分组数 with fzs,赛次 with "预赛"&&&&&???????要修改
append blank
repl 项目代码 with xmdm,项目名称 with xmmc,;
     性别 with xb,分组名称 with zb,单位数 with dws,总人数 with zrs,分组数 with 1,赛次 with "决赛"
 endif
 endif
 sele a001
 skip
 enddo
 sele a001
 use
 sele a002
 use