unit2.pas

来自「站长,我这是一个团员管理系统, 我怎么知道你已经接收了呢?」· PAS 代码 · 共 123 行

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure RadioButton6Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit3, Unit4, Unit5, Unit6, Unit7, Unit1;

{$R *.dfm}

procedure TForm2.RadioButton1Click(Sender: TObject);
begin
form3.show;
end;

procedure TForm2.RadioButton2Click(Sender: TObject);
begin
form4.show;
end;

procedure TForm2.RadioButton3Click(Sender: TObject);
begin
form5.show;
end;

procedure TForm2.RadioButton4Click(Sender: TObject);
begin
form6.show;
end;

procedure TForm2.RadioButton5Click(Sender: TObject);
begin
form7.show;
end;

procedure TForm2.RadioButton6Click(Sender: TObject);
begin
close;
form1.show;
end;

procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
Form3.Show;
Close;
end;

procedure TForm2.SpeedButton2Click(Sender: TObject);
begin
Form4.Show;
Close;
end;

procedure TForm2.SpeedButton3Click(Sender: TObject);
begin
Form5.Show;
Close;
end;

procedure TForm2.SpeedButton4Click(Sender: TObject);
begin
Form6.Show;
Close;
end;

procedure TForm2.SpeedButton5Click(Sender: TObject);
begin
Form7.Show;
Close;
end;

procedure TForm2.SpeedButton6Click(Sender: TObject);
begin
Form1.Show;

end;

procedure TForm2.SpeedButton7Click(Sender: TObject);
begin
Form8.show;
close;

end;

end.