main_sjwh_sjwhform.~pas

校园信息管理系统

unit main_sjwh_sjwhform;

interface

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

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

var
  main_sjwh_sjwh: Tmain_sjwh_sjwh;

implementation

uses  main_sjwh_sjwh_bfform,
  main_sjwh_sjwh_hfform;

{$R *.DFM}

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

procedure Tmain_sjwh_sjwh.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 Tmain_sjwh_sjwh.BitBtn3Click(Sender: TObject);
begin
  g1.Visible:=true;
  g2.Visible:=true;
  g3.Visible:=false;
  bitbtn3.Visible:=false;
  bitbtn1.Visible:=true;
  bitbtn4.Visible:=false;
end;

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

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

end;

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

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

end.