With query1 do
begin
close
sql.clear;
sql.Add('Select * from book where bookname = :bn');
ParaByName('bn').Value := Edit1.text;
Open;Bookno := StrToInt(edit2.text);
Bookprice := FieldByName('Field1').AsInteger;
NumNow := FieldByName('Field5').AsInteger;
close;
begin
close
sql.clear;
sql.Add('Select * from book where bookname = :bn');
ParaByName('bn').Value := Edit1.text;
Open;Bookno := StrToInt(edit2.text);
Bookprice := FieldByName('Field1').AsInteger;
NumNow := FieldByName('Field5').AsInteger;
close;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货