InraPorc

unit UFRapAliElem ;

interface

uses

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

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

  QuickRpt, QRPrntr, MidasLib, UVariables, gnugettext;

type

  TFRapAliElem = 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;

    QRLTFecale: TQRLabel;

    QRLMS: TQRLabel;

    QRDBTTMS: TQRDBText;

    QRLFecale: TQRLabel;

    QRLdFecale: TQRLabel;

    QRSdFecale: TQRShape;

    QRLdFecale_C: TQRLabel;

    QRLdFecale_T: TQRLabel;

    QRLMO: TQRLabel;

    QRDBTTMO: TQRDBText;

    QRLMAT: TQRLabel;

    QRDBTTMAT: TQRDBText;

    QRLSucres: TQRLabel;

    QRDBTTSucres: TQRDBText;

    QRLMM: TQRLabel;

    QRDBTTMM: TQRDBText;

    QRLLip: TQRLabel;

    QRDBTTLip: TQRDBText;

    QRLAmidon: TQRLabel;

    QRDBTTAmidon: TQRDBText;

    QRDBTdMO_C: TQRDBText;

    QRDBTdMAT_C: TQRDBText;

    QRDBTdLip_C: TQRDBText;

    QRDBTdMO_T: TQRDBText;

    QRDBTdMAT_T: TQRDBText;

    QRDBTdLip_T: TQRDBText;

    QRDBTdSucres_C: TQRDBText;

    QRDBTdAmidon_C: TQRDBText;

    QRDBTdSucres_T: TQRDBText;

    QRDBTdAmidon_T: TQRDBText;

    SFTMS: TStringField;

    SFTMM: TStringField;

    SFdMO_T: TStringField;

    SFdLip_T: TStringField;

    SFdMAT_T: TStringField;

    SFdAmidon: TStringField;

    SFdSucres: TStringField;

    SFTMO: TStringField;

    SFTLip: TStringField;

    SFTMAT: TStringField;

    SFTAmidon: TStringField;

    SFTSucres: TStringField;

    SFdMO_C: TStringField;

    SFdLip_C: TStringField;

    SFdMAT_C: TStringField;

    QRLEB: TQRLabel;

    QRDBTEB_C: TQRDBText;

    QRLEnergie: TQRLabel;

    QRLEVal: TQRLabel;

    QRSEVal: TQRShape;

    QRLEVal_C: TQRLabel;

    QRLEVal_T: TQRLabel;

    QRLabel1: TQRLabel;

    QRDBTEM_C: TQRDBText;

    QRLabel2: TQRLabel;

    QRDBTED_C: TQRDBText;

    QRLabel3: TQRLabel;

    QRDBTEN_C: TQRDBText;

    QRDBTEB_T: TQRDBText;

    QRDBTEM_T: TQRDBText;

    QRDBTED_T: TQRDBText;

    QRDBTEN_T: TQRDBText;

    SFEM_C: TStringField;

    SFEB: TStringField;

    SFEN_C: TStringField;

    SFED_C: TStringField;

    SFED_T: TStringField;

    SFEM_T: TStringField;

    SFEN_T: TStringField;

    QRLTFibres: TQRLabel;

    QRLCB: TQRLabel;

    QRDBTCB: TQRDBText;

    QRLFibres: TQRLabel;

    QRLADF: TQRLabel;

    QRDBTADF: TQRDBText;

    QRLParois: TQRLabel;

    QRDBTParois: TQRDBText;

    QRLNDF: TQRLabel;

    QRDBTNDF: TQRDBText;

    QRLADL: TQRLabel;

    QRDBTADL: TQRDBText;

    SFCB: TStringField;

    SFNDF: TStringField;

    SFADF: TStringField;

    SFADL: TStringField;

    SFParois: TStringField;

    QRLCompo: TQRLabel;

    QRIInraPorc: TQRImage;

    QRLInraPorc: TQRLabel;

    procedure FormCreate(Sender: TObject);

  private

    { D?clarations priv?es }

  public

    { D?clarations publiques }

  end;

var

  FRapAliElem: TFRapAliElem;

implementation

uses

  UStrings, UCalcul, UUtil, UFAliment, UFPrevRap ;

{$R *.dfm}

{ TFRapAliElem }

procedure TFRapAliElem.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['_TMS_']:= FAliment.PBTMS.Text;

    FieldValues['_TMM_']:= FAliment.PBTMM.Text;

    FieldValues['_TMO_']:= FAliment.PBTMO.Text;

    FieldValues['_TLip_']:= FAliment.PBTLip.Text;

    FieldValues['_TMAT_']:= FAliment.PBTMAT.Text;

    FieldValues['_TAmidon_']:= FAliment.PBTAmidon.Text;

    FieldValues['_TSucres_']:= FAliment.PBTSucres.Text;

    FieldValues['_dMO_C_']:= FAliment.PBdMO_C.Text;

    FieldValues['_dMO_T_']:= FAliment.PBdMO_T.Text;

    FieldValues['_dLip_C_']:= FAliment.PBdLip_C.Text;

    FieldValues['_dLip_T_']:= FAliment.PBdLip_T.Text;

    FieldValues['_dMAT_C_']:= FAliment.PBdMAT_C.Text;

    FieldValues['_dMAT_T_']:= FAliment.PBdMAT_T.Text;

    FieldValues['_dAmidon_']:= FAliment.PBdAmidon_C.Text;

    FieldValues['_dSucres_']:= FAliment.PBdSucres_C.Text;

    FieldValues['_EB_']:= FAliment.PBEB_C.Text;

    FieldValues['_ED_C_']:= FAliment.PBED_C.Text;

    FieldValues['_ED_T_']:= FAliment.PBED_T.Text;

    FieldValues['_EM_C_']:= FAliment.PBEM_C.Text;

    FieldValues['_EM_T_']:= FAliment.PBEM_T.Text;

    FieldValues['_EN_C_']:= FAliment.PBEN_C.Text;

    FieldValues['_EN_T_']:= FAliment.PBEN_T.Text;

    FieldValues['_CB_']:= FAliment.PBCB.Text;

    FieldValues['_NDF_']:= FAliment.PBNDF.Text;

    FieldValues['_ADF_']:= FAliment.PBADF.Text;

    FieldValues['_ADL_']:= FAliment.PBADL.Text;

    FieldValues['_Parois_']:= FAliment.PBParois.Text;

    Post;

  end ;

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

  QRLCompo.Caption:= FAliment.Hint;

  QRLTFecale.Caption:= FAliment.GBTFecale.Caption;

  QRLdFecale.Caption:= FAliment.GBdFecale.Caption;

  QRLTFibres.Caption:= FAliment.GBFibres.Caption;

  RegisterPreviewClass(TQRPrevRapInterface);

//  QRRapport.PreviewModal;

//  RegisterPreviewClass(TQRStandardPreviewInterface);

end;

end.