createfile.prg

系统主要由考勤机和考勤软件两部分组成

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: 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
*------*