盒子论坛 v2.1

程序为：
procedure Tbfsj.BitBtn4Click(Sender: TObject);
var DataPath: string;
begin
  self.Caption := '正在恢复数据....';
adoconnection1.Close;
adoconnection1.Connected := false;
  OpenDialog1.Filter := '备份文件 (*.back)|*.back|所有文件 (*.*)|*.*'; //设置备份文件后缀
  OpenDialog1.InitialDir := ExtractFileDir(Application.ExeName) + '\backupdata';
  if OpenDialog1.Execute then
    DataPath := OpenDialog1.FileName;
  if DataPath <> '' then
  begin
    if application.MessageBox('此操作将使上次备份以来的所有数据丢失，是否继续？', '恢复数据', MB_OKCANCEL) = idOK then
    begin
      adocommand1.CommandText := 'restore database xscj from disk=''' + DataPath + '''' + ' with replace'; //恢复数据命令语句
        try
          adocommand1.Execute;
          showmessage('    恢复成功！');
        except
       showmessage('数据库正在被使用！请确定已关闭其它使用该数据库序！');
          showmessage('    恢复失败！');
      end;
    end;
  end;
  self.Caption := '数据备份和恢复';
end;
  请大家帮我改改，我等急用。谢谢！！


----------------------------------------------
-

信息

登陆以后才能回复