Question

帮我看下面这段Delphi 程序 调试的时候老是提示课程号附近有错误，有时调试即使没错误也运行不成功。在线

procedure TForm14.BitBtn1Click(Sender: TObject);
Var
S_sql:string;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
S_sql:='select 课程号,MAX(成绩) as 最高分,MIN(成绩) as 最低分,AVG(成绩) as 平均分,COUNT(课程号)as 选课人数 From 成绩 Group by 课程号';
If Edit2.Text<>'' then
Begin
S_sql:= s_sql + 'and 课程号 = ''' + Edit2.Text + '''';

End;
ADOQuery1.SQL.Add(s_sql);
ADOQuery1.Open;
if adoquery1.RecordCount=0 then
begin
showMessage('对不起,没有找到相关记录！')
end
end;

Answer 1

procedure TForm14.BitBtn1Click(Sender: TObject);
Var
S_sql:string;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
S_sql:='select 课程号,MAX(成绩) as 最高分,MIN(成绩) as 最低分,AVG(成绩) as 平均分,COUNT(课程号)as 选课人数 From 成绩';
If Edit2.Text<>'' then
Begin
S_sql:= s_sql + ' and 课程号 = ''' + Edit2.Text + '''';

End;
S_sql:= s_sql + ' Group by 课程号';
ADOQuery1.SQL.Add(s_sql);
ADOQuery1.Open;
if adoquery1.RecordCount=0 then
begin
showMessage('对不起,没有找到相关记录！')
end
end;

追问

有区别吗？运行了还是一样的错误

追答

S_sql:= s_sql + ' and 课程号 = ''' + Edit2.Text + '''';
这一句改成
S_sql:= s_sql + ' where 课程号 = ''' + Edit2.Text + '''';

追问

还是运行不了呃，我快疯了，这段代码弄了1晚上

追答

我验证了没问题啊，你按下面的再试一下，不行你告诉我报什么错误
procedure TForm14.BitBtn1Click(Sender: TObject);
Var
S_sql:string;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
S_sql:='select 课程号,MAX(成绩) as 最高分,MIN(成绩) as 最低分,AVG(成绩) as 平均分,COUNT(课程号)as 选课人数 From 成绩';
If Edit2.Text'' then
Begin
S_sql:= s_sql + ' where 课程号 = ''' + Edit2.Text + '''';
End;
S_sql:= s_sql + ' Group by 课程号';
showmessage(s_sql);
ADOQuery1.SQL.Add(s_sql);
ADOQuery1.Open;
if adoquery1.Eof then
begin
showMessage('对不起,没有找到相关记录！')
end;
end;

Answer 2

有单引号括起来的地方最好使用QuotedStr这个函数吧.
要不然写在程序里看那么多'''''比较麻烦.也容易扰乱思维.
让这个函数给两边加入单引号,更方便一些.
看看是不是这个的问题.