Delphi 如何把select的结果赋值给label控件呢

xg520

Delphi 如何把select的结果赋值给label控件呢 ？请大神解答谢谢!

bowk

貼代碼吧
不然看不太懂意思

xg520

bowk 发表于 2015-10-21 23:32
貼代碼吧
不然看不太懂意思

我的需求是这样的：在edit栏位输入一个代号A，当我点击查询Button按钮时，会将该代号A在数据库中的数量值（integer型）写入我的Label.capition（string型），查询sql语句；select qty from temp  where 代号='A', 请我代码应该怎么写？谢谢

xg520

bowk 发表于 2015-10-21 23:32
貼代碼吧
不然看不太懂意思

代码：
procedure TForm1.ButqueryClick(Sender: TObject);
var sql1  :string;
var sm :integer;
begin
  Box:=Trim(UpperCase(Edit1.Text));
  sql1:='select QTY from sajet.CUS_OFFLINE_SORTERTEST where box_code =:BOX' ;
With ADOQuery1 do
   begin
     close;
     SQL.clear;
     SQL.Add(sql1);
     open;
     sm:=QryData.FieldByName('QTY').AsInteger;
   end;
   sm:=sm+sm;
   Label6.Caption:=inttostr(sm);
end  
这样写有错吗？