录入有关问题

录入问题
在dbgird中，例如输入商品编号，就能直接显示对应的商品编号名字，厂家以及单价

[解决办法]
void __fastcall Tdataquery::ComboBox1Change(TObject *Sender)
{

AnsiString bh;
bh=ComboBox1->Text;
if(bh.IsEmpty())
{
Application->MessageBox("请输入商品编号！", "提示", MB_OK + 
MB_ICONINFORMATION);
return;
}
ADOQuery1->Active=False;
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("SELECT 名称,厂家,单价 from 数据表");
ADOQuery1->SQL->Add("WHERE 商品编号 = '"+bh+"' ");
ADOQuery1->Active=True;
ADOQuery1->First();
}