specialmarkrep.~pas

中学考试管理系统 采用智能管理 具有统计分析的能力

unit specialMarkRep;

interface

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

type
  TForm19 = class(TForm)
    GroupBox1: TGroupBox;
    title: TEdit;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    numEd: TEdit;
    Button1: TButton;
    Button2: TButton;
    GroupBox3: TGroupBox;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Label2: TLabel;
    kindCB: TComboBox;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    ADOConnection1: TADOConnection;
    qry: TADOQuery;
    Label3: TLabel;
    Label4: TLabel;
    grade: TComboBox;
    subject: TComboBox;
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure numEdChange(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure gradeChange(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure kindCBChange(Sender: TObject);
  private
    { Private declarations }

     procedure printview(t:String);
  public
    { Public declarations }
  end;

var
  Form19: TForm19;
  wuLi,diLi,shengWu,huaXue:String;
implementation

uses logout, main, danKeMark, duoKeMark, chengJiTiao;

{$R *.dfm}

procedure TForm19.Button5Click(Sender: TObject);
begin
  Form19.Hide;
  Form14.show;
end;

procedure TForm19.Button4Click(Sender: TObject);
begin
   Form19.Hide;
   Form2.show;
end;

procedure TForm19.FormShow(Sender: TObject);
begin
  Button1.Enabled:=false;
  if(grade.Text='初一') then
    begin
      subject.Clear;
      subject.Text:='数学';
      subject.Items.Add('数学') ;
      subject.Items.Add('语文') ;
      subject.Items.Add('英语') ;
      subject.Items.Add('政治') ;
      subject.Items.Add('历史') ;
    end
  else if(grade.Text='初二') then
    begin
      subject.Clear;
      subject.Text:='数学';
      subject.Items.Add('数学') ;
      subject.Items.Add('语文') ;
      subject.Items.Add('英语') ;
      subject.Items.Add('政治') ;
      subject.Items.Add('历史') ;
      subject.Items.Add('物理') ;
      subject.Items.Add('地理') ;
      subject.Items.Add('生物') ;
    end
  else if(grade.Text='初三') then
    begin
      subject.Clear;
      subject.Text:='数学';
      subject.Items.Add('数学') ;
      subject.Items.Add('语文') ;
      subject.Items.Add('英语') ;
      subject.Items.Add('政治') ;
      subject.Items.Add('历史') ;
      subject.Items.Add('物理') ;
      subject.Items.Add('地理') ;
      subject.Items.Add('生物') ;
      subject.Items.Add('化学') ;
    end

end;

procedure TForm19.numEdChange(Sender: TObject);
begin
  if(length(numEd.Text)>0) then
    Button1.Enabled:=true;
end;

procedure TForm19.Button1Click(Sender: TObject);
var
table_name:String;
begin
  qry.Close;
  qry.SQL.Clear;
  qry.SQL.Add('select 年级 from student where 学号='''+numEd.Text+'''') ;
  qry.Open;
  if not qry.Eof then
    grade.Text:=qry.Fields[0].AsString
  else
    showMessage('您输入的学号不存在，请重新输入');  

  if(grade.Text='初一') then  table_name:='grade1_mark'
  else if(grade.Text='初二') then   table_name:='grade2_mark'
  else if(grade.Text='初三') then   table_name:='grade3_mark' ;

  if(length(numEd.Text)>0) then
    begin
      qry.Close;
      qry.SQL.Clear;
      if (kindCB.Text='单科成绩表') then
        begin
          qry.SQL.Add('select 学号,姓名, 班级, '+subject.Text+', 考试类别, 时间 from '+table_name+'  where 学号='''+numEd.Text+'''') ;
          qry.Open;

        end
      else if(kindCB.Text='多科成绩表') then
        begin
           qry.SQL.Add('select * from '+table_name+'  where 学号='''+numEd.Text+'''') ;
           qry.Open;
           if(grade.Text='初一') then
             begin
               wuLi:='未开课';
               diLi:='未开课';
               shengWu:='未开课' ;
               huaXue:='未开课';
             end
           else if(grade.Text='初二') then
             begin
               wuLi:=qry.Fields[7].asString;
               diLi:=qry.Fields[8].asString;
               shengWu:=qry.Fields[9].asString;
               huaXue:='未开课';
             end
           else if(grade.Text='初三') then
              begin
                wuLi:=qry.Fields[7].asString;
                diLi:=qry.Fields[8].asString;
                shengWu:=qry.Fields[9].asString;
                huaXue:= qry.Fields[10].asString;
              end;


        end
      else if(kindCB.Text='成绩条') then
        begin
           qry.SQL.Add('select * from '+table_name+'  where 学号='''+numEd.Text+'''') ;
           qry.Open;
            if(grade.Text='初一') then
             begin
               wuLi:='未开课';
               diLi:='未开课';
               shengWu:='未开课' ;
               huaXue:='未开课';
             end
           else if(grade.Text='初二') then
             begin
               wuLi:=qry.Fields[7].asString;
               diLi:=qry.Fields[8].asString;
               shengWu:=qry.Fields[9].asString;
               huaXue:='未开课';
             end
           else if(grade.Text='初三') then
              begin
                wuLi:=qry.Fields[7].asString;
                diLi:=qry.Fields[8].asString;
                shengWu:=qry.Fields[9].asString;
                huaXue:= qry.Fields[10].asString;
              end;
        end;

    end
  else
    showMessage('请先输入学号');
end;

procedure TForm19.gradeChange(Sender: TObject);
begin
  if(grade.Text='初一') then
    begin
      subject.Clear;
      subject.Text:='数学';
      subject.Items.Add('数学') ;
      subject.Items.Add('语文') ;
      subject.Items.Add('英语') ;
      subject.Items.Add('政治') ;
      subject.Items.Add('历史') ;
    end
  else if(grade.Text='初二') then
    begin
      subject.Clear;
      subject.Text:='数学';
      subject.Items.Add('数学') ;
      subject.Items.Add('语文') ;
      subject.Items.Add('英语') ;
      subject.Items.Add('政治') ;
      subject.Items.Add('历史') ;
      subject.Items.Add('物理') ;
      subject.Items.Add('地理') ;
      subject.Items.Add('生物') ;
    end
  else if(grade.Text='初三') then
    begin
      subject.Clear;
      subject.Text:='数学';
      subject.Items.Add('数学') ;
      subject.Items.Add('语文') ;
      subject.Items.Add('英语') ;
      subject.Items.Add('政治') ;
      subject.Items.Add('历史') ;
      subject.Items.Add('物理') ;
      subject.Items.Add('地理') ;
      subject.Items.Add('生物') ;
      subject.Items.Add('化学') ;
    end
end;

procedure TForm19.Button3Click(Sender: TObject);
begin
   if (title.text)='' then
   if messagedlg('你不需要标题吗？',mtconfirmation,[mbYes,mbNo],0) = mrNo
   then exit;
   printview(title.Text);
end;

procedure TForm19.printview(t:String);

begin
    if(kindCB.Text='单科成绩表') then
      begin
        Form20:=TForm20.Create(application);
        Form20.titlelab.Caption:=t;
        Form20.subjectTxt.DataField:=subject.Text;
        Form20.markTxt.DataField:=subject.Text;
        Form20.QuickRep1.Preview;
      end
    else if(kindCB.Text='多科成绩表') then
      begin
        Form21:=TForm21.Create(application);
        Form21.titlelab.Caption:=t;
        Form21.gradeTxt.Caption:=grade.Text;
        if (grade.Text='初一') then
          begin
            Form21.wuLi.Caption:='未开课';
            Form21.diLi.Caption:='未开课';
            Form21.shengWu.Caption:='未开课';
            Form21.huaXue.Caption:='未开课';
          end
        else if (grade.Text='初二') then
          begin
            Form21.wuLi.Caption:=wuLi;
            Form21.diLi.Caption:=diLi;
            Form21.shengWu.Caption:=shengWu;
            Form21.huaXue.Caption:='未开课';
          end
        else if(grade.Text='初三') then
          begin
            Form21.wuLi.Caption:=wuLi;
            Form21.diLi.Caption:=diLi;
            Form21.shengWu.Caption:=shengWu;
            Form21.huaXue.Caption:=huaXue;
          end;
        Form21.QuickRep1.Preview;
      end
    else if(kindCB.Text='成绩条') then
      begin
        Form22:=TForm22.Create(application);
        Form22.titlelab.Caption:=t;
        if (grade.Text='初一') then
          begin
            Form22.wuLi.Caption:='未开课';
            Form22.diLi.Caption:='未开课';
            Form22.shengWu.Caption:='未开课';
            Form22.huaXue.Caption:='未开课';
            Form22.QuickRep1.Preview;
          end
        else if (grade.Text='初二') then
          begin
            Form22.wuLi.Caption:=wuLi;
            Form22.diLi.Caption:=diLi;
            Form22.shengWu.Caption:=shengWu;
            Form22.huaXue.Caption:='未开课';
            Form22.QuickRep1.Preview;
          end
        else if(grade.Text='初三') then
          begin
            Form22.wuLi.Caption:=wuLi;
            Form22.diLi.Caption:=diLi;
            Form22.shengWu.Caption:=shengWu;
            Form22.huaXue.Caption:=huaXue;
            Form22.QuickRep1.Preview;
          end;

      end;

end;

procedure TForm19.kindCBChange(Sender: TObject);
begin
  if(kindCB.Text='单科成绩表') then
    begin
      label4.Enabled:=true;
      subject.Enabled:=true;
    end
  else
    begin
      label4.Enabled:=false;
      subject.Enabled:=false;
    end;
end;

end.