srkhccj.txt

在文本中输入一个考生的准考证号

*_PLENGTH=6
*_PLINENO=4
set exac on
local hhh
hhh=alltrim(thisform.text1.value)
if !empty(hhh)
    seek hhh
    if !found()
       wait wind "号码错！！！！！" nowait
       thisform.text1.value=''
       thisform.label2.caption=''
       thisform.label3.caption=''
       thisform.label4.caption=''
       thisform.label5.caption=''
       thisform.label6.caption=''
       retu .f.
    endif  
*    report form  h成绩查询.frx   nocon next 1 prev&&to print 
*    thisform.refresh()
     thisform.label3.caption=''
       thisform.label4.caption=''
       thisform.label5.caption=''
       thisform.label6.caption=''
       stor ' ' to x2,x3,x4,x5,x6
    x1=hhh
    x2='准考证号：'+hhh+'   '
    x7="姓名："+alltrim(ks_xm)
    thisform.label2.caption=x2+x7
    x3=subs(str(10000+kc_dm,5),2,4)+alltrim(kc_mc)+': '+iif(bk_qk=1,"缺考",str(bk_cj,4))+'  '+iif(bk_wj<>0,'违纪：'+str(fg_dm,2)+' '+alltrim(fg_bz),'')
    thisform.label3.caption=x3
    skip
    if ks_zkz==hhh
        x4=subs(str(10000+kc_dm,5),2,4)+alltrim(kc_mc)+': '+iif(bk_qk=1,"缺考",str(bk_cj,4))+'  '+iif(bk_wj<>0,'违纪：'+str(fg_dm,2)+' '+alltrim(fg_bz),'')
       thisform.label4.caption=x4
    endi
    skip
    if ks_zkz==hhh
        x5=subs(str(10000+kc_dm,5),2,4)+alltrim(kc_mc)+': '+iif(bk_qk=1,"缺考",str(bk_cj,4))+'  '+iif(bk_wj<>0,'违纪：'+str(fg_dm,2)+' '+alltrim(fg_bz),'')
       thisform.label5.caption=x5
    endi
    skip
    if ks_zkz==hhh
        x6=subs(str(10000+kc_dm,5),2,4)+alltrim(kc_mc)+': '+iif(bk_qk=1,"缺考",str(bk_cj,4))+'   '+iif(bk_wj<>0,'违纪：'+str(fg_dm,2)+' '+alltrim(fg_bz),'')
       thisform.label6.caption=x6
    endi  
   thisform.text1.value=''
  if thisform.check1.value=1
  report form  cjcx.frx  next 1  nocons to print  &&&&& nocons prev
  endi
endif