exit.prg

来自「酒店IC卡 餐饮娱乐管理系统源代码使用说明」· PRG 代码 · 共 33 行

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


 CLOSE DATABASES 
 SET DEFAULT TO (HOMEDIRECTORY)
 IF  .NOT. FILE(HOMEDIRECTORY + '\dbf\msc.dbf')
    QUIT 
 ENDIF 
 USE dbf\msc
 LOCATE FOR ALLTRIM(CONT) = 'savedate'
 IF FOUND()
    SAVEDATE2 = CTOD(ALLTRIM(DATA))
    IF DATE() - SAVEDATE2 >= 1
       REPLACE DATA WITH DTOC(DATE())
       CLOSE DATABASES 
       WAIT WINDOW AT 18 , 48 NOCLEAR NOWAIT '正在备份数据，请稍候……'
       ERASE bak\*.*
       COPY File dbf\*.* TO bak\*.*
    ENDIF 
 ELSE 
    APPEND BLANK
    REPLACE CONT WITH 'savedate'
    REPLACE DATA WITH DTOC(DATE())
    CLOSE DATABASES 
    IF  .NOT. DIRECTORY(SYS(5) + SYS(2003) + '\bak')
       MD SYS(5) + SYS(2003) + '\bak'
    ENDIF 
 ENDIF 
 QUIT 
*