unit4.pas

来自「试卷生成系统 delphi 试卷生成系统 试卷生成系统」· PAS 代码 · 共 57 行

unit Unit4;

interface

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

type
  Txuanke = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    selke: TRadioGroup;
    procedure selkeClick(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;

end.