SQLSERVER数据库备份/恢复

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit; //IP输入框
    Edit2: TEdit; //数据库用户名
    Edit3: TEdit; //密码
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Label4: TLabel;
    ComboBox1: TComboBox;//选择要操作的数据库下拉框
    Label5: TLabel;
    Edit4: TEdit;
    Button1: TButton;//备份
    Button2: TButton;//恢复
    dbcon: TADOConnection;
    Button3: TButton;//连接数据库
    DBRS: TADOQuery;
    SaveDialog1: TSaveDialog;
    OpenDialog1: TOpenDialog;
    procedure Button3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//登录数据

procedure TForm1.Button3Click(Sender: TObject);
begin
  if dbcon.Connected then
  begin
    Application.MessageBox(PCHAR('服务器已连接，请执行下一步！'),PCHAR(self.caption),MB_OK+MB_ICONERROR);
    exit;
  end;
  if trim(edit1.Text)='' then
  begin
    Application.MessageBox(PCHAR('请输入服务器地址（IP或机器名）！'),PCHAR(self.caption),MB_OK+MB_ICONINFORMATION);
    exit;
  end;
  if trim(edit2.Text)='' then
  begin
    Application.MessageBox(PCHAR('请输入登录用户名！'),PCHAR(self.caption),MB_OK+MB_ICONINFORMATION);
    exit;
  end;
  dbcon.ConnectionString:='Provider=SQLOLEDB.1;Password='+edit3.Text +
       ';Persist Security Info=True;User ID='+trim(edit2.Text )+
       ';Initial Catalog=master;Data Source='+trim(edit1.Text );
  try
    dbcon.open;
    dbrs.SQL.Text :='select  name   from   sysdatabases where dbid>5 order by name';
    dbrs.Open ;
    while not dbrs.Eof do
    begin
      combobox1.Items.Add(dbrs.fieldbyname('name').AsString );
      dbrs.Next;
    end;
    dbrs.Close;
    Application.MessageBox(PCHAR('连接成功，请选择待备份或恢复的数据库!！'),PCHAR(self.caption),MB_OK+MB_ICONINFORMATION);
  except
    Application.MessageBox(PCHAR('连接失败！'),PCHAR(self.caption),MB_OK+MB_ICONERROR);
  end;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  dbrs.Close;
  dbcon.Close;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  dbcon.Close;
  combobox1.Items.Clear ;
end;

//备份功能

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not dbcon.Connected then
  begin
    Application.MessageBox(PCHAR('服务器尚未连接，不能执行备份！'),PCHAR(self.caption),MB_OK+MB_ICONWARNING);
    exit;
  end;
  if combobox1.Text ='' then
  begin
    Application.MessageBox(PCHAR('请选择待备份的数据库！'),PCHAR(self.caption),MB_OK+MB_ICONWARNING);
    exit;
  end;
  SaveDialog1.FileName :=combobox1.Text+formatdatetime('_YYYYMMDD_HHMMSS',now);
  if not SaveDialog1.Execute then exit;
  edit4.Text :=SaveDialog1.FileName ;
  try
    dbcon.Execute('backup database '+combobox1.text+' to disk='+''''+edit4.Text+'''' );
    Application.MessageBox(PCHAR('备份成功！'),PCHAR(self.caption),MB_OK+MB_ICONINFORMATION);
  except
    Application.MessageBox(PCHAR('备份失败！'),PCHAR(self.caption),MB_OK+MB_ICONERROR);
  end;
end;

//恢复功能

procedure TForm1.Button2Click(Sender: TObject);
begin
  if not dbcon.Connected then
  begin
    Application.MessageBox(PCHAR('服务器尚未连接，不能执行恢复！'),PCHAR(self.caption),MB_OK+MB_ICONWARNING);
    exit;
  end;
  if combobox1.Text ='' then
  begin
    Application.MessageBox(PCHAR('请选择待恢复的数据库！'),PCHAR(self.caption),MB_OK+MB_ICONWARNING);
    exit;
  end;
  if not OpenDialog1.Execute then exit;
  edit4.Text :=OpenDialog1.filename;
  try
    dbcon.Execute('restore database '+combobox1.text+' from disk='+''''+edit4.Text+'''' );
    Application.MessageBox(PCHAR('恢复成功！'),PCHAR(self.caption),MB_OK+MB_ICONINFORMATION);
  except
    Application.MessageBox(PCHAR('恢复失败！'),PCHAR(self.caption),MB_OK+MB_ICONERROR);
  end;

end;

end.