//下面代碼針對sqlserver的 Q是AdoQuery 組件
//備份
var sql:String;
begin
if (filename.Text='') then
begin
Application.MessageBox('請選擇文件','提示',MB_ICONWARNING);
exit;
end;
sql:='BACKUP DATABASE "mao" TO DISK ='''+filename.Text+''' with init';
Q.SQL.Text:=sql;
q.ExecSQL;
Application.MessageBox('數據庫備份成功','提示',MB_ICONWARNING);
end;

//還原
var sql:String;
begin
if (fname.Text='') then
begin
Application.MessageBox('請選擇文件','提示',MB_ICONWARNING);
exit;
end;
Q.SQL.Text:='use master';
Q.ExecSQL;
sql:='RESTORE DATABASE "mao" FROM DISK='''+fname.Text+'''';
Q.SQL.Text:=sql;
q.ExecSQL;
Q.SQL.Text:='Use mao';
Q.ExecSQL;
Application.MessageBox('數據庫還原成功','提示',MB_ICONWARNING);