root / UFRapBesGestT.pas
Historique | Voir | Annoter | Télécharger (10,354 ko)
| 1 | 3 | avalancogn | unit UFRapBesGestT ;
|
|---|---|---|---|
| 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 | TFRapBesGestT = class(TForm)
|
||
| 12 | QRRapport: TQuickRep; |
||
| 13 | PHBRapport: TQRBand; |
||
| 14 | DBRapport: TQRBand; |
||
| 15 | QRLTitre: TQRLabel; |
||
| 16 | CDSRapport: TClientDataSet; |
||
| 17 | QRLSaillie: TQRLabel; |
||
| 18 | QRLPoids: TQRLabel; |
||
| 19 | QRLCaract: TQRLabel; |
||
| 20 | QRLMiseBas: TQRLabel; |
||
| 21 | QRLP2: TQRLabel; |
||
| 22 | QRLAge: TQRLabel; |
||
| 23 | QRLPortee: TQRLabel; |
||
| 24 | QRLNesVifs: TQRLabel; |
||
| 25 | QRLPdsPt: TQRLabel; |
||
| 26 | QRLTyp: TQRLabel; |
||
| 27 | FFPdsSail: TFloatField; |
||
| 28 | FFPdsMB: TFloatField; |
||
| 29 | FFP2Sail: TFloatField; |
||
| 30 | FFP2MB: TFloatField; |
||
| 31 | IFAgeSail: TIntegerField; |
||
| 32 | IFAgeMB: TIntegerField; |
||
| 33 | QRLVariation: TQRLabel; |
||
| 34 | QRDBTPdsSail: TQRDBText; |
||
| 35 | QRDBTPdsMB: TQRDBText; |
||
| 36 | QREPds: TQRExpr; |
||
| 37 | QRDBTP2Sail: TQRDBText; |
||
| 38 | QRDBTP2MB: TQRDBText; |
||
| 39 | QREP2: TQRExpr; |
||
| 40 | QRDBTAgeSail: TQRDBText; |
||
| 41 | QRDBTAgeMB: TQRDBText; |
||
| 42 | QREAge: TQRExpr; |
||
| 43 | IFPortee: TIntegerField; |
||
| 44 | FFPdsPort: TFloatField; |
||
| 45 | SFLoge: TStringField; |
||
| 46 | QRDBText1: TQRDBText; |
||
| 47 | QRDBText2: TQRDBText; |
||
| 48 | QRDBText3: TQRDBText; |
||
| 49 | QRDBText6: TQRDBText; |
||
| 50 | QRLNRJ: TQRLabel; |
||
| 51 | QRLAA: TQRLabel; |
||
| 52 | QRLNRJEnt: TQRLabel; |
||
| 53 | QRLNRJAct: TQRLabel; |
||
| 54 | QRLNRJThe: TQRLabel; |
||
| 55 | QRLNRJPort: TQRLabel; |
||
| 56 | QRLNRJRes: TQRLabel; |
||
| 57 | QRLNRJTot: TQRLabel; |
||
| 58 | QRDBTEMEnt: TQRDBText; |
||
| 59 | QRLEMEnt: TQRLabel; |
||
| 60 | QRLPctEnt: TQRLabel; |
||
| 61 | QRDBTEMThe: TQRDBText; |
||
| 62 | QRLEMThe: TQRLabel; |
||
| 63 | QRLPctThe: TQRLabel; |
||
| 64 | QRDBTEMRes: TQRDBText; |
||
| 65 | QRLEMRes: TQRLabel; |
||
| 66 | QRLPctRes: TQRLabel; |
||
| 67 | QRDBTEMAct: TQRDBText; |
||
| 68 | QRLEMAct: TQRLabel; |
||
| 69 | QRLPctAct: TQRLabel; |
||
| 70 | QRDBTEMPort: TQRDBText; |
||
| 71 | QRLEMPort: TQRLabel; |
||
| 72 | QRLPctPort: TQRLabel; |
||
| 73 | QRDBTEMTot: TQRDBText; |
||
| 74 | QREPctEnt: TQRExpr; |
||
| 75 | QREPctThe: TQRExpr; |
||
| 76 | QREPctRes: TQRExpr; |
||
| 77 | QREPctAct: TQRExpr; |
||
| 78 | QREPctPort: TQRExpr; |
||
| 79 | FFBesEMEnt: TFloatField; |
||
| 80 | FFBesEMAct: TFloatField; |
||
| 81 | FFBesEMThe: TFloatField; |
||
| 82 | FFBesEMPort: TFloatField; |
||
| 83 | FFBesEMRes: TFloatField; |
||
| 84 | FFBesEMTot: TFloatField; |
||
| 85 | FFAppED: TFloatField; |
||
| 86 | FFAppEM: TFloatField; |
||
| 87 | FFAppEN: TFloatField; |
||
| 88 | FFBesAli: TFloatField; |
||
| 89 | QRLEMTot: TQRLabel; |
||
| 90 | QRLENTot: TQRLabel; |
||
| 91 | QREENTot: TQRExpr; |
||
| 92 | QRLAli: TQRLabel; |
||
| 93 | QRDBTAli: TQRDBText; |
||
| 94 | QRLAATot: TQRLabel; |
||
| 95 | QRLAAAli: TQRLabel; |
||
| 96 | QRLPctLys: TQRLabel; |
||
| 97 | QRLAATot35: TQRLabel; |
||
| 98 | QRLAATot105: TQRLabel; |
||
| 99 | QRLAAAli35: TQRLabel; |
||
| 100 | QRLAAAli105: TQRLabel; |
||
| 101 | QRLLys: TQRLabel; |
||
| 102 | QRLMet: TQRLabel; |
||
| 103 | QRLMetCys: TQRLabel; |
||
| 104 | QRLTrp: TQRLabel; |
||
| 105 | QRLThr: TQRLabel; |
||
| 106 | QRLPhe: TQRLabel; |
||
| 107 | QRLPheTyr: TQRLabel; |
||
| 108 | QRLLeu: TQRLabel; |
||
| 109 | QRLIle: TQRLabel; |
||
| 110 | QRLVal: TQRLabel; |
||
| 111 | QRLHis: TQRLabel; |
||
| 112 | QRLArg: TQRLabel; |
||
| 113 | QRDBTLysTot35: TQRDBText; |
||
| 114 | QRDBTMetTot35: TQRDBText; |
||
| 115 | QRDBTMetCysTot35: TQRDBText; |
||
| 116 | QRDBTTrpTot35: TQRDBText; |
||
| 117 | QRDBTThrTot35: TQRDBText; |
||
| 118 | QRDBTPheTot35: TQRDBText; |
||
| 119 | QRDBTPheTyrTot35: TQRDBText; |
||
| 120 | QRDBTLeuTot35: TQRDBText; |
||
| 121 | QRDBTIleTot35: TQRDBText; |
||
| 122 | QRDBTValTot305: TQRDBText; |
||
| 123 | QRDBTHisTot35: TQRDBText; |
||
| 124 | QRDBTArgTot35: TQRDBText; |
||
| 125 | QRDBTLysTot105: TQRDBText; |
||
| 126 | QRDBTMetTot105: TQRDBText; |
||
| 127 | QRDBTMetCysTot105: TQRDBText; |
||
| 128 | QRDBTTrpTot105: TQRDBText; |
||
| 129 | QRDBTThrTot105: TQRDBText; |
||
| 130 | QRDBTPheTot105: TQRDBText; |
||
| 131 | QRDBTPheTyrTot105: TQRDBText; |
||
| 132 | QRDBTLeuTot105: TQRDBText; |
||
| 133 | QRDBTIleTot105: TQRDBText; |
||
| 134 | QRDBTValTot105: TQRDBText; |
||
| 135 | QRDBTHisTot105: TQRDBText; |
||
| 136 | QRDBTArgTot105: TQRDBText; |
||
| 137 | QRELysAli35: TQRExpr; |
||
| 138 | QREMetAli35: TQRExpr; |
||
| 139 | QREMetCysAli35: TQRExpr; |
||
| 140 | QRETrpAli35: TQRExpr; |
||
| 141 | QREThrAli35: TQRExpr; |
||
| 142 | QREPheAli35: TQRExpr; |
||
| 143 | QREPheTyrAli35: TQRExpr; |
||
| 144 | QRELeuAli35: TQRExpr; |
||
| 145 | QREIleAli35: TQRExpr; |
||
| 146 | QREValAli35: TQRExpr; |
||
| 147 | QREHisAli35: TQRExpr; |
||
| 148 | QREArgAli35: TQRExpr; |
||
| 149 | QRELysAli105: TQRExpr; |
||
| 150 | QREMetAli105: TQRExpr; |
||
| 151 | QREMetCysAli105: TQRExpr; |
||
| 152 | QRETrpAli105: TQRExpr; |
||
| 153 | QREThrAli105: TQRExpr; |
||
| 154 | QREPheAli105: TQRExpr; |
||
| 155 | QREPheTyrAli105: TQRExpr; |
||
| 156 | QRELeuAli105: TQRExpr; |
||
| 157 | QREIleAli105: TQRExpr; |
||
| 158 | QREValAli105: TQRExpr; |
||
| 159 | QREHisAli105: TQRExpr; |
||
| 160 | QREArgAli105: TQRExpr; |
||
| 161 | QRELysPctLys: TQRExpr; |
||
| 162 | QREMetPctLys: TQRExpr; |
||
| 163 | QREMetCysPctLys: TQRExpr; |
||
| 164 | QRETrpPctLys: TQRExpr; |
||
| 165 | QREThrPctLys: TQRExpr; |
||
| 166 | QREPhePctLys: TQRExpr; |
||
| 167 | QREPheTyrPctLys: TQRExpr; |
||
| 168 | QRELeuPctLys: TQRExpr; |
||
| 169 | QREIlePctLys: TQRExpr; |
||
| 170 | QREValPctLys: TQRExpr; |
||
| 171 | QREHisPctLys: TQRExpr; |
||
| 172 | QREArgPctLys: TQRExpr; |
||
| 173 | FFLys105: TFloatField; |
||
| 174 | FFMet105: TFloatField; |
||
| 175 | FFMetCys105: TFloatField; |
||
| 176 | FFTrp105: TFloatField; |
||
| 177 | FFThr105: TFloatField; |
||
| 178 | FFPhe105: TFloatField; |
||
| 179 | FFPheTyr105: TFloatField; |
||
| 180 | FFLeu105: TFloatField; |
||
| 181 | FFIle105: TFloatField; |
||
| 182 | FFVal105: TFloatField; |
||
| 183 | FFHis105: TFloatField; |
||
| 184 | FFArg105: TFloatField; |
||
| 185 | FFLys35: TFloatField; |
||
| 186 | FFMet35: TFloatField; |
||
| 187 | FFMetCys35: TFloatField; |
||
| 188 | FFTrp35: TFloatField; |
||
| 189 | FFThr35: TFloatField; |
||
| 190 | FFPhe35: TFloatField; |
||
| 191 | FFPheTyr35: TFloatField; |
||
| 192 | FFLeu35: TFloatField; |
||
| 193 | FFIle35: TFloatField; |
||
| 194 | FFVal35: TFloatField; |
||
| 195 | FFHis35: TFloatField; |
||
| 196 | FFArg35: TFloatField; |
||
| 197 | QRShape1: TQRShape; |
||
| 198 | QRShape2: TQRShape; |
||
| 199 | QRShape3: TQRShape; |
||
| 200 | QRLMinAli: TQRLabel; |
||
| 201 | QRLMinTot: TQRLabel; |
||
| 202 | QRShape4: TQRShape; |
||
| 203 | QRShape5: TQRShape; |
||
| 204 | QRLMin: TQRLabel; |
||
| 205 | QRLMinTot35: TQRLabel; |
||
| 206 | QRLMinTot105: TQRLabel; |
||
| 207 | QRLMinAli35: TQRLabel; |
||
| 208 | QRLMinAli105: TQRLabel; |
||
| 209 | QREPAli105: TQRExpr; |
||
| 210 | QREPAli35: TQRExpr; |
||
| 211 | QRLabel9: TQRLabel; |
||
| 212 | QRDBTP35Tot: TQRDBText; |
||
| 213 | QRDBTP105Tot: TQRDBText; |
||
| 214 | QRECaAli105: TQRExpr; |
||
| 215 | QRECaAli35: TQRExpr; |
||
| 216 | QRLabel10: TQRLabel; |
||
| 217 | QRDBTCa35Tot: TQRDBText; |
||
| 218 | QRDBTCa105Tot: TQRDBText; |
||
| 219 | FFP35: TFloatField; |
||
| 220 | FFCa35: TFloatField; |
||
| 221 | FFP105: TFloatField; |
||
| 222 | FFCa105: TFloatField; |
||
| 223 | FFNesTotaux: TFloatField; |
||
| 224 | PFBRapport: TQRBand; |
||
| 225 | QRLUser: TQRLabel; |
||
| 226 | QRLWarning: TQRLabel; |
||
| 227 | QRSDDate: TQRSysData; |
||
| 228 | QRIInraPorc: TQRImage; |
||
| 229 | QRLInraPorc: TQRLabel; |
||
| 230 | procedure FormCreate(Sender: TObject);
|
||
| 231 | private
|
||
| 232 | { D?clarations priv?es }
|
||
| 233 | public
|
||
| 234 | { D?clarations publiques }
|
||
| 235 | end;
|
||
| 236 | |||
| 237 | var
|
||
| 238 | FRapBesGestT: TFRapBesGestT; |
||
| 239 | |||
| 240 | implementation
|
||
| 241 | |||
| 242 | uses
|
||
| 243 | UStrings, UUtil, UFBesGestT, UFPrevRap ; |
||
| 244 | |||
| 245 | {$R *.dfm}
|
||
| 246 | |||
| 247 | { TFRapBesGestT }
|
||
| 248 | |||
| 249 | procedure TFRapBesGestT.FormCreate(Sender: TObject);
|
||
| 250 | begin
|
||
| 251 | if Screen.Fonts.IndexOf('Arial Unicode MS') <> -1 |
||
| 252 | then
|
||
| 253 | Font.Name := 'Arial Unicode MS';
|
||
| 254 | TranslateComponent(Self); |
||
| 255 | // Licence
|
||
| 256 | if IsEducation and (Length (Course) > 0) |
||
| 257 | then
|
||
| 258 | QRLUSer.Caption := Format('%s (%s)', [Course, Company])
|
||
| 259 | else
|
||
| 260 | if IsComplete or IsEducation |
||
| 261 | then
|
||
| 262 | QRLUSer.Caption := Format('%s %s (%s)', [FirstName, LastName, Company])
|
||
| 263 | else
|
||
| 264 | if IsEvaluation
|
||
| 265 | then
|
||
| 266 | QRLUSer.Caption := StrEvaluation |
||
| 267 | else
|
||
| 268 | begin
|
||
| 269 | QRLUSer.Caption := StrReadOnly; |
||
| 270 | QRLUser.Font.Color := clRed; |
||
| 271 | end;
|
||
| 272 | with CDSRapport do |
||
| 273 | begin
|
||
| 274 | CreateDataSet; |
||
| 275 | Append; |
||
| 276 | FieldValues['_Portee_'] := FBesGestT.PBPortee.AsInteger ;
|
||
| 277 | FieldValues['_NesTotaux_'] := FBesGestT.PBNesTotaux.AsFloat ;
|
||
| 278 | FieldValues['_PdsPort_'] := FBesGestT.PBPdsNais.AsFloat * FBesGestT.PBNesTotaux.AsFloat ;
|
||
| 279 | FieldValues['_PdsSail_'] := FBesGestT.PBPdsSail.AsFloat ;
|
||
| 280 | FieldValues['_PdsMB_'] := FBesGestT.PBPdsApMB.AsFloat ;
|
||
| 281 | FieldValues['_P2Sail_'] := FBesGestT.PBP2Sail.AsFloat ;
|
||
| 282 | FieldValues['_P2MB_'] := FBesGestT.PBP2MB.AsFloat ;
|
||
| 283 | FieldValues['_AgeSail_'] := FBesGestT.PBAgeSail.AsInteger ;
|
||
| 284 | FieldValues['_AgeMB_'] := FBesGestT.PBAgeSail.AsInteger + DureeGest ;
|
||
| 285 | if FBesGestT.CBLoge.ItemIndex = 0 |
||
| 286 | then
|
||
| 287 | FieldValues['_Loge_'] := Format ('%s - %s - %d %s - %d %s', [FBesGestT.CBTyp.Text, FBesGestT.CBSol.Text, FBesGestT.PBTemp.AsInteger, StrDegC, FBesGestT.PBAct.AsInteger, StrMnDebout]) |
||
| 288 | else
|
||
| 289 | FieldValues['_Loge_'] := FBesGestT.CBLoge.Text ;
|
||
| 290 | FieldValues['_BesEMEnt_'] := FBesGestT.BesEMEntTot ;
|
||
| 291 | FieldValues['_BesEMAct_'] := FBesGestT.BesEMActTot ;
|
||
| 292 | FieldValues['_BesEMThe_'] := FBesGestT.BesEMTheTot ;
|
||
| 293 | FieldValues['_BesEMPort_'] := FBesGestT.BesEMPortTot ;
|
||
| 294 | FieldValues['_BesEMRes_'] := FBesGestT.BesEMResTot ;
|
||
| 295 | FieldValues['_BesEMTot_'] := FBesGestT.BesEMTot ;
|
||
| 296 | FieldValues['_AppED_'] := FBesGestT.AppEDTot ;
|
||
| 297 | FieldValues['_AppEM_'] := FBesGestT.AppEMTot ;
|
||
| 298 | FieldValues['_AppEN_'] := FBesGestT.AppENTot ;
|
||
| 299 | if (FBesGestT.AppEMTot = 0) |
||
| 300 | then
|
||
| 301 | FieldValues['_BesAli_'] := 0 |
||
| 302 | else
|
||
| 303 | FieldValues['_BesAli_'] := FBesGestT.BesEMTot * FBesGestT.AppAliTot / FBesGestT.AppEMTot ;
|
||
| 304 | FieldValues['_Lys35_'] := FBesGestT.BesAA[1, 35] ; |
||
| 305 | FieldValues['_Met35_'] := FBesGestT.BesAA[2, 35] ; |
||
| 306 | FieldValues['_MetCys35_'] := FBesGestT.BesAA[13, 35] ; |
||
| 307 | FieldValues['_Trp35_'] := FBesGestT.BesAA[4, 35] ; |
||
| 308 | FieldValues['_Thr35_'] := FBesGestT.BesAA[5, 35] ; |
||
| 309 | FieldValues['_Phe35_'] := FBesGestT.BesAA[6, 35] ; |
||
| 310 | FieldValues['_PheTyr35_'] := FBesGestT.BesAA[14, 35] ; |
||
| 311 | FieldValues['_Leu35_'] := FBesGestT.BesAA[8, 35] ; |
||
| 312 | FieldValues['_Ile35_'] := FBesGestT.BesAA[9, 35] ; |
||
| 313 | FieldValues['_Val35_'] := FBesGestT.BesAA[10, 35] ; |
||
| 314 | FieldValues['_His35_'] := FBesGestT.BesAA[11, 35] ; |
||
| 315 | FieldValues['_Arg35_'] := FBesGestT.BesAA[12, 35] ; |
||
| 316 | FieldValues['_Lys105_'] := FBesGestT.BesAA[1, 105] ; |
||
| 317 | FieldValues['_Met105_'] := FBesGestT.BesAA[2, 105] ; |
||
| 318 | FieldValues['_MetCys105_'] := FBesGestT.BesAA[13, 105] ; |
||
| 319 | FieldValues['_Trp105_'] := FBesGestT.BesAA[4, 105] ; |
||
| 320 | FieldValues['_Thr105_'] := FBesGestT.BesAA[5, 105] ; |
||
| 321 | FieldValues['_Phe105_'] := FBesGestT.BesAA[6, 105] ; |
||
| 322 | FieldValues['_PheTyr105_'] := FBesGestT.BesAA[14, 105] ; |
||
| 323 | FieldValues['_Leu105_'] := FBesGestT.BesAA[8, 105] ; |
||
| 324 | FieldValues['_Ile105_'] := FBesGestT.BesAA[9, 105] ; |
||
| 325 | FieldValues['_Val105_'] := FBesGestT.BesAA[10, 105] ; |
||
| 326 | FieldValues['_His105_'] := FBesGestT.BesAA[11, 105] ; |
||
| 327 | FieldValues['_Arg105_'] := FBesGestT.BesAA[12, 105] ; |
||
| 328 | FieldValues['_P35_'] := FBesGestT.BesP[35] ; |
||
| 329 | FieldValues['_Ca35_'] := FBesGestT.BesCa[35] ; |
||
| 330 | FieldValues['_P105_'] := FBesGestT.BesP[105] ; |
||
| 331 | FieldValues['_Ca105_'] := FBesGestT.BesCa[105] ; |
||
| 332 | Post; |
||
| 333 | end ;
|
||
| 334 | RegisterPreviewClass(TQRPrevRapInterface); |
||
| 335 | // QRRapport.PreviewModal;
|
||
| 336 | // RegisterPreviewClass(TQRStandardPreviewInterface);
|
||
| 337 | end;
|
||
| 338 | |||
| 339 | end. |