object DMExprs: TDMExprs
  OldCreateOrder = False
  Left = 602
  Top = 277
  Height = 298
  Width = 318
  object atExprs: TADOTable
    TableName = 'Exprs'
    Left = 50
    Top = 33
  end
  object dspExprs: TDataSetProvider
    DataSet = atExprs
    UpdateMode = upWhereKeyOnly
    Left = 49
    Top = 107
  end
  object cdsOrgExprs: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspExprs'
    AfterOpen = cdsOrgExprsAfterOpen
    Left = 51
    Top = 182
    object cdsOrgExprsMajorID: TIntegerField
      FieldName = 'MajorID'
    end
    object cdsOrgExprsMinorID: TIntegerField
      FieldName = 'MinorID'
    end
    object cdsOrgExprsRecdID: TIntegerField
      FieldName = 'RecdID'
    end
    object cdsOrgExprsExprs: TWideStringField
      FieldName = 'Exprs'
      Size = 255
    end
    object cdsOrgExprsFlag: TIntegerField
      FieldName = 'Flag'
    end
    object cdsOrgExprsExprsValue: TFloatField
      FieldName = 'ExprsValue'
    end
    object cdsOrgExprsExprs1: TWideStringField
      FieldName = 'Exprs1'
      Size = 255
    end
    object cdsOrgExprsExprs2: TWideStringField
      FieldName = 'Exprs2'
      Size = 255
    end
    object cdsOrgExprsExprs3: TWideStringField
      FieldName = 'Exprs3'
      Size = 255
    end
    object cdsOrgExprsExprs4: TWideStringField
      FieldName = 'Exprs4'
      Size = 255
    end
  end
  object cdsExprs: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 151
    Top = 183
    object cdsExprsMajorID: TIntegerField
      FieldName = 'MajorID'
    end
    object cdsExprsMinorID: TIntegerField
      FieldName = 'MinorID'
    end
    object cdsExprsRecdID: TIntegerField
      FieldName = 'RecdID'
    end
    object cdsExprsExprs: TWideStringField
      FieldName = 'Exprs'
      Size = 255
    end
    object cdsExprsFlag: TIntegerField
      FieldName = 'Flag'
    end
    object cdsExprsExprsValue: TFloatField
      FieldName = 'ExprsValue'
    end
    object cdsExprsExprs1: TWideStringField
      FieldName = 'Exprs1'
      Size = 255
    end
    object cdsExprsExprs2: TWideStringField
      FieldName = 'Exprs2'
      Size = 255
    end
    object cdsExprsExprs3: TWideStringField
      FieldName = 'Exprs3'
      Size = 255
    end
    object cdsExprsExprs4: TWideStringField
      FieldName = 'Exprs4'
      Size = 255
    end
  end
end