createfile.prg

来自「智能化考勤系统,请大家多多指教...我是菜鸟.以会更加努力学习」· PRG 代码 · 共 59 行

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


 CLOSE DATABASES ALL
 CFILENAME = 'GZDY'
 = CREFILE(CFILENAME)
 CFILENAME = 'JB'
 = CREFILE(CFILENAME)
 CFILENAME = 'JJR'
 = CREFILE(CFILENAME)
 CFILENAME = 'KQSJ'
 = CREFILE(CFILENAME)
 CFILENAME = 'SYSSETUP'
 = CREFILE(CFILENAME)
 CFILENAME = 'KQSJ_BB'
 = CREFILE(CFILENAME)
 CFILENAME = 'KQSJBB'
 = CREFILE(CFILENAME)
 CFILENAME = 'MACH'
 = CREFILE(CFILENAME)
 CFILENAME = 'QJ'
 = CREFILE(CFILENAME)
 CFILENAME = 'RSGZ'
 = CREFILE(CFILENAME)
 IF  .NOT. USED('rsgz')
    USE IN 0 rsgz
 ENDIF 
 SELECT RSGZ
 IF FSIZE('班次') = 0
    ALTER TABLE rsgz ADD COLUMN 班次 C ( 10 )
 ENDIF 
 USE IN RSGZ
 CFILENAME = 'CONFIG'
 = CREFILE(CFILENAME)
 CLOSE DATABASES ALL

PROCEDURE crefile
 LPARAMETER CMC
 LOCAL LERR
 ON ERROR lerr=.T.
 IF FILE(CMC + '.dbf')
    USE IN 0 (CMC)
    IF  .NOT. LERR
        USE IN &cmc
       ON ERROR 
       RETURN 
    ENDIF 
 ENDIF 
 LOCAL A( 1 )
 SELECT * WHERE MC == CMC INTO ARRAY A FROM STRU
 IF _TALLY > 0
     CREATE TABLE &cmc FROM ARRAY a
 ENDIF 
 ON ERROR 
ENDPROC
*------*