EvaPig

object DataModuleDeclaration: TDataModuleDeclaration

  OldCreateOrder = False

  OnCreate = DataModuleCreate

  OnDestroy = DataModuleDestroy

  Height = 605

  Width = 832

  object ClientDataSetClasses: TClientDataSet

    Aggregates = <>

    AutoCalcFields = False

    MasterFields = 'Id'

    Params = <>

    Left = 400

    Top = 40

    object ClientDataSetClassesId: TIntegerField

      FieldName = 'Id'

    end

    object ClientDataSetClassesName: TWideStringField

      FieldName = 'Name'

      Size = 40

    end

  end

  object ClientDataSetInraAfz: TClientDataSet

    Aggregates = <>

    AutoCalcFields = False

    FieldDefs = <>

    IndexDefs = <

      item

        Name = 'ClientDataSetInraAfzIndexId'

        Fields = 'Id'

        Options = [ixPrimary]

      end>

    Params = <>

    StoreDefs = True

    Left = 80

    Top = 120

    object ClientDataSetInraAfzId: TAutoIncField

      AutoGenerateValue = arAutoInc

      FieldName = 'Id'

    end

    object ClientDataSetInraAfzName: TStringField

      FieldName = 'Name'

      Size = 80

    end

    object ClientDataSetInraAfzComment: TStringField

      FieldName = 'Comment'

      Size = 320

    end

    object ClientDataSetInraAfzSource: TStringField

      FieldName = 'Source'

      Size = 80

    end

    object ClientDataSetInraAfzClass: TIntegerField

      FieldName = 'Class'

      Required = True

    end

    object ClientDataSetInraAfzMS: TFloatField

      FieldName = 'MS'

    end

    object ClientDataSetInraAfzMM: TFloatField

      FieldName = 'MM'

    end

    object ClientDataSetInraAfzMAT: TFloatField

      FieldName = 'MAT'

    end

    object ClientDataSetInraAfzMG: TFloatField

      FieldName = 'MG'

    end

    object ClientDataSetInraAfzCB: TFloatField

      FieldName = 'CB'

    end

    object ClientDataSetInraAfzCoefCB: TFloatField

      FieldName = 'CoefCB'

    end

    object ClientDataSetInraAfzNDF: TFloatField

      FieldName = 'NDF'

    end

    object ClientDataSetInraAfzCoefNDF: TFloatField

      FieldName = 'CoefNDF'

    end

    object ClientDataSetInraAfzADF: TFloatField

      FieldName = 'ADF'

    end

    object ClientDataSetInraAfzCoefADF: TFloatField

      FieldName = 'CoefADF'

    end

    object ClientDataSetInraAfzADL: TFloatField

      FieldName = 'ADL'

    end

    object ClientDataSetInraAfzAmidon: TFloatField

      FieldName = 'Amidon'

    end

    object ClientDataSetInraAfzSucres: TFloatField

      FieldName = 'Sucres'

    end

    object ClientDataSetInraAfzEB: TFloatField

      FieldName = 'EB'

    end

    object ClientDataSetInraAfzdEc: TFloatField

      FieldName = 'dEc'

    end

    object ClientDataSetInraAfzEMc_EDc: TFloatField

      FieldName = 'EMc/EDc'

    end

    object ClientDataSetInraAfzENc_EMc: TFloatField

      FieldName = 'ENc/EMc'

    end

    object ClientDataSetInraAfzEMt_EDt: TFloatField

      FieldName = 'EMt/EDt'

    end

    object ClientDataSetInraAfzENt_EMt: TFloatField

      FieldName = 'ENt/EMt'

    end

    object ClientDataSetInraAfzEDt_EDc: TFloatField

      FieldName = 'EDt/EDc'

    end

    object ClientDataSetInraAfza: TFloatField

      FieldName = 'a'

    end

    object ClientDataSetInraAfzb: TFloatField

      FieldName = 'b'

    end

    object ClientDataSetInraAfzdNc: TFloatField

      FieldName = 'dNc'

    end

    object ClientDataSetInraAfzdNt: TFloatField

      FieldName = 'dNt'

    end

    object ClientDataSetInraAfzLys: TFloatField

      FieldName = 'Lys'

    end

    object ClientDataSetInraAfzThr: TFloatField

      FieldName = 'Thr'

    end

    object ClientDataSetInraAfzMet: TFloatField

      FieldName = 'Met'

    end

    object ClientDataSetInraAfzCys: TFloatField

      FieldName = 'Cys'

    end

    object ClientDataSetInraAfzMetCys: TFloatField

      FieldName = 'MetCys'

    end

    object ClientDataSetInraAfzTrp: TFloatField

      FieldName = 'Trp'

    end

    object ClientDataSetInraAfzIle: TFloatField

      FieldName = 'Ile'

    end

    object ClientDataSetInraAfzVal: TFloatField

      FieldName = 'Val'

    end

    object ClientDataSetInraAfzLeu: TFloatField

      FieldName = 'Leu'

    end

    object ClientDataSetInraAfzPhe: TFloatField

      FieldName = 'Phe'

    end

    object ClientDataSetInraAfzTyr: TFloatField

      FieldName = 'Tyr'

    end

    object ClientDataSetInraAfzPheTyr: TFloatField

      FieldName = 'PheTyr'

    end

    object ClientDataSetInraAfzHis: TFloatField

      FieldName = 'His'

    end

    object ClientDataSetInraAfzArg: TFloatField

      FieldName = 'Arg'

    end

    object ClientDataSetInraAfzAla: TFloatField

      FieldName = 'Ala'

    end

    object ClientDataSetInraAfzAsp: TFloatField

      FieldName = 'Asp'

    end

    object ClientDataSetInraAfzGlu: TFloatField

      FieldName = 'Glu'

    end

    object ClientDataSetInraAfzGly: TFloatField

      FieldName = 'Gly'

    end

    object ClientDataSetInraAfzSer: TFloatField

      FieldName = 'Ser'

    end

    object ClientDataSetInraAfzPro: TFloatField

      FieldName = 'Pro'

    end

    object ClientDataSetInraAfzdLys: TFloatField

      FieldName = 'dLys'

    end

    object ClientDataSetInraAfzdThr: TFloatField

      FieldName = 'dThr'

    end

    object ClientDataSetInraAfzdMet: TFloatField

      FieldName = 'dMet'

    end

    object ClientDataSetInraAfzdCys: TFloatField

      FieldName = 'dCys'

    end

    object ClientDataSetInraAfzdMetCys: TFloatField

      FieldName = 'dMetCys'

    end

    object ClientDataSetInraAfzdTrp: TFloatField

      FieldName = 'dTrp'

    end

    object ClientDataSetInraAfzdIle: TFloatField

      FieldName = 'dIle'

    end

    object ClientDataSetInraAfzdVal: TFloatField

      FieldName = 'dVal'

    end

    object ClientDataSetInraAfzdLeu: TFloatField

      FieldName = 'dLeu'

    end

    object ClientDataSetInraAfzdPhe: TFloatField

      FieldName = 'dPhe'

    end

    object ClientDataSetInraAfzdTyr: TFloatField

      FieldName = 'dTyr'

    end

    object ClientDataSetInraAfzdPheTyr: TFloatField

      FieldName = 'dPheTyr'

    end

    object ClientDataSetInraAfzdHis: TFloatField

      FieldName = 'dHis'

    end

    object ClientDataSetInraAfzdArg: TFloatField

      FieldName = 'dArg'

    end

    object ClientDataSetInraAfzdAla: TFloatField

      FieldName = 'dAla'

    end

    object ClientDataSetInraAfzdAsp: TFloatField

      FieldName = 'dAsp'

    end

    object ClientDataSetInraAfzdGlu: TFloatField

      FieldName = 'dGlu'

    end

    object ClientDataSetInraAfzdGly: TFloatField

      FieldName = 'dGly'

    end

    object ClientDataSetInraAfzdSer: TFloatField

      FieldName = 'dSer'

    end

    object ClientDataSetInraAfzdPro: TFloatField

      FieldName = 'dPro'

    end

    object ClientDataSetInraAfzCa: TFloatField

      FieldName = 'Ca'

    end

    object ClientDataSetInraAfzP: TFloatField

      FieldName = 'P'

    end

    object ClientDataSetInraAfzdP: TFloatField

      FieldName = 'dP'

    end

    object ClientDataSetInraAfzdPphy: TFloatField

      FieldName = 'dPphy'

    end

  end

  object DataSourceInraAfz: TDataSource

    DataSet = ClientDataSetInraAfz

    Left = 240

    Top = 120

  end

  object ClientDataSetIngredients: TClientDataSet

    Aggregates = <>

    AutoCalcFields = False

    FilterOptions = [foCaseInsensitive]

    Params = <>

    OnFilterRecord = ClientDataSetIngredientsFilterRecord

    Left = 400

    Top = 160

    object ClientDataSetIngredientsId: TIntegerField

      FieldName = 'Id'

    end

    object ClientDataSetIngredientsName: TWideStringField

      FieldName = 'Name'

      Size = 80

    end

    object ClientDataSetIngredientsDefinition: TWideStringField

      FieldName = 'Definition'

      Size = 320

    end

    object ClientDataSetIngredientsClass: TIntegerField

      FieldName = 'Class'

    end

    object ClientDataSetIngredientsClassName: TWideStringField

      DisplayLabel = 'Class'

      FieldKind = fkLookup

      FieldName = 'ClassName'

      LookupDataSet = ClientDataSetClasses

      LookupKeyFields = 'Id'

      LookupResultField = 'Name'

      KeyFields = 'Class'

      Size = 40

      Lookup = True

    end

    object ClientDataSetIngredientsUser: TBooleanField

      FieldName = 'User'

    end

    object ClientDataSetIngredientsModel: TIntegerField

      FieldName = 'Model'

    end

    object ClientDataSetIngredientsSource: TWideStringField

      DisplayLabel = 'Origin'

      FieldName = 'Source'

      Size = 80

    end

    object ClientDataSetIngredientsMS: TFloatField

      DisplayLabel = 'Dry matter'

      FieldName = 'MS'

    end

    object ClientDataSetIngredientsMS2: TFloatField

      DisplayLabel = 'Dry matter'

      FieldName = 'MS2'

    end

    object ClientDataSetIngredientsMM: TFloatField

      DisplayLabel = 'Ash'

      FieldName = 'MM'

    end

    object ClientDataSetIngredientsMAT: TFloatField

      DisplayLabel = 'Crude protein'

      FieldName = 'MAT'

    end

    object ClientDataSetIngredientsMG: TFloatField

      DisplayLabel = 'Crude fat'

      FieldName = 'MG'

    end

    object ClientDataSetIngredientsCB: TFloatField

      DisplayLabel = 'Crude fibre'

      FieldName = 'CB'

    end

    object ClientDataSetIngredientsNDF: TFloatField

      FieldName = 'NDF'

    end

    object ClientDataSetIngredientsADF: TFloatField

      FieldName = 'ADF'

    end

    object ClientDataSetIngredientsADL: TFloatField

      FieldName = 'ADL'

    end

    object ClientDataSetIngredientsAmidon: TFloatField

      DisplayLabel = 'Starch'

      FieldName = 'Amidon'

    end

    object ClientDataSetIngredientsSucres: TFloatField

      DisplayLabel = 'Sugars'

      FieldName = 'Sucres'

    end

    object ClientDataSetIngredientsEB: TFloatField

      DisplayLabel = 'GE'

      FieldName = 'EB'

    end

    object ClientDataSetIngredientsBonus: TFloatField

      DisplayLabel = 'Energy bonus'

      FieldName = 'Bonus'

    end

    object ClientDataSetIngredientsdEc: TFloatField

      DisplayLabel = 'Ed, growing pig'

      FieldName = 'dEc'

    end

    object ClientDataSetIngredientsEDc: TFloatField

      DisplayLabel = 'DE, growing pig'

      FieldName = 'EDc'

    end

    object ClientDataSetIngredientsEMc_EDc: TFloatField

      DisplayLabel = 'ME / DE, growing pig'

      FieldName = 'EMc/EDc'

    end

    object ClientDataSetIngredientsEMc: TFloatField

      DisplayLabel = 'ME, growing pig'

      FieldName = 'EMc'

    end

    object ClientDataSetIngredientsENc_EMc: TFloatField

      DisplayLabel = 'NE / ME, growing pig'

      FieldName = 'ENc/EMc'

    end

    object ClientDataSetIngredientsENc: TFloatField

      DisplayLabel = 'NE, growing pig'

      FieldName = 'ENc'

    end

    object ClientDataSetIngredientsdEt: TFloatField

      DisplayLabel = 'Ed, adult pig'

      FieldName = 'dEt'

    end

    object ClientDataSetIngredientsEDt: TFloatField

      DisplayLabel = 'DE, adult pig'

      FieldName = 'EDt'

    end

    object ClientDataSetIngredientsEMt_EDt: TFloatField

      DisplayLabel = 'ME / DE, adult pig'

      FieldName = 'EMt/EDt'

    end

    object ClientDataSetIngredientsEMt: TFloatField

      DisplayLabel = 'ME, adult pig'

      FieldName = 'EMt'

    end

    object ClientDataSetIngredientsENt_EMt: TFloatField

      DisplayLabel = 'NE / ME, adult pig'

      FieldName = 'ENt/EMt'

    end

    object ClientDataSetIngredientsENt: TFloatField

      DisplayLabel = 'NE, adult pig'

      FieldName = 'ENt'

    end

    object ClientDataSetIngredientsEDt_EDc: TFloatField

      DisplayLabel = 'DE, adult pig / DE, growing pig'

      FieldName = 'EDt/EDc'

    end

    object ClientDataSetIngredientsEMt_EMc: TFloatField

      DisplayLabel = 'ME, adult pig / ME, growing pig'

      FieldName = 'EMt/EMc'

    end

    object ClientDataSetIngredientsENt_ENc: TFloatField

      DisplayLabel = 'NE, adult pig / NE, growing pig'

      FieldName = 'ENt/ENc'

    end

    object ClientDataSetIngredientsdNc: TFloatField

      DisplayLabel = 'Nd, growing pig'

      FieldName = 'dNc'

    end

    object ClientDataSetIngredientsdNt: TFloatField

      DisplayLabel = 'Nd, adult pig'

      FieldName = 'dNt'

    end

    object ClientDataSetIngredientsLys: TFloatField

      FieldName = 'Lys'

    end

    object ClientDataSetIngredientsThr: TFloatField

      FieldName = 'Thr'

    end

    object ClientDataSetIngredientsMet: TFloatField

      FieldName = 'Met'

    end

    object ClientDataSetIngredientsCys: TFloatField

      FieldName = 'Cys'

    end

    object ClientDataSetIngredientsMetCys: TFloatField

      DisplayLabel = 'Met+Cys'

      FieldName = 'MetCys'

    end

    object ClientDataSetIngredientsTrp: TFloatField

      FieldName = 'Trp'

    end

    object ClientDataSetIngredientsIle: TFloatField

      FieldName = 'Ile'

    end

    object ClientDataSetIngredientsVal: TFloatField

      FieldName = 'Val'

    end

    object ClientDataSetIngredientsLeu: TFloatField

      FieldName = 'Leu'

    end

    object ClientDataSetIngredientsPhe: TFloatField

      FieldName = 'Phe'

    end

    object ClientDataSetIngredientsTyr: TFloatField

      FieldName = 'Tyr'

    end

    object ClientDataSetIngredientsPheTyr: TFloatField

      DisplayLabel = 'Phe+Tyr'

      FieldName = 'PheTyr'

    end

    object ClientDataSetIngredientsHis: TFloatField

      FieldName = 'His'

    end

    object ClientDataSetIngredientsArg: TFloatField

      FieldName = 'Arg'

    end

    object ClientDataSetIngredientsAla: TFloatField

      FieldName = 'Ala'

    end

    object ClientDataSetIngredientsAsp: TFloatField

      FieldName = 'Asp'

    end

    object ClientDataSetIngredientsGlu: TFloatField

      FieldName = 'Glu'

    end

    object ClientDataSetIngredientsGly: TFloatField

      FieldName = 'Gly'

    end

    object ClientDataSetIngredientsSer: TFloatField

      FieldName = 'Ser'

    end

    object ClientDataSetIngredientsPro: TFloatField

      FieldName = 'Pro'

    end

    object ClientDataSetIngredientsLys_MAT: TFloatField

      DisplayLabel = 'Lys / crude protein'

      FieldName = 'Lys/MAT'

    end

    object ClientDataSetIngredientsThr_MAT: TFloatField

      DisplayLabel = 'Thr / crude protein'

      FieldName = 'Thr/MAT'

    end

    object ClientDataSetIngredientsMet_MAT: TFloatField

      DisplayLabel = 'Met / crude protein'

      FieldName = 'Met/MAT'

    end

    object ClientDataSetIngredientsCys_MAT: TFloatField

      DisplayLabel = 'Cys / crude protein'

      FieldName = 'Cys/MAT'

    end

    object ClientDataSetIngredientsMetCys_MAT: TFloatField

      DisplayLabel = 'Met+Cys / crude protein'

      FieldName = 'MetCys/MAT'

    end

    object ClientDataSetIngredientsTrp_MAT: TFloatField

      DisplayLabel = 'Trp / crude protein'

      FieldName = 'Trp/MAT'

    end

    object ClientDataSetIngredientsIle_MAT: TFloatField

      DisplayLabel = 'Ile / crude protein'

      FieldName = 'Ile/MAT'

    end

    object ClientDataSetIngredientsVal_MAT: TFloatField

      DisplayLabel = 'Val / crude protein'

      FieldName = 'Val/MAT'

    end

    object ClientDataSetIngredientsLeu_MAT: TFloatField

      DisplayLabel = 'Leu / crude protein'

      FieldName = 'Leu/MAT'

    end

    object ClientDataSetIngredientsPhe_MAT: TFloatField

      DisplayLabel = 'Phe / crude protein'

      FieldName = 'Phe/MAT'

    end

    object ClientDataSetIngredientsTyr_MAT: TFloatField

      DisplayLabel = 'Tyr / crude protein'

      FieldName = 'Tyr/MAT'

    end

    object ClientDataSetIngredientsPheTyr_MAT: TFloatField

      DisplayLabel = 'Phe+Tyr / crude protein'

      FieldName = 'PheTyr/MAT'

    end

    object ClientDataSetIngredientsHis_MAT: TFloatField

      DisplayLabel = 'His / crude protein'

      FieldName = 'His/MAT'

    end

    object ClientDataSetIngredientsArg_MAT: TFloatField

      DisplayLabel = 'Arg / crude protein'

      FieldName = 'Arg/MAT'

    end

    object ClientDataSetIngredientsAla_MAT: TFloatField

      DisplayLabel = 'Ala / crude protein'

      FieldName = 'Ala/MAT'

    end

    object ClientDataSetIngredientsAsp_MAT: TFloatField

      DisplayLabel = 'Asp / crude protein'

      FieldName = 'Asp/MAT'

    end

    object ClientDataSetIngredientsGlu_MAT: TFloatField

      DisplayLabel = 'Glu / crude protein'

      FieldName = 'Glu/MAT'

    end

    object ClientDataSetIngredientsGly_MAT: TFloatField

      DisplayLabel = 'Gly / crude protein'

      FieldName = 'Gly/MAT'

    end

    object ClientDataSetIngredientsSer_MAT: TFloatField

      DisplayLabel = 'Ser / crude protein'

      FieldName = 'Ser/MAT'

    end

    object ClientDataSetIngredientsPro_MAT: TFloatField

      DisplayLabel = 'Pro / crude protein'

      FieldName = 'Pro/MAT'

    end

    object ClientDataSetIngredientsdLys: TFloatField

      DisplayLabel = 'Lysd'

      FieldName = 'dLys'

    end

    object ClientDataSetIngredientsdThr: TFloatField

      DisplayLabel = 'Thrd'

      FieldName = 'dThr'

    end

    object ClientDataSetIngredientsdMet: TFloatField

      DisplayLabel = 'Metd'

      FieldName = 'dMet'

    end

    object ClientDataSetIngredientsdCys: TFloatField

      DisplayLabel = 'Cysd'

      FieldName = 'dCys'

    end

    object ClientDataSetIngredientsdMetCys: TFloatField

      DisplayLabel = 'Met+Cysd'

      FieldName = 'dMetCys'

    end

    object ClientDataSetIngredientsdTrp: TFloatField

      DisplayLabel = 'Trpd'

      FieldName = 'dTrp'

    end

    object ClientDataSetIngredientsdIle: TFloatField

      DisplayLabel = 'Iled'

      FieldName = 'dIle'

    end

    object ClientDataSetIngredientsdVal: TFloatField

      DisplayLabel = 'Vald'

      FieldName = 'dVal'

    end

    object ClientDataSetIngredientsdLeu: TFloatField

      DisplayLabel = 'Leud'

      FieldName = 'dLeu'

    end

    object ClientDataSetIngredientsdPhe: TFloatField

      DisplayLabel = 'Phed'

      FieldName = 'dPhe'

    end

    object ClientDataSetIngredientsdTyr: TFloatField

      DisplayLabel = 'Tyrd'

      FieldName = 'dTyr'

    end

    object ClientDataSetIngredientsdPheTyr: TFloatField

      DisplayLabel = 'Phe+Tyrd'

      FieldName = 'dPheTyr'

    end

    object ClientDataSetIngredientsdHis: TFloatField

      DisplayLabel = 'Hisd'

      FieldName = 'dHis'

    end

    object ClientDataSetIngredientsdArg: TFloatField

      DisplayLabel = 'Argd'

      FieldName = 'dArg'

    end

    object ClientDataSetIngredientsdAla: TFloatField

      DisplayLabel = 'Alad'

      FieldName = 'dAla'

    end

    object ClientDataSetIngredientsdAsp: TFloatField

      DisplayLabel = 'Aspd'

      FieldName = 'dAsp'

    end

    object ClientDataSetIngredientsdGlu: TFloatField

      DisplayLabel = 'Glud'

      FieldName = 'dGlu'

    end

    object ClientDataSetIngredientsdGly: TFloatField

      DisplayLabel = 'Glyd'

      FieldName = 'dGly'

    end

    object ClientDataSetIngredientsdSer: TFloatField

      DisplayLabel = 'Serd'

      FieldName = 'dSer'

    end

    object ClientDataSetIngredientsdPro: TFloatField

      DisplayLabel = 'Prod'

      FieldName = 'dPro'

    end

    object ClientDataSetIngredientsLysd: TFloatField

      DisplayLabel = 'dLys'

      FieldName = 'Lysd'

    end

    object ClientDataSetIngredientsThrd: TFloatField

      DisplayLabel = 'dThr'

      FieldName = 'Thrd'

    end

    object ClientDataSetIngredientsMetd: TFloatField

      DisplayLabel = 'dMet'

      FieldName = 'Metd'

    end

    object ClientDataSetIngredientsCysd: TFloatField

      DisplayLabel = 'dCys'

      FieldName = 'Cysd'

    end

    object ClientDataSetIngredientsMetCysd: TFloatField

      DisplayLabel = 'dMet+Cys'

      FieldName = 'MetCysd'

    end

    object ClientDataSetIngredientsTrpd: TFloatField

      DisplayLabel = 'dTrp'

      FieldName = 'Trpd'

    end

    object ClientDataSetIngredientsIled: TFloatField

      DisplayLabel = 'dIle'

      FieldName = 'Iled'

    end

    object ClientDataSetIngredientsVald: TFloatField

      DisplayLabel = 'dVal'

      FieldName = 'Vald'

    end

    object ClientDataSetIngredientsLeud: TFloatField

      DisplayLabel = 'dLeu'

      FieldName = 'Leud'

    end

    object ClientDataSetIngredientsPhed: TFloatField

      DisplayLabel = 'dPhe'

      FieldName = 'Phed'

    end

    object ClientDataSetIngredientsTyrd: TFloatField

      DisplayLabel = 'dTyr'

      FieldName = 'Tyrd'

    end

    object ClientDataSetIngredientsPheTyrd: TFloatField

      DisplayLabel = 'dPhe+Tyr'

      FieldName = 'PheTyrd'

    end

    object ClientDataSetIngredientsHisd: TFloatField

      DisplayLabel = 'dHis'

      FieldName = 'Hisd'

    end

    object ClientDataSetIngredientsArgd: TFloatField

      DisplayLabel = 'dArg'

      FieldName = 'Argd'

    end

    object ClientDataSetIngredientsAlad: TFloatField

      DisplayLabel = 'dAla'

      FieldName = 'Alad'

    end

    object ClientDataSetIngredientsAspd: TFloatField

      DisplayLabel = 'dAsp'

      FieldName = 'Aspd'

    end

    object ClientDataSetIngredientsGlud: TFloatField

      DisplayLabel = 'dGlu'

      FieldName = 'Glud'

    end

    object ClientDataSetIngredientsGlyd: TFloatField

      DisplayLabel = 'dGly'

      FieldName = 'Glyd'

    end

    object ClientDataSetIngredientsSerd: TFloatField

      DisplayLabel = 'dSer'

      FieldName = 'Serd'

    end

    object ClientDataSetIngredientsProd: TFloatField

      DisplayLabel = 'dPro'

      FieldName = 'Prod'

    end

    object ClientDataSetIngredientsLysd_ENc: TFloatField

      DisplayLabel = 'dLys / NE, growing pig'

      FieldName = 'Lysd/ENc'

    end

    object ClientDataSetIngredientsLysd_ENt: TFloatField

      DisplayLabel = 'dLys / NE, adult pig'

      FieldName = 'Lysd/ENt'

    end

    object ClientDataSetIngredientsCa: TFloatField

      FieldName = 'Ca'

    end

    object ClientDataSetIngredientsP: TFloatField

      FieldName = 'P'

    end

    object ClientDataSetIngredientsdP: TFloatField

      DisplayLabel = 'Pd, pellet'

      FieldName = 'dP'

    end

    object ClientDataSetIngredientsdPphy: TFloatField

      DisplayLabel = 'Pd, mash'

      FieldName = 'dPphy'

    end

  end

  object DataSourceIngredients: TDataSource

    DataSet = ClientDataSetIngredients

    Left = 560

    Top = 160

  end

  object ClientDataSetComposition: TClientDataSet

    Aggregates = <

      item

        Active = True

        AggregateName = 'LevelSum'

        Expression = 'Sum(Level)'

        GroupingLevel = 1

        IndexName = 'IndexRank'

        Visible = False

        OnUpdate = AggregateLevelSumUpdate

      end>

    AggregatesActive = True

    AutoCalcFields = False

    FieldDefs = <>

    IndexDefs = <

      item

        Name = 'IndexRank'

        Fields = 'Feed;Rank'

        GroupingLevel = 1

      end

      item

        Name = 'IndexLevel'

        DescFields = 'Level'

        Fields = 'Feed;Level'

        Options = [ixDescending]

        GroupingLevel = 1

      end

      item

        Name = 'IndexIngredientName'

        Fields = 'Feed;IngredientName'

        GroupingLevel = 1

      end>

    IndexName = 'IndexRank'

    Params = <>

    StoreDefs = True

    Left = 400

    Top = 360

    object ClientDataSetCompositionFeed: TIntegerField

      FieldName = 'Feed'

    end

    object ClientDataSetCompositionIngredient: TIntegerField

      FieldName = 'Ingredient'

    end

    object ClientDataSetCompositionUser: TBooleanField

      FieldName = 'User'

    end

    object ClientDataSetCompositionIngredientName: TWideStringField

      DisplayLabel = 'Name'

      FieldName = 'IngredientName'

      Size = 80

    end

    object ClientDataSetCompositionRank: TIntegerField

      FieldName = 'Rank'

    end

    object ClientDataSetCompositionMS: TFloatField

      DisplayLabel = 'DM'

      FieldName = 'MS'

    end

    object ClientDataSetCompositionLevel: TFloatField

      FieldName = 'Level'

    end

  end

  object DataSourceComposition: TDataSource

    DataSet = ClientDataSetComposition

    Left = 560

    Top = 360

  end

  object ClientDataSetPhytase: TClientDataSet

    Aggregates = <>

    AutoCalcFields = False

    MasterFields = 'Id'

    Params = <>

    Left = 400

    Top = 440

    object ClientDataSetPhytaseId: TAutoIncField

      FieldName = 'Id'

    end

    object ClientDataSetPhytaseType: TFloatField

      FieldName = 'Type'

      DisplayFormat = '0.00'

    end

    object ClientDataSetPhytaseCoef: TFloatField

      FieldName = 'Coef'

    end

  end

  object DataSourcePhytase: TDataSource

    DataSet = ClientDataSetPhytase

    Left = 560

    Top = 440

  end

  object ClientDataSetFeeds: TClientDataSet

    Aggregates = <>

    AutoCalcFields = False

    FilterOptions = [foCaseInsensitive]

    Params = <>

    OnCalcFields = ClientDataSetFeedsCalcFields

    Left = 400

    Top = 280

    object ClientDataSetFeedsId: TIntegerField

      FieldName = 'Id'

    end

    object ClientDataSetFeedsName: TWideStringField

      FieldName = 'Name'

      Size = 80

    end

    object ClientDataSetFeedsDescription: TWideStringField

      FieldName = 'Description'

      Size = 320

    end

    object ClientDataSetFeedsPresentation: TIntegerField

      DisplayLabel = 'Physical form'

      FieldName = 'Presentation'

    end

    object ClientDataSetFeedsBonusC: TFloatField

      DisplayLabel = 'Energy bonus, growing pig'

      FieldName = 'BonusC'

    end

    object ClientDataSetFeedsBonusT: TFloatField

      DisplayLabel = 'Energy bonus, adult pig'

      FieldName = 'BonusT'

    end

    object ClientDataSetFeedsMS: TFloatField

      DisplayLabel = 'Dry matter'

      FieldName = 'MS'

    end

    object ClientDataSetFeedsMS2: TFloatField

      DisplayLabel = 'Dry matter'

      FieldName = 'MS2'

    end

    object ClientDataSetFeedsMM: TFloatField

      DisplayLabel = 'Ash'

      FieldName = 'MM'

    end

    object ClientDataSetFeedsMAT: TFloatField

      DisplayLabel = 'Crude protein'

      FieldName = 'MAT'

    end

    object ClientDataSetFeedsMG: TFloatField

      DisplayLabel = 'Crude fat'

      FieldName = 'MG'

    end

    object ClientDataSetFeedsCB: TFloatField

      DisplayLabel = 'Crude fibre'

      FieldName = 'CB'

    end

    object ClientDataSetFeedsNDF: TFloatField

      FieldName = 'NDF'

    end

    object ClientDataSetFeedsADF: TFloatField

      FieldName = 'ADF'

    end

    object ClientDataSetFeedsADL: TFloatField

      FieldName = 'ADL'

    end

    object ClientDataSetFeedsAmidon: TFloatField

      DisplayLabel = 'Starch'

      FieldName = 'Amidon'

    end

    object ClientDataSetFeedsSucres: TFloatField

      DisplayLabel = 'Sugars'

      FieldName = 'Sucres'

    end

    object ClientDataSetFeedsEB: TFloatField

      DisplayLabel = 'GE'

      FieldName = 'EB'

    end

    object ClientDataSetFeedsdEc: TFloatField

      DisplayLabel = 'Ed, growing pig'

      FieldName = 'dEc'

    end

    object ClientDataSetFeedsEDc: TFloatField

      DisplayLabel = 'DE, growing pig'

      FieldName = 'EDc'

    end

    object ClientDataSetFeedsEMc_EDc: TFloatField

      DisplayLabel = 'ME / DE, growing pig'

      FieldName = 'EMc/EDc'

    end

    object ClientDataSetFeedsEMc: TFloatField

      DisplayLabel = 'ME, growing pig'

      FieldName = 'EMc'

    end

    object ClientDataSetFeedsENc_EMc: TFloatField

      DisplayLabel = 'NE / ME, growing pig'

      FieldName = 'ENc/EMc'

    end

    object ClientDataSetFeedsENc: TFloatField

      DisplayLabel = 'NE, growing pig'

      FieldName = 'ENc'

    end

    object ClientDataSetFeedsdEt: TFloatField

      DisplayLabel = 'Ed, adult pig'

      FieldName = 'dEt'

    end

    object ClientDataSetFeedsEDt: TFloatField

      DisplayLabel = 'DE, adult pig'

      FieldName = 'EDt'

    end

    object ClientDataSetFeedsEMt_EDt: TFloatField

      DisplayLabel = 'ME / DE, adult pig'

      FieldName = 'EMt/EDt'

    end

    object ClientDataSetFeedsEMt: TFloatField

      DisplayLabel = 'ME, adult pig'

      FieldName = 'EMt'

    end

    object ClientDataSetFeedsENt_EMt: TFloatField

      DisplayLabel = 'NE / ME, adult pig'

      FieldName = 'ENt/EMt'

    end

    object ClientDataSetFeedsENt: TFloatField

      DisplayLabel = 'NE, adult pig'

      FieldName = 'ENt'

    end

    object ClientDataSetFeedsEDt_EDc: TFloatField

      DisplayLabel = 'DE, adult pig / DE, growing pig'

      FieldName = 'EDt/EDc'

    end

    object ClientDataSetFeedsEMt_EMc: TFloatField

      DisplayLabel = 'ME, adult pig / ME, growing pig'

      FieldName = 'EMt/EMc'

    end

    object ClientDataSetFeedsENt_ENc: TFloatField

      DisplayLabel = 'NE, adult pig / NE, growing pig'

      FieldName = 'ENt/ENc'

    end

    object ClientDataSetFeedsdNc: TFloatField

      DisplayLabel = 'Nd, growing pig'

      FieldName = 'dNc'

    end

    object ClientDataSetFeedsdNt: TFloatField

      DisplayLabel = 'Nd, adult pig'

      FieldName = 'dNt'

    end

    object ClientDataSetFeedsLys: TFloatField

      FieldName = 'Lys'

    end

    object ClientDataSetFeedsThr: TFloatField

      FieldName = 'Thr'

    end

    object ClientDataSetFeedsMet: TFloatField

      FieldName = 'Met'

    end

    object ClientDataSetFeedsCys: TFloatField

      FieldName = 'Cys'

    end

    object ClientDataSetFeedsMetCys: TFloatField

      DisplayLabel = 'Met+Cys'

      FieldName = 'MetCys'

    end

    object ClientDataSetFeedsTrp: TFloatField

      FieldName = 'Trp'

    end

    object ClientDataSetFeedsIle: TFloatField

      FieldName = 'Ile'

    end

    object ClientDataSetFeedsVal: TFloatField

      FieldName = 'Val'

    end

    object ClientDataSetFeedsLeu: TFloatField

      FieldName = 'Leu'

    end

    object ClientDataSetFeedsPhe: TFloatField

      FieldName = 'Phe'

    end

    object ClientDataSetFeedsTyr: TFloatField

      FieldName = 'Tyr'

    end

    object ClientDataSetFeedsPheTyr: TFloatField

      DisplayLabel = 'Phe+Tyr'

      FieldName = 'PheTyr'

    end

    object ClientDataSetFeedsHis: TFloatField

      FieldName = 'His'

    end

    object ClientDataSetFeedsArg: TFloatField

      FieldName = 'Arg'

    end

    object ClientDataSetFeedsAla: TFloatField

      FieldName = 'Ala'

    end

    object ClientDataSetFeedsAsp: TFloatField

      FieldName = 'Asp'

    end

    object ClientDataSetFeedsGlu: TFloatField

      FieldName = 'Glu'

    end

    object ClientDataSetFeedsGly: TFloatField

      FieldName = 'Gly'

    end

    object ClientDataSetFeedsSer: TFloatField

      FieldName = 'Ser'

    end

    object ClientDataSetFeedsPro: TFloatField

      FieldName = 'Pro'

    end

    object ClientDataSetFeedsLysd: TFloatField

      DisplayLabel = 'dLys'

      FieldName = 'Lysd'

    end

    object ClientDataSetFeedsThrd: TFloatField

      DisplayLabel = 'dThr'

      FieldName = 'Thrd'

    end

    object ClientDataSetFeedsMetd: TFloatField

      DisplayLabel = 'dMet'

      FieldName = 'Metd'

    end

    object ClientDataSetFeedsCysd: TFloatField

      DisplayLabel = 'dCys'

      FieldName = 'Cysd'

    end

    object ClientDataSetFeedsMetCysd: TFloatField

      DisplayLabel = 'dMet+Cys'

      FieldName = 'MetCysd'

    end

    object ClientDataSetFeedsTrpd: TFloatField

      DisplayLabel = 'dTrp'

      FieldName = 'Trpd'

    end

    object ClientDataSetFeedsIled: TFloatField

      DisplayLabel = 'dIle'

      FieldName = 'Iled'

    end

    object ClientDataSetFeedsVald: TFloatField

      DisplayLabel = 'dVal'

      FieldName = 'Vald'

    end

    object ClientDataSetFeedsLeud: TFloatField

      DisplayLabel = 'dLeu'

      FieldName = 'Leud'

    end

    object ClientDataSetFeedsPhed: TFloatField

      DisplayLabel = 'dPhe'

      FieldName = 'Phed'

    end

    object ClientDataSetFeedsTyrd: TFloatField

      DisplayLabel = 'dTyr'

      FieldName = 'Tyrd'

    end

    object ClientDataSetFeedsPheTyrd: TFloatField

      DisplayLabel = 'dPhe+Tyr'

      FieldName = 'PheTyrd'

    end

    object ClientDataSetFeedsHisd: TFloatField

      DisplayLabel = 'dHis'

      FieldName = 'Hisd'

    end

    object ClientDataSetFeedsArgd: TFloatField

      DisplayLabel = 'dArg'

      FieldName = 'Argd'

    end

    object ClientDataSetFeedsAlad: TFloatField

      DisplayLabel = 'dAla'

      FieldName = 'Alad'

    end

    object ClientDataSetFeedsAspd: TFloatField

      DisplayLabel = 'dAsp'

      FieldName = 'Aspd'

    end

    object ClientDataSetFeedsGlud: TFloatField

      DisplayLabel = 'dGlu'

      FieldName = 'Glud'

    end

    object ClientDataSetFeedsGlyd: TFloatField

      DisplayLabel = 'dGly'

      FieldName = 'Glyd'

    end

    object ClientDataSetFeedsSerd: TFloatField

      DisplayLabel = 'dSer'

      FieldName = 'Serd'

    end

    object ClientDataSetFeedsProd: TFloatField

      DisplayLabel = 'dPro'

      FieldName = 'Prod'

    end

    object ClientDataSetFeedsLysd_ENc: TFloatField

      DisplayLabel = 'dLys / NE, growing pig'

      FieldName = 'Lysd/ENc'

    end

    object ClientDataSetFeedsLysd_ENt: TFloatField

      DisplayLabel = 'dLys / NE, adult pig'

      FieldName = 'Lysd/ENt'

    end

    object ClientDataSetFeedsThrd_Lysd: TFloatField

      DisplayLabel = 'dThr / dLys'

      FieldName = 'Thrd/Lysd'

    end

    object ClientDataSetFeedsMetd_Lysd: TFloatField

      DisplayLabel = 'dMet / dLys'

      FieldName = 'Metd/Lysd'

    end

    object ClientDataSetFeedsCysd_Lysd: TFloatField

      DisplayLabel = 'dCys / dLys'

      FieldName = 'Cysd/Lysd'

    end

    object ClientDataSetFeedsMetCysd_Lysd: TFloatField

      DisplayLabel = 'dMet+Cys / dLys'

      FieldName = 'MetCysd/Lysd'

    end

    object ClientDataSetFeedsTrpd_Lysd: TFloatField

      DisplayLabel = 'dTrp / dLys'

      FieldName = 'Trpd/Lysd'

    end

    object ClientDataSetFeedsIled_Lysd: TFloatField

      DisplayLabel = 'dIle / dLys'

      FieldName = 'Iled/Lysd'

    end

    object ClientDataSetFeedsVald_Lysd: TFloatField

      DisplayLabel = 'dVal / dLys'

      FieldName = 'Vald/Lysd'

    end

    object ClientDataSetFeedsLeud_Lysd: TFloatField

      DisplayLabel = 'dLeu / dLys'

      FieldName = 'Leud/Lysd'

    end

    object ClientDataSetFeedsPhed_Lysd: TFloatField

      DisplayLabel = 'dPhe / dLys'

      FieldName = 'Phed/Lysd'

    end

    object ClientDataSetFeedsTyrd_Lysd: TFloatField

      DisplayLabel = 'dTyr / dLys'

      FieldName = 'Tyrd/Lysd'

    end

    object ClientDataSetFeedsPheTyrd_Lysd: TFloatField

      DisplayLabel = 'dPhe+Tyr / dLys'

      FieldName = 'PheTyrd/Lysd'

    end

    object ClientDataSetFeedsHisd_Lysd: TFloatField

      DisplayLabel = 'dHis / dLys'

      FieldName = 'Hisd/Lysd'

    end

    object ClientDataSetFeedsArgd_Lysd: TFloatField

      DisplayLabel = 'dArg / dLys'

      FieldName = 'Argd/Lysd'

    end

    object ClientDataSetFeedsAlad_Lysd: TFloatField

      DisplayLabel = 'dAla / dLys'

      FieldName = 'Alad/Lysd'

    end

    object ClientDataSetFeedsAspd_Lysd: TFloatField

      DisplayLabel = 'dAsp / dLys'

      FieldName = 'Aspd/Lysd'

    end

    object ClientDataSetFeedsGlud_Lysd: TFloatField

      DisplayLabel = 'dGlu / dLys'

      FieldName = 'Glud/Lysd'

    end

    object ClientDataSetFeedsGlyd_Lysd: TFloatField

      DisplayLabel = 'dGly / dLys'

      FieldName = 'Glyd/Lysd'

    end

    object ClientDataSetFeedsSerd_Lysd: TFloatField

      DisplayLabel = 'dSer / dLys'

      FieldName = 'Serd/Lysd'

    end

    object ClientDataSetFeedsProd_Lysd: TFloatField

      DisplayLabel = 'dPro / dLys'

      FieldName = 'Prod/Lysd'

    end

    object ClientDataSetFeedsCa: TFloatField

      DisplayLabel = 'Calcium (Ca)'

      FieldName = 'Ca'

    end

    object ClientDataSetFeedsP: TFloatField

      DisplayLabel = 'Phosphorus (P)'

      FieldName = 'P'

    end

    object ClientDataSetFeedsPd: TFloatField

      DisplayLabel = 'Digestible P (dP)'

      FieldName = 'Pd'

    end

    object ClientDataSetFeedsCa_Pd: TFloatField

      DisplayLabel = 'Ca / dP'

      FieldName = 'Ca/Pd'

    end

    object ClientDataSetFeedsPd_ENc: TFloatField

      DisplayLabel = 'dP / NE, growing pig'

      FieldName = 'Pd/ENc'

    end

    object ClientDataSetFeedsPd_ENt: TFloatField

      DisplayLabel = 'dP / NE, adult pig'

      FieldName = 'Pd/ENt'

    end

    object ClientDataSetFeedsPhytaseId: TIntegerField

      DisplayLabel = 'Phytase ID'

      FieldName = 'PhytaseId'

    end

    object ClientDataSetFeedsPhytaseType: TFloatField

      DisplayLabel = 'Phytase type'

      FieldKind = fkLookup

      FieldName = 'PhytaseType'

      LookupDataSet = ClientDataSetPhytase

      LookupKeyFields = 'Id'

      LookupResultField = 'Type'

      KeyFields = 'PhytaseId'

      DisplayFormat = '0.00'

      Lookup = True

    end

    object ClientDataSetFeedsPhytaseConcentration: TFloatField

      DisplayLabel = 'Phytase concentration'

      FieldName = 'PhytaseConcentration'

      DisplayFormat = '#,##0'

    end

    object ClientDataSetFeedsPhytaseIncorporation: TFloatField

      DisplayLabel = 'Phytase incorporation'

      FieldName = 'PhytaseIncorporation'

      DisplayFormat = '#,##0'

    end

    object ClientDataSetFeedsPhytaseLevel: TFloatField

      DisplayLabel = 'Phytase level'

      FieldKind = fkInternalCalc

      FieldName = 'PhytaseLevel'

    end

    object ClientDataSetFeedsLevelSum: TFloatField

      DisplayLabel = 'Sum'

      FieldName = 'LevelSum'

    end

    object ClientDataSetFeedsTotal: TFloatField

      FieldKind = fkInternalCalc

      FieldName = 'Total'

    end

    object ClientDataSetFeedsRemain: TFloatField

      FieldKind = fkInternalCalc

      FieldName = 'Remain'

    end

  end

  object DataSourceFeeds: TDataSource

    DataSet = ClientDataSetFeeds

    Left = 560

    Top = 280

  end

end