unit14.pas

本程序提供了考试学生系统的原代码函数,并实现了很多程序难实现的功能

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 学生学号,学生姓名,选择题分数,填空题分数,考生总分,所选试卷号 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 学生学号,学生姓名,选择题分数,填空题分数,考生总分,所选试卷号 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 学生学号,学生姓名,选择题分数,填空题分数,考生总分,所选试卷号 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.