/备份//
procedure TForm18.BitBtn1Click(Sender: TObject);
begin
adoquery1.Close;
try
with adoquery1 do
begin
close;
sql.Clear;
sql.add('backup database mdf to disk=''c:/back1.bak''');
execsql;
end;
showmessage('备份完成');
except
on e:exception do
showmessage('备份失败');
end;
end;
///还原///
procedure TForm18.BitBtn2Click(Sender: TObject);
begin
adoquery1.Close;
try
with adoquery1 do
begin
close;
sql.Clear;
sql.add('restore database mdf from disk=''c:/back1.bak''');
execsql;
end;
showmessage('还原成功');
except
on e:exception do
showmessage('还原失败');
end;
end;
