unit1.pas

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

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Image3: TImage;
    Button2: TButton;
    Image1: TImage;
    Button3: TButton;
    Button4: TButton;
    Image2: TImage;
    Image4: TImage;
    Button5: TButton;

    procedure FormActivate(Sender: TObject);
//    procedure Image2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit17, Unit18, Unit19;

{$R *.dfm}



procedure TForm1.FormActivate(Sender: TObject);
begin
button1.SetFocus ;   //设置键盘热键
end;



procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
form1.Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
xuqiu.show;
//form1.Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
form1.close;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
form17.show;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
form18.show;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
form19.show;
end;

end.