查找字段 和查找组件

object ADOTbBugShop: TWideStringField //数据集中的查找(永久)字段 比如 部门名称
    FieldKind = fkLookup
    FieldName = 'Shop'目标数据集-部门名称-就是查找字段

 LookupDataSet = ADOTblShop //查找来源
LookupKeyFields = 'ID'// 查找来源
LookupResultField = 'Shop'//查找来源 - 部门名称-显示的 
KeyFields = 'ShopID'//目标数据集-部门编号 
Lookup = True
 end 

object 
ADOTbBugShopID: TIntegerField 
FieldName = 'ShopID'//目标数据集-部门编号

Visible = False 

end

 

object DBLookupCombo1: TDBLookupCombo
DataField = 'ID'
DataSource = dm.DataSource1
LookupSource = dm.DataSource5
LookupDisplay = 'CustNo' //显示的字段
LookupField = 'CustNo'//实际的字段 和 DataField 对应

 end