Question

delphi中 if 跟else语句执行

procedure TForm1.Button1Click(Sender: TObject);
begin
with adoquery2 do
begin
close;
sql.text:='select kucunliang from kucun where yaopinhao='+Quotedstr(Edit1.Text)+' and kucunliang<'+QuotedStr(Edit2.Text);

open;
if isEmpty then
begin

showmessage('可以卖出');
button2.Enabled:= true;
end
else
showmessage('要求的数量大于库存量,不可卖出');
button2.Enabled:= false;

end;
end;
怎么每次执行button2.Enabled的属性都会显示false

Answer 1

应该是 if not sEmpty then 吧？
另外

sql.text:='select kucunliang from kucun where yaopinhao='+Quotedstr(Edit1.Text)+' and kucunliang<'+QuotedStr(Edit2.Text);

是否应该是

sql.text:='select kucunliang from kucun where yaopinhao='+Quotedstr(Edit1.Text)+' and kucunliang>' +QuotedStr(Edit2.Text);

追问

嗯 也对，不过我想问怎么才能执行完后显示要求的数量大于库存量,不可卖出'时button2.Enabled:= false
显示'可以卖出'是button2.Enabled:= true

追答

还有
else
showmessage('要求的数量大于库存量,不可卖出');
button2.Enabled:= false;

是否为
else
begin
showmessage('要求的数量大于库存量,不可卖出');
button2.Enabled:= false;
end;

追问

谢了，解决了