******预处理所有相片按钮的click事件代码
 ********版权：尹红泽 2005
    select xianpian
 local cur_xh
 cur_xh=''
 local p_yn
 p_yn=.f.&&相应学号相片文件是否存在
 yn = messagebox('预处理相片可能较慢，请耐心等待！',1+16+256,'警告')
 if yn = 1
  wait window '正在处理，请耐心等待。。。' nowait
  select xianpian
  go top
  scan
    append general xianpian
  endscan
  select xianpian
  go top
   scan
     cur_xh=allt(xianpian.xuehao)
     cur_xh='.\photo\'+cur_xh+'.bmp'
     p_yn=file('&cur_xh')
     if p_yn
        append general xianpian from &cur_xh link
*!*      else
*!*         append general xianpian from .\photo\no_photo.bmp link
     endif
   endscan
   wait window '相片处理完成。。。' nowait
   go top
 else
     go top
 endif
 thisform.refresh 
 ******预处理所有相片按钮的click事件代码结束 
 ********选择单个学生相片按钮的click代码
local dctp
dctp=''
select xianpian
         cur_no = recno()
         if !eof()
           go cur_no
         endif      
        dctp = getpict('bmp')
        if dctp <> ''
          append general xianpian from &dctp link
*!*         else
*!*           append general xianpian from .\photo\no_photo.bmp link
        endif
thisform.refresh
 
********选择单个学生相片按钮的click代码结束

*****查询学号按钮的click代码 
local qxh
qxh = ""
qxh = allt(thisform.text1.value)
select xianpian
locate for allt(xianpian.xuehao) == qxh
  if found()
     dcxh = recn()
     go dcxh
  else
     wait window "没有[ &qxh ]这个学号，请重新输入学号..." nowait
     select xianpian
     go top
  endif
thisform.refresh   
****查询学号结束