EvaPig

unit UnitMain;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, MidasLib, DB, DBClient, Grids, DBGrids, XPMan, LbClass, LbCipher,

  Buttons, ExtCtrls, StdCtrls, DBCtrls, JvCsvData, DBTables, xmldom, XMLIntf,

  msxmldom, XMLDoc, JvSimpleXml;

type

  TFormMain = class(TForm)

    DataSourceInraAfz: TDataSource;

    ClientDataSetClasses: TClientDataSet;

    ClientDataSetClassesId: TIntegerField;

    ClientDataSetClassesName: TWideStringField;

    DBGridInraAfz: TDBGrid;

    XPManifestStyle: TXPManifest;

    PanelBoutons: TPanel;

    SpeedButtonExit: TSpeedButton;

    SpeedButtonSave: TSpeedButton;

    ListBoxClasses: TListBox;

    ClientDataSetInraAfz: TClientDataSet;

    ClientDataSetInraAfzId: TAutoIncField;

    ClientDataSetInraAfzName: TStringField;

    ClientDataSetInraAfzClass: TIntegerField;

    ClientDataSetInraAfzMS: TFloatField;

    ClientDataSetInraAfzMAT: TFloatField;

    ClientDataSetInraAfzCB: TFloatField;

    ClientDataSetInraAfzCoefCB: TFloatField;

    ClientDataSetInraAfzMG: TFloatField;

    ClientDataSetInraAfzMM: TFloatField;

    ClientDataSetInraAfzAmidon: TFloatField;

    ClientDataSetInraAfzSucres: TFloatField;

    ClientDataSetInraAfzNDF: TFloatField;

    ClientDataSetInraAfzCoefNDF: TFloatField;

    ClientDataSetInraAfzADF: TFloatField;

    ClientDataSetInraAfzCoefADF: TFloatField;

    ClientDataSetInraAfzADL: TFloatField;

    ClientDataSetInraAfzEB: TFloatField;

    ClientDataSetInraAfzdEc: TFloatField;

    ClientDataSetInraAfzEMc_EDc: TFloatField;

    ClientDataSetInraAfzENc_EMc: TFloatField;

    ClientDataSetInraAfzEMt_EDt: TFloatField;

    ClientDataSetInraAfzENt_EMt: TFloatField;

    ClientDataSetInraAfzEDt_EDc: TFloatField;

    ClientDataSetInraAfzLys: TFloatField;

    ClientDataSetInraAfzThr: TFloatField;

    ClientDataSetInraAfzMet: TFloatField;

    ClientDataSetInraAfzCys: TFloatField;

    ClientDataSetInraAfzMetCys: TFloatField;

    ClientDataSetInraAfzTrp: TFloatField;

    ClientDataSetInraAfzIle: TFloatField;

    ClientDataSetInraAfzVal: TFloatField;

    ClientDataSetInraAfzLeu: TFloatField;

    ClientDataSetInraAfzPhe: TFloatField;

    ClientDataSetInraAfzTyr: TFloatField;

    ClientDataSetInraAfzPheTyr: TFloatField;

    ClientDataSetInraAfzHis: TFloatField;

    ClientDataSetInraAfzArg: TFloatField;

    ClientDataSetInraAfzAla: TFloatField;

    ClientDataSetInraAfzAsp: TFloatField;

    ClientDataSetInraAfzGlu: TFloatField;

    ClientDataSetInraAfzGly: TFloatField;

    ClientDataSetInraAfzSer: TFloatField;

    ClientDataSetInraAfzPro: TFloatField;

    ClientDataSetInraAfzdLys: TFloatField;

    ClientDataSetInraAfzdThr: TFloatField;

    ClientDataSetInraAfzdMet: TFloatField;

    ClientDataSetInraAfzdCys: TFloatField;

    ClientDataSetInraAfzdMetCys: TFloatField;

    ClientDataSetInraAfzdTrp: TFloatField;

    ClientDataSetInraAfzdIle: TFloatField;

    ClientDataSetInraAfzdVal: TFloatField;

    ClientDataSetInraAfzdLeu: TFloatField;

    ClientDataSetInraAfzdPhe: TFloatField;

    ClientDataSetInraAfzdTyr: TFloatField;

    ClientDataSetInraAfzdPheTyr: TFloatField;

    ClientDataSetInraAfzdHis: TFloatField;

    ClientDataSetInraAfzdArg: TFloatField;

    ClientDataSetInraAfzdAla: TFloatField;

    ClientDataSetInraAfzdAsp: TFloatField;

    ClientDataSetInraAfzdGlu: TFloatField;

    ClientDataSetInraAfzdGly: TFloatField;

    ClientDataSetInraAfzdSer: TFloatField;

    ClientDataSetInraAfzdPro: TFloatField;

    ClientDataSetInraAfzClassName: TStringField;

    SpeedButtonLoad: TSpeedButton;

    ClientDataSetInraAfzCa: TFloatField;

    ClientDataSetInraAfzP: TFloatField;

    ClientDataSetInraAfzdP: TFloatField;

    ClientDataSetInraAfzdPphy: TFloatField;

    ClientDataSetInraAfza: TFloatField;

    ClientDataSetInraAfzb: TFloatField;

    ClientDataSetInraAfzdNc: TFloatField;

    ClientDataSetInraAfzdNt: TFloatField;

    ClientDataSetInraAfzSource: TStringField;

    ClientDataSetInraAfzComment: TStringField;

    OpenDialogCSV: TOpenDialog;

    JvCsvDataSetInput: TJvCsvDataSet;

    procedure FormShow(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure SpeedButtonExitClick(Sender: TObject);

    procedure SpeedButtonSaveClick(Sender: TObject);

    procedure DBGridInraAfzTitleClick(Column: TColumn);

    procedure DBGridInraAfzDrawColumnCell(Sender: TObject; const Rect: TRect;

      DataCol: Integer; Column: TColumn; State: TGridDrawState);

    procedure ClientDataSetInraAfzBeforePost(DataSet: TDataSet);

    procedure SpeedButtonLoadClick(Sender: TObject);

  private

    { D?clarations priv?es }

    InputFileName, OutputFileName: WideString;

    FluxClair, FluxCrypte: TMemoryStream;

    Cryptage: TLbBlowfish;

  public

    { D?clarations publiques }

  end;

var

  FormMain: TFormMain;

implementation

{$R *.dfm}

const

//  INPUT = 'EvaPig2020.xml';

  INPUT = 'EvaPig2020.csv';

  OUTPUT = 'EvaPig2020.dat';

procedure TFormMain.ClientDataSetInraAfzBeforePost(DataSet: TDataSet);

begin

  if DataSet.FieldByName('Class').IsNull

  then // Remplacer Null par 0 (Non renseign?)

    DataSet.FieldByName('Class').AsInteger := 0;

end;

procedure TFormMain.DBGridInraAfzDrawColumnCell(Sender: TObject;

  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin

  if Column.FieldName = ClientDataSetInraAfz.IndexFieldNames

  then

    DBGridInraAfz.Canvas.Font.Style := [fsBold];

  DBGridInraAfz.DefaultDrawColumnCell(Rect, DataCol, Column, State);

end;

procedure TFormMain.DBGridInraAfzTitleClick(Column: TColumn);

begin

  ClientDataSetInraAfz.IndexFieldNames := Column.FieldName;

end;

procedure TFormMain.FormClose(Sender: TObject; var Action: TCloseAction);

begin

  Cryptage.Free;

  ClientDataSetInraAfz.Active := False;

end;

procedure TFormMain.FormShow(Sender: TObject);

var

  i: Integer;

begin

  InputFileName := ExtractFilePath(Application.ExeName) + INPUT;

  OutputFileName := ExtractFilePath(Application.ExeName) + OUTPUT;

  // Classes

  ClientDataSetClasses.CreateDataSet;

  for i := 0 to ListBoxClasses.Items.Count - 1 do

    ClientDataSetClasses.AppendRecord([i+1, ListBoxClasses.Items[i]]);

  // Tables INRA-AFZ

  ClientDataSetInraAfz.CreateDataSet;

  Cryptage := TlbBlowfish.Create(nil);

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

  if FileExists(OutputFileName)

  then // Chargement de la table

  begin

    FluxCrypte := TMemoryStream.Create;

    FluxClair := TMemoryStream.Create;

    try

      FluxCrypte.LoadFromFile(OutputFileName);

      FluxCrypte.Position := 0;

      Cryptage.DecryptStream(FluxCrypte, FluxClair);

      FluxClair.Position := 0;

      ClientDataSetInraAfz.LoadFromStream(FluxClair);

      ClientDataSetInraAfz.MergeChangeLog;

    finally

      FluxCrypte.Free;

      FluxClair.Free;

    end;

  end;

end;

procedure TFormMain.SpeedButtonExitClick(Sender: TObject);

begin

  if ClientDataSetInraAfz.ChangeCount > 0

  then

    if (MessageDlg('DataSet has been modified' + sLineBreak

      + 'Do you want to exit without saving?', mtConfirmation, [mbYes, mbNo], 0) = mrYes)

    then

      ClientDataSetInraAfz.CancelUpdates

    else

      Exit;

  Close;

end;

procedure TFormMain.SpeedButtonLoadClick(Sender: TObject);

var

  i: Integer;

begin

  OpenDialogCSV.FileName := InputFileName;

  if OpenDialogCSV.Execute then

  begin

    JvCsvDataSetInput.FileName := OpenDialogCSV.FileName;

    JvCsvDataSetInput.Active := True;

    JvCsvDataSetInput.First;

    JvCsvDataSetInput.Next; // Ignorer la seconde ligne de titre (unit?s de mesure)

    while not JvCsvDataSetInput.Eof do

    begin

      ClientDataSetInraAfz.Append;

      for i := 0 to ClientDataSetInraAfz.Fields.Count - 1 do

        case i of

          0: // Id (AutoInc)

            ;

          1..3: // Name, Comment, Source (String)

            if (Length(JvCsvDataSetInput.Fields[i].AsString) > 0) then

              ClientDataSetInraAfz.Fields[i].AsString := JvCsvDataSetInput.Fields[i].AsString;

          4: // ClassId

            ClientDataSetInraAfz.Fields[i].AsInteger := JvCsvDataSetInput.Fields[i].AsInteger;

          5: ; // ClassName (fkLookup)

          6..10, 12, 14, 16..18: // %

            ClientDataSetInraAfz.Fields[i].AsFloat := JvCsvDataSetInput.Fields[i].AsFloat / 100;

          11, 13, 15: // Coef

            ClientDataSetInraAfz.Fields[i].AsFloat := JvCsvDataSetInput.Fields[i].AsFloat;

          // Colonne 19 du CSV ignor?e (EB kCal) => d?callage des indices

          19: // EB MJ

            ClientDataSetInraAfz.Fields[i].AsFloat := JvCsvDataSetInput.Fields[i+1].AsFloat;

          20..25: // %

            ClientDataSetInraAfz.Fields[i].AsFloat := JvCsvDataSetInput.Fields[i+1].AsFloat / 100;

          26, 27: // Coef

            ClientDataSetInraAfz.Fields[i].AsFloat := JvCsvDataSetInput.Fields[i+1].AsFloat;

          28..29: // %

            ClientDataSetInraAfz.Fields[i].AsFloat := JvCsvDataSetInput.Fields[i+1].AsFloat / 100;

          30..49: // AA (g/kg MS) -> fraction de MAT

            if JvCsvDataSetInput.Fields[i+1].AsFloat = 0

            then

              ClientDataSetInraAfz.Fields[i].AsFloat := 0

            else

              ClientDataSetInraAfz.Fields[i].AsFloat := JvCsvDataSetInput.Fields[i+1].AsFloat / ClientDataSetInraAfzMAT.Value / 1000;

          50..69: // dAA (%)

            ClientDataSetInraAfz.Fields[i].AsFloat := JvCsvDataSetInput.Fields[i+1].AsFloat / 100;

          70..71: // Min (g/kg MS)

            ClientDataSetInraAfz.Fields[i].AsFloat := JvCsvDataSetInput.Fields[i+1].AsFloat / 1000;

          72..73: // dP (%)

            ClientDataSetInraAfz.Fields[i].AsFloat := JvCsvDataSetInput.Fields[i+1].AsFloat / 100;

        end;

      JvCsvDataSetInput.Next;

    end;

    ClientDataSetInraAfz.First;

  end;

end;

procedure TFormMain.SpeedButtonSaveClick(Sender: TObject);

begin

  FluxClair := TMemoryStream.Create;

  FluxCrypte := TMemoryStream.Create;

  try

    ClientDataSetInraAfz.MergeChangeLog;

    ClientDataSetInraAfz.SaveToStream(FluxClair, dfBinary);

    FluxClair.Position := 0;

    Cryptage.EncryptStream(FluxClair, FluxCrypte);

    FluxCrypte.Position := 0;

    FluxCrypte.SaveToFile(OutputFileName);

  finally

    FluxClair.Free;

    FluxCrypte.Free;

  end;

end;

end.