📄 bak.prg
字号:
local lcsys16,mypath
lcsys16=sys(16)
mypath=lower(alltrim(left(lcsys16,rat("\",lcsys16))))
set defa to (mypath)
USE
SET TALK off
SET SAFETY OFF
str1="d:\\保健管理系统数据备份"
IF LEN(ALLTRIM(str1))>1
answer=messageb("确认备份数据库吗?",4+32+256,"信息提示")
IF answer=7
RETURN
ENDIF
IF not directory("&str1")
md &str1 &&创建文件夹
ENDIF
IF UPPER(mypath)=str1
MESSAGEBOX("原路径与目标路径不能为一个!",0+16,"信息提示")
RETURN
ENDIF
COPY FILE *.dbf TO &str1\*.jhzbak
messageb("数据备份完毕!",0+64,"信息提示")
ENDIF
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -