object BOPEdit: TBOPEdit Left = 244 Top = 153 Width = 477 Height = 325 Caption = 'BOP-Editor' Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] PixelsPerInch = 96 TextHeight = 16 object DBText1: TDBText Left = 56 Top = 16 Width = 49 Height = 17 DataField = 'BOPNr' DataSource = S_BOP1 end object Label1: TLabel Left = 8 Top = 16 Width = 33 Height = 16 Caption = 'BOP:' end object DBLookupCombo1: TDBLookupCombo Left = 120 Top = 8 Width = 177 Height = 25 DataField = 'BlNr' DataSource = S_BOP1 LookupSource = S_BUNDESLAND LookupDisplay = 'Bundesland' LookupField = 'BlNr' TabOrder = 0 end object DBGrid1: TDBGrid Left = 8 Top = 72 Width = 201 Height = 217 DataSource = S_ORT TabOrder = 1 TitleFont.Color = clWindowText TitleFont.Height = -13 TitleFont.Name = 'System' TitleFont.Style = [] OnExit = DBGrid1Exit end object DBGrid2: TDBGrid Left = 240 Top = 72 Width = 201 Height = 217 DataSource = S_PLATZ TabOrder = 2 TitleFont.Color = clWindowText TitleFont.Height = -13 TitleFont.Name = 'System' TitleFont.Style = [] OnExit = DBGrid2Exit end object DBLookupCombo2: TDBLookupCombo Left = 8 Top = 40 Width = 201 Height = 25 DataField = 'OrtNr' DataSource = S_BOP1 LookupSource = S_ORT LookupDisplay = 'Ort' LookupField = 'OrtNr' TabOrder = 3 end object DBLookupCombo3: TDBLookupCombo Left = 240 Top = 40 Width = 201 Height = 25 DataField = 'PlatzNr' DataSource = S_BOP1 LookupSource = S_PLATZ LookupDisplay = 'Platz' LookupField = 'PlatzNr' TabOrder = 4 end object BOP: TTable Active = True DatabaseName = '\programm\veranst' TableName = 'BOP.DB' Left = 480 end object S_BOP1: TDataSource DataSet = BOP2 Left = 32 end object BUNDESLAND: TTable Active = True DatabaseName = '\programm\veranst' TableName = 'BUNDESL.DB' Left = 224 end object S_BUNDESLAND: TDataSource DataSet = BUNDESLAND Left = 256 end object ORT: TTable Active = True DatabaseName = '\programm\veranst' IndexName = 'ORT_IND' TableName = 'ORT.DB' Left = 96 Top = 48 object ORTOrtNr: TIntegerField FieldName = 'OrtNr' Visible = False end object ORTOrt: TStringField FieldName = 'Ort' end end object S_ORT: TDataSource DataSet = ORT Left = 128 Top = 48 end object PLATZ: TTable Active = True DatabaseName = '\programm\veranst' IndexName = 'PLATZ_IND' TableName = 'PLATZ.DB' Left = 328 Top = 48 object PLATZPlatzNr: TIntegerField FieldName = 'PlatzNr' Visible = False end object PLATZPlatz: TStringField FieldName = 'Platz' end end object S_PLATZ: TDataSource DataSet = PLATZ Left = 360 Top = 48 end object BOP2: TTable Active = True DatabaseName = '\programm\veranst' TableName = 'BOP.DB' end end