* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: USEDBFYSDHKC.PRG <-- 本文件由 UnFoxAll 創建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


  USEDBF('YSGL\DHKC', ,'\VFP\YSGL\DHKC.DBF','C:\VFP\YSGL\DHKC.DBF', , ,'CREA CURS CURSUSEDBFTMP(I I)')
 IF USED('CURSUSEDBFTMP')
    SELECT CURSUSEDBFTMP
    USE 
    IF  .NOT. FILE('YSGL\NUL')
       MD YSGL
    ENDIF 
 ENDIF 
  USEDBF('YSGL\DHKC', ,'\VFP\YSGL\DHKC.DBF','C:\VFP\YSGL\DHKC.DBF', , ,'CREA DBF YSGL\DHKC(ID C(8),MC C(22),GG C(6),DW C(4),M I,QCS I,O I,XS I,DB I,TH I,KC I,O1 I,BHS I,JJJE N(8,2),PJ N(8,2))')
*