Question

delphi内容比较

我想在edit1里输上查询的编号，在edit2里输入要求的数量，用button，然后根据编号与数据库里的数量进行比较，若要求的数量小于库存量显示可以卖出，就可以插入销售明细，若果大于就不能卖出，不能插入销售明细
像这样:
with adoquery1 do
begin
close;
sql.text:='select * from t where 编号='+Quotedstr(Edit1.Text)+' and 库存量<'+Edit2.Text;
open;
if isEmpty then
begin
{添加代码}
showmessage('可以卖出');
end else
showmessage('要求的数量大于库存量,不能卖出');
end;
谁能帮我改改

Answer 1

sql.text:='select * from t where 编号='+Quotedstr(Edit1.Text)+' and 库存量<'+Edit2.Text;中的
库存量<'+Edit2.Text有问题，应该把“<”换成“>”，只有库存大于要求的量才能够卖，否则没有办法卖。
检索出来的结果集是编号和数量能够满足要求的商品列表
把if isEmpty then换成
if RecordCount>0 then
showmessage('有')
else
Showmessage('无');

追问

如果我button1显示无，怎么才能让我的button2不能执行插入，button2是执行插入

追答

这个问题选答案让人无语啊：）太搞笑了

Answer 2

传参数,如
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from a where name=:s0 and paw=:s1');
ADOQuery1.Parameters.Clear;
ADOQuery1.Parameters.CreateParameter('s0', ftstring, pdinput, 64, edit1.Text);
ADOQuery1.Parameters.CreateParameter('s1', ftstring, pdinput, 64, edit2.Text);
ADOQuery1.Open;