我编辑一段查询代码
百度说是 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;
百度说是 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;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货