unit3.pas

学生成绩管理系统

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    ListBox1: TListBox;
    Label2: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button3: TButton;
    Button2: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit2, Unit1;

{$R *.dfm}

procedure TForm3.Button3Click(Sender: TObject);
begin
form3.Hide;
form2.show;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
edit1.text:=form1.adotable1['姓名'];
case combobox1.itemindex of
0:begin listbox1.Clear;
listbox1.Items.Add(inttostr(form1.adotable1['第一学年学费'])) ;
end;
1:begin listbox1.Clear;
listbox1.Items.Add(inttostr(form1.adotable1['第二学年学费']));
end;
end;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
edit1.text:=form1.adotable1['姓名'];
case combobox1.itemindex of
0:begin listbox1.clear;
listbox1.items.add(inttostr(form1.adotable1['第一学年数学成绩']));
listbox1.items.add(inttostr(form1.adotable1['第一学年计算机成绩']));
end;
1:begin listbox1.Clear;
listbox1.Items.Add(inttostr(form1.adotable1['第二学年并行计算成绩']));
listbox1.items.Add(inttostr(form1.adotable1['第二学年英语成绩']));
end;
end;


end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   application.Terminate;
end;

end.