delphi 数据库还原问题？

Question

screen.Cursor :=crhourglass;//设置备份中鼠标的样式
show_lb.Visible :=true;//提示文本显示出来
show_lb.Update ;//更新提示文本的显示
adocommand1.CommandText:='';
adocommand1.CommandText:='restore database  warehouse  from disk =:path  ';
adocommand1.Parameters.ParamByName('path').Value :=trim(restore_path.Text);
adocommand1.Execute ;//执行恢复命令show_lb.Visible :=false;//恢复完毕提示文本隐藏
show_lb.Update ;
application.MessageBox('恢复完毕!','提示:',mb_ok);
screen.Cursor :=crdefault;//恢复完毕鼠标返回原来样式提示错误：因为数据库正在使用，所以未能获得对数据库的排他访问权，这么解决啊？

Answer 1

use master alter database DB set offline WITH ROLLBACK IMMEDIATE

Answer 2

对，是做一个MIS系统的毕业设计