procedure TForm8.BitBtn1Click(Sender: TObject);
begin
with adoquery1 do
begin
close;
sql.Clear;
sql.text:='select * from jsb where 借书证号 =:LendBookNumber';
Parameters.ParamByName('LendBookNumber').Value:=trim(edit1.text);
open;
end;
end;
直接Copy过去,如果还是不中,那......