一个button让另一个button功能不实现 close sql.text:select kucunliang from kucun where yaopinhao
一个button让另一个button功能不实现
close;
sql.text:='select kucunliang from kucun where yaopinhao='+Quotedstr(Edit1.Text)+' and kucunliang<'+QuotedStr(Edit2.Text);
open;
if isEmpty then
begin
showmessage('可以卖出');
end
else
showmessage('要求的数量大于库存量,不可卖出');
如果我想在button显示要求的数量大于库存量,不可卖出'后就让下一个button的功能不可用，怎么办
[解决办法]
if isEmpty then
begin
button2.enanble := true;
showmessage('可以卖出');
end
else begin
showmessage('要求的数量大于库存量,不可卖出');
button2.enable := false;
end;