unit23.~pas

学生信息管理系统 学生信息管理系统 学生信息管理系统

unit Unit23;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, QuickRpt, DB, ADODB, QRCtrls, ExtCtrls,
  TeeProcs, Chart, DbChart, QRTEE, StdCtrls, DBCtrls, ComCtrls;

type
  Tcjtj = class(TForm)
    queryname: TADOQuery;
    QRDBChart2: TQRDBChart;
    QRChart2: TQRChart;
    Series1: TFastLineSeries;
    Button1: TButton;
    Series2: TBarSeries;
    dsname: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    Label3: TLabel;
    queryscore: TADOQuery;
    dsscore: TDataSource;
    Button2: TButton;
    ComboBox1: TComboBox;
    ADOQuery1: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cjtj: Tcjtj;

implementation
  uses unit1;
{$R *.dfm}

procedure Tcjtj.Button1Click(Sender: TObject);
var
  strSQL:string;
  arrNumber:array[0..4] of integer;
begin


  strSQL:='select * from t_score where '
         +' 所在班级='+chr(39)+trim(DBLookupComboBox1.Text)+chr(39)
         +' and 课程名称='+chr(39)+trim(DBLookupComboBox2.Text)+chr(39)
         +' and 学期='+chr(39)+trim(combobox1.Text)+chr(39)
         ;
// showmessage(combobox1.Text);
// strSQL:='select * from t_score where 学期='+chr(39)+'第二学期'+chr(39) ;
  with adoQuery1 do begin
    if active then close;
    SQL.Clear;
    sql.Add(strSQL);
    open;
  end;
  if adoQuery1.RecordCount=0 then
  begin
   application.MessageBox('空记录','提示',0+64);
    exit;
  end;

  strSQL:='select count(*) as manNum from t_score where ';
  strSQL:=strSQL
         +'班级号='+chr(39)+DBLookupComboBox1.KeyValue+chr(39)
         +' and courseID='+chr(39)+DBLookupComboBox2.KeyValue+chr(39)
         +' and 学期='+chr(39)+combobox1.Text+chr(39)
         +' and score<60';
  with adoQuery1 do begin
    if active then close;
    SQL.Clear;
    sql.Add(strSQL);
    open;
  end;
  arrNumber[0]:=adoQuery1.fieldvalues['manNumber'];

  strSQL:='select count(*) as manNum from t_score where ';
  strSQL:=strSQL
         +'班级号='+chr(39)+DBLookupComboBox1.KeyValue+chr(39)
         +' and courseID='+chr(39)+DBLookupComboBox2.KeyValue+chr(39)
         +' and 学期='+chr(39)+combobox1.Text+chr(39)
         +' and score>=60 and score<70';
  with adoQuery1 do begin
    if active then close;
    SQL.Clear;
    sql.Add(strSQL);
    open;
  end;


series1.Clear;
series1.Add(60,'a',clblue);
series1.Add(70,'b',clblue);
series1.Add(80,'c',clgreen);
series1.Add(90,'d',clred);
series1.Add(100,'e',clred);
end;

procedure Tcjtj.FormActivate(Sender: TObject);
 var
 sqlstr:string;
begin
// 姓名表
sqlstr:='select *from t_banji';
 with queryname do
  begin
   if active then close;
    SQL.Clear;
    sql.Add(sqlstr);
    open;
  end;
   if queryname.RecordCount>0 then
     begin
      DBlookupcombobox1.KeyValue:=queryname.FieldValues['班级号'];
     end;
  //成绩表
  sqlstr:='select * from t_Course ';
  with queryscore do
   begin
    if active then close;
      begin
       sql.Clear;
       sql.Add(sqlstr);
       open;
      end;
     if queryscore.RecordCount>0 then
       begin
        DBlookupcombobox2.KeyValue:=queryscore.FieldValues['courseID'];
       end;
    end;
     //学期显示
    { sqlstr:='select * from t_score';
     with queryxueqi do
     begin
      if active then close;
       sql.Clear;
       sql.Add(sqlstr);
       open;
     end;
     if queryxueqi.RecordCount>0 then
      begin
      DBlookupcombobox3.KeyValue:=queryxueqi.FieldValues['学期'];
      end; }


 end;

procedure Tcjtj.Button2Click(Sender: TObject);
begin
close;
end;

end.