datahfunit.pas

工廠倉庫管理系統

unit datahfunit;

interface

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

type
  Tdatahfform = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    OpenDialog1: TOpenDialog;
    Animate1: TAnimate;
    ADOCommand1: TADOCommand;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  datahfform: Tdatahfform;

implementation
  uses UCONST,UFUNCTION,UDM1;
{$R *.dfm}

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

procedure Tdatahfform.BitBtn1Click(Sender: TObject);
var datapath:string;
begin
  self.Caption:='正在恢复数据......';
  OpenDialog1.Filter:= '备份文件 (*.bak)|*.bak|所有文件 (*.*)|*.*';
  OpenDialog1.InitialDir:= ExtractFileDir(Application.ExeName) + '\backupdata';
  if self.OpenDialog1.Execute then
    datapath:=opendialog1.FileName ;
  if datapath<>'' then
  begin
    if messagebox(self.Handle,'确定要恢复数据吗？这样会覆盖现在数据库里所有的数据','提示信息',mb_yesno+mb_iconinformation)=idyes then
    begin
      Animate1.Visible:=true;
      Animate1.Active:=true;
      dm1.ADOConnection1.Close;
      dm1.ADOConnection1.Connected:=false;
      dm1.adomaterial_class.close;
      dm1.ADOproduct_class.Close;
      dm1.ADOsmallclass.Close;
      dm1.ADOsupplier.Close;
      dm1.adocustomer.close;
      dm1.area_class.Close;
      dm1.nationlity.Close;
      dm1.payment.close;
      dm1.bb.close;
      dm1.nationlity.Close;
      dm1.development.close;
      dm1.unit_dw.Close;
      dm1.transport_fs.close;
      //cmd.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=master' ;
      STRSQL:='exec p_restoredate letwin,'+''''+datapath+'''';
      ADOCommand1.Connection:=dm1.ADOConnection2;
      ADOCommand1.Cancel;
      ADOCommand1.CommandText:='restore database letwin from disk='+''''+datapath+''''+'with replace';
      ADOCommand1.Prepared:=true;
        try
          ADOCommand1.Execute ;
          self.Animate1.Visible:=false;
          messagebox(self.Handle,'数据恢复成功','提示信息',mb_iconinformation);
          adocommand1.Cancel;
        except
          messagebox(self.Handle,'数据恢复失败','错误信息',mb_iconstop);
        end;
    end;
  end;
      DM1.ADOConnection1.open;
      dm1.adomaterial_class.open;
      dm1.ADOproduct_class.open;
      dm1.ADOsmallclass.open;
      dm1.ADOsupplier.open;
      dm1.adocustomer.open;
      dm1.area_class.open;
      dm1.nationlity.open;
      dm1.payment.open;
      dm1.bb.close;
      dm1.nationlity.open;
      dm1.development.open;
      dm1.unit_dw.open;
      dm1.transport_fs.open;
  self.Caption:='数据备份';
  close;
end;

procedure Tdatahfform.FormCreate(Sender: TObject);
begin
  label1.Width:=150;
end;

end.