好吧问答库 > delphi根据第一个edit1中输入的编号，edit2自动显示这个编号对应的数据库中的厂家

delphi根据第一个edit1中输入的编号，edit2自动显示这个编号对应的数据库中的厂家

我的delphi程序中有两个edit，当我在edit1中输入产品编号时，edit2中能自动显示数据库中这个编号的产品的厂家，请问怎么实现呢？

2026年09月27日 04:45

有3个网友回答

网友（1）：

procedure TForm1.eidt1Change(Sender: TObject);
begin
if Length(edit1.text)=你的编号的长度 then
with adoquery1 do
begin
close;
sql.clrar;
sql.add('select 厂家 from 表 where 编号='''+edit1.text+'''');
open;
if bof and eof then
showmessage('没找到这个编号')
else
edit2.text:=adoquery1.FieldByName('厂家').asstring;
end;
end;

网友（2）：

使用ADOConnection ADOTable TDataset连接数据库
使用DbLookupedit来实现功能

本团队不提供现成代码免开尊口

网友（3）：

在Edit1控件的OnExit事件上，写上Edit2需要的数据；