root / UFRapAliAG.pas @ 3
Historique | Voir | Annoter | Télécharger (6,599 ko)
| 1 | 3 | avalancogn | unit UFRapAliAG ;
|
|---|---|---|---|
| 2 | |||
| 3 | interface
|
||
| 4 | |||
| 5 | uses
|
||
| 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
||
| 7 | Dialogs, OleCtrls, StdCtrls, ComCtrls, DB, DBClient, ExtCtrls, QRCtrls, |
||
| 8 | QuickRpt, QRPrntr, MidasLib, UVariables, gnugettext; |
||
| 9 | |||
| 10 | type
|
||
| 11 | TFRapAliAG = class(TForm)
|
||
| 12 | QRRapport: TQuickRep; |
||
| 13 | PHBRapport: TQRBand; |
||
| 14 | DBRapport: TQRBand; |
||
| 15 | QRLTitre: TQRLabel; |
||
| 16 | QRLAliment: TQRLabel; |
||
| 17 | CDSRapport: TClientDataSet; |
||
| 18 | PFBRapport: TQRBand; |
||
| 19 | QRLUser: TQRLabel; |
||
| 20 | QRLWarning: TQRLabel; |
||
| 21 | QRLMemo: TQRLabel; |
||
| 22 | QRMMemo: TQRMemo; |
||
| 23 | QRSDDate: TQRSysData; |
||
| 24 | QRSEntete: TQRShape; |
||
| 25 | SFAliment: TStringField; |
||
| 26 | QRDBAliment: TQRDBText; |
||
| 27 | QRLTAG: TQRLabel; |
||
| 28 | QRLC6C8C10: TQRLabel; |
||
| 29 | QRDBTTC6C8C10_Tot: TQRDBText; |
||
| 30 | QRLCompo: TQRLabel; |
||
| 31 | QRLTot: TQRLabel; |
||
| 32 | QRDBTTC6C8C10_0: TQRDBText; |
||
| 33 | QRL0: TQRLabel; |
||
| 34 | QRL1: TQRLabel; |
||
| 35 | QRL2: TQRLabel; |
||
| 36 | QRL3: TQRLabel; |
||
| 37 | QRL4: TQRLabel; |
||
| 38 | QRL5: TQRLabel; |
||
| 39 | QRL6: TQRLabel; |
||
| 40 | QRLC14: TQRLabel; |
||
| 41 | QRDBTTC14_Tot: TQRDBText; |
||
| 42 | QRDBTTC14_0: TQRDBText; |
||
| 43 | QRLC18: TQRLabel; |
||
| 44 | QRDBTTC18_Tot: TQRDBText; |
||
| 45 | QRDBTTC18_0: TQRDBText; |
||
| 46 | QRDBTTC18_1: TQRDBText; |
||
| 47 | QRDBTTC18_2: TQRDBText; |
||
| 48 | QRDBTTC18_3: TQRDBText; |
||
| 49 | QRDBTTC18_4: TQRDBText; |
||
| 50 | QRLC22: TQRLabel; |
||
| 51 | QRDBTTC22_Tot: TQRDBText; |
||
| 52 | QRDBTTC22_0: TQRDBText; |
||
| 53 | QRDBTTC22_1: TQRDBText; |
||
| 54 | QRDBTTC22_5: TQRDBText; |
||
| 55 | QRDBTTC22_6: TQRDBText; |
||
| 56 | QRLCTot: TQRLabel; |
||
| 57 | QRDBTTCTot_Tot: TQRDBText; |
||
| 58 | QRDBTTCTot_0: TQRDBText; |
||
| 59 | QRDBTTCTot_1: TQRDBText; |
||
| 60 | QRDBTTCTot_2: TQRDBText; |
||
| 61 | QRDBTTCTot_3: TQRDBText; |
||
| 62 | QRDBTTCTot_4: TQRDBText; |
||
| 63 | QRDBTTCTot_5: TQRDBText; |
||
| 64 | QRDBTTCTot_6: TQRDBText; |
||
| 65 | QRLC12: TQRLabel; |
||
| 66 | QRDBTTC12_Tot: TQRDBText; |
||
| 67 | QRDBTTC12_0: TQRDBText; |
||
| 68 | QRLC16: TQRLabel; |
||
| 69 | QRDBTTC16_Tot: TQRDBText; |
||
| 70 | QRDBTTC16_0: TQRDBText; |
||
| 71 | QRDBTTC16_1: TQRDBText; |
||
| 72 | QRLC20: TQRLabel; |
||
| 73 | QRDBTTC20_Tot: TQRDBText; |
||
| 74 | QRDBTTC20_0: TQRDBText; |
||
| 75 | QRDBTTC20_1: TQRDBText; |
||
| 76 | QRDBTTC20_4: TQRDBText; |
||
| 77 | QRDBTTC20_5: TQRDBText; |
||
| 78 | QRLC24: TQRLabel; |
||
| 79 | QRDBTTC24_Tot: TQRDBText; |
||
| 80 | QRDBTTC24_0: TQRDBText; |
||
| 81 | QRLLip: TQRLabel; |
||
| 82 | QRDBTLip: TQRDBText; |
||
| 83 | QRLAGsLip: TQRLabel; |
||
| 84 | QRDBTAGsLip: TQRDBText; |
||
| 85 | SFAGsLip: TStringField; |
||
| 86 | SFC6C8C10_0: TStringField; |
||
| 87 | SFLip: TStringField; |
||
| 88 | SFC14_0: TStringField; |
||
| 89 | SFC6C8C10_Tot: TStringField; |
||
| 90 | SFC16_0: TStringField; |
||
| 91 | SFC18_0: TStringField; |
||
| 92 | SFC20_5: TStringField; |
||
| 93 | SFC22_6: TStringField; |
||
| 94 | SFC24_0: TStringField; |
||
| 95 | SFC12_0: TStringField; |
||
| 96 | SFC12_Tot: TStringField; |
||
| 97 | SFC14_Tot: TStringField; |
||
| 98 | SFC16_1: TStringField; |
||
| 99 | SFC16_Tot: TStringField; |
||
| 100 | SFC18_1: TStringField; |
||
| 101 | SFC18_2: TStringField; |
||
| 102 | SFC18_3: TStringField; |
||
| 103 | SFC18_4: TStringField; |
||
| 104 | SFC18_Tot: TStringField; |
||
| 105 | SFCTot_1: TStringField; |
||
| 106 | SFC20_Tot: TStringField; |
||
| 107 | SFC22_Tot: TStringField; |
||
| 108 | SFC20_0: TStringField; |
||
| 109 | SFC22_0: TStringField; |
||
| 110 | SFC20_1: TStringField; |
||
| 111 | SFC20_4: TStringField; |
||
| 112 | SFC22_1: TStringField; |
||
| 113 | SFC22_5: TStringField; |
||
| 114 | SFC24_Tot: TStringField; |
||
| 115 | SFCTot_Tot: TStringField; |
||
| 116 | SFCTot_2: TStringField; |
||
| 117 | SFCTot_3: TStringField; |
||
| 118 | SFCTot_4: TStringField; |
||
| 119 | SFCTot_5_: TStringField; |
||
| 120 | SFCTot_6: TStringField; |
||
| 121 | SFCTot_0: TStringField; |
||
| 122 | QRIInraPorc: TQRImage; |
||
| 123 | QRLInraPorc: TQRLabel; |
||
| 124 | procedure FormCreate(Sender: TObject);
|
||
| 125 | private
|
||
| 126 | { D?clarations priv?es }
|
||
| 127 | public
|
||
| 128 | { D?clarations publiques }
|
||
| 129 | end;
|
||
| 130 | |||
| 131 | var
|
||
| 132 | FRapAliAG: TFRapAliAG; |
||
| 133 | |||
| 134 | implementation
|
||
| 135 | |||
| 136 | uses
|
||
| 137 | UStrings, UCalcul, UUtil, UFAliment, UFPrevRap ; |
||
| 138 | |||
| 139 | {$R *.dfm}
|
||
| 140 | |||
| 141 | { TFRapAliAG }
|
||
| 142 | |||
| 143 | procedure TFRapAliAG.FormCreate(Sender: TObject);
|
||
| 144 | begin
|
||
| 145 | if Screen.Fonts.IndexOf('Arial Unicode MS') <> -1 |
||
| 146 | then
|
||
| 147 | Font.Name := 'Arial Unicode MS';
|
||
| 148 | TranslateComponent(Self); |
||
| 149 | // Licence
|
||
| 150 | if IsEducation and (Length (Course) > 0) |
||
| 151 | then
|
||
| 152 | QRLUSer.Caption := Format('%s (%s)', [Course, Company])
|
||
| 153 | else
|
||
| 154 | if IsComplete or IsEducation |
||
| 155 | then
|
||
| 156 | QRLUSer.Caption := Format('%s %s (%s)', [FirstName, LastName, Company])
|
||
| 157 | else
|
||
| 158 | if IsEvaluation
|
||
| 159 | then
|
||
| 160 | QRLUSer.Caption := StrEvaluation |
||
| 161 | else
|
||
| 162 | begin
|
||
| 163 | QRLUSer.Caption := StrReadOnly; |
||
| 164 | QRLUser.Font.Color := clRed; |
||
| 165 | end;
|
||
| 166 | with CDSRapport do |
||
| 167 | begin
|
||
| 168 | CreateDataSet; |
||
| 169 | Append; |
||
| 170 | FieldValues['_Aliment_'] := FAliment.CBAliment.Text;
|
||
| 171 | FieldValues['_C6C8C10_0_'] := FAliment.PBC6C8C10_0.Text;
|
||
| 172 | FieldValues['_C6C8C10_Tot_'] := FAliment.PBC6C8C10_tot.Text;
|
||
| 173 | FieldValues['_C12_0_'] := FAliment.PBC12_0.Text;
|
||
| 174 | FieldValues['_C12_Tot_'] := FAliment.PBC12_tot.Text;
|
||
| 175 | FieldValues['_C14_0_'] := FAliment.PBC14_0.Text;
|
||
| 176 | FieldValues['_C14_Tot_'] := FAliment.PBC14_tot.Text;
|
||
| 177 | FieldValues['_C16_0_'] := FAliment.PBC16_0.Text;
|
||
| 178 | FieldValues['_C16_1_'] := FAliment.PBC16_1.Text;
|
||
| 179 | FieldValues['_C16_Tot_'] := FAliment.PBC16_tot.Text;
|
||
| 180 | FieldValues['_C18_0_'] := FAliment.PBC18_0.Text;
|
||
| 181 | FieldValues['_C18_1_'] := FAliment.PBC18_1.Text;
|
||
| 182 | FieldValues['_C18_2_'] := FAliment.PBC18_2.Text;
|
||
| 183 | FieldValues['_C18_3_'] := FAliment.PBC18_3.Text;
|
||
| 184 | FieldValues['_C18_4_'] := FAliment.PBC18_4.Text;
|
||
| 185 | FieldValues['_C18_Tot_'] := FAliment.PBC18_tot.Text;
|
||
| 186 | FieldValues['_C20_0_'] := FAliment.PBC20_0.Text;
|
||
| 187 | FieldValues['_C20_1_'] := FAliment.PBC20_1.Text;
|
||
| 188 | FieldValues['_C20_4_'] := FAliment.PBC20_4.Text;
|
||
| 189 | FieldValues['_C20_5_'] := FAliment.PBC20_5.Text;
|
||
| 190 | FieldValues['_C20_Tot_'] := FAliment.PBC20_tot.Text;
|
||
| 191 | FieldValues['_C22_0_'] := FAliment.PBC22_0.Text;
|
||
| 192 | FieldValues['_C22_1_'] := FAliment.PBC22_1.Text;
|
||
| 193 | FieldValues['_C22_5_'] := FAliment.PBC22_5.Text;
|
||
| 194 | FieldValues['_C22_6_'] := FAliment.PBC22_6.Text;
|
||
| 195 | FieldValues['_C22_Tot_'] := FAliment.PBC22_tot.Text;
|
||
| 196 | FieldValues['_C24_0_'] := FAliment.PBC24_0.Text;
|
||
| 197 | FieldValues['_C24_Tot_'] := FAliment.PBC24_tot.Text;
|
||
| 198 | FieldValues['_CTot_0_'] := FAliment.PBCtot_0.Text;
|
||
| 199 | FieldValues['_CTot_1_'] := FAliment.PBCtot_1.Text;
|
||
| 200 | FieldValues['_CTot_2_'] := FAliment.PBCtot_2.Text;
|
||
| 201 | FieldValues['_CTot_3_'] := FAliment.PBCtot_3.Text;
|
||
| 202 | FieldValues['_CTot_4_'] := FAliment.PBCtot_4.Text;
|
||
| 203 | FieldValues['_CTot_5_'] := FAliment.PBCtot_5.Text;
|
||
| 204 | FieldValues['_CTot_6_'] := FAliment.PBCtot_6.Text;
|
||
| 205 | FieldValues['_CTot_Tot_'] := FAliment.PBCtot_tot.Text;
|
||
| 206 | FieldValues['_Lip_'] := FAliment.PBLip2.Text;
|
||
| 207 | FieldValues['_AGsLip_'] := FAliment.PBAG.Text;
|
||
| 208 | Post; |
||
| 209 | end ;
|
||
| 210 | QRMMemo.Lines.Add(FAliment.CBAliment.Hint); |
||
| 211 | QRLCompo.Caption:= FAliment.Hint; |
||
| 212 | QRLTAG.Caption:= FAliment.GBTAG.Caption; |
||
| 213 | RegisterPreviewClass(TQRPrevRapInterface); |
||
| 214 | // QRRapport.PreviewModal;
|
||
| 215 | // RegisterPreviewClass(TQRStandardPreviewInterface);
|
||
| 216 | end;
|
||
| 217 | |||
| 218 | end. |