changefile.prg

来自「智能考勤管理系统是我学习别人的一个软件,我主要在搞工业自动化的编程,单片机,PL」· PRG 代码 · 共 53 行

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


 LOCAL AFILES( 1 )
 IF ADIR(AFILES,'考勤统计*.dbf') > 0
    LOCAL I
    FOR I = 1 TO ALEN(AFILES,1)
       IF AT('_白班',AFILES(I,1)) > 0
          SFILE1 = AFILES(I,1)
          SFILE1 = LEFT(SFILE1,AT('.',SFILE1) - 1)
          SFILE2 = STRTRAN(SFILE1,'_白班','_固定班次')
          IF USED(SFILE1)
              USE in &sfile1
          ENDIF 
          IF USED(SFILE2)
              USE in &sfile2
          ENDIF 
          IF FILE(SFILE2 + '.dbf')
             DELETE File SFILE1 + '.dbf'
             DELETE File SFILE1 + '.fpt'
          ELSE 
             RENAME SFILE1 + '.dbf' TO SFILE2 + '.dbf'
             IF FILE(SFILE1 + '.fpt')
                RENAME SFILE1 + '.fpt' TO SFILE2 + '.fpt'
             ENDIF 
          ENDIF 
       ENDIF 
       IF AT('_倒班',AFILES(I,1)) > 0
          SFILE1 = AFILES(I,1)
          SFILE1 = LEFT(SFILE1,AT('.',SFILE1) - 1)
          SFILE2 = STRTRAN(SFILE1,'_倒班','_自动倒班')
          IF USED(SFILE1)
              USE in &sfile1
          ENDIF 
          IF USED(SFILE2)
              USE in &sfile2
          ENDIF 
          IF FILE(SFILE2 + '.dbf')
             DELETE File SFILE1 + '.dbf'
             DELETE File SFILE1 + '.fpt'
          ELSE 
             RENAME SFILE1 + '.dbf' TO SFILE2 + '.dbf'
             IF FILE(SFILE1 + '.fpt')
                RENAME SFILE1 + '.fpt' TO SFILE2 + '.fpt'
             ENDIF 
          ENDIF 
       ENDIF 
    ENDFOR 
 ENDIF 
*