lookup 控件

 lookup->ADOQuery->Connection = DataModule1->ADOConnection1;

 lookup->ADOQuery->SQL->Text = "select id,Name,PYCode from T where uf=1";

 lookup->ADOQuery->Open();

 lookup->ListFieldIndex = ;

 lookup->KeyField = "ID";

 lookup->ListField = "id;Name;PYCode";

 lookup->FilterFields = "Name;PYCode";