在delphi7中，如果我想查询一条记录，并对这条记录的相关信息判断的代码

如果我在edit1中输入代号，根据这个代号找到相关的记录，并判断该记录中某字段是否为否，如果为否弹出消息，不是弹出另外的消息！谢谢！

添加adoquery控件，在他的sql中写

adoquery1.Close;
adoquery1.SQL.Clear;

adoquery1.SQL.Add('select 字段 from 表 where 代号=''' + edit1.txt + '''');

adoquery1.open

if adoquery1.Fields[0].AsString ='否' then

begin

showmessage('消息1');

end

else

begin

showmessage('消息2');

end;