我编辑一段查询代码  
百度说是 sql语言错误了· 我的  显示代码的数据源 query 里面的sql 属性 paramdate 属性我设置为  object Q_score: TQuery
    DatabaseName = 'TEACH'
    SQL.Strings = (
      'select sutdent.class,student.id,student.name,score.score'
      'from student,score'
      'where score.course=:course'   --》这里的course 我会在查询按钮中设计 输入的查询条件
      ' and score.student=student.id')
    Left = 740
    Top = 47
    ParamData = <
      item
        DataType = ftString
        Name = 'course'
        ParamType = ptInput
      end>
  end我的 查询 为
begin
T_courseinfo.Filter:='ID='''+edit_course.Text+'''';   ——》edit_course.text为我的输入查询条件
T_courseinfo.Filtered:=true;
T_courseinfo.Open;
if T_courseinfo.recordCount=1 then
begin
Q_score.Close;
Q_score.params[0].AsString:=edit_course.Text;
Q_score.open;
Q_info.close;
Q_info.SQL.Clear;
Q_info.SQL.Add('select COUNT(student),AVG(score),MAX(score),MIN(score)');
Q_info.SQL.Add('FROM SCORE');
Q_info.SQL.Add('WHERE COURSE_ID='''+edit_course.text+'''');
Q_info.open;
edit_totalnum.text:=Q_info['COUNT'];
edit_max.text:=Q_info['MAX'];
edit_avg.Text:=Q_info['AGG'];
edit_min.text:=Q_info['MIN'];
Q_info.Close;
Q_info.SQL.Clear;
Q_info.SQL.ADD('SELECT COUNT(STUDENT)');
Q_info.SQL.ADD('FROM SCORE');
Q_info.SQL.ADD('WHERE COURSE_ID='''+edit_course.text+'''');
Q_info.SQL.ADD('and score<60');
Q_info.OPEN;
edit_failnum.text:=Q_info['COUNT'];
end
else
application.messagebox('不存在,请查实!','有误',MB_OK);
end;