foldercopyunit.pas

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

unit FolderCopyUnit;

interface

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

type
  TFolderCopyForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label3: TLabel;
    Edit3: TEdit;
    DTP: TDateTimePicker;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure DTPChange(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FolderCopyForm: TFolderCopyForm;

implementation

{$R *.dfm}
uses
  FileTransferThreadUnit, FileTestUnit;
procedure TFolderCopyForm.DTPChange(Sender: TObject);
begin
  edit3.Text:=DateTimeToStr(DTP.DateTime);
end;

procedure TFolderCopyForm.SpeedButton1Click(Sender: TObject);
var
  odir: String;
begin
  if not SelectDirectory('请选择要测试的源地址','',odir) then
    exit
  else
    Edit1.Text:= odir;
end;

procedure TFolderCopyForm.SpeedButton2Click(Sender: TObject);
var
  odir: String;
begin
  if not SelectDirectory('请选择要测试的目的地址','',odir) then
    exit
  else
    Edit2.Text:= odir;
end;

procedure TFolderCopyForm.BitBtn1Click(Sender: TObject);
var
  fileTransferThread:TFileTransferThread;
begin
  FileTestForm.ListBox1.Items.Clear;
  fileTransferThread:=TFileTransferThread.Create(Edit1.Text,Edit2.Text,StrToDateTime(Edit3.Text));
  fileTransferThread.Resume;
  self.Close;
end;

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

end.