select jbxx

sttsbm = alltrim(sdm)
if empty(sttsbm)
  sttsbm= " "
endif
  
sttqgbm = alltrim(qgdm)



stz = alltrim(thisform.text1.value)

if empty(stz)
    messagebox("请选择路径！","招生系统")
    return
endif  



if substr(stz,len(stz),1) != "\"
  stz = stz+"\"
endif

  
if thisform.optiongroup1.option1.value = 1 or thisform.optiongroup1.option14.value = 1
  stt1 = "'"+stz+"jbxx'"
  stz2 = stz+"jbxx"
if not file(stz2+".dbf")
    messagebox("文件jbxx不存在！","招生系统")
    if thisform.optiongroup1.option14.value != 1
        return
    endif
else
   select 0
   use &stt1 alias dwjbxx
   select dwjbxx
   scatter memvar
   select dwjbxx
   use
   select jbxx
   gather memvar
 endif  
 endif
   
if thisform.optiongroup1.option2.value = 1 or thisform.optiongroup1.option14.value = 1
   stt1 = "'"+stz+"xtxx'"
   stz2 = stz+"xtxx"
if not file(stz2+".dbf")
    messagebox("文件xtxx不存在！","招生系统")
    if thisform.optiongroup1.option14.value != 1
        return
    endif
else

   select 0
   use &stt1 alias dwxtxx
   select dwxtxx
   scatter memvar
   select dwxtxx
   use
   select xtxx
   gather memvar
 endif
 endif

if thisform.optiongroup1.option3.value = 1 or thisform.optiongroup1.option14.value = 1

  stt1 = "'"+stz+"bxzy'"
   stz2 = stz+"bxzy"
if not file(stz2+".dbf")
    messagebox("文件bxzy不存在！","招生系统")
    if thisform.optiongroup1.option14.value != 1
        return
    endif
else
  select bxzy
   zap
  append from &stt1
  endif
 endif


if thisform.optiongroup1.option4.value = 1 or thisform.optiongroup1.option14.value = 1
   
   stt3 = "'"+stz+"kskm'"
   stz4 = stz+"kskm"
if not file(stz4+".dbf")
    messagebox("文件kskm不存在！","招生系统")
    if thisform.optiongroup1.option14.value != 1
        return
    endif
else
 *不要追加相同的记录
  select kskm
  append from &stt3
  endif  
  
  select distinct kskmm,kskm,kmtk from kskm into cursor yk group by kskmm order by kskmm
  select kskm
  zap
  append from dbf("yk")
  go top
  
 endif
 
if thisform.optiongroup1.option5.value = 1 or thisform.optiongroup1.option14.value = 1
   
   stt3 = "'"+stz+"ds'"
   stz4 = stz+"ds"
if not file(stz4+".dbf")
    messagebox("文件ds不存在！","招生系统")
    if thisform.optiongroup1.option14.value != 1
        return
    endif
else
  select ds
   zap
  append from &stt3
  endif  
 endif
 
if thisform.optiongroup1.option6.value = 1 or thisform.optiongroup1.option14.value = 1

   stt3 = "'"+stz+"kc'"
   stz4 = stz+"kc"
if not file(stz4+".dbf")
    messagebox("文件kc不存在！","招生系统")
    if thisform.optiongroup1.option14.value != 1
        return
    endif
else
  select kc
   zap
  append from &stt3
  endif  
 endif
 
if thisform.optiongroup1.option7.value = 1 or thisform.optiongroup1.option14.value = 1

   
   stt3 = "'"+stz+"mlk'"
   stz4 = stz+"mlk"
if not file(stz4+".dbf")
    messagebox("文件mlk不存在！","招生系统")
    if thisform.optiongroup1.option14.value != 1
        return
    endif
else
  select mlk
   zap
  append from &stt3
 endif   
 endif
 
if thisform.optiongroup1.option8.value = 1 or thisform.optiongroup1.option14.value = 1
   
   stt3 = "'"+stz+"ssbm'"
   stz4 = stz+"ssbm"
if not file(stz4+".dbf")
    messagebox("文件ssbm不存在！","招生系统")
    if thisform.optiongroup1.option14.value != 1
        return
    endif
 endif

if file(stz4+".dbf")
  select ssbm
   zap
  append from &stt3
 endif  

endif

if thisform.optiongroup1.option10.value = 1 or thisform.optiongroup1.option14.value = 1
   
    stt3 = "'"+stz+"ssbkwx'"
   stz4 = stz+"ssbkwx"
if not file(stz4+".dbf")
    messagebox("文件ssbkwx不存在！","招生系统")
    if thisform.optiongroup1.option14.value != 1
        return
    endif
else

  select ssbkwx
   zap
  append from &stt3
  endif
 endif
 
 if thisform.optiongroup1.option11.value = 1 or thisform.optiongroup1.option14.value = 1
   
    stt3 = "'"+stz+"sscl'"
   stz4 = stz+"sscl"
if not file(stz4+".dbf")
    messagebox("文件sscl不存在！","招生系统")
    if thisform.optiongroup1.option14.value != 1
        return
    endif
else

  select sscl
   zap
  append from &stt3
  endif
 endif
 
 if thisform.optiongroup1.option12.value = 1 or thisform.optiongroup1.option14.value = 1
   
    stt3 = "'"+stz+"ssbl'"
   stz4 = stz+"ssbl"
if not file(stz4+".dbf")
    messagebox("文件ssbl不存在！","招生系统")
    if thisform.optiongroup1.option14.value != 1
        return
    endif
else

  select ssbl
   zap
  append from &stt3
  endif
 endif
 
 if thisform.optiongroup1.option13.value = 1 or thisform.optiongroup1.option14.value = 1
   
    stt3 = "'"+stz+"jkry'"
   stz4 = stz+"jkry"
if not file(stz4+".dbf")
    messagebox("文件jkry不存在！","招生系统")
    if thisform.optiongroup1.option14.value != 1
        return
    endif
else

  select jkry
   zap
  append from &stt3
  endif
 endif
 
  if  thisform.optiongroup1.option14.value = 1
   
    stt3 = "'"+stz+"fsk'"
   stz4 = stz+"fsk"
if not file(stz4+".dbf")
    messagebox("文件fsk不存在！","招生系统")
    if thisform.optiongroup1.option14.value != 1
        return
    endif
else

  select fsk
   zap
  append from &stt3
  endif
  
   stt3 = "'"+stz+"fsjs'"
   stz4 = stz+"fsjs"
if not file(stz4+".dbf")
    messagebox("文件fsjs不存在！","招生系统")
    if thisform.optiongroup1.option14.value != 1
        return
    endif
else

  select fsjs
   zap
  append from &stt3
  endif
  
 endif
   
 wait window "完成" timeout 2 at srows()/2,(scols()-len("完成"))/2

*endif