unit4.pas

来自「本程序提供了考试学生系统的原代码函数,并实现了很多程序难实现的功能」· PAS 代码 · 共 68 行

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, Unit2;

{$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.close;
xuqiu.show;
end;

end.