备份SQL SERVER数据库代码

procedure Tfrm_planmana.N20Click(Sender: TObject);
var
  ado:TADOCommand;
  msg:tfrm_hfdb_list;

begin
//操作员没有些权限
if admin_flag='2' then
begin
MessageBox(handle,'您没有权限进行此操作!','提 示',MB_OK);
exit;
end;
// 确实要备份吗？
if(MessageBox(handle,'确实要备份吗？','提 示',mb_IconInformation+mb_YesNo)=mrno) then exit;
//如果没有这个目录将创建此目录
     
      msg := tfrm_hfdb_list.Create(application);
      //msg.SetMessage('正在备份，可能需要几分钟时间。');
        ado := TADOCommand.Create(nil);
        ado.Connection := dm1.ADOConnection1;
        ado.CommandTimeout := 300;
        //deletefile('d:\工作计划管理软件数据备份\plan_mana');//只能删除本机的文件
        msg.Show;
        application.ProcessMessages;
        //ado.CommandText := 'BACKUP DATABASE plan_mana TO DISK = ''' + SaveDialog1.FileName + '''';
        ado.CommandText := 'BACKUP DATABASE plan_mana TO DISK = ''d:\工作计划管理软件数据备份\plan_mana''';
        msg.Close;
        msg.Free;
        try
          ado.Execute;
        except
          MessageBox(handle,'数据库备份失败','      提 示',MB_OK);
          Exit;
        end;
        ado.Free;
        MessageBox(handle,'操作成功，数据库已备份。','      提 示',MB_OK);

end;