databfunit.pas

工廠倉庫管理系統

unit databfunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, Gauges, StdCtrls, Buttons, DB, ADODB;

type
  Tdatabfform = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Animate1: TAnimate;
    Label1: TLabel;
    ADOQuery1: TADOQuery;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
  path ,s,f,p:string;
    { Public declarations }
  end;

var
  databfform: Tdatabfform;

implementation
  uses uconst,ufunction;
{$R *.dfm}

procedure Tdatabfform.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure Tdatabfform.FormCreate(Sender: TObject);
begin
  label1.Width:=270;
end;

procedure Tdatabfform.BitBtn1Click(Sender: TObject);
begin
  self.Animate1.Visible:=true;
  self.Animate1.Active:=true;
  path:=extractfiledir(application.ExeName);
  if strlen(pchar(path))<>3 then  //这一句起到了非常关键的作用。
    path:=path+'\';
  s:='LW'+formatdatetime('yymmddhhmmss',now)+'.bak';  //在时间里面不能有冒号（：）;否则出现错误.
  f:='databack';
  self.Caption:='正在备份数据......';
  p:=path+f+'\'+s;
  //showmessage(p);
  strsql:='backup database letwin to disk='+''''+p+'''';
  ADOQUERY1.ConnectionString:=ConnectionString_1;
  ADOQUERY1.Close;
  ADOQUERY1.SQL.Clear;
  ADOQUERY1.SQL.Add(STRSQL);
  adoquery1.Prepared:=true;
  try
    adoquery1.ExecSQL;
    messagebox(self.Handle,'备份数据库操作成功！','提示信息',mb_iconinformation);
  except
    messagebox(self.Handle,'备份数据库操作失败','错误信息',mb_iconstop);
  end;
  self.Animate1.Visible:=false;
  self.Caption:='数据备份';
  close;
end;

end.