SQL备份

备份：
backupsql := 'backup database TBdate to disk = ''' + FormBackupData.BackupPath.Text + FormBackupData.BackupName.Text + '.bak''with Init';

 try
 with dm.qrymain do
 begin
   dm.qrymain.Close;
   dm.qrymain.SQL.Clear;
   dm.qrymain.SQL.Add(backupsql);
   dm.qrymain.ExecSQL;
 end;                                                        
   FormBackupData.BackUpInfo.Text := '';
   if application.MessageBox('备份成功！','系统提示！',mb_ok+mb_iconinformation) = Id_ok then
   begin
     FormBackUpData.Close;
   end;
 except
   On e: exception do
   application.MessageBox('备份失败！','系统提示！',mb_ok+mb_iconinformation);
end;

数据库还原：
RestoreSql := 'use Master';
 dm.qryRestoreData.Close;
 dm.qryRestoreData.SQL.Clear;
 dm.qryRestoreData.SQL.Add(RestoreSql);
 dm.qryRestoreData.Prepared;
 dm.qryRestoreData.ExecSQL;

 AlterSql := 'Alter DATABASE TBDate SET OFFLINE WITH ROLLBACK IMMEDIATE';
 dm.qryRestoreData.Close;
 dm.qryRestoreData.SQL.Clear;
 dm.qryRestoreData.SQL.Add(AlterSql);
 dm.qryRestoreData.ExecSQL;

 //dm.qryRestoreData.ExecSQL;
 RestoreSql := 'restore database TBDate from disk = ''' + Formrestoredata.RestoreFileName.Text  + '''';
 dm.qryRestoreData.Close;
 dm.qryRestoreData.SQL.Clear;
 dm.qryRestoreData.SQL.Add(RestoreSql);
 dm.qryRestoreData.Prepared;
 try
   dm.qryRestoreData.ExecSQL;
   FormRestoreData.Wait.Text := '';        
   if application.MessageBox('还原成功！','系统提示！',mb_ok+mb_iconinformation) = id_ok then
   begin
     FormRestoreData.Close;
   end;
 except
   On e: exception do
   application.MessageBox('还原失败！','系统提示！',mb_ok+mb_iconinformation);
 end;

 AlterSql := 'Alter DATABASE TBDate SET ONLINE WITH ROLLBACK IMMEDIATE';
 dm.qryRestoreData.Close;
 dm.qryRestoreData.SQL.Clear;
 dm.qryRestoreData.SQL.Add(AlterSql);
 dm.qryRestoreData.ExecSQL;

 RestoreSql := 'use TBDate';
 Dm.qryRestoreData.Close;
 dm.qryRestoreData.SQL.Clear;
 dm.qryRestoreData.SQL.Add(RestoreSql);
 dm.qryRestoreData.ExecSQL;