Delphi用SQLDMO实现带进度条的SQL Server数据库备份！

unit Unit3; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,SQLDMO_TLB, StdCtrls, ComCtrls,comobj; type TForm3 = class(TForm) Button1: TButton; ProgressBar1: TProgressBar; procedure Button1Click(Sender: TObject);