newdbbackupitem.pas

软件可自动完成SQL Server数据库和文档的数据定时自动备份

//*-----------------------------------------------------------------------------
//*  系统名称：数据自动备份系统
//*  作    者：陈春华
//*  开发时间：2005
//*  Windows2000 Server + SQL Server2000 + Delphi7
//*  功能简介：
//*              软件可自动完成SQL Server数据库和文档的数据定时自动备份，
//*          由用户选择对哪些数据库或文档进行数据备份，提供对备份、还原
//*          数据作业的管理、分析、日志跟踪等功能，备份频率不受限制。
//*-----------------------------------------------------------------------------

unit NewDBBackupItem;

interface

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

type
  TNewDBBackupForm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Image1: TImage;
    Image2: TImage;
    ComboBox1: TComboBox;
    Label5: TLabel;
    Image3: TImage;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  NewDBBackupForm: TNewDBBackupForm;

implementation

{$R *.dfm}
uses
  SqlFunctionUnit, VariableUnit, DBBackupDesignUnit;

procedure TNewDBBackupForm.Button1Click(Sender: TObject);
var
  conn: TADOConnection;
  query: TADOQuery;
  sqlStr: String;
begin
  try
    try
      conn:= TADOConnection.Create(nil);
      conn.LoginPrompt:=False;
      ConnectToSqlServer(Edit4.Text, Edit3.Text, Edit2.Text, 'master', conn);
      query:=TADOQuery.Create(nil);
      query.Connection:=conn;
      sqlStr:='select * from sysdatabases';
      ExecuteSQLPro(sqlStr,0,query);
      ComboBox1.Enabled:=True;
      Button2.Enabled:=True;
      ComboBox1.Items.Clear;
      while not query.Eof  do
        begin
          ComboBox1.Items.Add(query.fieldbyname('name').AsString);
          query.Next;
        end;
      label6.Caption:='服务器连接成功！';
    except
      label6.Caption:='服务器无法连接！请检查用户和密码！';
    end;
  finally
    query.Close;
    conn.Close;
    query.Free;
    conn.Free;
  end;

end;

procedure TNewDBBackupForm.Button3Click(Sender: TObject);
begin
  close;
end;

procedure TNewDBBackupForm.FormShow(Sender: TObject);
begin
  label6.Caption:='-----------------------------------------------------------------------------------------------------------';
  Edit1.Text:='';
  Edit2.Text:='';
  Edit3.Text:='';
  Edit4.Text:='';
  ComboBox1.Text:='';
  ComboBox1.Items.Clear;
  ComboBox1.Enabled:=False;
  Button2.Enabled:=False;
end;

procedure TNewDBBackupForm.Button2Click(Sender: TObject);
begin
  if Edit1.Text='' then
    showMessage('项目名称不能为空！')
  else  if ComboBox1.Text='' then
    showMessage('请指定要备份的数据库！')
  else
    begin
      itemName:=Edit1.Text;
      serverName:=Edit2.Text;
      userName:=Edit3.Text;
      pwsd:=Edit4.Text;
      DBName:=ComboBox1.Text;
      DBBackupDesignForm.Show;
      self.Close;
    end;
end;

end.