📄 huifu.prg
字号:
local lcsys16,mypath,npath,answer
lcsys16=sys(16)
mypath=lower(alltrim(left(lcsys16,rat("\",lcsys16))))
set defa to (mypath)
SET TALK OFF
SET SAFETY OFF
answer=messageb("为保证数据的完整性,在恢复完毕后本系统将关闭,继续吗?",4+32+256,"信息提示")
IF answer=7
RETURN
ENDIF
IF 1=1
COPY FILE d:\\保健管理系统数据备份\*.jhzbak TO &mypath\*.dbf
messageb("数据恢复成功!按『确定』键后,系统将关闭......",0+64,"信息提示")
CLEAR EVENTS
ELSE
messageb("数据恢复失败,请确认所选定的文件夹中是否有备份数据!",0+64,"信息提示")
ENDIF
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -