请问我的程序怎么执行不了？(30分)

您好：
我做了一个小程序，在读取数据库的值后，希望根据读取的数据来进行其它操作，可是不知为什么不行了，请指教！
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.isempty then
showmessage('对不起，登入失败！')
else
begin
// if adodataset1.Fieldbyname('f_zw').asstring<>'admin' then
{ if adodataset1.FieldValues['f_zw']<>'admin' then
button1.Enabled :=false;
这是我想执行但执行不了的语句，谢谢！
}
end ;

你在if adodataset1.FieldValues['f_zw']='admin' then这名设个断点，然后单步执行
看有问题.

可能你的数据表是空的

我的数据库中有数据，但是执行起来就是不行，不知道为什么？请指教！

if adodataset1.FieldValues['f_zw']<>'admin' then
button1.Enabled :=false;
你先用showmessage(adodataset1.FieldValues['f_zw'])
看能不能显示出来啊，如果不能显示出来可能类型不匹配，看看错误信息再按情况解决吧！
写写他的错误信息/