项目拆分.prg

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

*!*	set path to c:\zbydhxt
*!*	*******将日程加入到分组后存放表中
*!*	set path to c:\zbydhxt
use 日程.dbf in 0 alias rc
use 分组后存放表.dbf in 0 alias fz
use jscj.dbf in 0 alias jscj
sele rc
go top
do while .not.eof()
   xx=总序
   xxx=顺序
   xmdm=项目代码
   xb=性别
   zb=分组名称
   zs=组数
   sc=赛次
    skip
 sele fz
 repl all 总序 with xx,顺序 with xxx for 项目代码=xmdm.and.性别=xb.and.分组名称=zb&&&&.and.赛次=sc
sele rc
enddo 

sele rc
go top
do while .not.eof()
   xx=总序
   xxx=顺序
   xmdm=项目代码
   xb=性别
   zb=分组名称
   zs=组数
   skip
if zs=2
 sele fz
 repl all 总序 with xx,顺序 with xxx for 项目代码=xmdm.and.性别=xb.and.分组名称=zb
endif
sele rc
enddo 

clear all
use js.dbf in 0 alias js
use ts.dbf in 0 alias ts
sele ts
zap
APPEND FROM c:\zbydhxt\分组后存放表.dbf FOR left(Ts.项目代码,1)="T" FIELDS Ts.项目代码,;
Ts.总序,Ts.顺序,Ts.项目名称,Ts.性别,Ts.分组名称,Ts.序号,Ts.机器分组号,Ts.号码,Ts.姓名,Ts.单位代码,Ts.单位名称,Ts.分组号,Ts.备注
sele js
zap
APPEND FROM c:\zbydhxt\分组后存放表.dbf FOR LEFT(Js.项目代码,1)="J" FIELDS Js.项目代码,;
Js.总序,Js.顺序,Js.分组号,Js.项目名称,Js.道次号,Js.性别,Js.分组名称,Js.序号,Js.机器分组号,Js.号码,Js.姓名,Js.单位代码,Js.单位名称,Js.分组号,Js.道次号,Js.备注
sele js
use
sele ts
use