InraPorc

unit UFRapAliAA ;

interface

uses

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

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

  QuickRpt, QRPrntr, MidasLib, UVariables, gnugettext;

type

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

    QRLTAA: TQRLabel;

    QRLMAT: TQRLabel;

    QRDBTTMAT: TQRDBText;

    QRLAA: TQRLabel;

    QRLdAA: TQRLabel;

    QRSdFecale: TQRShape;

    QRLdAA_Std: TQRLabel;

    QRLdAA_App: TQRLabel;

    QRLCompo: TQRLabel;

    QRDBTdMAT_Std: TQRDBText;

    QRDBTdMAT_App: TQRDBText;

    SFLys: TStringField;

    SFdLysStd: TStringField;

    SFdLysApp: TStringField;

    SFTMet: TStringField;

    SFdMetStd: TStringField;

    SFdMetApp: TStringField;

    SFTCys: TStringField;

    SFdCysStd: TStringField;

    SFdCysApp: TStringField;

    SFTTrp: TStringField;

    SFdTrpStd: TStringField;

    SFdTrpApp: TStringField;

    SFTThr: TStringField;

    SFdThrStd: TStringField;

    SFdThrApp: TStringField;

    SFTPhe: TStringField;

    SFdPheStd: TStringField;

    SFdPheApp: TStringField;

    SFTTyr: TStringField;

    SFdTyrStd_: TStringField;

    SFdTyrApp: TStringField;

    SFTLeu: TStringField;

    SFdLeuStd: TStringField;

    SFdLeuApp: TStringField;

    SFTIle: TStringField;

    SFdIleStd: TStringField;

    SFdIleApp: TStringField;

    SFTVal: TStringField;

    SFdValStd: TStringField;

    SFdValApp: TStringField;

    SFTHis: TStringField;

    SFdHisStd: TStringField;

    SFdHisApp: TStringField;

    SFTArg: TStringField;

    SFdArgStd: TStringField;

    SFdArgApp: TStringField;

    SFTMetCys: TStringField;

    SFdMetCysStd: TStringField;

    SFdMetCysApp: TStringField;

    SFTPheTyr: TStringField;

    SFdPheTyrStd: TStringField;

    SFdPheTyrApp: TStringField;

    SFTMAT: TStringField;

    SFdMATStd: TStringField;

    SFdMATApp: TStringField;

    QRLMet: TQRLabel;

    QRDBTTMet: TQRDBText;

    QRDBTdMetStd: TQRDBText;

    QRDBTdMetApp: TQRDBText;

    QRLTrp: TQRLabel;

    QRDBTTTrp: TQRDBText;

    QRDBTdTrpStd: TQRDBText;

    QRDBTdTrpApp: TQRDBText;

    QRLPhe: TQRLabel;

    QRDBTTPhe: TQRDBText;

    QRDBTdPheStd: TQRDBText;

    QRDBTdPheApp: TQRDBText;

    QRLLeu: TQRLabel;

    QRDBTTLeu: TQRDBText;

    QRDBTdLeuStd: TQRDBText;

    QRDBTdLeuApp: TQRDBText;

    QRLVal: TQRLabel;

    QRDBTTVal: TQRDBText;

    QRDBTdValStd: TQRDBText;

    QRDBTdValApp: TQRDBText;

    QRLArg: TQRLabel;

    QRDBTTArg: TQRDBText;

    QRDBTdArgStd: TQRDBText;

    QRDBTdArgApp: TQRDBText;

    QRLPheTyr: TQRLabel;

    QRDBTTPheTyr: TQRDBText;

    QRDBTdPheTyrStd: TQRDBText;

    QRDBTdPheTyrApp: TQRDBText;

    QRLLys: TQRLabel;

    QRDBTTLys: TQRDBText;

    QRDBTdLysStd: TQRDBText;

    QRDBTdLysApp: TQRDBText;

    QRLCys: TQRLabel;

    QRDBTTCys: TQRDBText;

    QRDBTdCysStd: TQRDBText;

    QRDBTdCysApp: TQRDBText;

    QRLThr: TQRLabel;

    QRDBTTThr: TQRDBText;

    QRDBTdThrStd: TQRDBText;

    QRDBTdThrApp: TQRDBText;

    QRLTyr: TQRLabel;

    QRDBTTTyr: TQRDBText;

    QRDBTdTyrStd: TQRDBText;

    QRDBTdTyrApp: TQRDBText;

    QRLIle: TQRLabel;

    QRDBTTIle: TQRDBText;

    QRDBTdIleStd: TQRDBText;

    QRDBTdIleApp: TQRDBText;

    QRLHis: TQRLabel;

    QRDBTTHis: TQRDBText;

    QRDBTdHisStd: TQRDBText;

    QRDBTdHisApp: TQRDBText;

    QRLMetCys: TQRLabel;

    QRDBTTMetCys: TQRDBText;

    QRDBTdMetCysStd: TQRDBText;

    QRDBTdMetCysApp: TQRDBText;

    QRIInraPorc: TQRImage;

    QRLInraPorc: TQRLabel;

    procedure FormCreate(Sender: TObject);

  private

    { D?clarations priv?es }

  public

    { D?clarations publiques }

  end;

var

  FRapAliAA: TFRapAliAA;

implementation

uses

  UStrings, UCalcul, UUtil, UFAliment, UFPrevRap ;

{$R *.dfm}

{ TFRapAliAA }

procedure TFRapAliAA.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['_TMAT_'] := FAliment.PBTMAT2.Text;

    FieldValues['_dMAT_Std_'] := FAliment.PBdMATStd.Text;

    FieldValues['_dMAT_App_'] := FAliment.PBdMATApp.Text;

    FieldValues['_TLys_'] := FAliment.PBTLys.Text;

    FieldValues['_dLys_Std_'] := FAliment.PBdLysStd.Text;

    FieldValues['_dLys_App_'] := FAliment.PBdLysApp.Text;

    FieldValues['_TMet_'] := FAliment.PBTMet.Text;

    FieldValues['_dMet_Std_'] := FAliment.PBdMetStd.Text;

    FieldValues['_dMet_App_'] := FAliment.PBdMetApp.Text;

    FieldValues['_TCys_'] := FAliment.PBTCys.Text;

    FieldValues['_dCys_Std_'] := FAliment.PBdCysStd.Text;

    FieldValues['_dCys_App_'] := FAliment.PBdCysApp.Text;

    FieldValues['_TTrp_'] := FAliment.PBTTrp.Text;

    FieldValues['_dTrp_Std_'] := FAliment.PBdTrpStd.Text;

    FieldValues['_dTrp_App_'] := FAliment.PBdTrpApp.Text;

    FieldValues['_TThr_'] := FAliment.PBTThr.Text;

    FieldValues['_dThr_Std_'] := FAliment.PBdThrStd.Text;

    FieldValues['_dThr_App_'] := FAliment.PBdThrApp.Text;

    FieldValues['_TPhe_'] := FAliment.PBTPhe.Text;

    FieldValues['_dPhe_Std_'] := FAliment.PBdPheStd.Text;

    FieldValues['_dPhe_App_'] := FAliment.PBdPheApp.Text;

    FieldValues['_TTyr_'] := FAliment.PBTTyr.Text;

    FieldValues['_dTyr_Std_'] := FAliment.PBdTyrStd.Text;

    FieldValues['_dTyr_App_'] := FAliment.PBdTyrApp.Text;

    FieldValues['_TLeu_'] := FAliment.PBTLeu.Text;

    FieldValues['_dLeu_Std_'] := FAliment.PBdLeuStd.Text;

    FieldValues['_dLeu_App_'] := FAliment.PBdLeuApp.Text;

    FieldValues['_TIle_'] := FAliment.PBTIle.Text;

    FieldValues['_dIle_Std_'] := FAliment.PBdIleStd.Text;

    FieldValues['_dIle_App_'] := FAliment.PBdIleApp.Text;

    FieldValues['_TVal_'] := FAliment.PBTVal.Text;

    FieldValues['_dVal_Std_'] := FAliment.PBdValStd.Text;

    FieldValues['_dVal_App_'] := FAliment.PBdValApp.Text;

    FieldValues['_THis_'] := FAliment.PBTHis.Text;

    FieldValues['_dHis_Std_'] := FAliment.PBdHisStd.Text;

    FieldValues['_dHis_App_'] := FAliment.PBdHisApp.Text;

    FieldValues['_TArg_'] := FAliment.PBTArg.Text;

    FieldValues['_dArg_Std_'] := FAliment.PBdArgStd.Text;

    FieldValues['_dArg_App_'] := FAliment.PBdArgApp.Text;

    FieldValues['_TMetCys_'] := FAliment.PBTMetCys.Text;

    FieldValues['_dMetCys_Std_'] := FAliment.PBdMetCysStd.Text;

    FieldValues['_dMetCys_App_'] := FAliment.PBdMetCysApp.Text;

    FieldValues['_TPheTyr_'] := FAliment.PBTPheTyr.Text;

    FieldValues['_dPheTyr_Std_'] := FAliment.PBdPheTyrStd.Text;

    FieldValues['_dPheTyr_App_'] := FAliment.PBdPheTyrApp.Text;

    Post;

  end ;

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

  QRLCompo.Caption:= FAliment.Hint;

  QRLTAA.Caption:= FAliment.GBTAA.Caption;

  QRLdAA.Caption:= FAliment.GBdAA.Caption;

  RegisterPreviewClass(TQRPrevRapInterface);

//  QRRapport.PreviewModal;

//  RegisterPreviewClass(TQRStandardPreviewInterface);

end;

end.