InraPorc

unit UFRapProfilP ;

interface

uses

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

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

  QuickRpt, QRPrntr, MidasLib, UVariables, gnugettext;

type

  TFRapProfilP = class(TForm)

    QRRapport: TQuickRep;

    PHBRapport: TQRBand;

    DBRapport: TQRBand;

    QRLTitre: TQRLabel;

    QRLConso: TQRLabel;

    QRLPerf: TQRLabel;

    QRLProfil: TQRLabel;

    QRDBTProfil: TQRDBText;

    CDSRapport: TClientDataSet;

    SFProfil: TStringField;

    PFBRapport: TQRBand;

    QRLUser: TQRLabel;

    QRLWarning: TQRLabel;

    QRLMemo: TQRLabel;

    QRMMemo: TQRMemo;

    QRSDDate: TQRSysData;

    QRSEntete: TQRShape;

    IFAgeInit: TIntegerField;

    FFPVInit: TFloatField;

    FFProtInit: TFloatField;

    FFLipInit: TFloatField;

    FFValFin: TFloatField;

    FFRC: TFloatField;

    SFAdLib: TStringField;

    FFPDMoy: TFloatField;

    FFPrecocite: TFloatField;

    FFEntretien: TFloatField;

    FFPVmr2: TFloatField;

    QRLInit: TQRLabel;

    QRLPVInit: TQRLabel;

    QRLAgeInit: TQRLabel;

    QRLProtInit: TQRLabel;

    QRLLipInit: TQRLabel;

    QRLFin: TQRLabel;

    QRLValFin: TQRLabel;

    QRLAdLib: TQRLabel;

    QRLPrecocite: TQRLabel;

    QRLPVmr2: TQRLabel;

    QRLPDMoy: TQRLabel;

    QRLEntretien: TQRLabel;

    QRDBTAdLib: TQRDBText;

    QRDBTAgeInit: TQRDBText;

    QRDBTProtInit: TQRDBText;

    QRDBTPVInit: TQRDBText;

    QRDBTLipInit: TQRDBText;

    QRDBTValFin: TQRDBText;

    QRDBTPDMoy: TQRDBText;

    QRDBTEntretien: TQRDBText;

    QRDBTPrecocite: TQRDBText;

    QRDBTPVmr2: TQRDBText;

    QRLRC: TQRLabel;

    QRDBTRC: TQRDBText;

    QRIInraPorc: TQRImage;

    QRLInraPorc: TQRLabel;

    QRLSexe: TQRLabel;

    QRDBTSexe: TQRDBText;

    SFSexe: TStringField;

    procedure FormCreate(Sender: TObject);

  private

    { D?clarations priv?es }

  public

    { D?clarations publiques }

  end;

var

  FRapProfilP: TFRapProfilP;

implementation

uses

  UStrings, UCalcul, UUtil, UFProfilP, UFPrevRap ;

{$R *.dfm}

{ TFRapProfilP }

procedure TFRapProfilP.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['_Profil_'] := FProfilP.CBProfil.Text;

    FieldValues['_Sexe_'] := FProfilP.CBSexe.Text;

    FieldValues['_AgeInit_'] := FProfilP.PBAgeInit.AsInteger;

    FieldValues['_PVInit_'] := FProfilP.PBPVInit.AsFloat;

    FieldValues['_ProtInit_'] := FProfilP.PBProtInit.AsFloat;

    FieldValues['_LipInit_'] := FProfilP.PBLipInit.AsFloat;

    if FProfilP.RBFinDuree.Checked

    then // Dur?e

      FieldValues['_ValFin_'] := FProfilP.PBDuree.AsInteger

    else // Poids vif

      FieldValues['_ValFin_'] := FProfilP.PBPVFin.AsFloat;

    FieldValues['_RC_'] := FProfilP.PBCarcasse.AsFloat;

    case FProfilP.CBEquation.ItemIndex of

      0: // a+b*PV

        FieldValues['_AdLib_'] := Format('%s=%s+%s*%s', [FProfilP.CBUnite.Text, DblToStr(FProfilP.PBCoefA.AsFloat, FProfilP.PBCoefA.Decimals), DblToStr(FProfilP.PBCoefB.AsFloat, FProfilP.PBCoefB.Decimals), _('BW')]);

      1: // a*PV^b

        FieldValues['_AdLib_'] := Format('%s=%s*%s^%s', [FProfilP.CBUnite.Text, DblToStr(FProfilP.PBCoefA.AsFloat, FProfilP.PBCoefA.Decimals), _('BW'), DblToStr(FProfilP.PBCoefB.AsFloat, FProfilP.PBCoefB.Decimals)]);

      2: // a*(1-exp(-b*PV))

        FieldValues['_AdLib_'] := Format('%s=%s*(1-exp(-%s*%s))', [FProfilP.CBUnite.Text, DblToStr(FProfilP.PBCoefA.AsFloat, FProfilP.PBCoefA.Decimals), DblToStr(FProfilP.PBCoefB.AsFloat, FProfilP.PBCoefB.Decimals), _('BW')]);

      3:

        FieldValues['_AdLib_'] := Format('Gamma: %s=(%s*(%s*%s*exp(-%s*%s))+1)*%s', [FProfilP.CBUnite.Text, DblToStr(FProfilP.PBCoefA.AsFloat, FProfilP.PBCoefA.Decimals), DblToStr(FProfilP.PBCoefB.AsFloat, FProfilP.PBCoefB.Decimals), _('BW'), DblToStr(FProfilP.PBCoefB.AsFloat, FProfilP.PBCoefB.Decimals), _('BW'), _('Maintenance')]);

      else

        FieldValues['_AdLib_'] := '';

    end;

    FieldValues['_PDMoy_'] := FProfilP.PBPDMoy.AsFloat;

    FieldValues['_Precocite_'] := FProfilP.PBComport.AsFloat;

    FieldValues['_Entretien_'] := FProfilP.PBEntretien.AsFloat;

    FieldValues['_PVmr2_'] := FProfilP.PBPVmr2.AsFloat;

    Post;

  end ;

  QRMMemo.Lines.Add(FProfilP.CBProfil.Hint);

  if FProfilP.RBFinDuree.Checked

  then // Dur?e

    QRLValFin.Caption := FProfilP.RBFinDuree.Caption

  else // Poids vif

    QRLValFin.Caption := FProfilP.RBFinPoids.Caption;

  if FProfilP.RBFinDuree.Checked

  then // Dur?e

    QRDBTValFin.Mask := '0'

  else // Poids vif

    QRDBTValFin.Mask := '0.0';

  RegisterPreviewClass(TQRPrevRapInterface);

//  QRRapport.PreviewModal;

//  RegisterPreviewClass(TQRStandardPreviewInterface);

end;

end.