backup.pas

工廠採購管理系統

unit Backup;
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ToolWin,ExtCtrls,buttons,IniFiles, ADODB, ImgList,myclass;

type
  TBackUpForm = class(TForm)
    SpeedButton1: TSpeedButton;
    ProgressBar1: TProgressBar;
    SaveDialog1: TSaveDialog;
    SpeedButton2: TSpeedButton;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    StaticText1: TStaticText;
    Edit2: TEdit;
    Image1: TImage;
    procedure CreateParams(var Params: TCreateParams); override;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure StaticText1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure StaticText1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure StaticText1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton2Click(Sender: TObject);
 private

   procedure WMPAINT1(var msg:TMESSAGE);message WM_PAINT;
   procedure WMNCPAINT1(var msg:TWMNCPAINT);message WM_NCPAINT;
   procedure Active(var msg:Tmessage);message WM_ACTIVATE;
   procedure WMNCLBUTTONDBLCLK1(var msg:Tmessage);message WM_NCLBUTTONDBLCLK;
       { Private declarations }
  public
    titleBmp:Tbitmap;
    path:string;
    setini:TINIFILe;
    { Public declarations }
  end;


implementation

uses UDM1,uconst,ufunction;
{$R *.dfm}
procedure TBackUpForm.WMNCLBUTTONDBLCLK1(var msg:Tmessage);
begin
  //
end;
procedure TBackUpForm.Active(var msg:Tmessage);
begin
  self.WMPAINT1(msg);
end;

procedure TBackUpForm.CreateParams(var Params: TCreateParams);
begin
  inherited;
  params.Style:=params.Style-WS_SYSMENU;
end;

procedure TBackUpForm.WMPAINT1(var msg:TMESSAGE);
begin
  sendmessage(self.Handle,WM_NCPAINT,0,0);
  inherited;
end;

procedure TBackUpForm.WMNCPAINT1(var msg:TWMNCPAINT);

begin

end;

procedure TBackUpForm.FormCreate(Sender: TObject);
begin
  setini:=Tinifile.Create(strpath+'\system.ini');
  edit1.Text:=setini.ReadString('BackupPath','path',strpath+'\backup.dat');
  progressbar1.Max:=progressbar1.Width;
end;

procedure TBackUpForm.SpeedButton1Click(Sender: TObject);
var
  backup:TbackupThread;
begin
  backup:=tbackupthread.Create(true);
  backup.sender:=progressbar1;
  backup.command:=dm1.ADOCommand1;
  backup.folder:=edit1.Text;
  backup.backname:=edit2.Text;
  backup.parent:=self;
  progressbar1.Visible:=true;
  backup.Resume;
end;

procedure TBackUpForm.StaticText1Click(Sender: TObject);
begin
  if savedialog1.Execute then
  begin
    path:=savedialog1.FileName;
    setini.WriteString('BackupPath','path',path);
    edit1.Text:=path;
  end;
end;

procedure TBackUpForm.FormDestroy(Sender: TObject);
begin
  setini.Free;
end;

procedure TBackUpForm.StaticText1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  statictext1.BevelKind:=BKsoft;
end;

procedure TBackUpForm.StaticText1MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  statictext1.BevelKind:=bkflat;
end;

procedure TBackUpForm.SpeedButton2Click(Sender: TObject);
begin
  close;
end;

end.