//*-----------------------------------------------------------------------------
//*  系統(tǒng)名稱：數(shù)據(jù)自動備份系統(tǒng)
//*  作    者：陳春華
//*  開發(fā)時間：2005
//*  Windows2000 Server + SQL Server2000 + Delphi7
//*  功能簡介：
//*              軟件可自動完成SQL Server數(shù)據(jù)庫和文檔的數(shù)據(jù)定時自動備份，
//*          由用戶選擇對哪些數(shù)據(jù)庫或文檔進(jìn)行數(shù)據(jù)備份，提供對備份、還原
//*          數(shù)據(jù)作業(yè)的管理、分析、日志跟蹤等功能，備份頻率不受限制。
//*-----------------------------------------------------------------------------

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('請選擇存儲位置,數(shù)據(jù)將備份到指定位置','',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('請設(shè)置準(zhǔn)確的備份起始時刻！')
  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.