object DMrehgr: TDMrehgr OldCreateOrder = True OnCreate = DMrehgrCreate OnDestroy = DMrehgrDestroy Left = 459 Top = 165 Height = 218 Width = 247 object RehGrp_DS: TDataSource DataSet = RehGrp Left = 30 Top = 10 end object RehGrp: TMSQuery Connection = mDM.MSConnection SQL.Strings = ( 'Select * From RehberGrp' 'Order By Rehber') FetchRows = 1 BeforeInsert = RehGrpBeforeInsert BeforeEdit = RehGrpBeforeEdit BeforePost = RehGrpBeforePost OnDeleteError = UpdateError OnEditError = UpdateError OnNewRecord = RehGrpNewRecord OnPostError = UpdateError Left = 30 Top = 64 object RehGrpAdi: TStringField FieldName = 'Adi' Required = True Size = 6 end object RehGrpRehber: TStringField DisplayLabel = 'Rehber ' DisplayWidth = 8 FieldName = 'Rehber' Required = True Size = 6 end object RehGrpRehberAdi: TStringField DisplayLabel = 'Ad'#305 FieldKind = fkLookup FieldName = 'RehberAdi' LookupDataSet = Rehber LookupKeyFields = 'Kodu' LookupResultField = 'Adi' KeyFields = 'Rehber' Size = 30 Lookup = True end end object Rehber: TMSQuery Connection = mDM.MSConnection SQL.Strings = ( 'Select Kodu, Adi From Rehber') Left = 88 Top = 64 object RehberKodu: TStringField FieldName = 'Kodu' Required = True Size = 6 end object RehberAdi: TStringField FieldName = 'Adi' Size = 25 end end object RehGrpTMP: TMSQuery Connection = mDM.MSConnection SQL.Strings = ( 'Select * From RehberGrp') Left = 152 Top = 64 end object TmpQry: TMSQuery Connection = mDM.MSConnection Left = 152 Top = 16 end end