在delphi中怎么实现数据库备份和恢复(100分)

请问各位高手：
我在delphi中应当如何做?怎么备份和恢复sql_server2000中的数据库。越简单越好。
谢谢.

就用SQL语句啊：backup database....restore database...

procedure Tdatasetting.FlatButton1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('backup database hrdb to disk = ' + ''''+FlatEdit1.Text+'''');
ADOQuery1.ExecSQL;
showmessage('数据以成功备份成功！');
datasetting.Close;
end;

procedure Tdatares.FlatButton1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('restore database hrdb from disk = ' + ''''+FlatEdit1.Text+'''');
ADOQuery1.ExecSQL;
showmessage('数据以成功恢复成功！');
datares.Close;
end;

简单：）

SqlServer? Query
备份如上
backup database name to 备份文件
恢复
要先连接master
再restore database name to 备份文件

谢谢

我备份的已经实现，但恢复数据库总是报“数据库正在使用”的错误，我是用"sa"的
用户名登录进行操作的。烦烦烦。。。

请问怎么连上master啊？