EvaPig

    ClientDataSetInraAfzComment: TStringField;

    ClientDataSetInraAfzNa: TFloatField;

    ClientDataSetInraAfzK: TFloatField;

    ClientDataSetInraAfzCl: TFloatField;

    ClientDataSetIngredientsNa: TFloatField;

    ClientDataSetIngredientsK: TFloatField;

    ClientDataSetIngredientsCl: TFloatField;

    ClientDataSetIngredientsBE: TFloatField;

    ClientDataSetFeedsNa: TFloatField;

    ClientDataSetFeedsK: TFloatField;

    ClientDataSetFeedsCl: TFloatField;

    ClientDataSetFeedsBE: TFloatField;

    function CalcBilanElectrolytique(Na, K, Cl: Double): Double;

procedure TDataModuleDeclaration.AggregateLevelSumUpdate(Agg: TAggregate);

begin

  if not ClientDataSetFeeds.Eof

  then

  begin

    ClientDataSetFeeds.Edit;

    if VarIsEmpty(Agg.Value) or VarIsNull(Agg.Value)

    then

      ClientDataSetFeedsLevelSum.Clear

    else

      ClientDataSetFeedsLevelSum.AsFloat := Agg.Value;

    ClientDataSetFeeds.Post;

  end;

end;

procedure TDataModuleDeclaration.ClientDataSetFeedsCalcFields(DataSet: TDataSet);

begin

  if ClientDataSetFeedsPhytaseIncorporation.IsNull or ClientDataSetFeedsPhytaseConcentration.IsNull

  or (ClientDataSetFeedsPhytaseConcentration.Value = 0)

  then

    ClientDataSetFeedsPhytaseLevel.Clear

  else

    ClientDataSetFeedsPhytaseLevel.Value := OutputIncorporation(ClientDataSetFeedsPhytaseIncorporation.Value / ClientDataSetFeedsPhytaseConcentration.Value / 1000, FormOptions.Incorporation);

  ClientDataSetFeedsTotal.Value := ClientDataSetFeedsLevelSum.Value + ClientDataSetFeedsPhytaseLevel.Value;

  ClientDataSetFeedsRemain.Value := OutputIncorporation(1, FormOptions.Incorporation) - ClientDataSetFeedsTotal.Value;

end;

procedure TDataModuleDeclaration.ClientDataSetIngredientsFilterRecord(DataSet: TDataSet; var Accept: Boolean);

begin

  Accept := True;

  if FilterOnClass and (FilteredClass > 0)

  then

    Accept := Accept and (DataSet.FieldByName('Class').AsInteger = FilteredClass);

  if FilterOnDatabase

  then

    case FilteredDatabase of

      1: // User database

        Accept := Accept and DataSet.FieldByName('User').AsBoolean;

      2: // Reference tables

        Accept := Accept and not DataSet.FieldByName('User').AsBoolean;

    end;

  if FilterOnName and (FilteredName <> '')

  then

    Accept := Accept and (Pos(FilteredName, DataSet.FieldByName('Name').AsWideString) > 0);

end;

procedure TDataModuleDeclaration.DataModuleCreate(Sender: TObject);

var

  i: Integer;

  ExeDir, DataDir, DataFile: String;

  Cryptage: TLbBlowfish;

  FluxClair, FluxCrypte: TMemoryStream;

  DocumentsPath: array[0..MAX_PATH] of Char;

begin

  // Classes

  ClassList := TStringList.Create;

  ClassList.Add('Cereals');

  ClassList.Add('Wheat by-products');

  ClassList.Add('Maize by-products');

  ClassList.Add('Other cereal by-products');

  ClassList.Add('Rice by-products');

  ClassList.Add('Legume and oil seeds');

  ClassList.Add('Oil seed meals');

  ClassList.Add('Starch, roots and tubers');

  ClassList.Add('Fruits and vegetables by-products');

  ClassList.Add('Molasses and vinasses');

  ClassList.Add('Other plant products');

  ClassList.Add('Dehydrated forages');

  ClassList.Add('Dairy products');

  ClassList.Add('Fish meals and solubles');

  ClassList.Add('Other animal by-products');

  ClassList.Add('Fats and oils');

  ClassList.Add('Amino acids');

  ClassList.Add('Mineral sources');

  ClassList.Add('Not referenced');

  ClientDataSetClasses.CreateDataSet;

  for i := 0 to ClassList.Count - 1 do

    ClientDataSetClasses.AppendRecord([i + 1, dgettext('InraAfz', ClassList[i])]);

  // Phytase

  ClientDataSetPhytase.CreateDataSet;

  ClientDataSetPhytase.AppendRecord([1, 0.60, 0.67]);

  ClientDataSetPhytase.AppendRecord([2, 0.65, 0.76]);

  ClientDataSetPhytase.AppendRecord([3, 0.70, 0.87]);

  ClientDataSetPhytase.AppendRecord([4, 0.75, 1.00]);

  ClientDataSetPhytase.AppendRecord([5, 0.80, 1.15]);

  ClientDataSetPhytase.AppendRecord([6, 0.85, 1.34]);

  ClientDataSetPhytase.AppendRecord([7, 0.90, 1.60]);

  ClientDataSetPhytase.AppendRecord([8, 0.95, 1.98]);

  // Tables de r?f?rence

  ExeDir := ExtractFilePath(Application.ExeName);

  DataFile := ExeDir + 'EvaPig2020.dat';

  if not FileExists(DataFile)

  then // Erreur

  begin

    MessageDlg(_('Reference tables of composition and nutritional values of feed materials for pigs') + sLineBreak

      + Format(_('%s: file not found'), [DataFile]), mtError, [mbOK], 0);

    Application.Terminate;

    Exit;

  end;

  ClientDataSetInraAfz.CreateDataSet;

  Cryptage := TlbBlowfish.Create(nil);

  Cryptage.GenerateKey('Tables of Composition and Nutritional Value of Feed Materials');

  FluxCrypte := TMemoryStream.Create;

  FluxClair := TMemoryStream.Create;

  try

    FluxCrypte.LoadFromFile(DataFile);

    FluxCrypte.Position := 0;

    Cryptage.DecryptStream(FluxCrypte, FluxClair);

    FluxClair.Position := 0;

    try

      ClientDataSetInraAfz.LoadFromStream(FluxClair);

    except

      MessageDlg(_('Reference tables of composition and nutritional values of feed materials for pigs') + sLineBreak

        + _('Invalid data format'), mtError, [mbOK], 0);

      Application.Terminate;

      Exit;

    end;

  finally

    FluxCrypte.Free;

    FluxClair.Free;

    Cryptage.Free;

  end;

  // Base User.sqb

  SHGetFolderPath(0, CSIDL_PERSONAL, 0, SHGFP_TYPE_CURRENT, DocumentsPath);

  DataDir := IncludeTrailingPathDelimiter(IncludeTrailingPathDelimiter(DocumentsPath) + Application.Title);

  ForceDirectories(DataDir);

  if not FileExists(ExeDir + 'sqlite3.dll')

  then // Erreur

  begin

    MessageDlg(_('SQLite') + sLineBreak

      + Format(_('%s: driver missing'), [ExeDir + 'sqlite3.dll']), mtError, [mbOK], 0);

    Application.Terminate;

    Exit;

  end;

  DBUser := TSQLiteDatabase.Create(DataDir + 'User.sqb');

  if not DBUser.TableExists('Ingredients')

  then // Cr?ation de la table Ingredients

  begin

    DBUser.ExecSQL('CREATE TABLE Ingredients ('

      + 'Id INTEGER PRIMARY KEY, '

      + 'Name TEXT, '

      + 'Definition TEXT, '

      + 'Class INTEGER, '

      + 'Model INTEGER, '

      + 'MS REAL, '

      + 'MM REAL, '

      + 'MAT REAL, '

      + 'MG REAL, '

      + 'CB REAL, '

      + 'NDF REAL, '

      + 'ADF REAL, '

      + 'ADL REAL, '

      + 'Amidon REAL, '

      + 'Sucres REAL, '

      + 'EB REAL, '

      + 'Bonus REAL, '

      + 'Lys REAL, '

      + 'Thr REAL, '

      + 'Met REAL, '

      + 'Cys REAL, '

      + 'MetCys REAL, '

      + 'Trp REAL, '

      + 'Ile REAL, '

      + 'Val REAL, '

      + 'Leu REAL, '

      + 'Phe REAL, '

      + 'Tyr REAL, '

      + 'PheTyr REAL, '

      + 'His REAL, '

      + 'Arg REAL, '

      + 'Ala REAL, '

      + 'Asp REAL, '

      + 'Glu REAL, '

      + 'Gly REAL, '

      + 'Ser REAL, '

      + 'Pro REAL, '

      + 'dLys REAL, '

      + 'dThr REAL, '

      + 'dMet REAL, '

      + 'dCys REAL, '

      + 'dMetCys REAL, '

      + 'dTrp REAL, '

      + 'dIle REAL, '

      + 'dVal REAL, '

      + 'dLeu REAL, '

      + 'dPhe REAL, '

      + 'dTyr REAL, '

      + 'dPheTyr REAL, '

      + 'dHis REAL, '

      + 'dArg REAL, '

      + 'dAla REAL, '

      + 'dAsp REAL, '

      + 'dGlu REAL, '

      + 'dGly REAL, '

      + 'dSer REAL, '

      + 'dPro REAL, '

      + 'Ca REAL, '

      + 'P REAL, '

      + 'dP REAL, '

      + 'dPphy REAL)');

    DBUser.ExecSQL('CREATE INDEX IdxClasses ON Ingredients (Class)');

    DBUser.ExecSQL('CREATE INDEX IdxModels ON Ingredients (Model)');

  end;

  if not DBUser.TableExists('Feeds')

  then // Cr?ation de la table Feeds

    DBUser.ExecSQL('CREATE TABLE Feeds ('

      + 'Id INTEGER PRIMARY KEY, '

      + 'Name TEXT, '

      + 'Description TEXT, '

      + 'Presentation INTEGER, '

      + 'BonusC REAL, '

      + 'BonusT REAL, '

      + 'Phytase INTEGER, '

      + 'Concentration REAL, '

      + 'Incorporation REAL)');

  if not DBUser.TableExists('Composition')

  then // Cr?ation de la table Composition

  begin

    DBUser.ExecSQL('CREATE TABLE Composition ('

      + 'Feed INTEGER, '

      + 'Ingredient INTEGER, '

      + 'User BOOLEAN, '

      + 'Rank INTEGER, '

      + 'MS REAL, '

      + 'Level REAL)');

    DBUser.ExecSQL('CREATE INDEX IdxFeeds ON Composition (Feed)');

    DBUser.ExecSQL('CREATE INDEX IdxIngredients ON Composition (Ingredient)');

  end;

  Application.ProcessMessages;

  // Liste des mati?res premi?res utilisateur

  UserList := TStringList.Create;

  TableIngredients := DBUser.GetTable('SELECT Name FROM Ingredients');

  with TableIngredients do

    try

      while not Eof do

      begin

        UserList.Add(FieldAsString(FieldIndex['Name']));

        Next;

      end;

    finally

      Free;

    end;

  // Liste des r?gimes

  FeedList := TStringList.Create;

  TableFeeds := DBUser.GetTable('SELECT Name FROM Feeds');

  with TableFeeds do

    try

      while not Eof do

      begin

        FeedList.Add(FieldAsString(FieldIndex['Name']));

        Next;

      end;

    finally

      Free;

    end;

end;

procedure TDataModuleDeclaration.DataModuleDestroy(Sender: TObject);

begin

  ClientDataSetClasses.Close;

  ClientDataSetPhytase.Close;

  ClientDataSetInraAfz.Close;

  ClassList.Free;

  UserList.Free;

  FeedList.Free;

  Application.ProcessMessages;

  DBUser.ExecSQL('VACUUM'); // Compacter la base User.sqb

  DBUser.Free;

  Application.ProcessMessages;

end;

  if ClientDataSetInraAfzNa.IsNull

  then

    ClientDataSetIngredientsNa.Clear

  else

    ClientDataSetIngredientsNa.Value := OutputMinerals(ClientDataSetInraAfzNa.Value, RapMS, FormOptions.Expression, FormOptions.Minerals);

  if ClientDataSetInraAfzK.IsNull

  then

    ClientDataSetIngredientsK.Clear

  else

    ClientDataSetIngredientsK.Value := OutputMinerals(ClientDataSetInraAfzK.Value, RapMS, FormOptions.Expression, FormOptions.Minerals);

  if ClientDataSetInraAfzCl.IsNull

  then

    ClientDataSetIngredientsCl.Clear

  else

    ClientDataSetIngredientsCl.Value := OutputMinerals(ClientDataSetInraAfzCl.Value, RapMS, FormOptions.Expression, FormOptions.Minerals);

  if ClientDataSetIngredientsNa.IsNull or ClientDataSetIngredientsK.IsNull or ClientDataSetIngredientsCl.IsNull

  then

    ClientDataSetIngredientsBE.Clear

  else

    ClientDataSetIngredientsBE.Value := CalcBilanElectrolytique(InputMinerals(ClientDataSetIngredientsNa.Value, RapMS, FormOptions.Expression, FormOptions.Minerals), InputMinerals(ClientDataSetIngredientsK.Value, RapMS, FormOptions.Expression, FormOptions.Minerals), InputMinerals(ClientDataSetIngredientsCl.Value, RapMS, FormOptions.Expression, FormOptions.Minerals));

  if TableIngredients.FieldIsNull(TableIngredients.FieldIndex['Na'])

  then

    ClientDataSetIngredientsNa.Clear

  else

    ClientDataSetIngredientsNa.Value := OutputMinerals(TableIngredients.FieldAsDouble(TableIngredients.FieldIndex['Na']), RapMS, FormOptions.Expression, FormOptions.Minerals);

  if TableIngredients.FieldIsNull(TableIngredients.FieldIndex['K'])

  then

    ClientDataSetIngredientsK.Clear

  else

    ClientDataSetIngredientsK.Value := OutputMinerals(TableIngredients.FieldAsDouble(TableIngredients.FieldIndex['K']), RapMS, FormOptions.Expression, FormOptions.Minerals);

  if TableIngredients.FieldIsNull(TableIngredients.FieldIndex['Cl'])

  then

    ClientDataSetIngredientsCl.Clear

  else

    ClientDataSetIngredientsCl.Value := OutputMinerals(TableIngredients.FieldAsDouble(TableIngredients.FieldIndex['Cl']), RapMS, FormOptions.Expression, FormOptions.Minerals);

  if ClientDataSetIngredientsNa.IsNull or ClientDataSetIngredientsK.IsNull or ClientDataSetIngredientsCl.IsNull

  then

    ClientDataSetIngredientsBE.Clear

  else

    ClientDataSetIngredientsBE.Value := CalcBilanElectrolytique(InputMinerals(ClientDataSetIngredientsNa.Value, RapMS, FormOptions.Expression, FormOptions.Minerals), InputMinerals(ClientDataSetIngredientsK.Value, RapMS, FormOptions.Expression, FormOptions.Minerals), InputMinerals(ClientDataSetIngredientsCl.Value, RapMS, FormOptions.Expression, FormOptions.Minerals));

  if TableIngredients.FieldIsNull(TableIngredients.FieldIndex['Na'])

  then

    if ClientDataSetInraAfzNa.IsNull

    then

      ClientDataSetIngredientsNa.Clear

    else

      ClientDataSetIngredientsNa.Value := OutputMinerals(ClientDataSetInraAfzNa.Value, RapMS, FormOptions.Expression, FormOptions.Minerals)

  else

    ClientDataSetIngredientsNa.Value := OutputMinerals(TableIngredients.FieldAsDouble(TableIngredients.FieldIndex['Na']), RapMS, FormOptions.Expression, FormOptions.Minerals);

  if TableIngredients.FieldIsNull(TableIngredients.FieldIndex['K'])

  then

    if ClientDataSetInraAfzK.IsNull

    then

      ClientDataSetIngredientsK.Clear

    else

      ClientDataSetIngredientsK.Value := OutputMinerals(ClientDataSetInraAfzK.Value, RapMS, FormOptions.Expression, FormOptions.Minerals)

  else

    ClientDataSetIngredientsK.Value := OutputMinerals(TableIngredients.FieldAsDouble(TableIngredients.FieldIndex['K']), RapMS, FormOptions.Expression, FormOptions.Minerals);

  if TableIngredients.FieldIsNull(TableIngredients.FieldIndex['Cl'])

  then

    if ClientDataSetInraAfzCl.IsNull

    then

      ClientDataSetIngredientsCl.Clear

    else

      ClientDataSetIngredientsCl.Value := OutputMinerals(ClientDataSetInraAfzCl.Value, RapMS, FormOptions.Expression, FormOptions.Minerals)

  else

    ClientDataSetIngredientsCl.Value := OutputMinerals(TableIngredients.FieldAsDouble(TableIngredients.FieldIndex['Cl']), RapMS, FormOptions.Expression, FormOptions.Minerals);

  if ClientDataSetIngredientsNa.IsNull or ClientDataSetIngredientsK.IsNull or ClientDataSetIngredientsCl.IsNull

  then

    ClientDataSetIngredientsBE.Clear

  else

    ClientDataSetIngredientsBE.Value := CalcBilanElectrolytique(InputMinerals(ClientDataSetIngredientsNa.Value, RapMS, FormOptions.Expression, FormOptions.Minerals), InputMinerals(ClientDataSetIngredientsK.Value, RapMS, FormOptions.Expression, FormOptions.Minerals), InputMinerals(ClientDataSetIngredientsCl.Value, RapMS, FormOptions.Expression, FormOptions.Minerals));

    ClientDataSetFeedsNa.Clear;

    ClientDataSetFeedsK.Clear;

    ClientDataSetFeedsCl.Clear;

    ClientDataSetFeedsNa.Value := 0;

    ClientDataSetFeedsK.Value := 0;

    ClientDataSetFeedsCl.Value := 0;

      if not ClientDataSetFeedsNa.IsNull

      then

        if ClientDataSetIngredientsNa.IsNull and (ClientDataSetIngredientsMM.Value <> 0)

        then

          ClientDataSetFeedsNa.Clear

        else

          ClientDataSetFeedsNa.Value := ClientDataSetFeedsNa.Value + ClientDataSetIngredientsNa.Value * Ratio;

      if not ClientDataSetFeedsK.IsNull

      then

        if ClientDataSetIngredientsK.IsNull and (ClientDataSetIngredientsMM.Value <> 0)

        then

          ClientDataSetFeedsK.Clear

        else

          ClientDataSetFeedsK.Value := ClientDataSetFeedsK.Value + ClientDataSetIngredientsK.Value * Ratio;

      if not ClientDataSetFeedsCl.IsNull

      then

        if ClientDataSetIngredientsCl.IsNull and (ClientDataSetIngredientsMM.Value <> 0)

        then

          ClientDataSetFeedsCl.Clear

        else

          ClientDataSetFeedsCl.Value := ClientDataSetFeedsCl.Value + ClientDataSetIngredientsCl.Value * Ratio;

      if not ClientDataSetFeedsNa.IsNull

      then

        ClientDataSetFeedsNa.Value := ClientDataSetFeedsNa.Value / RapMS;

      if not ClientDataSetFeedsK.IsNull

      then

        ClientDataSetFeedsK.Value := ClientDataSetFeedsK.Value / RapMS;

      if not ClientDataSetFeedsCl.IsNull

      then

        ClientDataSetFeedsCl.Value := ClientDataSetFeedsCl.Value / RapMS;

  if ClientDataSetFeedsNa.IsNull or ClientDataSetFeedsK.IsNull or ClientDataSetFeedsCl.IsNull

  then

    ClientDataSetFeedsBE.Clear

  else

    ClientDataSetFeedsBE.Value := CalcBilanElectrolytique(InputMinerals(ClientDataSetFeedsNa.Value, RapMS, FormOptions.Expression, FormOptions.Minerals), InputMinerals(ClientDataSetFeedsK.Value, RapMS, FormOptions.Expression, FormOptions.Minerals), InputMinerals(ClientDataSetFeedsCl.Value, RapMS, FormOptions.Expression, FormOptions.Minerals));

function TDataModuleDeclaration.CalcBilanElectrolytique(Na, K, Cl: Double): Double;

  Result := (Na / 23 + K / 39 - Cl / 35.5) * 1000000;

  if FormOptions.Expression = 0

  then // sur frais

    Result := Result * RapMS;