unit1.pas

SQL SERVER 数据备份与恢复组件

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, SQLBackup, ComCtrls, Buttons;

type
  TForm1 = class(TForm)
    SQLBackup1: TSQLBackup;
    Button1: TButton;
    ProgressBar1: TProgressBar;
    lbl_12: TLabel;
    lbl_13: TLabel;
    lbl_14: TLabel;
    grp_1: TGroupBox;
    lbl_1: TLabel;
    lbl_11: TLabel;
    rb_Windows: TRadioButton;
    rb_SqlServer: TRadioButton;
    edt_Login: TEdit;
    edt_Password: TEdit;
    edt_File: TEdit;
    edt_Server: TEdit;
    btn_14: TBitBtn;
    OpenDialog1: TOpenDialog;
    edt_DbName: TEdit;
    SQLRestore1: TSQLRestore;
    btn_Back: TButton;
    btn_Restore: TButton;
    procedure SQLBackup1PercentComplete(const Message: String;
      Percent: Integer);
    procedure btn_14Click(Sender: TObject);
    procedure btn_BackClick(Sender: TObject);
    procedure btn_RestoreClick(Sender: TObject);
    procedure SQLRestore1PercentComplete(const Message: String;
      Percent: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SQLBackup1PercentComplete(const Message: String;
  Percent: Integer);
begin
 ProgressBar1.Position:=Percent;
end;

procedure TForm1.btn_14Click(Sender: TObject);
begin
    if OpenDialog1.Execute then
     edt_File.Text:=OpenDialog1.FileName;

end;

procedure TForm1.btn_BackClick(Sender: TObject);
begin
    if edt_File.Text='' then
    begin
        Showmessage('请选择备份文件的路径！');
        exit;
    end;
    SQLBackup1.Server:=edt_Server.Text;
    SQLBackup1.DbName:=edt_DbName.Text;
    if rb_Windows.Checked=true then
        SQLBackup1.Connect
    else
        SQLBackup1.Connect(edt_Login.Text,edt_Password.Text);
    SQLBackup1.SQLBackup(edt_File.Text);
    SQLBackup1.Disconnect;

end;

procedure TForm1.btn_RestoreClick(Sender: TObject);
begin
    if edt_File.Text='' then
    begin
        Showmessage('请选择备份文件的路径！');
        exit;
    end;
    SQLRestore1.Server:=edt_Server.Text;
    SQLRestore1.DbName:=edt_DbName.Text;
    if rb_Windows.Checked=true then
        SQLRestore1.Connect
    else
        SQLRestore1.Connect(edt_Login.Text,edt_Password.Text);
    SQLRestore1.SQLRestore(edt_File.Text);
    SQLRestore1.Disconnect;

end;
 procedure TForm1.SQLRestore1PercentComplete(const Message: String;
  Percent: Integer);
begin
 ProgressBar1.Position:=Percent;
end;


end.