ADo.Close;
ADO.SQL.Clear;
ADO.SQL.Add('select month(还书日期) as 月份, sum(租金) as 总租金 from 借阅信息 group by month(还书日期)');
ADO.SQL.Add('where month(还书日期)= :月份');
ADO.Parameters.ParamByName('月份').Value:=s;
ADO.Open;
label2.Caption:=ADO.Fieldbyname('总租金').AsString+'元';
ADO.Free;
那里错了???