huifu.prg

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

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