usedbfysrk.prg

通过VFP编程来将数据压缩并存放在软盘内上报

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


  USEDBF('YSGL\YSRK', ,'\VFP\YSGL\YSRK.DBF','C:\VFP\YSGL\YSRK.DBF', , ,'CREA CURS CURSUSEDBFTMP(I I)')
 IF USED('CURSUSEDBFTMP')
    SELECT CURSUSEDBFTMP
    USE 
    IF  .NOT. FILE('YSGL\NUL')
       MD YSGL
    ENDIF 
 ENDIF 
  USEDBF('YSGL\YSRK', ,'\VFP\YSGL\YSRK.DBF','C:\VFP\YSGL\YSRK.DBF', , ,'CREA DBF YSGL\YSRK(ID C(8),RQ C(10),SL I)')
*