wj.prg

来自「使用VFP编写的信用社系统专用会计报表系统,可上报,汇总,打印.是一款优秀的信用」· PRG 代码 · 共 32 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: WJ.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-



PROCEDURE wj
 PARAMETER DATNAME , M_BH
 SELECT 0
 USE lib\BLK.dat
 COPY TO t001 STRUCTURE EXTENDED 
 SELECT 0
 USE t001
 ZAP 
 SELECT FIELD_NAME , FIELD_TYPE , FIELD_LEN , FIELD_DEC WHERE BH = (M_BH) INTO TABLE tmp  ;
      FROM blk
 SELECT T001
 APPEND FROM tmp
  CREATE dat\&datname FROM t001.dbf
 USE 
  rena dat\&datname..dbf to dat\&datname..dat
 USE 
 SELECT TMP
 USE 
 SELECT BLK
 USE 
 DELETE File t001.dbf
 DELETE File tmp.dbf
 RETURN 
ENDPROC
*------*