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隨機文件.