fback.pas

进销存开发系统

unit Fback;

interface

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

type
  TF_back = class(TF_base)
    Animate1: TAnimate;
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Label3: TLabel;
    Bevel1: TBevel;
    SaveDialog1: TSaveDialog;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_back: TF_back;

implementation
  uses Fdm;
{$R *.dfm}

procedure TF_back.BitBtn1Click(Sender: TObject);
begin
  inherited;
  SaveDialog1.Title:='请选择数据备份位置';
  if SaveDialog1.Execute then
    Edit1.Text:=SaveDialog1.FileName;
end;

procedure TF_back.BitBtn2Click(Sender: TObject);
begin
  inherited;
  if Trim(Edit1.Text)='' then Exit;
  try
    Animate1.Visible:=True;
    F_dm.back.CommandText:='backup database db_ems to disk='+''''+Trim(Edit1.Text)+'''';
    Animate1.Active:=True;
    F_dm.back.Execute;
    Animate1.Active:=False;
    Application.MessageBox('备份数据成功','提示',mb_ok);
  except
    Application.MessageBox('备份数据失败','提示',mb_ok);
  end;
  Animate1.Visible:=False;
end;

end.