backup_un.pas

布林电话收费管理系统

unit backup_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, stand_un, BusinessSkinForm, bsSkinCtrls, bsSkinUnZip, bsSkinZip,
  ComCtrls, bsSkinTabs, StdCtrls, Mask, bsSkinBoxCtrls, bsMessages,
  bsSkinShellCtrls, FileCopy;

type
  Tbackup = class(Tstand)
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinXFormButton3: TbsSkinXFormButton;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinLabel1: TbsSkinLabel;
    bsSkinMessage1: TbsSkinMessage;
    bsSkinDirectoryEdit1: TbsSkinDirectoryEdit;
    bsSkinButton1: TbsSkinButton;
    WVFileCopy1: TWVFileCopy;
    procedure FormCreate(Sender: TObject);
    procedure bsSkinXFormButton3Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure WVFileCopy1CopyProgress(Sender: TObject; TotalFileSize,
      TotalBytesTransferred: Cardinal; Rate: Byte);
    procedure WVFileCopy1Start(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  backup: Tbackup;

implementation
  uses globe,main_un;
{$R *.dfm}

procedure Tbackup.FormCreate(Sender: TObject);
begin
  inherited;
 bsskinedit1.Text:=ExtractFilePath(Application.ExeName) + 'sjyy.Mdb';
 bsskindirectoryedit1.Text:=ExtractFilePath(Application.ExeName) + 'backup';
end;

procedure Tbackup.bsSkinXFormButton3Click(Sender: TObject);
begin
  inherited;
 close;
end;

procedure Tbackup.bsSkinButton1Click(Sender: TObject);
var
  sou,dst:string;
begin
  inherited;
  sou:=bsskinedit1.Text ;
 // sou:='d:\filecopy\readme.txt';
  dst:=bsskindirectoryedit1.Text +'\'+datetostr(now) +'.mdb';
  screen.Cursor:=-1;
  wvfilecopy1.ExistingFile:=sou;
  wvfilecopy1.NewFile:=dst;
  wvfilecopy1.Start;
 // filecopy(sou,dst);
  screen.Cursor:=0;
end;

procedure Tbackup.WVFileCopy1CopyProgress(Sender: TObject; TotalFileSize,
  TotalBytesTransferred: Cardinal; Rate: Byte);
begin
  inherited;
  bsskinlabel1.Caption:=inttostr(rate);
end;

procedure Tbackup.WVFileCopy1Start(Sender: TObject);
begin
  inherited;
  bsskinlabel1.Caption:='系统开始拷贝文件.......';
end;

end.