delphi 中如何备份数据，带进度条的，希望有人能用上

unit DataBackUp;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ComCtrls, Buttons, StdCtrls, ADODB,StrUtils;typeTfrmDataBack = class(TForm)PageControl1: TPageControl;TabSheet1: TTabSheet;TabSheet2: TTabSheet;spdExit: TBitBtn;Label1: TLabel;Label2: TLabel;Edit1: TEdit;Edit2: TEdit;btnPath: TSpeedButton;Label3: TLabel;ProgressBar1: TProgressBar;btnBackUp: TSpeedButton;ADOCommand1: TADOCommand;StatusBar1: TStatusBar;OpenDialog1: TOpenDialog;Label4: TLabel;Edit3: TEdit;btnChoice: TSpeedButton;Label5: TLabel;ProgressBar2: TProgressBar;btnRestore: TSpeedButton;procedure btnBackUpClick(Sender: TObject);procedure btnPathClick(Sender: TObject);procedure FormShow(Sender: TObject);procedure btnChoiceClick(Sender: TObject);procedure btnRestoreClick(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varfrmDataBack: TfrmDataBack;implementationuses main,myDataSource,GetDirectory;{$R *.dfm}procedure TfrmDataBack.btnBackUpClick(Sender: TObject);vardatabase,myFileName:String;beginif Trim(Edit1.Text)='' thenbeginApplication.MessageBox('备份前请先确定数据库要备份至哪个文件夹！','请确认',MB_OK+MB_IconInformation);Edit1.SetFocus;Exit;end;StatusBar1.SimpleText:= ' 正在备份中...';ProgressBar1.Max := 100;ProgressBar1.Min := 0;ProgressBar1.Position := 0;ProgressBar1.Step := 20;database:='你的数据库名';myFileName:=Trim(Edit1.Text)+Trim(Edit2.Text);Screen.Cursor:=crHourGlass;mDataModule.ADOConnection1.Close;begintryADOCommand1.CommandText := 'use Master';ProgressBar1.StepIt;Application.ProcessMessages;ADOCommand1.Execute;ADOCommand1.CommandText := 'execute sp_helpdevice';ProgressBar1.StepIt;Application.ProcessMessages;ADOCommand1.Execute;ProgressBar1.stepit;ADOCommand1.CommandText := 'backup database ' + database + ' to disk=''' + myFileName + ''' with init';ProgressBar1.StepIt;Application.ProcessMessages;ADOCommand1.Execute;Application.ProcessMessages;ADOCommand1.CommandText := 'Use ' + database;ProgressBar1.StepIt;ADOCommand1.Execute;Application.MessageBox(pchar('数据库已经成功备份到 ' + myFileName + '！可删除以前的备份文件'), '提示', mb_ok + mb_iconinformation);StatusBar1.SimpleText := '';ProgressBar1.Position := 0;trymDataModule.ADOConnection1.Connected := True;exceptbeginStatusBar1.SimpleText := '';application.MessageBox('无法重新接连数据库！', '提示', mb_ok + mb_iconerror);abort;end;end;self.Close;excepton Exception doif mDataModule.ADOConnection1.InTransaction thenmDataModule.ADOConnection1.RollbackTrans;end;end;Screen.Cursor:=crArrow;end;procedure TfrmDataBack.btnPathClick(Sender: TObject);varmyPath:String;beginif frmGetDirectory.ShowModal = mrOk thenbeginmyPath:=Trim(frmGetDirectory.Edit1.Text);if RightStr(myPath,1)='/' thenEdit1.Text:=myPathelseEdit1.Text:=myPath+'/';end;end;procedure TfrmDataBack.FormShow(Sender: TObject);beginPageControl1.ActivePageIndex:=0;Edit1.Text:='';Edit2.Text:='备份' + FormatDateTime('yyyy-mm-dd', frmMain.SysDate)+'.BAK';Edit3.Text:='';StatusBar1.SimpleText:='';end;procedure TfrmDataBack.btnChoiceClick(Sender: TObject);beginwith OpenDialog1 dobeginTitle:='文件选择';if execute thenEdit3.Text:=OpenDialog1.FileName;end;end;procedure TfrmDataBack.btnRestoreClick(Sender: TObject);vardatabase,myFileName:String;beginif Trim(Edit3.Text)='' thenbeginApplication.MessageBox('请确定要恢复的备份文件名！','请确认',MB_OK+MB_IconInformation);Edit3.SetFocus;Exit;end;if Application.MessageBox('请确保无其他程序（如打开了企业管理器），正在使用本数据库，否则，还原无法进行！','请确认',mb_okcancel+mb_iconinformation)=idcancel thenbeginAbort;end;StatusBar1.SimpleText:= ' 正在恢复备份中...';ProgressBar2.Max := 100;ProgressBar2.Min := 0;ProgressBar2.Position := 0;ProgressBar2.Step := 20;database:='工商银行客户管理';myFileName:=Trim(Edit3.Text);tryScreen.Cursor:=crHourGlass;if mDataModule.ADOConnection1.Connected thenmDataModule.ADOConnection1.Close;sleep(1000);ProgressBar2.StepIt;ADOCommand1.CommandText := 'use Master';ADOCommand1.Execute;sleep(600);ProgressBar2.StepIt;adocommand1.CommandText := 'execute sp_helpdevice';adocommand1.Execute;sleep(600);ProgressBar2.stepit;adocommand1.CommandText := 'Restore database ' + database + ' From disk=''' + myFilename + ''' with replace';sleep(600);ProgressBar2.StepIt;tryadocommand1.Execute;exceptbeginraise exception.Create(syserrormessage(getlasterror));abort;end;end;adocommand1.CommandText := 'Use ' + database;sleep(600);ProgressBar2.StepIt;adocommand1.Execute;StatusBar1.SimpleText := '';application.MessageBox(pchar('数据库已经成功还原到数据库 ' + database + '！'), '提示', mb_ok + mb_iconinformation);ProgressBar2.Position := 0;trymDataModule.ADOConnection1.Connected := True;exceptbeginapplication.MessageBox('无法重新接连数据库！', '提示', mb_ok + mb_iconerror);abort;end;end;exceptApplication.MessageBox('有别的程序（如企业管理器）正在使用本数据库，数据无法恢复','提示',MB_OK+MB_IconInformation);end;StatusBar1.SimpleText := '';frmMain.GetReportDate;Screen.Cursor:=crArrow;Self.Close;end;end.

 

【本贴仅代表作者个人意见，版权