查询磁卡.prg

通用题库组卷系统 1.本来是一个学生的本科毕业课题

close data
&&C查询库别名,C查询库全名,C查询库索引,C指定索引,C查询字段类别,C执行过程,C查询字段名称,C查询字段名称
C_tmp_查询库别名="ykzh"
C_tmp_查询库全名="ykzh.dat"
C_tmp_查询库索引=""
C_tmp_指定索引=""
C_tmp_查询字段类别="C,N,D,M,L,T,B,"
C_tmp_执行过程="磁卡开始查询"
C_tmp_查询字段名称=""
C_tmp_不查询字段名称="tf"
&&每个之间必须加“,”以示分隔，程序中要检查“,”
l_lyh_exit=.t.
do form 万能查询 &&to l_lyh_exit

proc 磁卡开始查询
过滤条件=C_lyh_过滤条件  && 局部变量自动会释放
*set filt to &C_lyh_过滤条件. 
*_screen.form万能查询.lockscreen=.t.
release windows 万能查询
h_设立等待("正在提出数据请稍后")
************************************设立目录
if .not. DIRECTORY("temp")
  md temp
endif
c随机文件="temp\"+SUBSTR(SYS(2015), 3, 10) +".tmp"
if empty(C_lyh_过滤条件)
  sele * from &C_tmp_查询库全名. into dbf &c随机文件. ORDER BY 卡号
else
  *wait windows "&C_lyh_过滤条件. "
  sele * from &C_tmp_查询库全名. into dbf &c随机文件. ORDER BY 卡号  where &C_lyh_过滤条件. 
endif
use
sele &C_tmp_查询库别名.
use
*sele * from ykzh.dat into dbf temp\&c随机文件. ORDER BY 卡号
use &c随机文件. alias &C_tmp_查询库别名.
H_消除等待()
*_screen.form万能查询.release
do form 磁卡列表  &&传递过滤条件采用穿透原理
sele &C_tmp_查询库别名
use
erase &c随机文件.