Back up and restore the local SQL Server database

Back up and restore an SQL database
// Data backup can only be used to back up local database servers
String filename = "";
If (SD-> execute ())
{
Filename = SD-> filename;
}
Else
{
Return;
}
Screen-> cursor = crhourglass;
Tadoquery * qrbk = new tadoquery (this );
Qrbk-> connection = DM-> adocon;
Qrbk-> SQL-> text = string ("backup database ERP to disk = '") + filename + String ("'");
Try
{
Qrbk-> execsql ();
}
Catch (...)
{
Delete qrbk;
Qrbk = NULL;
Screen-> cursor = crdefault;
Showmessage (string ("backup failed! /N select different file names! /N original file name: ") + filename );
Return;
}
Delete qrbk;
Qrbk = NULL;
Screen-> cursor = crdefault;
Showmessage (string ("backup successful! /N file name: ") + filename );
// Data recovery
String filename = "";
If (OD-> execute ())
{
Filename = OD-> filename;
}
Else
{
Return;
}
Screen-> cursor = crhourglass;
Tadoquery * qrbk = new tadoquery (this );
Qrbk-> connection = DM-> adocon;
Qrbk-> SQL-> text = string ("use tempdb/n Restore database ERP from disk = '") + filename + String ("'/N use ERP/N ");
Try
{
Qrbk-> execsql ();
}
Catch (...)
{
Delete qrbk;
Qrbk = NULL;
Screen-> cursor = crdefault;
Showmessage (string ("restoration failed! /N please make sure there are no other programs to access this database! /N and restore the file intact! Restore file name: ") + filename );
Return;
}
Delete qrbk;
Qrbk = NULL;
Screen-> cursor = crdefault;
Showmessage (string ("restored successfully! /N file name: ") + filename );