databackunit.pas

工廠倉庫管理系統

unit databackunit;

interface

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

type
  Tdatabackform = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    rb1: TRadioButton;
    Label1: TLabel;
    Label2: TLabel;
    rb2: TRadioButton;
    Label3: TLabel;
    Label4: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel2: TPanel;
    Image1: TImage;
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure rb1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure rb2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  databackform: Tdatabackform;

implementation
  uses databfunit,datahfunit;
{$R *.dfm}

procedure Tdatabackform.Image1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  panel1.BevelInner:=bvlowered;
end;

procedure Tdatabackform.Image1MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  panel2.BevelInner:=bvraised;
end;

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

procedure Tdatabackform.BitBtn1Click(Sender: TObject);
begin
  if (rb1.Checked=false) and  (rb2.Checked=false) then
  begin
    messagebox(self.Handle,'请选择备份与恢复之一','提示信息',mb_iconinformation);
    exit;
  end;
  if rb1.Checked =true then
  begin
    application.CreateForm(tdatabfform,databfform);
    databfform.ShowModal ;
    databfform.Free;
  end;
  if rb2.Checked=true then
  begin
    application.CreateForm(tdatahfform,datahfform);
    datahfform.ShowModal ;
  end;
end;

procedure Tdatabackform.rb1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
    bitbtn1.SetFocus ;
end;

procedure Tdatabackform.rb2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
    bitbtn1.SetFocus ;
end;

end.