sjbfunt.pas

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

unit sjbfunt;

interface

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

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

var
  sjbffrm: Tsjbffrm;

implementation
        uses data;
{$R *.dfm}

procedure Tsjbffrm.FormActivate(Sender: TObject);
begin
edit1.Text:=datetimetostr(date);
end;

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

procedure Tsjbffrm.BitBtn1Click(Sender: TObject);
var
str1:string;
begin
  label3.Caption:='正在进行文件备份,请稍候... ...';
 try
   str1:=ExtractFilePath(Application.ExeName)+'backup\'+trim(edit1.text);
   with dataman.vipQuery do
     begin
      close;
      sql.Clear;
      sql.Add('backup database pos to disk='+#39+str1+#39);
      execsql;
     end;
   showmessage('备份成功！');
   label3.Caption:='';
  except
    showmessage('操作失败！');
  end;
end;

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

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

end.