EditAchievement[iCount][0].Text:=ADODataSetStudent.FieldValues['StudentID'];

   EditAchievement[iCount][1].Text:=ADODataSetStudent.FieldValues['StudentName'];

   // 若存在的，则取出显示

   if ADODataSetAchievement.Locate('StudentID;AchievementTypeID'

          ,VarArrayOf([ADODataSetStudent.FieldValues['StudentID'],AchievementTypeID]), []) then begin

    EditAchievement[iCount][2].Text:=ADODataSetAchievement.FieldValues['Achievement1'];

    EditAchievement[iCount][3].Text:=ADODataSetAchievement.FieldValues['Achievement2'];

    EditAchievement[iCount][4].Text:=ADODataSetAchievement.FieldValues['Achievement3'];

   end

   else begin // 不存在，则取初值0

    EditAchievement[iCount][2].Text:='0';

    EditAchievement[iCount][3].Text:='0';

    EditAchievement[iCount][4].Text:='0';

   end;

   Inc(iCount);   // 人数加1

   ADODataSetStudent.Next;

  end;

  ScrollBox.Show;

 end;

 SBtnSave.Enabled := True;  // 设置可以输入和使用按钮

 SBtnPrintReportCard.Enabled := True;

 SBtnPrintMakeup.Enabled := True;

 ScrollBox.Enabled := True;

end;