InraPorc

unit UFRapAliMin ;

interface

uses

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

  Dialogs, OleCtrls, StdCtrls, ComCtrls, DB, DBClient, ExtCtrls, QRCtrls,

  QuickRpt, QRPrntr, MidasLib, UVariables, gnugettext;

type

  TFRapAliMin = class(TForm)

    QRRapport: TQuickRep;

    PHBRapport: TQRBand;

    DBRapport: TQRBand;

    QRLTitre: TQRLabel;

    QRLAliment: TQRLabel;

    CDSRapport: TClientDataSet;

    PFBRapport: TQRBand;

    QRLUser: TQRLabel;

    QRLWarning: TQRLabel;

    QRLMemo: TQRLabel;

    QRMMemo: TQRMemo;

    QRSDDate: TQRSysData;

    QRSEntete: TQRShape;

    SFAliment: TStringField;

    QRDBAliment: TQRDBText;

    QRLTMacro: TQRLabel;

    QRLCa: TQRLabel;

    QRDBTCa: TQRDBText;

    QRLMacro: TQRLabel;

    QRLCompo: TQRLabel;

    QRLNa: TQRLabel;

    QRDBTNa: TQRDBText;

    QRLMg: TQRLabel;

    QRDBTMg: TQRDBText;

    QRLS: TQRLabel;

    QRDBTS: TQRDBText;

    QRLP: TQRLabel;

    QRDBTP: TQRDBText;

    QRLK: TQRLabel;

    QRDBTK: TQRDBText;

    QRLCl: TQRLabel;

    QRDBTCl: TQRDBText;

    QRLTOligo: TQRLabel;

    QRLCu: TQRLabel;

    QRDBTCu: TQRDBText;

    QRLOligo: TQRLabel;

    QRLMn: TQRLabel;

    QRDBTMn: TQRDBText;

    QRLSe: TQRLabel;

    QRDBTSe: TQRDBText;

    QRLMb: TQRLabel;

    QRDBTMb: TQRDBText;

    QRLZn: TQRLabel;

    QRDBTZn: TQRDBText;

    QRLFe: TQRLabel;

    QRDBTFe: TQRDBText;

    QRLCo: TQRLabel;

    QRDBTCo: TQRDBText;

    QRLI: TQRLabel;

    QRDBTI: TQRDBText;

    QRLPhosphore: TQRLabel;

    QRLPTot: TQRLabel;

    QRDBTPTot: TQRDBText;

    QRLPDigG: TQRLabel;

    QRDBTPDigG: TQRDBText;

    QRLPhytase: TQRLabel;

    QRDBTPhytase: TQRDBText;

    QRLActPhytE: TQRLabel;

    QRDBTActPhytE: TQRDBText;

    QRLPDig: TQRLabel;

    QRLPDigF: TQRLabel;

    QRDBTPDigF: TQRDBText;

    QRLActPhyt: TQRLabel;

    QRLActPhytM: TQRLabel;

    QRDBTActPhytM: TQRDBText;

    SFP: TStringField;

    SFNa: TStringField;

    SFK: TStringField;

    SFMg: TStringField;

    SFCl: TStringField;

    SFS: TStringField;

    SFCa: TStringField;

    SFZn: TStringField;

    SFPDigF: TStringField;

    SFMn: TStringField;

    SFFe: TStringField;

    SFSe: TStringField;

    SFCo: TStringField;

    SFMb: TStringField;

    SFI: TStringField;

    SFCu: TStringField;

    SFPhytase: TStringField;

    SFPDigG: TStringField;

    SFActPhytM: TStringField;

    SFPTot: TStringField;

    SFActPhytE: TStringField;

    QRIInraPorc: TQRImage;

    QRLInraPorc: TQRLabel;

    procedure FormCreate(Sender: TObject);

  private

    { D?clarations priv?es }

  public

    { D?clarations publiques }

  end;

var

  FRapAliMin: TFRapAliMin;

implementation

uses

  UStrings, UCalcul, UUtil, UFAliment, UFPrevRap ;

{$R *.dfm}

{ TFRapAliMin }

procedure TFRapAliMin.FormCreate(Sender: TObject);

begin

  if Screen.Fonts.IndexOf('Arial Unicode MS') <> -1

  then

    Font.Name := 'Arial Unicode MS';

  TranslateComponent(Self);

  // Licence

  if IsEducation and (Length (Course) > 0)

  then

    QRLUSer.Caption := Format('%s (%s)', [Course, Company])

  else

  if IsComplete or IsEducation

  then

    QRLUSer.Caption := Format('%s %s (%s)', [FirstName, LastName, Company])

  else

  if IsEvaluation

  then

    QRLUSer.Caption := StrEvaluation

  else

  begin

    QRLUSer.Caption := StrReadOnly;

    QRLUser.Font.Color := clRed;

  end;

  with CDSRapport do

  begin

    CreateDataSet;

    Append;

    FieldValues['_Aliment_'] := FAliment.CBAliment.Text;

    FieldValues['_Ca_'] := FAliment.PBCa.Text;

    FieldValues['_P_'] := FAliment.PBP.Text;

    FieldValues['_Na_'] := FAliment.PBNa.Text;

    FieldValues['_K_'] := FAliment.PBK.Text;

    FieldValues['_Mg_'] := FAliment.PBMg.Text;

    FieldValues['_Cl_'] := FAliment.PBCl.Text;

    FieldValues['_S_'] := FAliment.PBS.Text;

    FieldValues['_Cu_'] := FAliment.PBCu.Text;

    FieldValues['_Zn_'] := FAliment.PBZn.Text;

    FieldValues['_Mn_'] := FAliment.PBMn.Text;

    FieldValues['_Fe_'] := FAliment.PBFe.Text;

    FieldValues['_Se_'] := FAliment.PBSe.Text;

    FieldValues['_Co_'] := FAliment.PBCo.Text;

    FieldValues['_Mb_'] := FAliment.PBMb.Text;

    FieldValues['_I_'] := FAliment.PBI.Text;

    FieldValues['_PTot_'] := FAliment.PBPtot.Text;

    FieldValues['_PDigG_'] := FAliment.PBPdigG.Text;

    FieldValues['_PDigF_'] := FAliment.PBPdigF.Text;

    FieldValues['_Phytase_'] := FAliment.PBPhytase.Text;

    FieldValues['_ActPhytE_'] := FAliment.PBActPhytE.Text;

    FieldValues['_ActPhytM_'] := FAliment.PBActPhytM.Text;

    Post;

  end ;

  QRMMemo.Lines.Add(FAliment.CBAliment.Hint);

  QRLCompo.Caption:= FAliment.Hint;

  QRLTMacro.Caption:= FAliment.GBTMacro.Caption;

  QRLTOligo.Caption:= FAliment.GBTOligo.Caption;

  RegisterPreviewClass(TQRPrevRapInterface);

//  QRRapport.PreviewModal;

//  RegisterPreviewClass(TQRStandardPreviewInterface);

end;

end.