通过读取数据库的值来判断进行其它操作的问题？(50分)

您好：
我做了一个小程序，在读取数据库的值后，希望根据读取的数据来进行其它操作，我的数据库表中有数据，并且可以正常读取，可是不知为什么不行了，请指教！
procedure Tmainform.Button2Click(Sender: TObject);
begin
if edit1.Text ='' then
showmessage('对不起，帐号不能为空！')
else if edit2.Text ='' then
showmessage('对不起，密码不能为空！')
else
begin
adodataset1.Close ;
adodataset1.CommandText :='select * from gl_rygl where f_zh=:zh and f_mm=:mm';
adodataset1.Parameters.ParamByName('zh').Value :=edit1.Text ;
adodataset1.Parameters.ParamByName('mm').Value :=edit2.Text ;
adodataset1.Open ;
if adodataset1.Eof then
showmessage('对不起，登入失败！')
else
begin
{ if adodataset1.FieldValues['f_zw']='admin' then
button1.Enabled :=false;
这是我想执行但执行不了的语句，谢谢！
}
end ;
end;
end;

你在if adodataset1.FieldValues['f_zw']='admin' then中设中断然后单步执行看有什么
问题.

哥们，我看了，什么错误也没有！！

我从来没有用过FieldValues,试试用adodataset1.FieldByName('f_zw').Asstring。
用单步执行看看adodataset1.FieldValues['f_zw']的值是什么。
另，如果该字段的数据类型是SQL　Server 中的char，则要使用
Trim(adodataset1.FieldValues['f_zw'])='admin'