delphi编程问题 晕 见鬼了

procedure TForm6.FormCreate(Sender: TObject);
var
csql,time,yhm:string;
begin
yhm:=trim(login_form.username_edit.Text);
time:=formatdatetime('yyyy-mm-dd',DateTimePicker1.Date);
with ADOQuery1 do
begin
close;
sql.Clear;
csql:='select * from info where (用户名='''+yhm+''') and (提醒时间>='''+time+''')';
sql.Add(csql);
ADOQuery1.Active:=true;
prepared;
open;
end;
with ADOQuery2 do
begin
close;
sql.Clear;
csql:='select * from info where 用户名='''+yhm+''' and 提醒时间<'''+time+'''';
sql.Add(csql);
ADOQuery1.Active:=true;
prepared;
open;
end;
DateTimePicker1.Date:=date();
end;

不知道为什么连接数据库的DBGrid1一直出现不了数据???我又加了几句调试了下,发现 ADOQuery1.RecordCount和 ADOQuery2.RecordCount都为0!!
可是明明有数据啊!!!
后来发现是 用户名='

delphi编程问题 晕 见鬼了 Delphi 编程问题 DELPHI编程问题 delphi 编程问题 请教Delphi编程问题 Delphi编程问题,MB_YESNO delphi编程中的问题 delphi编程小问题 delphi编程问题~ delphi 7编程问题