data_bakunit.pas

来自「DELPHI 编写的人事管理系统,根据职工查询各种信息」· PAS 代码 · 共 115 行

unit Data_BakUnit;

interface

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

type
  TData_BakForm = class(TForm)
    Bevel1: TBevel;
    g1: TGroupBox;
    Label1: TLabel;
    RadioButton1: TRadioButton;
    g2: TGroupBox;
    Label2: TLabel;
    RadioButton2: TRadioButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    g3: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Panel1: TPanel;
    Image1: TImage;
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Data_BakForm: TData_BakForm;

implementation
 uses Data_Bak_BakUnit,Data_ComeBackUnit;
{$R *.dfm}

procedure TData_BakForm.RadioButton1Click(Sender: TObject);
begin
radiobutton2.Checked:=false;
end;

procedure TData_BakForm.RadioButton2Click(Sender: TObject);
begin
radiobutton1.Checked:=false;
end;

procedure TData_BakForm.BitBtn3Click(Sender: TObject);
begin
  g1.Visible:=true;
  g2.Visible:=true;
  g3.Visible:=false;
  bitbtn3.Visible:=false;
  bitbtn1.Visible:=true;
  bitbtn4.Visible:=false;
end;

procedure TData_BakForm.BitBtn1Click(Sender: TObject);
begin
  g1.Visible:=false;
  g2.Visible:=false;
  g3.Visible:=true;
  bitbtn1.Visible:=false;
  bitbtn3.Visible:=true;
  bitbtn4.Visible:=true;
  if radiobutton1.Checked then
    g3.Caption:='请选择要备份的数据表'
   else
    g3.Caption:='请选择要恢复的数据表';
end;

procedure TData_BakForm.BitBtn4Click(Sender: TObject);
begin
if radiobutton1.Checked then
     begin
       if (checkbox1.Checked=false) and (checkbox2.Checked=false) then
            begin
              messagebox(Data_BakForm.Handle,'请选择要备份的数据表!!','提示',mb_iconasterisk);
            end
          else
          begin
           Data_BakForm.Label1.Caption:='确定要备份以上所选择的数据表吗？';

           Data_Bak_BakForm.ShowModal;
           end;
     end
  else
   begin
       if (checkbox1.Checked=false) and (checkbox2.Checked=false) then
         begin
           messagebox(Data_BakForm.Handle,'请选择要恢复的数据表!!','提示',mb_iconasterisk);
          end
          else
          begin
          Data_ComeBackForm.Label1.Caption:='确定要恢复以上所选择的数据表吗？';
          Data_ComeBackForm.ShowModal;
          end;
     end;
end;

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

end.