请问如何能返回正确路径???

aa20000 2017-02-12 02:07:35
出现问题的代码如下:
=======================================================
procedure TForm5.SpeedButton13Click(Sender: TObject);
var
MBWJ,HYWJ:string;
Data : String;
begin
IF not FileExists(Edit10.Text) then //检查还原数据库的目标文件是否存在
begin
showmessage('请选择要还原的备份文件');
exit;
end;
if application.MessageBox('确认要还原吗,建议先备份当前数据?','提示',mb_okcancel)=idok then
begin

MBWJ:=Edit10.Text; //用来还原数据库的备份文件路径
HYWJ:=Edit11.Text; //系统当前数据库的路径
TRY
//======================
FORM6.Timer1.Enabled:=true;
FORM6.Label1.Caption:='正在恢复数据,请稍候. . . . . . ';
FORM6.DATABACKUP:=2;
FORM6.Update;
//==========================
CopyFile(PChar(MBWJ), PChar(HYWJ), FALSE); //把之前备份的文件覆盖当前的数据库
//===============
FORM6.Show;
FORM6.Update;
FORM6.BACKUPPBAR(MBWJ,HYWJ);
//==================
showmessage('成功恢复!系统5秒后重新进入!');
WinExec('restart.exe',1);
Application.Terminate;
except
showmessage('恢复数据失败,请重试!');
end;
end;
end;
//========================================================

以上代码运行之前路径是形式: 【C:\Users\AAAAAA\BBBBBB\DATA\XXXXXX.DAT】 (XXXXXX.DAT是数据库文件)。

但当运行备份数据库之后,路径竟变成了【C:\Users\AAAAAA\BBBBBB\备份目录\DATA\XXXXXX.DAT】。

现在问:如何返回备份之前的路径呢?
...全文
603 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
lyhoo163 2017-02-13
  • 打赏
  • 举报
回复
请贴出 FORM6.Update; FORM6.BACKUPPBAR(MBWJ,HYWJ); 代码。
santiaodahan 2017-02-12
  • 打赏
  • 举报
回复
单步调试。留意是不是相对路径导致的。

2,498

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧