sjhfunt.pas

来自「商品销售系统完全的功能SQL和JAVA」· PAS 代码 · 共 94 行

unit sjhfunt;

interface

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

type
  Tsjhffrm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    OpenDialog1: TOpenDialog;
    SpeedButton1: TSpeedButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sjhffrm: Tsjhffrm;

implementation

uses data;

{$R *.dfm}

procedure Tsjhffrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
sjhffrm:=nil;
sjhffrm.Free;
end;

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

procedure Tsjhffrm.BitBtn1Click(Sender: TObject);
begin
 try
  label2.Caption:='正在进行文件恢复,请稍候... ...';
   with dataman.vipQuery do
     begin
      close;
      sql.Clear;
      sql.Add('use master');
      sql.Add('RESTORE DATABASE pos FROM DISK ='''+trim(edit1.Text)+''' with RECOVERY,REPLACE');
      execsql;
     end;
   application.MessageBox('数据备份成功！','消息提示',MB_OK);
   label2.Caption:='';
  except
    application.MessageBox('恢复失败！','消息提示',MB_OK);
  end;
end;

procedure Tsjhffrm.SpeedButton1Click(Sender: TObject);
begin
//opendialog1.FileName:=ExtractFilePath(Application.ExeName);
opendialog1.InitialDir:=ExtractFilePath(Application.ExeName)+'backup\';
if opendialog1.Execute then
edit1.Text:=opendialog1.FileName;
end;

procedure Tsjhffrm.FormActivate(Sender: TObject);
begin
edit1.Text:='';
end;

procedure Tsjhffrm.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    begin
      Perform(CM_DialogKey,Vk_TAB,0);
      key:=#0;
    end;
end;

end.