急，在线等，一个很简单的问题，怎么也看不出错在哪里？？?

[powre]

还是那个登录的代码，加帐号密码时弹出错误提示对话框 ：
看提示和调试显示是这句代码有问题：
if(Trim(Edit1.Text)=DataModule2.ADOQuery1.FieldByName('UserName').AsString) and (Trim(Edit2.Text)=DataModule2.ADOQuery1.FieldByName('password').AsString) then

我查了一下数据库，字段UserName没有写错呀，看了好久没看出啥问题，希望大神们指点一下，谢谢！

procedure TForm1.BitBtn1Click(Sender: TObject);
begin

if(Trim(Edit1.Text)='') then
begin
showMessage('请输入帐号');
Edit1.SetFocus();
exit;
end;

if(Trim(Edit2.Text)='') then
begin
showMessage('请输入密码');
Edit2.SetFocus();
exit;
end;


if(Trim(Edit1.Text)=DataModule2.ADOQuery1.FieldByName('username').AsString) and (Trim(Edit2.Text)=DataModule2.ADOQuery1.FieldByName('password').AsString) then
// and (Trim(Edit2.Text=DataModule2.ADOQuery1.FieldByName('Password').AsString) then //如果帐号密码正确
begin
with DataModule2.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from Users where UserName="'+Trim(Edit1.Text)+'"') ;
SQL.Add('and Password="'+Trim(Edit2.Text)+'"');
Open;

if RecordCount=1 then
begin
userrole:= fieldbyname('Grade').AsString;
showmessage(userrole);
end;
end;
end;

end;

[日立奔腾浪潮微软松下联想]

DataModule2.ADOQuery1.Close; DataModule2.ADOQuery1.SQL := ... DataModule2.ADOQuery1.Open; if ...

[CDSN_SB_SYY]

SQL.Add('select * from Users where UserName="'+Trim(Edit1.Text)+'"') ; SQL.Add( ' and Password="'+Trim(Edit2.Text)+'"'); and 前有个空格

[doloopcn]

是不是在IDE环境中静态地把字段增加到PROJECT了，然后把USERNAME给删除了？

[秋天之落叶]

不知道你其他地方是不是open了DataModule2.ADOQuery1， if(Trim(Edit1.Text)=DataModule2.ADOQuery1.FieldByName('username').AsString) and (Trim(Edit2.Text)=DataModule2.ADOQuery1.FieldByName('password').AsString) then 的数据来自何方？应该是先OPEN后引用，你何时打开的DataModule2.ADOQuery1？

[lyhoo163]

你使用DataModule2.ADOQuery1，有结构性问题 1、SocketConnection连接数据库 2、通过SQL连接表 DataModule2.ADOQuery1.Close; DataModule2.ADOQuery1.SQL := ... DataModule2.ADOQuery1.Open; 问题关键： 3、你指定的表Users中，没有username字段。