ComboBox3Select(Sender:TObject);beginadoquery4.Close;adoquery4.SQL.Clear;adoquery4.SQL.Add('select*fromkechengwhere班级//判
='+''''+ComboBox2.Text+'''and学期='+''''+ComboBox3.Text+'''');断学期是否符合adoquery4.ExecSQL;adoquery4.Open;end;
procedureTForm11.SpeedButton1Click(Sender:TObject);beginwhilenotadoquery4.Eofdobeginif(adoquery4.FieldValues['课程号']=adoquery3.FieldValues['课程号'])and(adoquery4.FieldValues['班级']=Combobox2.Text)and
(adoquery4.FieldValues['学期']=Combobox3.Text)thenbreak;adoquery4.Next;end;ifadoquery4.Eofthenbeginadoquery4.Insert;//把选课内容添加到选课表中。
adoquery4.FieldValues['课