begin

   ComboBoxTerm.Items.Clear;

   ComboBoxTerm.Items.Add( strEmptySelect ); // 添加一个没有选择行

   for i:= EntranceYear to EntranceYear+3 do begin

    ComboBoxTerm.Items.Add(IntToStr(i)+'-'+IntToStr(i+1)+'(1)');

    ComboBoxTerm.Items.Add(IntToStr(i)+'-'+IntToStr(i+1)+'(2)');

   end;

   ComboBoxTerm.ItemIndex:=0;

  end;

begin

 DataSource.DataSet := Nil; // 选择时断开与数据源之间的关联

 SBtnStatistics.Enabled := False;

 SBtnReportCard.Enabled := False;

 ComboBoxTerm.Items.Clear;

 iSearchItem := (Sender As TComboBox).Tag;  // 选择了哪一项目

 CalculateItemID; // 计算各个项目ID

 ADODataSet.Close;

 SQLWhere := '';  // 动态生成SQL语句中的Where子句

 if ItemID[0]<>'' then begin  // 学院ID

   SQLWhere := ' Where S.DepartmentID='''+ItemID[0]+'''';

 end;

 case iSearchItem of

   0: begin // 学院

    strSQL := 'SELECT S.SpecialityID, S.SpecialityName FROM Speciality S';

    ADODataSet.CommandText := strSQL + SQLWhere;

    ADODataSet.Open;

    ComboBoxSpeciality.ItemIndex :=

      CreateItems(ADODataSet, ComboBoxSpeciality.Items,'SpecialityID;SpecialityName',True,True,True);

    ComboBoxDepartmentChange( ComboBoxSpeciality );

    ComboBoxSpeciality.SetFocus;

      end;

   1..3: begin // 专业, 班级

    if ItemID[1]<>'' then begin

      SQLWhere := SQLWhere + ' And S.SpecialityID='''+ItemID[1]+'''';

    end;

    if iSearchItem=1 then begin // 选择专业，填充班级列表