备份系统.prg

来自「通用题库组卷系统 1.本来是一个学生的本科毕业课题」· PRG 代码 · 共 15 行

*para C_bk_标题,C_bk_目标路径,C_bk_项目名称,C_bk_源路径
close data
***************************把检查口令语句放到外面来，使压缩模块独立性更好
pub检测口令=.f.
do form 回答口令
if .not. pub检测口令
  return .f.
endif
***************************把检查口令语句放到外面来结束
C_bk_标题="银行系统系统资料备份"
c_bk_目标路径="C"
C_bk_项目名称="银行系统系统备份"  &&这时备份存盘时的目录名称
C_bk_源路径="data\system"
do form 万能压缩备份 with C_bk_标题,C_bk_目标路径,C_bk_项目名称,C_bk_源路径