队员总表生成.prg

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

***第一步
***从"队员初始0.dbf"到"队员总表1.dbf"的转换：
***set path to c:\zbydhxt
***open database 初始化 &&&这个命令应放在程序运行的初始化在进行，可运行set database to *** ,close database关闭
***set database to 初始化
use 队员初始.dbf in 0 alias dd0
use 队员总表.dbf in 0 alias dd2
sele dd2
zap&&&清除所有记录
sele dd0
go 1
DO WHILE .NOT.EOF()
  dwdm=单位代码
  dwmc=单位简称
  xm=姓名
  hm=号码
  xb=性别
  zb=组别号
  xm1=项目1
  xm11=项目11
  xm111=项目111
  xm2=项目2
  xm22=项目22
  xm222=项目222
  xm3=项目3
  xm33=项目33
  xm333=项目333
  xm4=项目4
  xm44=项目44
  xm444=项目444
  xm5=项目5
  xm55=项目55
  xm555=项目555
sele dd2
if empty(xm1)<>.T.
  appe blank
  repl 项目代码 with xm1,项目名称 with xm11,报名成绩 with xm111,号码 with hm,姓名 with xm,组别号 with zb,性别 with xb,单位代码 with dwdm,单位简称 with dwmc
endif
if empty(xm2)<>.T.
  appe blank
  repl 项目代码 with xm2,项目名称 with xm22,报名成绩 with xm222,号码 with hm,姓名 with xm,组别号 with zb,性别 with xb,单位代码 with dwdm,单位简称 with dwmc
endif
if empty(xm3)<>.T.
appe blank
  repl 项目代码 with xm3,项目名称 with xm33,报名成绩 with xm333,号码 with hm,姓名 with xm,组别号 with zb,性别 with xb,单位代码 with dwdm,单位简称 with dwmc
endif
if empty(xm4)<>.T.
appe blank
  repl 项目代码 with xm4,项目名称 with xm44,报名成绩 with xm444,号码 with hm,姓名 with xm,组别号 with zb,性别 with xb,单位代码 with dwdm,单位简称 with dwmc
endif
if empty(xm5)<>.T.
appe blank
  repl 项目代码 with xm5,项目名称 with xm55,报名成绩 with xm555,号码 with hm,姓名 with xm,组别号 with zb,性别 with xb,单位代码 with dwdm,单位简称 with dwmc
endif
SELE dd0
SKIP
ENDDO
***从"队员初始0.dbf"到"队员总表1.dbf"的转换结束！
************************************************************************************************
************************************************************************************************
SELE dd0
USE
SELE dd2
USE
*************************************************最后以加入了*******程序的最终设计!!!!张冰