unit Unit14;

interface

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

type
  Tselfen1 = class(TForm)
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    no: TRadioButton;
    zongfen: TRadioButton;
    jige: TRadioButton;
    DataSource1: TDataSource;
    selfen: TQuery;
    chengjibaobiao: TQuickRep;
    ColumnHeaderBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRDBText6: TQRDBText;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    ql: TQRLabel;
    qs: TQRSysData;
    selzongfen: TQuery;
    Label1: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure zongfenClick(Sender: TObject);
    procedure noClick(Sender: TObject);
    procedure jigeClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  selfen1: Tselfen1;

implementation

uses Unit2;

{$R *.dfm}

procedure Tselfen1.Button2Click(Sender: TObject);
begin
chengjibaobiao.Preview ;
end;

procedure Tselfen1.Button1Click(Sender: TObject);
begin
selfen1.Close;
end;

procedure Tselfen1.zongfenClick(Sender: TObject);
begin
    ql.Visible :=true;
    qs.Visible :=true;
    selfen.Close;
    selfen.SQL.Clear ;
    selfen.SQL.Add('select 學生學號,學生姓名,選擇題分數(shù),填空題分數(shù),考生總分,所選試卷號 from  考生成績表 where  所選試卷號=:no order by 考生總分 desc');
    selfen.ParamByName('no').AsString :=inttostr(xuqiu.tag);
    selfen.open;
    selfen1.DBGrid1.Columns[0].Width :=120;
    selfen1.DBGrid1.Columns[1].Width :=150;
    selfen1.DBGrid1.Columns[2].Width :=120;
    selfen1.DBGrid1.Columns[3].Width :=120;
    selfen1.DBGrid1.Columns[4].Width :=100;
end;

procedure Tselfen1.noClick(Sender: TObject);
begin
    ql.Visible :=false;
    qs.Visible  :=false;
    selfen.Close;
    selfen.SQL.Clear ;
    selfen.SQL.Add('select 學生學號,學生姓名,選擇題分數(shù),填空題分數(shù),考生總分,所選試卷號 from  考生成績表 where  所選試卷號=:no order by 學生學號');
    selfen.ParamByName('no').AsString :=inttostr(xuqiu.tag);
    selfen.open;
    selfen1.DBGrid1.Columns[0].Width :=120;
    selfen1.DBGrid1.Columns[1].Width :=150;
    selfen1.DBGrid1.Columns[2].Width :=120;
    selfen1.DBGrid1.Columns[3].Width :=120;
    selfen1.DBGrid1.Columns[4].Width :=100;
end;

procedure Tselfen1.jigeClick(Sender: TObject);
var
 xf,tf:integer;
begin
 ql.Visible :=false;
 qs.Visible :=false;
 selzongfen.SQL.Clear ;
 selzongfen.SQL.Add('select 本題型總分 from 確定試卷庫 where 題型='+''''+'選擇題'+''''+' and 試卷號=:no');
 selzongfen.ParamByName('no').AsString :=inttostr(xuqiu.tag);
 selzongfen.Open;
 xf:=selzongfen.Fields.Fields[0].AsInteger;
 selzongfen.SQL.Clear ;
 selzongfen.SQL.Add('select 本題型總分 from 確定試卷庫 where 題型='+''''+'填空'+''''+' and 試卷號=:no');
 selzongfen.ParamByName('no').AsString :=inttostr(xuqiu.tag);
 selzongfen.Open;
 tf:=selzongfen.Fields.Fields[0].AsInteger;
 if (xf+tf)<>0 then
  begin
   selfen.SQL.Clear ;
   selfen.SQL.Add('select 學生學號,學生姓名,選擇題分數(shù),填空題分數(shù),考生總分,所選試卷號 from  考生成績表 where  所選試卷號=:no'+' and 100*考生總分/'+inttostr(xf+tf)+'>60 ');
   selfen.ParamByName('no').AsString :=inttostr(xuqiu.tag);
   selfen.Open;
   selfen1.DBGrid1.Columns[0].Width :=120;
   selfen1.DBGrid1.Columns[1].Width :=150;
   selfen1.DBGrid1.Columns[2].Width :=120;
   selfen1.DBGrid1.Columns[3].Width :=120;
   selfen1.DBGrid1.Columns[4].Width :=100;
  end
 else
  showmessage('您要查找的成績不存在！');  
end;

end.