一个button让另一个button效能不实现
一个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;
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;