unit1.~pas

没事自己做的一个简单的中考成绩查询系统（带源码）

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Label2: TLabel;
    Edit1: TEdit;
    Bevel3: TBevel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
      if (Edit1.Text='') then
       begin
         ShowMessage('请输入你的中考成绩！') ;
         Edit1.SetFocus ;
       end
      else if (StrtoInt(Edit1.Text)<500) then
        Label3.Caption:='很遗憾，你没有被录取。'
      else if ((StrtoInt(Edit1.Text)>=500) and (StrtoInt(Edit1.Text)<600)) then
        Label3.Caption:='恭喜你，你已被我校录取！'
      else if ((StrtoInt(Edit1.Text)>=600) and (StrtoInt(Edit1.Text)<720)) then
       begin
         Label3.Caption:='恭喜你，你已被我校录取！';
         Label4.Caption:='☆你的成绩优秀,已被分到实验班！☆' ;
       end
      else
        Label3.Caption:='你的输入有误，请重新输入！' ;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
     Label3.Caption:='' ;
     Label4.Caption:='' ;
     Edit1.Text:='' ;
     Edit1.SetFocus ;
end;

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

end.