unit2.pas

来自「教学管理系统源码」· PAS 代码 · 共 72 行

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    BitBtn1: TBitBtn;
    ComboBox1: TComboBox;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit3, Unit4, Unit1;

{$R *.dfm}

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
RadioButton1.Checked:=false;
RadioButton2.Checked:=false;
RadioButton3.Checked:=false;
end;

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
if (RadioButton1.Checked or RadioButton2.Checked or RadioButton3.Checked=false)
  then
Application.MessageBox('请选择管理对象！','错误！',MB_OK);
if RadioButton1.Checked
  then
form3.Show;
if RadioButton2.Checked
  then
Application.MessageBox('成功进入！','恭喜！',MB_OK);
if RadioButton3.Checked
  then
Application.MessageBox('成功进入！','恭喜！',MB_OK);
end;

procedure TForm2.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.ItemIndex=0
  then
    form4.Show
   else
begin
form2.Hide;
form1.Show;
end;
end;

end.