filetestunit.pas

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

unit FileTestUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, StdCtrls, ExtCtrls, Buttons, WinSkinData;

type
  TFileTestForm = class(TForm)
    MainMenu1: TMainMenu;
    F1: TMenuItem;
    T1: TMenuItem;
    X1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    Z1: TMenuItem;
    L1: TMenuItem;
    C1: TMenuItem;
    E1: TMenuItem;
    D1: TMenuItem;
    H1: TMenuItem;
    A1: TMenuItem;
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    Splitter1: TSplitter;
    ListBox1: TListBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SkinData1: TSkinData;
    procedure Z1Click(Sender: TObject);
    procedure L1Click(Sender: TObject);
    procedure C1Click(Sender: TObject);
    procedure E1Click(Sender: TObject);
    procedure D1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure X1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FileTestForm: TFileTestForm;

implementation

uses SingleUnit, TestVarAllUnit, FolderUnit, FolderCopyUnit,
  SingleTransferUnit;

{$R *.dfm}

procedure TFileTestForm.Z1Click(Sender: TObject);
begin
  singleSizeOrSingleModify:=0;
  SingleForm.Caption:='测试单个文件的大小';
  SingleForm.ShowModal;
end;

procedure TFileTestForm.L1Click(Sender: TObject);
begin
  singleSizeOrSingleModify:=1;
  SingleForm.Caption:='测试单个文件的最后一次修改时间';
  SingleForm.ShowModal;
end;

procedure TFileTestForm.C1Click(Sender: TObject);
begin
  folderSizeOrSingleModify:=0;
  FolderForm.Caption:='文件夹中所有文件的大小测试';
  FolderForm.Edit2.Enabled:=True;;
  FolderForm.DTP.Enabled:=True;
  FolderForm.ShowModal;
end;

procedure TFileTestForm.E1Click(Sender: TObject);
begin
  folderSizeOrSingleModify:=1;
  FolderForm.Caption:='文件夹中所有文件最近一次修改时间测试';
  FolderForm.Edit2.Enabled:=False;
  FolderForm.DTP.Enabled:=False;
  FolderForm.ShowModal;
end;

procedure TFileTestForm.D1Click(Sender: TObject);
begin
  FolderCopyForm.ShowModal;
end;

procedure TFileTestForm.N3Click(Sender: TObject);
begin
  SingleTransferForm.ShowModal;
end;

procedure TFileTestForm.X1Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TFileTestForm.SpeedButton1Click(Sender: TObject);
begin
  Z1.Click;
end;

procedure TFileTestForm.SpeedButton2Click(Sender: TObject);
begin
  L1.Click;
end;

procedure TFileTestForm.SpeedButton3Click(Sender: TObject);
begin
  C1.Click;
end;

procedure TFileTestForm.SpeedButton4Click(Sender: TObject);
begin
  E1.Click;
end;

procedure TFileTestForm.SpeedButton5Click(Sender: TObject);
begin
  N3.Click;;
end;

procedure TFileTestForm.SpeedButton6Click(Sender: TObject);
begin
  D1.Click;
end;

end.