unit11.pas

试卷生成系统 delphi 试卷生成系统 试卷生成系统

unit Unit11;

interface

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

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;
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  selchengji: Tselchengji;

implementation

{$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;

end.