sqlserver备份 如何显示状态条
用sqlserver客户端备份数据库有状态条显示，
procedure TFrmMain.NSystBackupClick(Sender: TObject);
var strFile:string;
begin
// 数据库备份
SaveDlgData.Filter:= 'All files (*.*)|*.* ';
SaveDlgData.FileName:= 'DataBack '+DateToStr(now);

if SaveDlgData.Execute then
begin
strFile:=SaveDlgData.FileName;
DataModuleMain.ADOQBack.Close;
DataModuleMain.ADOQBack.SQL.Clear;
DataModuleMain.ADOQBack.SQL.Add( 'backup database asSafeRailPort to disk= ' ' '+strFile+ ' ' ' ');

try
DataModuleMain.ADOQBack.ExecSQL;

Application.MessageBox(pchar( '数据库已经备份到 '+strFile+ '! '), '提示 ',MB_OK+MB_ICONINFORMATION );

except
Application.MessageBox( '文件写入错误！ ', '错误 ',MB_OK+MB_ICONERROR );
end;

end;
end;
这段程序直接备份数据库是可以的，但是怎样让他显示出那个状态条呢

[解决办法]
有接口的
网上搜一下，很多的
[解决办法]
SQLDOM