【Delphi学习】关于SQL Server 2008的数据备份及还原

这段时间做课设，就数据还原这部分搞了两天也没能成功还原数据，网上好多方法都试过，虽说能够运行成功，但是数据就是恢复不了。希望遇到这个问题的朋友可以看看。

数据备份：

窗体设计：

 右边那个为：savedialog组件

按钮设计：

// 选择备份位置

procedure TForm24.Button1Click(Sender: TObject);
begin
  inherited;
  SaveDialog1.Title:='请选择数据备份位置';
  if SaveDialog1.Execute then
    Edit1.Text:=SaveDialog1.FileName;
end;

// 备份

procedure TForm24.Button2Click(Sender: TObject);
begin
 inherited;
  if Trim(Edit1.Text)='' then Exit;
  try
    // F_dm 为数据模块窗口，back为ADOCommand组件
    F_dm.back.CommandText:='backup database 商品进货管理系统 to disk='+''''+Trim(Edit1.Text)+'''';
    F_dm.back.Execute;
    Application.MessageBox('备份数据成功','提示',mb_ok);
    Close;
  except
    Application.MessageBox('备份数据失败','提示',mb_ok);
  end;
end;

数据恢复：

窗口设计：

     右边那个为opendialog组件

按钮设计：

// 选择文件

procedure TForm25.Button1Click(Sender: TObject);
begin
  inherited;
  Opendialog1.Title:='请选择数据恢复文件';
  if Opendialog1.Execute then
    Edit1.Text:=Opendialog1.FileName;
end;

// 还原

procedure TForm25.Button2Click(Sender: TObject);
begin
  inherited;
  if Application.MessageBox('恢复前请先备份，是否开始恢复？','提示',mb_yesno)=id_no then
    Exit;
  if Trim(Edit1.Text)='' then Exit;
  try
    try
      // 要先关闭数据库
      F_dm.back.CommandText:='use master alter database 商品进货管理系统 set offline with rollback immediate';
      F_dm.back.Execute;
      // 还原数据库
      F_dm.back.CommandText:='use master restore database 商品进货管理系统 from disk='+''''+Trim(Edit1.Text)+''''+'with replace, move ''商品进货管理系统'' to ''C:\Program Files (x86)\Microsoft SQL Server\MSSQL.1\MSSQL\DATA\商品进货管理系统.mdf'',move ''商品进货管理系统_log'' to ''C:\Program Files (x86)\Microsoft SQL Server\MSSQL.1\MSSQL\DATA\商品进货管理系统_log.ldf''';
      F_dm.back.Execute;
      Application.MessageBox('恢复数据成功','提示',mb_ok);
    finally
      // 打开数据库
      F_dm.back.CommandText:='alter database 商品进货管理系统 set online with rollback immediate';
      F_dm.back.Execute;
      // 用设置当前数据库为需要的，不然很容易找不到字段
      F_dm.back.CommandText:='use 商品进货管理系统';
      F_dm.back.Execute;
      Application.MessageBox('请重新启动程序','提示',mb_ok);
      application.Terminate;
    end;
  except
    Application.MessageBox('恢复数据失败','提示',mb_ok);
  end;
end;