object MasterDetailMultiDemoMainDM: TMasterDetailMultiDemoMainDM
  Left = 256
  Top = 149
  Height = 475
  Width = 702
  object dsFilms: TDataSource
    DataSet = qryFilms
    Left = 128
    Top = 96
  end
  object dsFilmsPersons: TDataSource
    DataSet = qryFilmsPersons
    Left = 232
    Top = 200
  end
  object dsPersonsLine: TDataSource
    DataSet = tblPersonsLine
    Left = 312
    Top = 200
  end
  object tblPersonsLine: TTable
    Active = True
    DatabaseName = 'DemosDB'
    IndexFieldNames = 'NAME'
    TableName = 'PersonsLine.DB'
    Left = 312
    Top = 160
    object tblPersonsLineID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object tblPersonsLineNAME: TStringField
      FieldName = 'NAME'
      Size = 50
    end
  end
  object Database: TDatabase
    Connected = True
    DatabaseName = 'DemosDB'
    DriverName = 'STANDARD'
    Params.Strings = (
      'PATH=..\..\Data'
      'DEFAULT DRIVER=PARADOX'
      'ENABLE BCD=FALSE')
    SessionName = 'Default'
    Left = 48
    Top = 8
  end
  object qryFilmsPersons: TQuery
    Active = True
    AfterInsert = qryFilmsPersonsAfterInsert
    BeforePost = qryFilmsPersonsBeforePost
    OnCalcFields = qryFilmsPersonsCalcFields
    DatabaseName = 'DemosDB'
    SQL.Strings = (
      
        'select  FilmsPersonsStaff.ID, FilmID, Persons.ID as PersonID, Pe' +
        'rsonLineID, BIOGRAPHY, BIRTHCOUNTRY, BIRTHNAME, DATEOFBIRTH, FIR' +
        'STNAME, LOCATIONOFBIRTH, NICKNAME, SECONDNAME, HOMEPAGE, Gender ' +
        ' from FilmsPersonsStaff, Persons '#13#10'where'#13#10'FilmsPersonsStaff.Pers' +
        'onID = Persons.ID'#13#10)
    Left = 232
    Top = 160
    object qryFilmsPersonsName: TStringField
      FieldKind = fkCalculated
      FieldName = 'Name'
      Size = 50
      Calculated = True
    end
    object qryFilmsPersonsPersonLineID: TIntegerField
      FieldName = 'PersonLineID'
    end
    object qryFilmsPersonsFIRSTNAME: TStringField
      FieldName = 'FIRSTNAME'
      Size = 50
    end
    object qryFilmsPersonsSECONDNAME: TStringField
      FieldName = 'SECONDNAME'
      Size = 50
    end
    object qryFilmsPersonsNICKNAME: TStringField
      FieldName = 'NICKNAME'
      Size = 50
    end
    object qryFilmsPersonsBIRTHNAME: TStringField
      FieldName = 'BIRTHNAME'
      Size = 50
    end
    object qryFilmsPersonsDATEOFBIRTH: TDateTimeField
      FieldName = 'DATEOFBIRTH'
    end
    object qryFilmsPersonsLOCATIONOFBIRTH: TStringField
      FieldName = 'LOCATIONOFBIRTH'
      Size = 50
    end
    object qryFilmsPersonsBIOGRAPHY: TMemoField
      FieldName = 'BIOGRAPHY'
      BlobType = ftMemo
      Size = 10
    end
    object qryFilmsPersonsHOMEPAGE: TStringField
      FieldName = 'HOMEPAGE'
      Size = 100
    end
    object qryFilmsPersonsID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
      Visible = False
    end
    object qryFilmsPersonsFilmID: TIntegerField
      FieldName = 'FilmID'
      Visible = False
    end
    object qryFilmsPersonsBIRTHCOUNTRY: TIntegerField
      FieldName = 'BIRTHCOUNTRY'
      Visible = False
    end
    object qryFilmsPersonsGender: TBooleanField
      FieldName = 'Gender'
      Visible = False
    end
  end
  object tblPersonsHelper: TTable
    Active = True
    DatabaseName = 'DemosDB'
    IndexFieldNames = 'ID'
    TableName = 'PERSONS.DB'
    Left = 400
    Top = 160
    object tblPersonsHelperID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object tblPersonsHelperFIRSTNAME: TStringField
      FieldName = 'FIRSTNAME'
      Size = 50
    end
    object tblPersonsHelperSECONDNAME: TStringField
      FieldName = 'SECONDNAME'
      Size = 50
    end
    object tblPersonsHelperGENDER: TBooleanField
      FieldName = 'GENDER'
    end
    object tblPersonsHelperBIRTHNAME: TStringField
      FieldName = 'BIRTHNAME'
      Size = 50
    end
    object tblPersonsHelperDATEOFBIRTH: TDateTimeField
      FieldName = 'DATEOFBIRTH'
    end
    object tblPersonsHelperBIRTHCOUNTRY: TIntegerField
      FieldName = 'BIRTHCOUNTRY'
    end
    object tblPersonsHelperLOCATIONOFBIRTH: TStringField
      FieldName = 'LOCATIONOFBIRTH'
      Size = 50
    end
    object tblPersonsHelperBIOGRAPHY: TMemoField
      FieldName = 'BIOGRAPHY'
      BlobType = ftMemo
      Size = 10
    end
    object tblPersonsHelperNICKNAME: TStringField
      FieldName = 'NICKNAME'
      Size = 50
    end
    object tblPersonsHelperHOMEPAGE: TStringField
      FieldName = 'HOMEPAGE'
      Size = 100
    end
  end
  object tblPersonsStaffHelper: TTable
    Active = True
    DatabaseName = 'DemosDB'
    IndexFieldNames = 'FILMID'
    MasterFields = 'ID'
    MasterSource = dsFilms
    TableName = 'FILMSPERSONSSTAFF.DB'
    Left = 400
    Top = 200
    object tblPersonsStaffHelperID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object tblPersonsStaffHelperFILMID: TIntegerField
      FieldName = 'FILMID'
    end
    object tblPersonsStaffHelperPERSONLINEID: TIntegerField
      FieldName = 'PERSONLINEID'
    end
    object tblPersonsStaffHelperPERSONID: TIntegerField
      FieldName = 'PERSONID'
    end
    object tblPersonsStaffHelperDESCRIPTION: TStringField
      FieldName = 'DESCRIPTION'
      Size = 150
    end
  end
  object dsFilmsCompanies: TDataSource
    DataSet = qryFilmsCompanies
    Left = 32
    Top = 200
  end
  object qryFilmsCompanies: TQuery
    Active = True
    DatabaseName = 'DemosDB'
    SQL.Strings = (
      
        'SELECT FILMSCOMPANIESSTAFF.ID, FILMSCOMPANIESSTAFF.FILMID, COMPA' +
        'NIES.COMPANYNAME AS Name, COMPANIES.COMPANYWEBSITE AS WebSite, C' +
        'OMPANIESTYPE.NAME AS Type, COUNTRIES.NAME AS Country'#13#10'FROM ((FIL' +
        'MSCOMPANIESSTAFF INNER JOIN COMPANIES ON FILMSCOMPANIESSTAFF.COM' +
        'PANYID = COMPANIES.ID) LEFT JOIN COMPANIESTYPE ON COMPANIES.COMP' +
        'ANYTYPEID = COMPANIESTYPE.ID) LEFT JOIN COUNTRIES ON COMPANIES.C' +
        'OUNTRYID = COUNTRIES.ID'#13#10'ORDER BY FILMSCOMPANIESSTAFF.FILMID, CO' +
        'MPANIES.COMPANYNAME')
    Left = 32
    Top = 160
    object qryFilmsCompaniesName: TStringField
      FieldName = 'Name'
      Size = 50
    end
    object qryFilmsCompaniesType: TStringField
      FieldName = 'Type'
      Size = 50
    end
    object qryFilmsCompaniesCountry: TStringField
      FieldName = 'Country'
      Size = 60
    end
    object qryFilmsCompaniesWebSite: TStringField
      FieldName = 'WebSite'
      Visible = False
      Size = 50
    end
    object qryFilmsCompaniesID: TIntegerField
      FieldName = 'ID'
      Visible = False
    end
    object qryFilmsCompaniesFILMID: TIntegerField
      FieldName = 'FILMID'
      Visible = False
    end
  end
  object tblFilmsScreens: TTable
    Active = True
    DatabaseName = 'DemosDB'
    IndexFieldNames = 'FilmID'
    TableName = 'FILMSSCREENS.DB'
    Left = 136
    Top = 160
    object tblFilmsScreensID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
      Visible = False
    end
    object tblFilmsScreensFILMID: TIntegerField
      FieldName = 'FILMID'
      Visible = False
    end
    object tblFilmsScreensSCREEN: TBlobField
      FieldName = 'SCREEN'
      Size = 10
    end
    object tblFilmsScreensICON: TBlobField
      FieldName = 'ICON'
      Visible = False
      Size = 10
    end
  end
  object dsFilmsScreens: TDataSource
    DataSet = tblFilmsScreens
    Left = 136
    Top = 200
  end
  object qryFilms: TQuery
    Active = True
    DatabaseName = 'DemosDB'
    SQL.Strings = (
      
        'SELECT FILMS.*'#13#10'FROM FILMS INNER JOIN FILMSGENRES ON FILMS.ID = ' +
        'FILMSGENRES.FILMID'#13#10'WHERE FilmsGenres.GenreID =:Param')
    Left = 128
    Top = 56
    ParamData = <
      item
        DataType = ftInteger
        Name = 'Param'
        ParamType = ptUnknown
        Value = 1
      end>
    object qryFilmsID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object qryFilmsCAPTION: TStringField
      FieldName = 'CAPTION'
      Size = 50
    end
    object qryFilmsYEAR: TIntegerField
      FieldName = 'YEAR'
      DisplayFormat = '# year'
      EditFormat = '#'
    end
    object qryFilmsTAGLINE: TStringField
      FieldName = 'TAGLINE'
      Size = 250
    end
    object qryFilmsPLOTOUTLINE: TStringField
      DisplayWidth = 50
      FieldName = 'PLOTOUTLINE'
      Size = 200
    end
    object qryFilmsRUNTIME: TIntegerField
      FieldName = 'RUNTIME'
      DisplayFormat = '# min'
      EditFormat = '#'
    end
    object qryFilmsCOLOR: TStringField
      FieldName = 'COLOR'
      Size = 50
    end
    object qryFilmsPHOTO: TBlobField
      DisplayWidth = 20
      FieldName = 'PHOTO'
      Size = 10
    end
    object qryFilmsICON: TBlobField
      FieldName = 'ICON'
      Size = 10
    end
    object qryFilmsWEBSITE: TStringField
      FieldName = 'WEBSITE'
      Size = 50
    end
  end
  object tblGenres: TTable
    Active = True
    DatabaseName = 'DemosDB'
    TableName = 'GENRES.DB'
    Left = 24
    Top = 56
    object tblGenresID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object tblGenresNAME: TStringField
      FieldName = 'NAME'
      Size = 50
    end
  end
  object cxStyleRepository: TcxStyleRepository
    Left = 232
    Top = 16
    object cxStyle1: TcxStyle
      AssignedValues = [svColor]
      Color = 15451300
    end
    object cxStyle2: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 16247513
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      TextColor = clBlack
    end
    object cxStyle3: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 16247513
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      TextColor = clBlack
    end
    object cxStyle4: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 16247513
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      TextColor = clBlack
    end
    object cxStyle5: TcxStyle
      AssignedValues = [svColor, svTextColor]
      Color = 14811135
      TextColor = clBlack
    end
    object cxStyle6: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 14811135
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      TextColor = clNavy
    end
    object cxStyle7: TcxStyle
      AssignedValues = [svColor]
      Color = 14872561
    end
    object cxStyle8: TcxStyle
      AssignedValues = [svColor, svTextColor]
      Color = 4707838
      TextColor = clBlack
    end
    object cxStyle9: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 12937777
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      TextColor = clWhite
    end
    object cxStyle10: TcxStyle
      AssignedValues = [svColor]
      Color = 15451300
    end
    object cxStyle11: TcxStyle
      AssignedValues = [svColor, svTextColor]
      Color = 4707838
      TextColor = clBlack
    end
    object cxStyle12: TcxStyle
      AssignedValues = [svColor]
      Color = 15451300
    end
    object cxStyle13: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 14811135
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      TextColor = clNavy
    end
    object cxStyle14: TcxStyle
      AssignedValues = [svColor, svTextColor]
      Color = 12937777
      TextColor = clWhite
    end
    object cxStyle15: TcxStyle
      AssignedValues = [svColor]
      Color = 15451300
    end
    object cxStyle16: TcxStyle
      AssignedValues = [svColor]
      Color = 15451300
    end
    object cxStyle17: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 12937777
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      TextColor = clWhite
    end
    object cxStyle18: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 16247513
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      TextColor = clBlack
    end
    object cxStyle19: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 16247513
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      TextColor = clBlack
    end
    object cxStyle20: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 16247513
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      TextColor = clBlack
    end
    object cxStyle21: TcxStyle
      AssignedValues = [svColor, svTextColor]
      Color = 14811135
      TextColor = clBlack
    end
    object cxStyle22: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 14811135
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      TextColor = clNavy
    end
    object cxStyle23: TcxStyle
      AssignedValues = [svColor]
      Color = 14872561
    end
    object cxStyle24: TcxStyle
      AssignedValues = [svColor, svTextColor]
      Color = 4707838
      TextColor = clBlack
    end
    object cxStyle25: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 12937777
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      TextColor = clWhite
    end
    object cxStyle26: TcxStyle
      AssignedValues = [svColor]
      Color = 15451300
    end
    object cxStyle27: TcxStyle
      AssignedValues = [svColor, svTextColor]
      Color = 4707838
      TextColor = clBlack
    end
    object cxStyle28: TcxStyle
      AssignedValues = [svColor]
      Color = 15451300
    end
    object cxStyle29: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 14811135
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      TextColor = clNavy
    end
    object cxStyle30: TcxStyle
      AssignedValues = [svColor, svTextColor]
      Color = 12937777
      TextColor = clWhite
    end
    object cxStyle31: TcxStyle
      AssignedValues = [svColor]
      Color = 15451300
    end
    object cxStyle32: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 12937777
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      TextColor = clWhite
    end
    object cxStyle33: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 12937777
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      TextColor = clWhite
    end
    object cxStyle34: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 16247513
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      TextColor = clBlack
    end
    object cxStyle35: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 16247513
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      TextColor = clBlack
    end
    object cxStyle36: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 16247513
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      TextColor = clBlack
    end
    object cxStyle37: TcxStyle
      AssignedValues = [svColor]
      Color = 15451300
    end
    object cxStyle38: TcxStyle
      AssignedValues = [svColor, svTextColor]
      Color = 4707838
      TextColor = clBlack
    end
    object cxStyle39: TcxStyle
      AssignedValues = [svColor, svTextColor]
      Color = 16749885
      TextColor = clWhite
    end
    object cxStyle40: TcxStyle
      AssignedValues = [svColor, svTextColor]
      Color = 12937777
      TextColor = clWhite
    end
    object GridTableViewStyleSheetDevExpress: TcxGridTableViewStyleSheet
      Caption = 'DevExpress'
      Styles.Background = cxStyle1
      Styles.Content = cxStyle2
      Styles.ContentEven = cxStyle3
      Styles.ContentOdd = cxStyle4
      Styles.Inactive = cxStyle10
      Styles.IncSearch = cxStyle11
      Styles.Selection = cxStyle14
      Styles.FilterBox = cxStyle5
      Styles.Footer = cxStyle6
      Styles.Group = cxStyle7
      Styles.GroupByBox = cxStyle8
      Styles.Header = cxStyle9
      Styles.Indicator = cxStyle12
      Styles.Preview = cxStyle13
    end
    object GridBandedTableViewStyleSheetDevExpress: TcxGridBandedTableViewStyleSheet
      Caption = 'DevExpress'
      Styles.Background = cxStyle15
      Styles.Content = cxStyle18
      Styles.ContentEven = cxStyle19
      Styles.ContentOdd = cxStyle20
      Styles.Inactive = cxStyle26
      Styles.IncSearch = cxStyle27
      Styles.Selection = cxStyle30
      Styles.FilterBox = cxStyle21
      Styles.Footer = cxStyle22
      Styles.Group = cxStyle23
      Styles.GroupByBox = cxStyle24
      Styles.Header = cxStyle25
      Styles.Indicator = cxStyle28
      Styles.Preview = cxStyle29
      Styles.BandBackground = cxStyle16
      Styles.BandHeader = cxStyle17
    end
    object GridCardViewStyleSheetDevExpress: TcxGridCardViewStyleSheet
      Caption = 'DevExpress'
      Styles.Background = cxStyle31
      Styles.Content = cxStyle34
      Styles.ContentEven = cxStyle35
      Styles.ContentOdd = cxStyle36
      Styles.Inactive = cxStyle37
      Styles.IncSearch = cxStyle38
      Styles.Selection = cxStyle40
      Styles.CaptionRow = cxStyle32
      Styles.CardBorder = cxStyle33
      Styles.RowCaption = cxStyle39
    end
  end
end