{
有一点要说明的是,备份与恢复,都只能在装有数据库的那台机器(服务器)上操作,不能远程执行的。要特别注意这点。
}
procedure TForm1.Button10Click(Sender: TObject);
begin
if IDYES=MessageDlg('数据库备份功能只能在服务器上执行,请先确认计算机是要备份的服务器,是否现在进行备份?',mtConfirmation ,[mbYes,mbNo],0) then
begin
if SaveDialog1.Execute then
begin
showmessage('正在备份,可能需要几分钟时间。');
if (not FileExists(SaveDialog1.FileName)) or (DeleteFile(SaveDialog1.FileName)) then
begin
application.ProcessMessages;
try
FDConnection1.ExecSQL('BACKUP DATABASE data TO DISK = ''' + SaveDialog1.FileName + '''');
except
ShowMessage('数据库备份失败');
Exit;
end;
ShowMessage('操作成功,系统数据库已备份。'+chr(13)+chr(13)
+'备份文件:'+SaveDialog1.FileName);
e