backup.~pas

通过此软件可方便的对interbase数据库进行合并

unit backup;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  FileCtrl, StdCtrls, LMDBaseLabel, LMDCustomSimpleLabel, LMDSimpleLabel,
  LMDControl, LMDBaseControl, LMDBaseGraphicControl, LMDGraphicControl,
  LMDFill, ComCtrls, LMDCustomButton, LMDButton, LMDCustomComponent,
  LMDFileCtrl;

type
  Tbackupform = class(TForm)
    GroupBox1: TGroupBox;
    DirectoryListBox1: TDirectoryListBox;
    DriveComboBox1: TDriveComboBox;
    FileListBox1: TFileListBox;
    FilterComboBox1: TFilterComboBox;
    Edit1: TEdit;
    LMDFill1: TLMDFill;
    LMDSimpleLabel1: TLMDSimpleLabel;
    GroupBox2: TGroupBox;
    DirectoryListBox2: TDirectoryListBox;
    DriveComboBox2: TDriveComboBox;
    Animate1: TAnimate;
    LMDButton1: TLMDButton;
    LMDFileCtrl1: TLMDFileCtrl;
    procedure LMDButton1Click(Sender: TObject);
    procedure FileListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  backupform: Tbackupform;

implementation

{$R *.DFM}

procedure Tbackupform.LMDButton1Click(Sender: TObject);
begin
animate1.Visible:=true;
animate1.Active:=true;
lmdfilectrl1.CopyFiles(filelistbox1.FileName,directorylistbox2.Directory+edit1.Text);
animate1.Active:=false;
animate1.Visible:=false;
end;

procedure Tbackupform.FileListBox1Click(Sender: TObject);
begin
lmdbutton1.Enabled:=true;
end;

end.