InraPorc

unit UFRapMatAA;

interface

uses

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

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

  QuickRpt, QRPrntr, MidasLib, UVariables, gnugettext;

type

  TFRapMatAA = class(TForm)

    QRRapport: TQuickRep;

    PHBRapport: TQRBand;

    DBRapport: TQRBand;

    QRLTitre: TQRLabel;

    QRLMatiere: TQRLabel;

    CDSRapport: TClientDataSet;

    PFBRapport: TQRBand;

    QRLUser: TQRLabel;

    QRLWarning: TQRLabel;

    QRLMemo: TQRLabel;

    QRMMemo: TQRMemo;

    QRSDDate: TQRSysData;

    QRSEntete: TQRShape;

    SFMatiere: TStringField;

    QRDBMatiere: 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

  FRapMatAA: TFRapMatAA;

implementation

uses

  UStrings, UCalcul, UUtil, UFMatiere, UFPrevRap;

{$R *.dfm}

{ TFRapMatAA }

procedure TFRapMatAA.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['_Matiere_'] := FMatiere.CBMatiere.Text;

    FieldValues['_TMAT_'] := FMatiere.PBTMAT2.Text;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    Post;

  end ;

  QRMMemo.Lines.Add(FMatiere.CBMatiere.Hint);

  QRLCompo.Caption := FMatiere.Hint;

  QRLTAA.Caption := FMatiere.GBTAA.Caption;

  QRLdAA.Caption := FMatiere.GBdAA.Caption;

  RegisterPreviewClass(TQRPrevRapInterface);

//  QRRapport.PreviewModal;

//  RegisterPreviewClass(TQRStandardPreviewInterface);

end;

end.