|
⑻ “成绩单”按钮的OnClick事件，输出成绩单报表，相关代码如下：
procedure TFormSearchAchievement.SBtnReportCardClick(Sender: TObject);
begin
FormPrintReportCard.QuickRep.Preview;
end;
⑼ FormSearchAchievement的OnClose ()事件，关闭数据集，相关代码如下：
procedure TFormSearchAchievement.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ADODataSet.Filter := '';
ADODataSet.Close;
end;
界面和代码设计完成后，在主界面的“查询与统计”→“查询”→“通用查询”菜单命令中调用该界面，界面运行效果如图2所示。
图2 成绩查询与统计运行界面
2 报表设计在成绩管理系统中，每个学期都需要输出该学期所开课程的学生成绩表、每个学生本学期的成绩单、某门课程各班的成绩排名统计表、各课程的补考名单等相关报表。在第3讲“数据输入界面设计”的课程成绩录入界面中已初步介绍了输出课程成绩单和补考名单报表的方法，但在课程成绩录入界面中输出的报表是一个班的某一门课程成绩，是一个很普通的报表，没有涉及到成组（Group）来输出报表。
|
