viewtablesimpledemodata.dfm

DevExpress ExpressQuantumGrid Suite v5.9 Full Source

object ViewTableSimpleDemoMainDM: TViewTableSimpleDemoMainDM
  Left = 283
  Top = 161
  Height = 479
  Width = 741
  object tlbGENRES: TTable
    Active = True
    DatabaseName = 'DemosDB'
    TableName = 'GENRES.DB'
    Left = 104
    Top = 64
    object tlbGENRESID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object tlbGENRESNAME: TStringField
      FieldName = 'NAME'
      Size = 50
    end
  end
  object dsGENRES: TDataSource
    DataSet = tlbGENRES
    Left = 32
    Top = 64
  end
  object qreFilms: TQuery
    Active = True
    CachedUpdates = True
    AfterInsert = qreFilmsAfterInsert
    AfterPost = qreFilmsAfterPost
    BeforeDelete = qreFilmsBeforeDelete
    AfterDelete = qreFilmsAfterDelete
    DatabaseName = 'DemosDB'
    SessionName = 'Default'
    DataSource = dsGENRES
    RequestLive = True
    SQL.Strings = (
      
        'select * from FILMS where ID in (select FILMID from FILMSGENRES ' +
        'where '
      'GENREID=:ID)'
      ' ')
    UpdateObject = UpdateSQL
    Left = 104
    Top = 112
    ParamData = <
      item
        DataType = ftAutoInc
        Name = 'ID'
        ParamType = ptUnknown
      end>
    object qreFilmsID: TIntegerField
      FieldName = 'ID'
    end
    object qreFilmsCAPTION: TStringField
      DisplayWidth = 16
      FieldName = 'CAPTION'
      Size = 50
    end
    object qreFilmsYEAR: TIntegerField
      FieldName = 'YEAR'
    end
    object qreFilmsTAGLINE: TStringField
      DisplayWidth = 24
      FieldName = 'TAGLINE'
      Size = 250
    end
    object qreFilmsPLOTOUTLINE: TStringField
      DisplayWidth = 16
      FieldName = 'PLOTOUTLINE'
      Size = 200
    end
    object qreFilmsRUNTIME: TIntegerField
      DisplayWidth = 11
      FieldName = 'RUNTIME'
    end
    object qreFilmsCOLOR: TStringField
      DisplayWidth = 6
      FieldName = 'COLOR'
      Size = 50
    end
    object qreFilmsPHOTO: TBlobField
      DisplayWidth = 8
      FieldName = 'PHOTO'
      BlobType = ftParadoxOle
      Size = 10
    end
    object qreFilmsICON: TBlobField
      DisplayWidth = 16
      FieldName = 'ICON'
      BlobType = ftParadoxOle
      Size = 10
    end
    object qreFilmsWEBSITE: TStringField
      DisplayWidth = 16
      FieldName = 'WEBSITE'
      Size = 50
    end
  end
  object dsFilms: TDataSource
    DataSet = qreFilms
    Left = 32
    Top = 112
  end
  object tblFilms: TTable
    Active = True
    DatabaseName = 'DemosDB'
    TableName = 'FILMS.DB'
    Left = 32
    Top = 160
    object tblFilmsID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object tblFilmsCAPTION: TStringField
      DisplayWidth = 100
      FieldName = 'CAPTION'
      Size = 50
    end
    object tblFilmsYEAR: TIntegerField
      DisplayWidth = 60
      FieldName = 'YEAR'
    end
    object tblFilmsTAGLINE: TStringField
      DisplayWidth = 150
      FieldName = 'TAGLINE'
      Size = 250
    end
    object tblFilmsPLOTOUTLINE: TStringField
      DisplayWidth = 100
      FieldName = 'PLOTOUTLINE'
      Size = 200
    end
    object tblFilmsRUNTIME: TIntegerField
      DisplayWidth = 65
      FieldName = 'RUNTIME'
    end
    object tblFilmsCOLOR: TStringField
      DisplayWidth = 45
      FieldName = 'COLOR'
      Size = 50
    end
    object tblFilmsPHOTO: TBlobField
      DisplayWidth = 50
      FieldName = 'PHOTO'
      BlobType = ftBlob
      Size = 10
    end
    object tblFilmsICON: TBlobField
      DisplayWidth = 100
      FieldName = 'ICON'
      BlobType = ftBlob
      Size = 10
    end
    object tblFilmsWEBSITE: TStringField
      DisplayWidth = 100
      FieldName = 'WEBSITE'
      Size = 50
    end
  end
  object tblFilmsGenres: TTable
    Active = True
    DatabaseName = 'DemosDB'
    TableName = 'FILMSGENRES.DB'
    Left = 32
    Top = 208
    object tblFilmsGenresID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object tblFilmsGenresFILMID: TIntegerField
      FieldName = 'FILMID'
    end
    object tblFilmsGenresGENREID: TIntegerField
      FieldName = 'GENREID'
    end
  end
  object StyleRepository: TcxStyleRepository
    Left = 104
    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 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
  end
  object Database: TDatabase
    Connected = True
    DatabaseName = 'DemosDB'
    DriverName = 'STANDARD'
    LoginPrompt = False
    Params.Strings = (
      'PATH=..\..\Data'
      'DEFAULT DRIVER=PARADOX'
      'ENABLE BCD=FALSE')
    SessionName = 'Default'
    TransIsolation = tiDirtyRead
    Left = 32
    Top = 16
  end
  object UpdateSQL: TUpdateSQL
    ModifySQL.Strings = (
      'update FILMS'
      'set'
      '  CAPTION = :CAPTION,'
      '  FILMS."YEAR" = :YEAR,'
      '  TAGLINE = :TAGLINE,'
      '  PLOTOUTLINE = :PLOTOUTLINE,'
      '  RUNTIME = :RUNTIME,'
      '  COLOR = :COLOR,'
      '  PHOTO = :PHOTO,'
      '  ICON = :ICON,'
      '  WEBSITE = :WEBSITE'
      'where'
      '  ID = :OLD_ID')
    InsertSQL.Strings = (
      'insert into FILMS'
      '  (CAPTION, FILMS."YEAR", TAGLINE, PLOTOUTLINE, RUNTIME, COLOR, '
      'PHOTO, ICON, WEBSITE)'
      'values'
      
        '  (:CAPTION, :YEAR, :TAGLINE, :PLOTOUTLINE, :RUNTIME, :COLOR, :P' +
        'HOTO, '
      ':ICON, '
      '   :WEBSITE)')
    DeleteSQL.Strings = (
      'delete from FILMS'
      'where'
      '  ID = :OLD_ID')
    Left = 104
    Top = 160
  end
  object qreMaxFilmsID: TQuery
    Active = True
    DatabaseName = 'DemosDB'
    SQL.Strings = (
      'select MAX(ID) from FILMS')
    Left = 32
    Top = 256
    object qreMaxFilmsIDMAXOFID: TIntegerField
      FieldName = 'MAX OF ID'
      Origin = 'DEMOSDB."FILMS.DB".ID'
    end
  end
end