【delphi开源代码栏目提醒】：网学会员--在 delphi开源代码编辑为广大网友搜集整理了：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.