ADODataSetAchievement.FieldValues['Achievement'+IntToStr(iCol-1)]:=EditTemp.Text

      else if iCol =5 then    // 保存总评成绩

       ADODataSetAchievement.FieldValues['Achievement']:=EditTemp.Text;

     end;

     ADODataSetAchievement.Post;  // 存盘

    end;

   end;

   Inc(i, AchievementCount);  // 每个学生使用6个TEdit对象

  end

  else

   Inc(i);  // 非TEdit对象

 end;

end;

⑽ 编写“打印课程成绩单”按钮的OnClick事件，调用如图6所示的报表，用于输出该班所有学生相关课程的考试成绩单，相关代码如下：

procedure TFormAchievement.SBtnPrintReportCardClick(Sender: TObject);

begin

 With FormPrintAchievement do begin

  QRLabelClass.Caption := LabelClass.Caption;   // 班级名

  QRLabelCourse.Caption := LabelCourse.Caption; // 课程名

  DMServerDB.ADODataSetAchievement.Filter := '';

  strTemp := ComboBoxAchievementType.Text;

  QRLabelTitle.Caption := Copy(strTemp,3,Length(strTemp))+'成绩单';

  QuickRep.ReportTitle:='课程成绩单';

  QuickRep.Preview;

 end;

end;

⑾ 编写“打印补考名单”按钮的OnClick事件，用于输出该班学生相关课程的补考名单，相关代码如下：

procedure TFormAchievement.SBtnPrintMakeupClick(Sender: TObject);

begin

 With FormPrintAchievement do begin

  QRLabelClass.Caption := LabelClass.Caption;   // 班级名

  QRLabelCourse.Caption := LabelCourse.Caption; // 课程名

  DMServerDB.ADODataSetAchievement.Filter := 'Achievement<60';

  strTemp:=ComboBoxAchievementType.Items[ComboBoxAchievementType.ItemIndex+1];

  QRLabelTitle.Caption := Copy(strTemp,3,Length(strTemp))+'名册';

  QuickRep.ReportTitle:='课程补考单';

  QuickRep.Preview;

  DMServerDB.ADODataSetAchievement.Filter := '';

 end;

end;