usedbfyx.prg

我自己用VFP编写的查看指定数据库中的相关数据的程序供大家参考

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


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