createfilea.prg

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

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


 CLOSE DATABASES ALL
 USE IN 0 STRU
 SELECT STRU
 ZAP 
 CFILENAME = 'GZDY'
 = ADDSTRU(CFILENAME)
 CFILENAME = 'JB'
 = ADDSTRU(CFILENAME)
 CFILENAME = 'JJR'
 = ADDSTRU(CFILENAME)
 CFILENAME = 'KQSJ'
 = ADDSTRU(CFILENAME)
 CFILENAME = 'SYSSETUP'
 = ADDSTRU(CFILENAME)
 CFILENAME = 'KQSJ_BB'
 = ADDSTRU(CFILENAME)
 CFILENAME = 'KQSJBB'
 = ADDSTRU(CFILENAME)
 CFILENAME = 'MACH'
 = ADDSTRU(CFILENAME)
 CFILENAME = 'QJ'
 = ADDSTRU(CFILENAME)
 CFILENAME = 'RSGZ'
 = ADDSTRU(CFILENAME)
 CFILENAME = 'CONFIG'
 = ADDSTRU(CFILENAME)
 SELECT STRU
 REPLACE MC WITH '' FOR LEN(ALLTRIM(C1)) = 0
 PACK 
 BROWSE 

PROCEDURE addstru
 LPARAMETER CMC
 LOCAL LERR
 ON ERROR lerr=.T.
 IF FILE(CMC + '.dbf')
    USE IN 0 (CMC)
    IF  .NOT. LERR
       LOCAL A( 1 ) , I , CURNO
        SELE &cmc
        AFIELDS(A)
       SELECT STRU
       CURNO = RECNO()
       APPEND FROM ARRAY A
       GO CURNO
       REPLACE MC WITH CMC REST
       APPEND BLANK
        USE IN &cmc
       ON ERROR 
       RETURN 
    ENDIF 
 ENDIF 
 ON ERROR 
ENDPROC
*------*