InraPorc

unit UFRapMatMin;

interface

uses

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

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

  QuickRpt, QRPrntr, MidasLib, UVariables, gnugettext;

type

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

    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

  FRapMatMin: TFRapMatMin;

implementation

uses

  UStrings, UCalcul, UUtil, UFMatiere, UFPrevRap;

{$R *.dfm}

{ TFRapMatMin }

procedure TFRapMatMin.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['_Ca_'] := FMatiere.PBCa.Text;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    Post;

  end;

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

  QRLCompo.Caption := FMatiere.Hint;

  QRLTMacro.Caption := FMatiere.GBTMacro.Caption;

  QRLTOligo.Caption := FMatiere.GBTOligo.Caption;

  RegisterPreviewClass(TQRPrevRapInterface);

//  QRRapport.PreviewModal;

//  RegisterPreviewClass(TQRStandardPreviewInterface);

end;

end.