search.~pas

Delphi的在线考试系统

unit search;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    DBGrid1: TDBGrid;
    Label10: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
 uses DataModule, logindlg;
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var number:string;
 query:TADOQuery;
begin
     DBGrid1.Columns[0].FieldName:='题型';
     DBGrid1.Columns[1].FieldName:='小题题号';
     DBGrid1.Columns[2].FieldName:='得分';
     number:=trim(Login.quanxiang);
     adoquery1.Close;
     adoquery1.SQL.Clear;
     adoquery1.SQL.Text:='select * from 详细成绩表 where 准考证号='''+number+'''';
     adoquery1.Open;

    query := TADOQuery.Create(nil);
    query.Connection := Data.Connection;
    query.Close;
    query.SQL.Clear;
    query.SQL.Text:='select * from 学生 where 准考证号 = '''+number+'''';
    query.Open;
    edit1.Text:=trim(query.fieldbyname('准考证号').AsString);
    edit2.Text:=trim(query.fieldbyname('姓名').AsString);
    edit3.Text:=trim(query.fieldbyname('身份证号').AsString);
    edit4.Text:=trim(query.fieldbyname('性别').AsString);
    edit5.Text:=trim(query.fieldbyname('系别').AsString);
    edit6.Text:=trim(query.fieldbyname('班级').AsString);
    edit7.Text:=trim(query.fieldbyname('总成绩').AsString);

    query.Close;
    query.SQL.Clear;
    query.SQL.Text:='select sum(得分) as 得分 from 详细成绩表 where 准考证号='''+number+''' and 题型 =''选择题'' group by 准考证号';
    query.Open;
    edit8.Text:=trim(query.fieldbyname('得分').AsString);

    query.Close;
    query.SQL.Clear;
    query.SQL.Text:='select sum(得分) as 得分 from 详细成绩表 where 准考证号='''+number+''' and 题型 =''填空题'' group by 准考证号';
    query.Open;
    edit9.Text:=trim(query.fieldbyname('得分').AsString);

    query.Close;
    query.SQL.Clear;
    query.SQL.Text:='select sum(得分) as 得分 from 详细成绩表 where 准考证号='''+number+''' and 题型 =''问答题'' group by 准考证号';
    query.Open;
    edit10.Text:=trim(query.fieldbyname('得分').AsString);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

end.