备份数据.prg

通用题库组卷系统 1.本来是一个学生的本科毕业课题

*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\main"
do form 万能压缩备份 with C_bk_标题,C_bk_目标路径,C_bk_项目名称,C_bk_源路径