报名单查错.bak

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

***对报名表的项目与分组和性别的检查***
*!*	set path to c:\zbydhxt
use 各组项目库.dbf in 0 alias x1
use 队员总表.dbf in 0 alias x2
use 报名错误表.dbf in 0 alias x3
use 项目初始.dbf in 0 alias x4
use 单位初始.dbf in 0 alias x5
sele x3
zap
sele x2
go 1
do while .not.eof()
   zb=分组名称
   xb=性别
   dwdm=单位代码
   hm=号码
   xm=姓名
   xmdm=项目代码
   sele x5
   go 1
   locate for 单位代码=dwdm
   if found()
      dwmc=单位名称
      else
      sele x3
      append blank
      repl 分组名称 with zb,性别 with xb,单位代码 with dwdm,项目代码 with xmdm,备注 with '单位代码有问题'
      exit   
      endif
   sele x4
   go 1
   locate for 项目代码=xmdm
   if found()
      xmmc=项目名称
    else
       sele x3
       append blank
       repl 分组名称 with zb,性别 with xb,单位代码 with dwdm,单位名称 with dwmc,项目代码 with xmdm,备注 with '项目代码有问题'
       exit   
     endif
     sele x1
     go 1
     locate for 分组名称=zb.and.性别=xb.and.项目代码=xmdm
     if !found() &&&&&&&&&&&这样用有没有问题!!!!!!!!!!？？？？？？？
       sele x3
       append blank
       repl 号码 with hm,姓名 with xm,分组名称 with zb,性别 with xb,单位代码 with dwdm,单位名称 with dwmc,项目代码 with xmdm,项目名称 with xmmc,备注 with '项目不符合要求'
       endif
    sele x2
    skip
    enddo
******************************
sele x3
go top
if isblank(号码)=.T. 
messagebox("系统目前没有发现错误,你可以继续运行其它程序!")
else
messagebox("***系统发现错误,请你先检查报名单的有关问题!!!!!!***")
disp all
endif







sele x1
use
sele x2
use
sele x3
use
sele x4
use
sele x5
use