usedbfxsbb.prg

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

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


  USEDBF('XSGL\XSBB', ,'\VFP\XSGL\XSBB.DBF','C:\VFP\XSGL\XSBB.DBF', , ,'CREA CURS CURSUSEDBFTMP(I I)')
 IF USED('CURSUSEDBFTMP')
    SELECT CURSUSEDBFTMP
    USE 
    IF  .NOT. FILE('XSGL\NUL')
       MD XSGL
    ENDIF 
 ENDIF 
  USEDBF('XSGL\XSBB', ,'\VFP\XSGL\XSBB.DBF','C:\VFP\XSGL\XSBB.DBF', , ,'CREA DBF XSGL\XSBB(RQ C(10),CJS I,CJE Y,QJS I,QJE Y,YSE Y,DJ Y,WS Y,PJCJ I,DLSL I,DLJE Y,AA I,BB I,CC I,YS I)')
*