usedbfjp.prg

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

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


  USEDBF('JPGL\JP', ,'\VFP\JPGL\JP.DBF','C:\VFP\JPGL\JP.DBF', , ,'CREA CURS CURSUSEDBFTMP(I I)')
 IF USED('CURSUSEDBFTMP')
    SELECT CURSUSEDBFTMP
    USE 
    IF  .NOT. FILE('JPGL\NUL')
       MD JPGL
    ENDIF 
 ENDIF 
  USEDBF('JPGL\JP', ,'\VFP\JPGL\JP.DBF','C:\VFP\JPGL\JP.DBF', , ,'CREA DBF JPGL\JP(DJH C(6),JCRQ C(10),CCRQ C(10),B C(3),D I,MODEL C(10),F I,F1 I,M I,MF C(2),LRY C(8),DH I,L1 N(8,2),L N(8,2),O I,P I)')
*