毕业设计中，做的是档案管理系统，要求有数据库的备份和还原，只会做备份不会做还原，请各位高手指教！
我的备份是这样的：
/*备份的存储过程*/
CREATE proc Gsp_backup_hy
(
 @vlocate     varchar(50) output,
 @vjg varchar(12) output
)
as
declare @vcday char(1),@x varchar(100), @vbacklocate varchar(50)
begin
  select @x=backpath from Archives_SYSSETUP
  select @vcday=convert(char(1),(datepart(dw,getdate()-1)))
  select @vbacklocate=@x+'\dagl'+@vcday+'.dmp'
  select @vlocate=@vbacklocate
  dump database DAGL to disk=@vbacklocate with INIT
  if @@error=0
     select @vjg='ok'
  else select @vjg='error'
  print @vlocate
  print @vjg
  update Archives_SYSSETUP set backtime=getdate()
end
GO
在Delphi中的程序是：
procedure Tmainform.S_backupClick(Sender: TObject);
var
        jg: string;
        sp:Tinfo_form;
begin
        if application.MessageBox('数据库是否需要备份?','注意',MB_YESNO)=6 then
        begin
          screen.cursor:=crHourGlass;
          sp:=Tinfo_form.Create(self);
          sp.makesplash('正在数据库备份,请稍侯...');
          with dm_tb.Gsp_backup_hy do
          begin
          close;
          execproc;
          jg:=Parameters.parambyname('@vjg').value;
          if jg<>'ok' then
          begin
          application.messagebox('数据库备份失败','提示',0);
          exit;
          end;

          end;
          sp.close;
          screen.cursor:=crDefault;
        end;

end;
数据库的还原我就不会了，请指教啊，谢谢！
我的邮箱是：liaopengcheng123456@yahoo.com.cn