folderunit.pas

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

unit FolderUnit;

interface

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

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

var
  FolderForm: TFolderForm;

implementation

{$R *.dfm}
uses
  FolderSizeThreadUnit, TestVarAllUnit, FolderLastModifyThreadUnit,
  FileTestUnit;
procedure TFolderForm.SpeedButton1Click(Sender: TObject);
var
  odir: String;
begin
  if not SelectDirectory('请选择要测试的文件夹','',odir) then
    exit
  else
    Edit1.Text:= odir;
end;

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

procedure TFolderForm.BitBtn1Click(Sender: TObject);
var
  folderSizeThread:TFolderSizeThread;
  folderLastModifyThread:TFolderLastModifyThread;
begin
  FileTestForm.ListBox1.Items.Clear;
  if folderSizeOrSingleModify=0 then
    begin
      folderSizeThread:=TFolderSizeThread.Create(Trim(Edit1.Text),StrToDateTime(Edit2.Text));
      folderSizeThread.Resume;
    end;
  if folderSizeOrSingleModify=1 then
    begin
      folderLastModifyThread:=TFolderLastModifyThread.Create(Trim(Edit1.Text));
      folderLastModifyThread.Resume;
    end;
  self.Close;
end;

procedure TFolderForm.DTPChange(Sender: TObject);
begin
  Edit2.Text:=DateTimeToStr(DTP.DateTime);
end;

end.