bak.prg

用vfp语言设计的保健管理系统源码

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