unit1student.pas

一个简单的学生成绩管理系统

unit Unit1Student;

interface

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

type
  TForm1 = class(TForm)
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Button1: TButton;
    Button2: TButton;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Button3: TButton;
    Panel1: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type
   Tpoint=record     //记录类型
   ch:integer;
   ma:integer;
   eg:integer;
   tt:integer;
   av:real;
end;
var
  Form1: TForm1;
  student:Tpoint;
  stu:array[1..35]of Tpoint;
  i,j,m: integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject); //”确认“按钮
begin
   stu[i].ch:=strtoint(Edit2.text);
   stu[i].ma:=strtoint(Edit3.text);
   stu[i].eg:=strtoint(Edit4.text);
   stu[i].tt:=stu[i].ch+stu[i].ma+stu[i].eg;
   stu[i].av:=stu[i].tt/3;
   Edit5.text:=inttostr(stu[i].tt);
   Edit6.text:=floattostr(stu[i].av);
   Inc(i);

end;

procedure TForm1.Button2Click(Sender: TObject); //”清除“按钮
begin
  Edit2.text:='';
  Edit3.text:='';
  Edit4.text:='';
  Edit5.text:='';
  Edit6.text:='';
  Edit7.text:='';
end;

procedure TForm1.Button3Click(Sender: TObject); //”计算班级平均分“按钮
begin
   m:=0;
   for j:=0 to i do
   begin
     m:=stu[j].tt+m;
   end;
   Edit7.text:=floattostr((m)/i);


end;

end.