mrbfhf.pas

生产管理系统：系统具有数据备份及数据还原功能。能够保证系统数据的安全性方便的全方位的数据查询。在相应的权限下

unit MRBFHF;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls;

type
  TFRM_BFHF = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    SaveDialog1: TSaveDialog;
    OpenDialog1: TOpenDialog;
    ProgressBar1: TProgressBar;
    Label1: TLabel;
    Label2: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

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

var
  FRM_BFHF: TFRM_BFHF;

implementation
  uses MR_DATA;
{$R *.dfm}
function pro:boolean;
begin
  if FRM_BFHF.ProgressBar1.Position<100 then
    FRM_BFHF.ProgressBar1.Position:=FRM_BFHF.ProgressBar1.Position+1;
end;
procedure TFRM_BFHF.BitBtn1Click(Sender: TObject);
var
   dir:string;
   id:Dword;
   pd:Thandle;
begin
  try
  if SaveDialog1.Execute then
     begin
        dir:=SaveDialog1.FileName+'.bak';
        With data.ADOd do
        begin
          Close;
          SqL.Clear;
          SQL.Add('backup database LB_scglxt to disk='+''''+dir+'''');
          ExecSQL
        end;
      pd:=createthread(nil,0,@pro,nil,0,id);
      progressbar1.Position:=progressbar1.Max;
      showmessage('备份成功');
      progressbar1.Position:=progressbar1.Min;
     end;
  except
  showmessage('备份失败');
  progressbar1.Position:=progressbar1.Min;
end;

end;

procedure TFRM_BFHF.BitBtn2Click(Sender: TObject);
var
  dir:string;
  id:Dword;
  pd:Thandle;
begin
  try
    if OpenDialog1.Execute then
     begin
        dir:=OpenDialog1.FileName;
        With data.ADOd do
        begin
          Close;
          SqL.Clear;
          SQL.Add('use master restore database LB_scglxt from disk='+''''+dir+'''');
          ExecSQL;
          Close;
          SqL.Clear;
          SQL.Add('use  LB_scglxt ');
          ExecSQL ;
        end;
        pd:=createthread(nil,0,@pro,nil,0,id);
        progressbar1.Position:=progressbar1.Max;
        showmessage('恢复成功');
        progressbar1.Position:=progressbar1.Min;
     end;
  except
    showmessage('恢复失败');
    progressbar1.Position:=progressbar1.Min;
end;
end;

procedure TFRM_BFHF.FormCreate(Sender: TObject);
begin
  postmessage(ProgressBar1.Handle,$0409,0,clLime);
end;

end.