Question

delphi语法问题

begin
adoquery1.sql.clear;
adoquery1.sql.add('select 编号,密码 from 密码 where 编号='''+edit1.text+'''');
adoquery1.open;
if adoquery1.recordcount>0
then
begin
if adoquery1.fieldbyname('密码').asstring='111'
then
begin
showmessage('该员工没有激活，请继续下面的操作。');
button3.enabled:=false;
end
else
begin
showmessage('该员工已激活，无需再次激活。');
form18.close;
end
end
else
我数据库里面存的就是111 可是程序不执行 if then语句 直接到else了 这个是怎么回事啊

Answer 1

你是说
if adoquery1.fieldbyname('密码').asstring='111' then
还是
if adoquery1.recordcount>0 then
如果是上面的那个 你就看看你数据里面的密码
adoquery1.fieldbyname('密陵洞扰码').asstring 是尺旦不是 111 是不是有空格 (111后面, 如果字段定义成CHAR 会自动补充) , 如果这样 你就 trim( adoquery1.fieldbyname('密码').asstring)
如果是后面的话 ,也就是
('select 编号,密码 from 密颤液码 where 编号='''+edit1.text+'''') 查询有问题. 是不是没有查询出来. 或者也是空格问题. 你自己检查一下. 调试模式 断点跟踪一下. 还是比较好分析的.

Answer 2

begin
adoquery1.sql.clear;
adoquery1.sql.add('select 编号,密码 from 密码 where 编号='''+edit1.text+'''');
adoquery1.open;
if adoquery1.recordcount>0 then
begin
if adoquery1.fieldbyname('密码').asstring='111' then
begin
showmessage('该员工没有激活圆轿山，请继续橘中下面的操作。');
button3.enabled:=false;
end
else begin
showmessage('该员工已激活，无需再次激活。');
form18.close;
end;
end;

我帆猛分析是你的这一句没有 recordcount>0

if adoquery1.recordcount>0 then

所以就直接执行 else 后面的

我估计是问题：

adoquery1.sql.add('select 编号,密码 from 密码 where 编号='''+trim(edit1.text)+'''');