unit Unit11;

interface

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

type
  Tselchengji = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    no: TEdit;
    name: TEdit;
    Button1: TButton;
    juanhao: TEdit;
    xf: TEdit;
    tf: TEdit;
    selfen: TQuery;
    zf: TEdit;
    Button2: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  selchengji: Tselchengji;

implementation

uses Unit2;

{$R *.dfm}

procedure Tselchengji.Button1Click(Sender: TObject);
begin
 selfen.Close;
 selfen.ParamByName('no').AsString :=no.Text ;
 selfen.ParamByName('juanno').AsString :=juanhao.Text ;
 selfen.open;
 if not selfen.IsEmpty then
 begin
   xf.Text :=selfen.Fields.Fields[0].AsString ;
   tf.Text :=selfen.Fields.Fields[1].AsString ;
   zf.Text:=selfen.Fields.Fields[2].AsString ;
   showmessage('您的總分為：'+zf.Text +'分!您的選擇題總分為:'+xf.Text +'分!您的填空題總分為:'+tf.Text +'分!');
 end
 else
 begin
   showmessage('對不起！成績庫中沒有您的成績！');
 end;
end;

procedure Tselchengji.FormActivate(Sender: TObject);
begin
no.SetFocus ;
end;

procedure Tselchengji.Button2Click(Sender: TObject);
begin
  selchengji.Close;
  xuqiu.show;
end;

end.