static.~pas

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

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

  if(cName1.Text='一班') then class_name:='一班'
  else if(cName1.Text='二班') then class_name:='二班';

  subject_name:=subject1.Text;

  maxQry.Close;
  maxQry.SQL.Clear;
  if(cond.Text='按年级统计') then
    begin
      if(table_name='') then showMessage('请先选择年级')
      else if(subject_name='') then showMessage('请先选择科目')
      else
        begin
          if(condition.Text='最高分') then
            begin
              maxQry.SQL.add('select * from  '+table_name+'  m1 where '+subject1.text+' =(select max(m2.'+subject1.Text+') from '+table_name+'  m2 )');
              maxQry.Open;
            end
          else if(condition.Text='最低分') then
            begin
              maxQry.SQL.add('select * from  '+table_name+'  m1 where '+subject1.text+' =(select min(m2.'+subject1.Text+') from '+table_name+'  m2 )');
              maxQry.Open;
            end
          else if(condition.Text='排名次')then
            begin
              maxQry.SQL.add('select * from  '+table_name+'  order by  '+subject1.text+'');
              maxQry.Open;
            end
          else if (condition.Text='不及格人数')then
            begin
              maxQry.SQL.add('select * from  '+table_name +'  where  '+subject1.text+' < 60 ');
              maxQry.Open;
            end 
          else
            showMessage('请先选择统计条件');

        end
     end
  else if(cond.Text='按班级统计') then
    begin
      if(table_name= '') then showMessage('请先选择年级')
      else if(class_name='') then showMessage('请先选择班级')
      else if(subject_name='') then showMessage('请先选择科目')
      else
        begin
          if(condition.Text='最高分') then
            begin
              maxQry.SQL.add('select * from '+table_name+' m1 where m1.班级 = '''+class_name+''' and  m1.'+subject1.Text+' = (select max(m2.'+subject1.Text+' ) from '+table_name+' m2 where m2.班级 = '''+class_name+''' )');
              maxQry.Open;
            end
          else if(condition.Text='最低分') then
            begin
              maxQry.SQL.add('select * from '+table_name+' m1 where m1.班级 = '''+class_name+''' and  m1.'+subject1.Text+' = (select min(m2.'+subject1.Text+' ) from '+table_name+' m2 where m2.班级 = '''+class_name+''')');
              maxQry.Open;
            end
          else if(condition.Text='排名次')then
            begin
              maxQry.SQL.add('select * from  '+table_name+' where 班级 = '''+class_name+''' order by '+subject1.text+'');
              maxQry.Open;
            end
          else if (condition.Text='不及格人数')then
            begin
              maxQry.SQL.add('select * from  '+table_name +' where 班级 = '''+class_name+''' and '+subject1.text+' < 60 ');
              maxQry.Open;
            end
          else
            showMessage('请先选择统计条件');

        end
    end
  else
    showMessage('请先选择统计范围');
end;

procedure TForm6.Button2Click(Sender: TObject);
var
  i,j:integer;
  r:double;
  table_name,class_name:String;
begin
  edit11.Clear;
  edit12.Clear;
  edit13.Clear;
  edit14.clear;
  edit15.Clear;
  edit16.Clear;
  edit17.Clear;
  edit18.Clear;
  edit19.Clear;
  edit20.Clear;
  j:=strtoint(edit10.Text);
  table_name:='';
  class_name:='';
  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(cName.Text='一班') then class_name:='一班'
  else if(cName.Text='二班') then class_name:='二班';

  if(table_name<>'')  then
    begin
       if (scale.text='按年级统计') then
         begin
           nineQry.SQL.add('select count(*) from '+table_name+'  where '+subject.Text+' >= 90 ');
           eightQry.SQL.add('select count(*) from '+table_name+'  where '+subject.Text+' >= 80 and '+subject.Text+' <90');
           sevenQry.SQL.add('select count(*) from '+table_name+'  where '+subject.Text+' >= 70 and '+subject.Text+' <80');
           sixQry.SQL.add('select count(*) from '+table_name+'  where '+subject.Text+' >= 60 and '+subject.Text+' <70');
           failQry.SQL.add('select count(*) from '+table_name+'  where '+subject.Text+' < 60  ');
         end
        else  if(scale.Text='按班级统计') then
          begin
            nineQry.SQL.add('select count(*) from '+table_name+' where '+subject.Text+' >= 90 and 班级 = '''+class_name+'''');
            eightQry.SQL.add('select count(*) from '+table_name+' where '+subject.Text+' >= 80 and '+subject.Text+' <90 and 班级 = '''+class_name+'''');
            sevenQry.SQL.add('select count(*) from '+table_name+' where '+subject.Text+' >= 70 and '+subject.Text+' <80 and 班级 = '''+class_name+'''');
            sixQry.SQL.add('select count(*) from '+table_name+' where '+subject.Text+' >= 60 and '+subject.Text+' <70 and 班级 = '''+class_name+'''');
            failQry.SQL.add('select count(*) from '+table_name+' where '+subject.Text+' < 60   and 班级 = '''+class_name+'''');
          end;
       if(scale.Text='按年级统计') then
         begin
           if(table_name='') then showMessage('请先选择年级')
           else
             begin
               nineQry.open;
               eightQry.Open;
               sevenQry.Open;
               sixQry.Open;
               failQry.Open;
             end;
         end
       else if(scale.Text='按班级统计') then
         begin
           if((table_name='') or (class_name='')) then showMessage('请先选择年级和班级')
           else
             begin
               nineQry.open;
               eightQry.Open;
               sevenQry.Open;
               sixQry.Open;
               failQry.Open;
             end;
          end;
        if(not((nineQry.Eof)and(eightQry.Eof)and(sevenQry.Eof)and(sixQry.Eof)and(failQry.Eof))) then
          begin
            edit11.Text:=nineQry.Fields[0].AsString;
            i:=strtoint(edit11.Text);
            r:=i/j;
            edit16.Text:=floattostr(r);

            edit12.Text:=eightQry.Fields[0].AsString;
            i:=strtoint(edit12.Text);
            r:=i/j;
            edit17.Text:=floattostr(r);

             edit13.Text:=sevenQry.Fields[0].AsString;
             i:=strtoint(edit13.Text);
             r:=i/j;
             edit18.Text:=floattostr(r);

             edit14.Text:=sixQry.Fields[0].AsString;
             i:=strtoint(edit14.Text);
             r:=i/j;
             edit19.Text:=floattostr(r);

             edit15.Text:=failQry.Fields[0].AsString;
             i:=strtoint(edit15.Text);
             r:=i/j;
             edit20.Text:=floattostr(r);
          end
      else
            showMessage('查询记录为空');

     end;
  end;
procedure TForm6.TabSheet2Show(Sender: TObject);
begin

  edit10.clear;
  edit11.Clear;
  edit12.Clear;
  edit13.Clear;
  edit14.clear;
  edit15.Clear;
  edit16.Clear;
  edit17.Clear;
  edit18.Clear;
  edit19.Clear;
  edit20.Clear;

   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('化学') ;

   subject1.Clear;
   subject1.Text:='数学';
   subject1.Items.Add('数学') ;
   subject1.Items.Add('语文') ;
   subject1.Items.Add('英语') ;
   subject1.Items.Add('政治') ;
   subject1.Items.Add('历史') ;
   subject1.Items.Add('物理') ;
   subject1.Items.Add('地理') ;
   subject1.Items.Add('生物') ;
   subject1.Items.Add('化学') ;

end;





procedure TForm6.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 TForm6.grade1Change(Sender: TObject);
begin
  if(grade1.Text='初一') then
    begin
      subject1.Clear;
      subject1.Text:='数学';
      subject1.Items.Add('数学') ;
      subject1.Items.Add('语文') ;
      subject1.Items.Add('英语') ;
      subject1.Items.Add('政治') ;
      subject1.Items.Add('历史') ;
      subject1.Items.Add('总成绩')
    end
  else if(grade1.Text='初二') then
    begin
      subject1.Clear;
      subject1.Text:='数学';
      subject1.Items.Add('数学') ;
      subject1.Items.Add('语文') ;
      subject1.Items.Add('英语') ;
      subject1.Items.Add('政治') ;
      subject1.Items.Add('历史') ;
      subject1.Items.Add('物理') ;
      subject1.Items.Add('地理') ;
      subject1.Items.Add('生物') ;
      subject1.Items.Add('总成绩')
    end
  else if(grade1.Text='初三') then
    begin
      subject.Clear;
      subject.Text:='数学';
      subject1.Items.Add('数学') ;
      subject1.Items.Add('语文') ;
      subject1.Items.Add('英语') ;
      subject1.Items.Add('政治') ;
      subject1.Items.Add('历史') ;
      subject1.Items.Add('物理') ;
      subject1.Items.Add('地理') ;
      subject1.Items.Add('生物') ;
      subject1.Items.Add('化学') ;
      subject1.Items.Add('总成绩')
    end
end;

procedure TForm6.Button7Click(Sender: TObject);
begin
  numEd.Clear;
end;

procedure TForm6.Button9Click(Sender: TObject);
begin
  Form6.Hide;
  Form14.Show;
end;

procedure TForm6.Button8Click(Sender: TObject);
begin
  Form6.Hide;
  Form2.Show;
end;

procedure TForm6.condCBChange(Sender: TObject);
begin
  if(condCB.Text='按学号统计') then
    begin
      Label18.Enabled:=true;
      numEd.Enabled:=true;
      Label19.Enabled:=false;
      cNumCB.Enabled:=false;
      Label20.Enabled:=false;
      tNumCB.Enabled:=false;
    end
  else if(condCB.Text='按课程统计') then
    begin
      Label18.Enabled:=false;
      numEd.Enabled:=false;
      Label19.Enabled:=true;
      cNumCB.Enabled:=true;
      Label20.Enabled:=false;
      tNumCB.Enabled:=false;
    end
  else if(condCB.Text='按任课教师统计') then
    begin
      Label18.Enabled:=false;