unitbf.pas

小型仓库管理系统

unit UnitBF;

interface

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

type
  TfmBF = class(TForm)
    Image1: TImage;
    btn1: TBitBtn;
    btn2: TBitBtn;
    opd1: TOpenDialog;
    sd1: TSaveDialog;
    sbtn1: TSpeedButton;
    pb1: TProgressBar;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure sbtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmBF: TfmBF;

implementation

uses UnitDm, UnitMain;

{$R *.dfm}

procedure TfmBF.btn1Click(Sender: TObject);
var  save:string;
     m:integer;
begin
  sd1.Filter:='备份文件(*.bak)|*.bak';
  sd1.Title:='请选择备份路径';
  if sd1.Execute then
     save:=sd1.FileName+'.bak';
  if save<>'' then
     begin
        with frDbm.qryBF do
           begin
              try
              screen.Cursor:=crHourGlass;
              close;
              sql.Clear;
              sql.Add(' BACKUP DATABASE '+'store'+ '  TO DISK =''' +save+'''');
              execsql;
              for m:=0 to 100000 do
              Pb1.Position:=m;
              screen.Cursor:=crdefault;
              application.MessageBox('数据备份成功','提示',0+64);
              Pb1.Position:=0;
              except
              screen.Cursor:=crdefault;
              application.MessageBox('数据库备份失败，请检查备份的路径或网络状态！','数据库备份',0+mb_iconinformation);
              end;
           end;
     end
  else showmessage('请选择备份路径！');
end;

procedure TfmBF.btn2Click(Sender: TObject);
var  dir : string;
     m:integer;
begin
  try
    if opd1.Execute then
     begin
        dir:=opd1.FileName;
        With frDbm.qryBF do
        begin
          Close;
          SqL.Clear;
          SQL.Add('use master restore database store from disk='+''''+dir+'''');
          Close;
          SqL.Clear;
          SQL.Add('use  store ');
          ExecSQL ;
          sleep(3000);
          for m:=0 to 100000 do
          Pb1.Position:=m;
        end;
        showmessage('恢复成功');
        Pb1.Position:=0;
     end;
  except
    showmessage('恢复失败');
  end;
end;

procedure TfmBF.sbtn1Click(Sender: TObject);
begin
  fmMain.show;
  fmBF.close;
end;

end.