unit Unit4;

interface

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

type
  Txuanke = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    selke: TRadioGroup;
    Image1: TImage;
    Image2: TImage;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure selkeClick(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xuanke: Txuanke;

implementation

uses Unit5,unit3;

{$R *.dfm}

procedure Txuanke.selkeClick(Sender: TObject);
begin //選取試卷所屬課程
if selke.ItemIndex =0 then
begin
if teacher.ke.Text ='線性代數' then
begin
selke.Tag:=0;

form5.Show;
end
else
showmessage('對不起,您只能預定外語試卷！');
end
else
begin
if teacher.ke.Text ='外語' then
begin
selke.Tag:=1;
form5.Show;
end
else
showmessage('對不起,您只能預定線性代數試卷！');
end;

end;

procedure Txuanke.BitBtn2Click(Sender: TObject);
begin
xuanke.closed;
xuqiu.open;
end;

end.