Question

请问各位大侠，在delphi中如何edit1中输入商品编号在edit2中自动显示商品名称

Answer 1

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
with adoquery1 do begin
close;
sql.Clear;
sql.Add('select name from Table1 where code like :a');
Parameters.ParamByName('a').Value:='%'+Trim(Edit1.Text)+'%';
open;
if Recordcount>0 then
Edit2.Text:=Fieldbyname('name').AsString;
end;
end;

这里我写在Edit1的OnKeyUp事件中了

我觉得写在Edit1的OnKeyPress事件中比较好 用if key:=#13 then begin end;语句来判断
这样的话就要每次输入完商品编号之后按一下回车键才会执行上面的代码

追问

谢谢你的回答，不胜感激，已经加你好友，希望以后多多赐教！

Answer 2

这个要从数据库中调编号所对应的名称!