dbbackupdesignunit.pas

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

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

unit DBBackupDesignUnit;

interface

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

type
  TDBBackupDesignForm = class(TForm)
    Image2: TImage;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    Label2: TLabel;
    MaskEdit1: TMaskEdit;
    Memo2: TMemo;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Memo3: TMemo;
    Label5: TLabel;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DBBackupDesignForm: TDBBackupDesignForm;

implementation

{$R *.dfm}
uses VariableUnit, DBBackupSetupFinishUnit, NewDBBackupItem;
procedure TDBBackupDesignForm.Button1Click(Sender: TObject);
var
  odir: String;
begin
  if not SelectDirectory('请选择存储位置,数据将备份到指定位置','',odir) then
    exit
  else
    Edit1.Text:= odir;
end;

procedure TDBBackupDesignForm.Button2Click(Sender: TObject);
begin
  if Edit1.Text='' then
    ShowMessage('请选择备份路径！')
  else if MaskEdit1.Text='  :  ' then
    ShowMessage('请设置准确的备份起始时刻！')
  else if (Edit2.Text='') or (StrToFloat(Edit2.Text)<24)then
    ShowMessage('同一天只备份一次，频率必须大于24小时！')
  else
    begin
      path:=Edit1.Text;
      backupTime:=StrToTime(MaskEdit1.Text);
      frequency:=StrToFloat(Edit2.Text);
      DBBackupSetupFinishForm.Show;
      self.Close;
    end;

end;

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

procedure TDBBackupDesignForm.Button4Click(Sender: TObject);
begin
  NewDBBackupForm.Show;
  self.Close;
end;

procedure TDBBackupDesignForm.FormShow(Sender: TObject);
begin
  Edit1.Text:='';
  MaskEdit1.Text:='  :  ';
  Edit2.Text:='';
end;

end.