appinit.prg

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

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


 CLOSE DATABASES ALL
 USE IN 0 qj
 SELECT QJ
 DELETE TAG ALL
 PACK 
 IF FSIZE('zl') <> 10
    ALTER TABLE qj ALTER COLUMN ZL C ( 10 )
 ENDIF 
 INDEX ON KH + RQ TAG KH
 INDEX ON RQ + KH TAG RQ
 USE IN 0 rsgz
 SELECT RSGZ
 DELETE TAG ALL
 PACK 
 IF FSIZE('bh') = 0
    ALTER TABLE rsgz ADD COLUMN BH C ( 9 )
 ENDIF 
 IF TYPE('bh') <> 'C'
    ALTER TABLE rsgz ALTER COLUMN BH C ( 9 )
 ENDIF 
 INDEX ON BH TAG BH
 INDEX ON KH TAG KH
 INDEX ON XM TAG XM
 INDEX ON BM TAG BM
 INDEX ON BC TAG BC
 INDEX ON SEL TAG SEL
 USE IN 0 kqsj
 SELECT KQSJ
 IF FSIZE('XXSJ') = 0
    COPY TO tmp
    USE IN KQSJ
    DELETE File kqsj.DBF
    DELETE File kqsj.CDX
    SELECT * WHERE MC == 'KQSJ' INTO ARRAY A FROM STRU
    IF _TALLY > 0
       CREATE TABLE kqsj FROM ARRAY A
    ENDIF 
    APPEND FROM tmp
 ENDIF 
 DELETE TAG ALL
 PACK 
 INDEX ON MC TAG MC
 INDEX ON SJD TAG SJD
 INDEX ON SEL TAG SEL
 USE IN 0 kqsjbb
 SELECT KQSJBB
 IF FSIZE('mc') <> 20
    ALTER TABLE kqsjbb ALTER MC C ( 20 )
 ENDIF 
 DELETE TAG ALL
 PACK 
 INDEX ON MC TAG MC
 USE IN 0 kqsj_bb
 SELECT KQSJ_BB
 IF FSIZE('XX1') = 0 .OR. FSIZE('XX2') = 0 .OR. FSIZE('XX3') = 0
    COPY TO tmp
    USE IN KQSJ_BB
    DELETE File kqsj_bb.DBF
    DELETE File kqsj_bb.CDX
    SELECT * WHERE MC == 'KQSJ_BB' INTO ARRAY A FROM STRU
    IF _TALLY > 0
       CREATE TABLE kqsj_bb FROM ARRAY A
    ENDIF 
    APPEND FROM tmp
 ENDIF 
 DELETE TAG ALL
 PACK 
 INDEX ON RQ TAG RQ
 USE IN 0 jjr
 SELECT JJR
 DELETE TAG ALL
 PACK 
 INDEX ON RQ TAG RQ
 USE IN 0 MACH
 SELECT MACH
 DELETE TAG ALL
 PACK 
 INDEX ON BH TAG BH
 USE IN 0 config
 SELECT CONFIG
 DELETE TAG ALL
 DELETE FOR RECNO() > 1
 PACK 
 GO TOP
 IF EOF()
    APPEND BLANK
    REPLACE MM WITH '' , CXK WITH 1
 ENDIF 
 IF FSIZE('gzsj') = 0
    ALTER TABLE config ADD COLUMN GZSJ N ( 4 , 1 )
 ENDIF 
 CLOSE DATABASES ALL
 IF USED('TMP')
    USE IN TMP
 ENDIF 
 DELETE File tmp.DBF
*