Find fields and find components

Object Adotbbugshop:twidestringfield//DataSet Lookup (permanent) field such as Department name     = fklookup    'shop' target DataSet-department name-is the lookup field

Lookupdataset=Adotblshop//Find source
Lookupkeyfields='ID'//Find a source
Lookupresultfield=' Shop'//Find source-department name-show
Keyfields='Shopid'//Target data Set-department number
Lookup=True
End 

Object
Adotbbugshopid:tintegerfield
FieldName='Shopid'Target data Set-department number

Visible=False

End

Object'ID'=='custno '//Fields displayed  'custnoDataField Correspondence

End

Find fields and find components