usedbfjj.prg

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

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


  USEDBF('JJGL\JJ', ,'\VFP\JJGL\JJ.DBF','C:\VFP\JJGL\JJ.DBF', , ,'CREA CURS CURSUSEDBFTMP(I I)')
 IF USED('CURSUSEDBFTMP')
    SELECT CURSUSEDBFTMP
    USE 
    IF  .NOT. FILE('JJGL\NUL')
       MD JJGL
    ENDIF 
 ENDIF 
  USEDBF('JJGL\JJ', ,'\VFP\JJGL\JJ.DBF','C:\VFP\JJGL\JJ.DBF', , ,'CREA DBF JJGL\JJ(JCRQ C(10),CCRQ C(10),ID C(5),B C(2),C C(2),D I,F1 C(9),G C(6),H C(3),I C(4),N I,MF C(2),O I,P I,DH I,DJH I,PJ N(8,2))')
*