xg520 发表于 2015-10-21 14:09:32

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

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

bowk 发表于 2015-10-21 23:32:26

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

xg520 发表于 2015-10-22 08:59:06

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

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

xg520 发表于 2015-10-22 09:03:32

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
这样写有错吗？
页: [1]
查看完整版本: Delphi 如何把select的结果赋值给label控件呢