📄 exit.prg
字号:
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
* 文件名: 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
*
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -