root / UFRapProfilT.pas @ 3
Historique | Voir | Annoter | Télécharger (20,745 ko)
| 1 | 3 | avalancogn | unit UFRapProfilT ;
|
|---|---|---|---|
| 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 | TFRapProfilT = class(TForm)
|
||
| 12 | QRRapport: TQuickRep; |
||
| 13 | PHBRapport: TQRBand; |
||
| 14 | DBRapport: TQRBand; |
||
| 15 | QRLTitre: TQRLabel; |
||
| 16 | QRLProfil: TQRLabel; |
||
| 17 | QRDBTProfil: TQRDBText; |
||
| 18 | CDSRapport: TClientDataSet; |
||
| 19 | SFProfil: TStringField; |
||
| 20 | PFBRapport: TQRBand; |
||
| 21 | QRLUser: TQRLabel; |
||
| 22 | QRLWarning: TQRLabel; |
||
| 23 | QRLMemo: TQRLabel; |
||
| 24 | QRMMemo: TQRMemo; |
||
| 25 | QRSDDate: TQRSysData; |
||
| 26 | QRSEntete: TQRShape; |
||
| 27 | QRLTruie: TQRLabel; |
||
| 28 | QRLEffectif: TQRLabel; |
||
| 29 | QRLPct: TQRLabel; |
||
| 30 | QRLNbr: TQRLabel; |
||
| 31 | QRDBTNbrTot: TQRDBText; |
||
| 32 | QRDBTPctTot: TQRDBText; |
||
| 33 | QRLPt1: TQRLabel; |
||
| 34 | QRLPt2: TQRLabel; |
||
| 35 | QRLPt3: TQRLabel; |
||
| 36 | QRLPt4: TQRLabel; |
||
| 37 | QRLPt5: TQRLabel; |
||
| 38 | QRLPt6: TQRLabel; |
||
| 39 | QRLPt7: TQRLabel; |
||
| 40 | QRLPt8: TQRLabel; |
||
| 41 | QRLTot: TQRLabel; |
||
| 42 | QRLPt: TQRLabel; |
||
| 43 | QRLSaillie: TQRLabel; |
||
| 44 | QRLPdsSail: TQRLabel; |
||
| 45 | QRLAgeSail: TQRLabel; |
||
| 46 | QRDBTAgeSailTot: TQRDBText; |
||
| 47 | QRDBTPdsSailTot: TQRDBText; |
||
| 48 | QRLMiseBas: TQRLabel; |
||
| 49 | QRLPdsApMB: TQRLabel; |
||
| 50 | QRLPdsAvMB: TQRLabel; |
||
| 51 | QRDBTPdsAvMBTot: TQRDBText; |
||
| 52 | QRDBTPdsApMBTot: TQRDBText; |
||
| 53 | QRLP2Sail: TQRLabel; |
||
| 54 | QRDBTP2SailTot: TQRDBText; |
||
| 55 | QRLP2MB: TQRLabel; |
||
| 56 | QRDBTP2MBTot: TQRDBText; |
||
| 57 | QRLPortee: TQRLabel; |
||
| 58 | QRLNaissance: TQRLabel; |
||
| 59 | QRLNbVif: TQRLabel; |
||
| 60 | QRLNbTot: TQRLabel; |
||
| 61 | QRDBTNbTotTot: TQRDBText; |
||
| 62 | QRDBTNbVifTot: TQRDBText; |
||
| 63 | QRLSevrage: TQRLabel; |
||
| 64 | QRLAgeSev: TQRLabel; |
||
| 65 | QRLNbSev: TQRLabel; |
||
| 66 | QRDBTNbSevTot: TQRDBText; |
||
| 67 | QRDBTAgeSevTot: TQRDBText; |
||
| 68 | QRLGMQ: TQRLabel; |
||
| 69 | QRLPVNais: TQRLabel; |
||
| 70 | QRLNaisSev: TQRLabel; |
||
| 71 | QRDBTGMQTot: TQRDBText; |
||
| 72 | QRDBTPVNaisTot: TQRDBText; |
||
| 73 | QRLPVSev: TQRLabel; |
||
| 74 | QRDBTPVSevTot: TQRDBText; |
||
| 75 | QRLAlim: TQRLabel; |
||
| 76 | QRLRation: TQRLabel; |
||
| 77 | QRLAliGest: TQRLabel; |
||
| 78 | QRDBTAliGestTot: TQRDBText; |
||
| 79 | QRLAliLact: TQRLabel; |
||
| 80 | QRDBTAliLactTot: TQRDBText; |
||
| 81 | QRLSeqAli: TQRLabel; |
||
| 82 | QRDBTSeqAli: TQRDBText; |
||
| 83 | QRDBTUnite: TQRDBText; |
||
| 84 | QRDBTNbrPt8: TQRDBText; |
||
| 85 | QRDBTPctPt8: TQRDBText; |
||
| 86 | QRDBTAgeSailPt8: TQRDBText; |
||
| 87 | QRDBTPdsSailPt8: TQRDBText; |
||
| 88 | QRDBTPdsAvMBPt8: TQRDBText; |
||
| 89 | QRDBTPdsApMBPt8: TQRDBText; |
||
| 90 | QRDBTP2SailPt8: TQRDBText; |
||
| 91 | QRDBTP2MBPt8: TQRDBText; |
||
| 92 | QRDBTNbTotPt8: TQRDBText; |
||
| 93 | QRDBTNbVifPt8: TQRDBText; |
||
| 94 | QRDBTNbSevPt8: TQRDBText; |
||
| 95 | QRDBTAgeSevPt8: TQRDBText; |
||
| 96 | QRDBTGMQPt8: TQRDBText; |
||
| 97 | QRDBTPVNaisPt8: TQRDBText; |
||
| 98 | QRDBTPVSevPt8: TQRDBText; |
||
| 99 | QRDBTAliGestPt8: TQRDBText; |
||
| 100 | QRDBTAliLactPt8: TQRDBText; |
||
| 101 | QRDBTNbrPt7: TQRDBText; |
||
| 102 | QRDBTPctPt7: TQRDBText; |
||
| 103 | QRDBTAgeSailPt7: TQRDBText; |
||
| 104 | QRDBTPdsSailPt7: TQRDBText; |
||
| 105 | QRDBTPdsAvMBPt7: TQRDBText; |
||
| 106 | QRDBTPdsApMBPt7: TQRDBText; |
||
| 107 | QRDBTP2SailPt7: TQRDBText; |
||
| 108 | QRDBTP2MBPt7: TQRDBText; |
||
| 109 | QRDBTNbTotPt7: TQRDBText; |
||
| 110 | QRDBTNbVifPt7: TQRDBText; |
||
| 111 | QRDBTNbSevPt7: TQRDBText; |
||
| 112 | QRDBTAgeSevPt7: TQRDBText; |
||
| 113 | QRDBTGMQPt7: TQRDBText; |
||
| 114 | QRDBTPVNaisPt7: TQRDBText; |
||
| 115 | QRDBTPVSevPt7: TQRDBText; |
||
| 116 | QRDBTAliGestPt7: TQRDBText; |
||
| 117 | QRDBTAliLactPt7: TQRDBText; |
||
| 118 | QRDBTNbrPt6: TQRDBText; |
||
| 119 | QRDBTPctPt6: TQRDBText; |
||
| 120 | QRDBTAgeSailPt6: TQRDBText; |
||
| 121 | QRDBTPdsSailPt6: TQRDBText; |
||
| 122 | QRDBTPdsAvMBPt6: TQRDBText; |
||
| 123 | QRDBTPdsApMBPt6: TQRDBText; |
||
| 124 | QRDBTP2SailPt6: TQRDBText; |
||
| 125 | QRDBTP2MBPt6: TQRDBText; |
||
| 126 | QRDBTNbTotPt6: TQRDBText; |
||
| 127 | QRDBTNbVifPt6: TQRDBText; |
||
| 128 | QRDBTNbSevPt6: TQRDBText; |
||
| 129 | QRDBTAgeSevPt6: TQRDBText; |
||
| 130 | QRDBTGMQPt6: TQRDBText; |
||
| 131 | QRDBTPVNaisPt6: TQRDBText; |
||
| 132 | QRDBTPVSevPt6: TQRDBText; |
||
| 133 | QRDBTAliGestPt6: TQRDBText; |
||
| 134 | QRDBTAliLactPt6: TQRDBText; |
||
| 135 | QRDBTNbrPt5: TQRDBText; |
||
| 136 | QRDBTPctPt5: TQRDBText; |
||
| 137 | QRDBTAgeSailPt5: TQRDBText; |
||
| 138 | QRDBTPdsSailPt5: TQRDBText; |
||
| 139 | QRDBTPdsAvMBPt5: TQRDBText; |
||
| 140 | QRDBTPdsApMBPt5: TQRDBText; |
||
| 141 | QRDBTP2SailPt5: TQRDBText; |
||
| 142 | QRDBTP2MBPt5: TQRDBText; |
||
| 143 | QRDBTNbTotPt5: TQRDBText; |
||
| 144 | QRDBTNbVifPt5: TQRDBText; |
||
| 145 | QRDBTNbSevPt5: TQRDBText; |
||
| 146 | QRDBTAgeSevPt5: TQRDBText; |
||
| 147 | QRDBTGMQPt5: TQRDBText; |
||
| 148 | QRDBTPVNaisPt5: TQRDBText; |
||
| 149 | QRDBTPVSevPt5: TQRDBText; |
||
| 150 | QRDBTAliGestPt5: TQRDBText; |
||
| 151 | QRDBTAliLactPt5: TQRDBText; |
||
| 152 | QRDBTNbrPt4: TQRDBText; |
||
| 153 | QRDBTPctPt4: TQRDBText; |
||
| 154 | QRDBTAgeSailPt4: TQRDBText; |
||
| 155 | QRDBTPdsSailPt4: TQRDBText; |
||
| 156 | QRDBTPdsAvMBPt4: TQRDBText; |
||
| 157 | QRDBTPdsApMBPt4: TQRDBText; |
||
| 158 | QRDBTP2SailPt4: TQRDBText; |
||
| 159 | QRDBTP2MBPt4: TQRDBText; |
||
| 160 | QRDBTNbTotPt4: TQRDBText; |
||
| 161 | QRDBTNbVifPt4: TQRDBText; |
||
| 162 | QRDBTNbSevPt4: TQRDBText; |
||
| 163 | QRDBTAgeSevPt4: TQRDBText; |
||
| 164 | QRDBTGMQPt4: TQRDBText; |
||
| 165 | QRDBTPVNaisPt4: TQRDBText; |
||
| 166 | QRDBTPVSevPt4: TQRDBText; |
||
| 167 | QRDBTAliGestPt4: TQRDBText; |
||
| 168 | QRDBTAliLactPt4: TQRDBText; |
||
| 169 | QRDBTNbrPt3: TQRDBText; |
||
| 170 | QRDBTPctPt3: TQRDBText; |
||
| 171 | QRDBTAgeSailPt3: TQRDBText; |
||
| 172 | QRDBTPdsSailPt3: TQRDBText; |
||
| 173 | QRDBTPdsAvMBPt3: TQRDBText; |
||
| 174 | QRDBTPdsApMBPt3: TQRDBText; |
||
| 175 | QRDBTP2SailPt3: TQRDBText; |
||
| 176 | QRDBTP2MBPt3: TQRDBText; |
||
| 177 | QRDBTNbTotPt3: TQRDBText; |
||
| 178 | QRDBTNbVifPt3: TQRDBText; |
||
| 179 | QRDBTNbSevPt3: TQRDBText; |
||
| 180 | QRDBTAgeSevPt3: TQRDBText; |
||
| 181 | QRDBTGMQPt3: TQRDBText; |
||
| 182 | QRDBTPVNaisPt3: TQRDBText; |
||
| 183 | QRDBTPVSevPt3: TQRDBText; |
||
| 184 | QRDBTAliGestPt3: TQRDBText; |
||
| 185 | QRDBTAliLactPt3: TQRDBText; |
||
| 186 | QRDBTNbrPt2: TQRDBText; |
||
| 187 | QRDBTPctPt2: TQRDBText; |
||
| 188 | QRDBTAgeSailPt2: TQRDBText; |
||
| 189 | QRDBTPdsSailPt2: TQRDBText; |
||
| 190 | QRDBTPdsAvMBPt2: TQRDBText; |
||
| 191 | QRDBTPdsApMBPt2: TQRDBText; |
||
| 192 | QRDBTP2SailPt2: TQRDBText; |
||
| 193 | QRDBTP2MBPt2: TQRDBText; |
||
| 194 | QRDBTNbTotPt2: TQRDBText; |
||
| 195 | QRDBTNbVifPt2: TQRDBText; |
||
| 196 | QRDBTNbSevPt2: TQRDBText; |
||
| 197 | QRDBTAgeSevPt2: TQRDBText; |
||
| 198 | QRDBTGMQPt2: TQRDBText; |
||
| 199 | QRDBTPVNaisPt2: TQRDBText; |
||
| 200 | QRDBTPVSevPt2: TQRDBText; |
||
| 201 | QRDBTAliGestPt2: TQRDBText; |
||
| 202 | QRDBTAliLactPt2: TQRDBText; |
||
| 203 | QRDBTNbrPt1: TQRDBText; |
||
| 204 | QRDBTPctPt1: TQRDBText; |
||
| 205 | QRDBTAgeSailPt1: TQRDBText; |
||
| 206 | QRDBTPdsSailPt1: TQRDBText; |
||
| 207 | QRDBTPdsAvMBPt1: TQRDBText; |
||
| 208 | QRDBTPdsApMBPt1: TQRDBText; |
||
| 209 | QRDBTP2SailPt1: TQRDBText; |
||
| 210 | QRDBTP2MBPt1: TQRDBText; |
||
| 211 | QRDBTNbTotPt1: TQRDBText; |
||
| 212 | QRDBTNbVifPt1: TQRDBText; |
||
| 213 | QRDBTNbSevPt1: TQRDBText; |
||
| 214 | QRDBTAgeSevPt1: TQRDBText; |
||
| 215 | QRDBTGMQPt1: TQRDBText; |
||
| 216 | QRDBTPVNaisPt1: TQRDBText; |
||
| 217 | QRDBTPVSevPt1: TQRDBText; |
||
| 218 | QRDBTAliGestPt1: TQRDBText; |
||
| 219 | QRDBTAliLactPt1: TQRDBText; |
||
| 220 | SFUnite: TStringField; |
||
| 221 | SFSeqAli: TStringField; |
||
| 222 | FFAliLactTot: TFloatField; |
||
| 223 | FFAliGestPt2: TFloatField; |
||
| 224 | FFAliGestPt3: TFloatField; |
||
| 225 | FFAliGestPt4: TFloatField; |
||
| 226 | FFAliGestPt5: TFloatField; |
||
| 227 | FFAliGestPt6: TFloatField; |
||
| 228 | FFAliGestPt7: TFloatField; |
||
| 229 | FFAliGestPt8: TFloatField; |
||
| 230 | FFAliGestTot: TFloatField; |
||
| 231 | FFPctTot: TFloatField; |
||
| 232 | FFAliLactPt2: TFloatField; |
||
| 233 | FFAliLactPt3: TFloatField; |
||
| 234 | FFAliLactPt4: TFloatField; |
||
| 235 | FFAliLactPt5: TFloatField; |
||
| 236 | FFAliLactPt6: TFloatField; |
||
| 237 | FFAliLactPt7: TFloatField; |
||
| 238 | FFAliLactPt8: TFloatField; |
||
| 239 | FFAliLactPt1: TFloatField; |
||
| 240 | IFNbrPt2: TIntegerField; |
||
| 241 | IFNbrPt3: TIntegerField; |
||
| 242 | IFNbrPt4: TIntegerField; |
||
| 243 | IFNbrTot: TIntegerField; |
||
| 244 | IFNbrPt5: TIntegerField; |
||
| 245 | IFNbrPt6: TIntegerField; |
||
| 246 | IFNbrPt7: TIntegerField; |
||
| 247 | IFNbrPt8: TIntegerField; |
||
| 248 | IFNbrPt1: TIntegerField; |
||
| 249 | FFAliGestPt1: TFloatField; |
||
| 250 | FFPctPt2: TFloatField; |
||
| 251 | FFPctPt3: TFloatField; |
||
| 252 | FFPctPt4: TFloatField; |
||
| 253 | FFPctPt5: TFloatField; |
||
| 254 | FFPctPt6: TFloatField; |
||
| 255 | FFPctPt7: TFloatField; |
||
| 256 | FFPctPt8: TFloatField; |
||
| 257 | FFPctPt1: TFloatField; |
||
| 258 | FFPdsSailTot: TFloatField; |
||
| 259 | FFP2SailTot: TFloatField; |
||
| 260 | FFPdsAvMBTot: TFloatField; |
||
| 261 | FFPdsApMBTot: TFloatField; |
||
| 262 | FFP2MBTot: TFloatField; |
||
| 263 | FFNbTotTot: TFloatField; |
||
| 264 | FFNbVifTot: TFloatField; |
||
| 265 | FFPVNaisTot: TFloatField; |
||
| 266 | FFNbSevTot_: TFloatField; |
||
| 267 | FFPVSevTot: TFloatField; |
||
| 268 | FFGMQTot: TFloatField; |
||
| 269 | IFAgeSailTot: TIntegerField; |
||
| 270 | IFDureeLact: TIntegerField; |
||
| 271 | IFAgeSailPt2: TIntegerField; |
||
| 272 | FFPdsSailPt2: TFloatField; |
||
| 273 | FFP2SailPt2: TFloatField; |
||
| 274 | FFPdsAvMBPt2: TFloatField; |
||
| 275 | FFPdsApMBPt2: TFloatField; |
||
| 276 | FFP2MBPt2: TFloatField; |
||
| 277 | FFNbTotPt2: TFloatField; |
||
| 278 | FFNbVifPt2: TFloatField; |
||
| 279 | FFPVNaisPt2: TFloatField; |
||
| 280 | FFNbSevPt2: TFloatField; |
||
| 281 | FFPVSevPt2: TFloatField; |
||
| 282 | FFGMQPt2: TFloatField; |
||
| 283 | FFGMQPt3: TFloatField; |
||
| 284 | FFGMQPt4: TFloatField; |
||
| 285 | FFGMQPt5: TFloatField; |
||
| 286 | FFGMQPt6: TFloatField; |
||
| 287 | FFGMQPt7: TFloatField; |
||
| 288 | FFGMQPt8: TFloatField; |
||
| 289 | FFGMQPt1: TFloatField; |
||
| 290 | IFAgeSailPt3: TIntegerField; |
||
| 291 | IFAgeSailPt4: TIntegerField; |
||
| 292 | IFAgeSailPt5: TIntegerField; |
||
| 293 | IFAgeSailPt6: TIntegerField; |
||
| 294 | IFAgeSailPt7: TIntegerField; |
||
| 295 | IFAgeSailPt8: TIntegerField; |
||
| 296 | IFAgeSailPt1: TIntegerField; |
||
| 297 | FFPdsSailPt3: TFloatField; |
||
| 298 | FFPdsSailPt4: TFloatField; |
||
| 299 | FFPdsSailPt5: TFloatField; |
||
| 300 | FFPdsSailPt6: TFloatField; |
||
| 301 | FFPdsSailPt7: TFloatField; |
||
| 302 | FFPdsSailPt8: TFloatField; |
||
| 303 | FFPdsSailPt1: TFloatField; |
||
| 304 | FFP2SailPt3: TFloatField; |
||
| 305 | FFP2SailPt4: TFloatField; |
||
| 306 | FFP2SailPt5: TFloatField; |
||
| 307 | FFP2SailPt6: TFloatField; |
||
| 308 | FFP2SailPt7: TFloatField; |
||
| 309 | FFP2SailPt8: TFloatField; |
||
| 310 | FFP2SailPt1: TFloatField; |
||
| 311 | FFPdsAvMBPt3: TFloatField; |
||
| 312 | FFPdsAvMBPt4: TFloatField; |
||
| 313 | FFPdsAvMBPt5: TFloatField; |
||
| 314 | FFPdsAvMBPt6: TFloatField; |
||
| 315 | FFPdsAvMBPt7: TFloatField; |
||
| 316 | FFPdsAvMBPt8: TFloatField; |
||
| 317 | FFPdsAvMBPt1: TFloatField; |
||
| 318 | FFPdsApMBPt3: TFloatField; |
||
| 319 | FFPdsApMBPt4: TFloatField; |
||
| 320 | FFPdsApMBPt5: TFloatField; |
||
| 321 | FFPdsApMBPt6: TFloatField; |
||
| 322 | FFPdsApMBPt7: TFloatField; |
||
| 323 | FFPdsApMBPt8: TFloatField; |
||
| 324 | FFPdsApMBPt1: TFloatField; |
||
| 325 | FFP2MBPt3: TFloatField; |
||
| 326 | FFP2MBPt4: TFloatField; |
||
| 327 | FFP2MBPt5: TFloatField; |
||
| 328 | FFP2MBPt6: TFloatField; |
||
| 329 | FFP2MBPt7: TFloatField; |
||
| 330 | FFP2MBPt8: TFloatField; |
||
| 331 | FFP2MBPt1: TFloatField; |
||
| 332 | FFNbTotPt3: TFloatField; |
||
| 333 | FFNbTotPt4: TFloatField; |
||
| 334 | FFNbTotPt5: TFloatField; |
||
| 335 | FFNbTotPt6: TFloatField; |
||
| 336 | FFNbTotPt7: TFloatField; |
||
| 337 | FFNbTotPt8: TFloatField; |
||
| 338 | FFNbTotPt1: TFloatField; |
||
| 339 | FFNbVifPt3: TFloatField; |
||
| 340 | FFNbVifPt4: TFloatField; |
||
| 341 | FFNbVifPt5: TFloatField; |
||
| 342 | FFNbVifPt6: TFloatField; |
||
| 343 | FFNbVifPt7: TFloatField; |
||
| 344 | FFNbVifPt8: TFloatField; |
||
| 345 | FFNbVifPt1: TFloatField; |
||
| 346 | FFPVNaisPt3: TFloatField; |
||
| 347 | FFPVNaisPt4: TFloatField; |
||
| 348 | FFPVNaisPt5: TFloatField; |
||
| 349 | FFPVNaisPt6: TFloatField; |
||
| 350 | FFPVNaisPt7: TFloatField; |
||
| 351 | FFPVNaisPt8: TFloatField; |
||
| 352 | FFPVNaisPt1: TFloatField; |
||
| 353 | FFNbSevPt3: TFloatField; |
||
| 354 | FFNbSevPt4: TFloatField; |
||
| 355 | FFNbSevPt5: TFloatField; |
||
| 356 | FFNbSevPt6: TFloatField; |
||
| 357 | FFNbSevPt7: TFloatField; |
||
| 358 | FFNbSevPt8: TFloatField; |
||
| 359 | FFNbSevPt1: TFloatField; |
||
| 360 | FFPVSevPt3: TFloatField; |
||
| 361 | FFPVSevPt4: TFloatField; |
||
| 362 | FFPVSevPt5: TFloatField; |
||
| 363 | FFPVSevPt6: TFloatField; |
||
| 364 | FFPVSevPt7: TFloatField; |
||
| 365 | FFPVSevPt8: TFloatField; |
||
| 366 | FFPVSevPt1: TFloatField; |
||
| 367 | QRIInraPorc: TQRImage; |
||
| 368 | QRLInraPorc: TQRLabel; |
||
| 369 | procedure FormCreate(Sender: TObject);
|
||
| 370 | private
|
||
| 371 | { D?clarations priv?es }
|
||
| 372 | public
|
||
| 373 | { D?clarations publiques }
|
||
| 374 | end;
|
||
| 375 | |||
| 376 | var
|
||
| 377 | FRapProfilT: TFRapProfilT; |
||
| 378 | |||
| 379 | implementation
|
||
| 380 | |||
| 381 | uses
|
||
| 382 | UStrings, UCalcul, UUtil, UFProfilT, UFPrevRap ; |
||
| 383 | |||
| 384 | {$R *.dfm}
|
||
| 385 | |||
| 386 | { TFRapProfilT }
|
||
| 387 | |||
| 388 | procedure TFRapProfilT.FormCreate(Sender: TObject);
|
||
| 389 | begin
|
||
| 390 | if Screen.Fonts.IndexOf('Arial Unicode MS') <> -1 |
||
| 391 | then
|
||
| 392 | Font.Name := 'Arial Unicode MS';
|
||
| 393 | TranslateComponent(Self); |
||
| 394 | // Licence
|
||
| 395 | if IsEducation and (Length (Course) > 0) |
||
| 396 | then
|
||
| 397 | QRLUSer.Caption := Format('%s (%s)', [Course, Company])
|
||
| 398 | else
|
||
| 399 | if IsComplete or IsEducation |
||
| 400 | then
|
||
| 401 | QRLUSer.Caption := Format('%s %s (%s)', [FirstName, LastName, Company])
|
||
| 402 | else
|
||
| 403 | if IsEvaluation
|
||
| 404 | then
|
||
| 405 | QRLUSer.Caption := StrEvaluation |
||
| 406 | else
|
||
| 407 | begin
|
||
| 408 | QRLUSer.Caption := StrReadOnly; |
||
| 409 | QRLUser.Font.Color := clRed; |
||
| 410 | end;
|
||
| 411 | with CDSRapport do |
||
| 412 | begin
|
||
| 413 | CreateDataSet; |
||
| 414 | Append; |
||
| 415 | FieldValues['_Profil_'] := FProfilT.CBProfil.Text;
|
||
| 416 | FieldValues['_NbrPt1_'] := FProfilT.PBNbrPt1.Text;
|
||
| 417 | FieldValues['_NbrPt2_'] := FProfilT.PBNbrPt2.Text;
|
||
| 418 | FieldValues['_NbrPt3_'] := FProfilT.PBNbrPt3.Text;
|
||
| 419 | FieldValues['_NbrPt4_'] := FProfilT.PBNbrPt4.Text;
|
||
| 420 | FieldValues['_NbrPt5_'] := FProfilT.PBNbrPt5.Text;
|
||
| 421 | FieldValues['_NbrPt6_'] := FProfilT.PBNbrPt6.Text;
|
||
| 422 | FieldValues['_NbrPt7_'] := FProfilT.PBNbrPt7.Text;
|
||
| 423 | FieldValues['_NbrPt8_'] := FProfilT.PBNbrPt8.Text;
|
||
| 424 | FieldValues['_NbrTot_'] := FProfilT.PBNbrTot.Text;
|
||
| 425 | FieldValues['_PctPt1_'] := FProfilT.PBPctPt1.Text;
|
||
| 426 | FieldValues['_PctPt2_'] := FProfilT.PBPctPt2.Text;
|
||
| 427 | FieldValues['_PctPt3_'] := FProfilT.PBPctPt3.Text;
|
||
| 428 | FieldValues['_PctPt4_'] := FProfilT.PBPctPt4.Text;
|
||
| 429 | FieldValues['_PctPt5_'] := FProfilT.PBPctPt5.Text;
|
||
| 430 | FieldValues['_PctPt6_'] := FProfilT.PBPctPt6.Text;
|
||
| 431 | FieldValues['_PctPt7_'] := FProfilT.PBPctPt7.Text;
|
||
| 432 | FieldValues['_PctPt8_'] := FProfilT.PBPctPt8.Text;
|
||
| 433 | FieldValues['_PctTot_'] := FProfilT.PBPctTot.Text;
|
||
| 434 | FieldValues['_AgeSailPt1_'] := FProfilT.PBAgeSailPt1.Text;
|
||
| 435 | FieldValues['_AgeSailPt2_'] := FProfilT.PBAgeSailPt2.Text;
|
||
| 436 | FieldValues['_AgeSailPt3_'] := FProfilT.PBAgeSailPt3.Text;
|
||
| 437 | FieldValues['_AgeSailPt4_'] := FProfilT.PBAgeSailPt4.Text;
|
||
| 438 | FieldValues['_AgeSailPt5_'] := FProfilT.PBAgeSailPt5.Text;
|
||
| 439 | FieldValues['_AgeSailPt6_'] := FProfilT.PBAgeSailPt6.Text;
|
||
| 440 | FieldValues['_AgeSailPt7_'] := FProfilT.PBAgeSailPt7.Text;
|
||
| 441 | FieldValues['_AgeSailPt8_'] := FProfilT.PBAgeSailPt8.Text;
|
||
| 442 | FieldValues['_AgeSailTot_'] := FProfilT.PBAgeSailTot.Text;
|
||
| 443 | FieldValues['_PdsSailPt1_'] := FProfilT.PBPdsSailPt1.Text;
|
||
| 444 | FieldValues['_PdsSailPt2_'] := FProfilT.PBPdsSailPt2.Text;
|
||
| 445 | FieldValues['_PdsSailPt3_'] := FProfilT.PBPdsSailPt3.Text;
|
||
| 446 | FieldValues['_PdsSailPt4_'] := FProfilT.PBPdsSailPt4.Text;
|
||
| 447 | FieldValues['_PdsSailPt5_'] := FProfilT.PBPdsSailPt5.Text;
|
||
| 448 | FieldValues['_PdsSailPt6_'] := FProfilT.PBPdsSailPt6.Text;
|
||
| 449 | FieldValues['_PdsSailPt7_'] := FProfilT.PBPdsSailPt7.Text;
|
||
| 450 | FieldValues['_PdsSailPt8_'] := FProfilT.PBPdsSailPt8.Text;
|
||
| 451 | FieldValues['_PdsSailTot_'] := FProfilT.PBPdsSailTot.Text;
|
||
| 452 | FieldValues['_P2SailPt1_'] := FProfilT.PBP2SailPt1.Text;
|
||
| 453 | FieldValues['_P2SailPt2_'] := FProfilT.PBP2SailPt2.Text;
|
||
| 454 | FieldValues['_P2SailPt3_'] := FProfilT.PBP2SailPt3.Text;
|
||
| 455 | FieldValues['_P2SailPt4_'] := FProfilT.PBP2SailPt4.Text;
|
||
| 456 | FieldValues['_P2SailPt5_'] := FProfilT.PBP2SailPt5.Text;
|
||
| 457 | FieldValues['_P2SailPt6_'] := FProfilT.PBP2SailPt6.Text;
|
||
| 458 | FieldValues['_P2SailPt7_'] := FProfilT.PBP2SailPt7.Text;
|
||
| 459 | FieldValues['_P2SailPt8_'] := FProfilT.PBP2SailPt8.Text;
|
||
| 460 | FieldValues['_P2SailTot_'] := FProfilT.PBP2SailTot.Text;
|
||
| 461 | FieldValues['_PdsAvMBPt1_'] := FProfilT.PBPdsAvMBPt1.Text;
|
||
| 462 | FieldValues['_PdsAvMBPt2_'] := FProfilT.PBPdsAvMBPt2.Text;
|
||
| 463 | FieldValues['_PdsAvMBPt3_'] := FProfilT.PBPdsAvMBPt3.Text;
|
||
| 464 | FieldValues['_PdsAvMBPt4_'] := FProfilT.PBPdsAvMBPt4.Text;
|
||
| 465 | FieldValues['_PdsAvMBPt5_'] := FProfilT.PBPdsAvMBPt5.Text;
|
||
| 466 | FieldValues['_PdsAvMBPt6_'] := FProfilT.PBPdsAvMBPt6.Text;
|
||
| 467 | FieldValues['_PdsAvMBPt7_'] := FProfilT.PBPdsAvMBPt7.Text;
|
||
| 468 | FieldValues['_PdsAvMBPt8_'] := FProfilT.PBPdsAvMBPt8.Text;
|
||
| 469 | FieldValues['_PdsAvMBTot_'] := FProfilT.PBPdsAvMBTot.Text;
|
||
| 470 | FieldValues['_PdsApMBPt1_'] := FProfilT.PBPdsApMBPt1.Text;
|
||
| 471 | FieldValues['_PdsApMBPt2_'] := FProfilT.PBPdsApMBPt2.Text;
|
||
| 472 | FieldValues['_PdsApMBPt3_'] := FProfilT.PBPdsApMBPt3.Text;
|
||
| 473 | FieldValues['_PdsApMBPt4_'] := FProfilT.PBPdsApMBPt4.Text;
|
||
| 474 | FieldValues['_PdsApMBPt5_'] := FProfilT.PBPdsApMBPt5.Text;
|
||
| 475 | FieldValues['_PdsApMBPt6_'] := FProfilT.PBPdsApMBPt6.Text;
|
||
| 476 | FieldValues['_PdsApMBPt7_'] := FProfilT.PBPdsApMBPt7.Text;
|
||
| 477 | FieldValues['_PdsApMBPt8_'] := FProfilT.PBPdsApMBPt8.Text;
|
||
| 478 | FieldValues['_PdsApMBTot_'] := FProfilT.PBPdsApMBTot.Text;
|
||
| 479 | FieldValues['_P2MBPt1_'] := FProfilT.PBP2MBPt1.Text;
|
||
| 480 | FieldValues['_P2MBPt2_'] := FProfilT.PBP2MBPt2.Text;
|
||
| 481 | FieldValues['_P2MBPt3_'] := FProfilT.PBP2MBPt3.Text;
|
||
| 482 | FieldValues['_P2MBPt4_'] := FProfilT.PBP2MBPt4.Text;
|
||
| 483 | FieldValues['_P2MBPt5_'] := FProfilT.PBP2MBPt5.Text;
|
||
| 484 | FieldValues['_P2MBPt6_'] := FProfilT.PBP2MBPt6.Text;
|
||
| 485 | FieldValues['_P2MBPt7_'] := FProfilT.PBP2MBPt7.Text;
|
||
| 486 | FieldValues['_P2MBPt8_'] := FProfilT.PBP2MBPt8.Text;
|
||
| 487 | FieldValues['_P2MBTot_'] := FProfilT.PBP2MBTot.Text;
|
||
| 488 | FieldValues['_NbTotPt1_'] := FProfilT.PBNbTotPt1.Text;
|
||
| 489 | FieldValues['_NbTotPt2_'] := FProfilT.PBNbTotPt2.Text;
|
||
| 490 | FieldValues['_NbTotPt3_'] := FProfilT.PBNbTotPt3.Text;
|
||
| 491 | FieldValues['_NbTotPt4_'] := FProfilT.PBNbTotPt4.Text;
|
||
| 492 | FieldValues['_NbTotPt5_'] := FProfilT.PBNbTotPt5.Text;
|
||
| 493 | FieldValues['_NbTotPt6_'] := FProfilT.PBNbTotPt6.Text;
|
||
| 494 | FieldValues['_NbTotPt7_'] := FProfilT.PBNbTotPt7.Text;
|
||
| 495 | FieldValues['_NbTotPt8_'] := FProfilT.PBNbTotPt8.Text;
|
||
| 496 | FieldValues['_NbTotTot_'] := FProfilT.PBNbTotTot.Text;
|
||
| 497 | FieldValues['_NbVifPt1_'] := FProfilT.PBNbVifPt1.Text;
|
||
| 498 | FieldValues['_NbVifPt2_'] := FProfilT.PBNbVifPt2.Text;
|
||
| 499 | FieldValues['_NbVifPt3_'] := FProfilT.PBNbVifPt3.Text;
|
||
| 500 | FieldValues['_NbVifPt4_'] := FProfilT.PBNbVifPt4.Text;
|
||
| 501 | FieldValues['_NbVifPt5_'] := FProfilT.PBNbVifPt5.Text;
|
||
| 502 | FieldValues['_NbVifPt6_'] := FProfilT.PBNbVifPt6.Text;
|
||
| 503 | FieldValues['_NbVifPt7_'] := FProfilT.PBNbVifPt7.Text;
|
||
| 504 | FieldValues['_NbVifPt8_'] := FProfilT.PBNbVifPt8.Text;
|
||
| 505 | FieldValues['_NbVifTot_'] := FProfilT.PBNbVifTot.Text;
|
||
| 506 | FieldValues['_PVNaisPt1_'] := FProfilT.PBPVNaisPt1.Text;
|
||
| 507 | FieldValues['_PVNaisPt2_'] := FProfilT.PBPVNaisPt2.Text;
|
||
| 508 | FieldValues['_PVNaisPt3_'] := FProfilT.PBPVNaisPt3.Text;
|
||
| 509 | FieldValues['_PVNaisPt4_'] := FProfilT.PBPVNaisPt4.Text;
|
||
| 510 | FieldValues['_PVNaisPt5_'] := FProfilT.PBPVNaisPt5.Text;
|
||
| 511 | FieldValues['_PVNaisPt6_'] := FProfilT.PBPVNaisPt6.Text;
|
||
| 512 | FieldValues['_PVNaisPt7_'] := FProfilT.PBPVNaisPt7.Text;
|
||
| 513 | FieldValues['_PVNaisPt8_'] := FProfilT.PBPVNaisPt8.Text;
|
||
| 514 | FieldValues['_PVNaisTot_'] := FProfilT.PBPVNaisTot.Text;
|
||
| 515 | FieldValues['_NbSevPt1_'] := FProfilT.PBNbSevPt1.Text;
|
||
| 516 | FieldValues['_NbSevPt2_'] := FProfilT.PBNbSevPt2.Text;
|
||
| 517 | FieldValues['_NbSevPt3_'] := FProfilT.PBNbSevPt3.Text;
|
||
| 518 | FieldValues['_NbSevPt4_'] := FProfilT.PBNbSevPt4.Text;
|
||
| 519 | FieldValues['_NbSevPt5_'] := FProfilT.PBNbSevPt5.Text;
|
||
| 520 | FieldValues['_NbSevPt6_'] := FProfilT.PBNbSevPt6.Text;
|
||
| 521 | FieldValues['_NbSevPt7_'] := FProfilT.PBNbSevPt7.Text;
|
||
| 522 | FieldValues['_NbSevPt8_'] := FProfilT.PBNbSevPt8.Text;
|
||
| 523 | FieldValues['_NbSevTot_'] := FProfilT.PBNbSevTot.Text;
|
||
| 524 | FieldValues['_DureeLact_'] := FProfilT.PBDureeLact.Text;
|
||
| 525 | FieldValues['_PVSevPt1_'] := FProfilT.PBPVSevPt1.Text;
|
||
| 526 | FieldValues['_PVSevPt2_'] := FProfilT.PBPVSevPt2.Text;
|
||
| 527 | FieldValues['_PVSevPt3_'] := FProfilT.PBPVSevPt3.Text;
|
||
| 528 | FieldValues['_PVSevPt4_'] := FProfilT.PBPVSevPt4.Text;
|
||
| 529 | FieldValues['_PVSevPt5_'] := FProfilT.PBPVSevPt5.Text;
|
||
| 530 | FieldValues['_PVSevPt6_'] := FProfilT.PBPVSevPt6.Text;
|
||
| 531 | FieldValues['_PVSevPt7_'] := FProfilT.PBPVSevPt7.Text;
|
||
| 532 | FieldValues['_PVSevPt8_'] := FProfilT.PBPVSevPt8.Text;
|
||
| 533 | FieldValues['_PVSevTot_'] := FProfilT.PBPVSevTot.Text;
|
||
| 534 | FieldValues['_GMQPt1_'] := FProfilT.PBGMQPt1.Text;
|
||
| 535 | FieldValues['_GMQPt2_'] := FProfilT.PBGMQPt2.Text;
|
||
| 536 | FieldValues['_GMQPt3_'] := FProfilT.PBGMQPt3.Text;
|
||
| 537 | FieldValues['_GMQPt4_'] := FProfilT.PBGMQPt4.Text;
|
||
| 538 | FieldValues['_GMQPt5_'] := FProfilT.PBGMQPt5.Text;
|
||
| 539 | FieldValues['_GMQPt6_'] := FProfilT.PBGMQPt6.Text;
|
||
| 540 | FieldValues['_GMQPt7_'] := FProfilT.PBGMQPt7.Text;
|
||
| 541 | FieldValues['_GMQPt8_'] := FProfilT.PBGMQPt8.Text;
|
||
| 542 | FieldValues['_GMQTot_'] := FProfilT.PBGMQTot.Text;
|
||
| 543 | FieldValues['_SeqAli_'] := FProfilT.CBSeqAli.Text;
|
||
| 544 | FieldValues['_Unite_'] := FProfilT.CBUnite.Text;
|
||
| 545 | FieldValues['_AliGestPt1_'] := FProfilT.PBAliGestPt1.Text;
|
||
| 546 | FieldValues['_AliGestPt2_'] := FProfilT.PBAliGestPt2.Text;
|
||
| 547 | FieldValues['_AliGestPt3_'] := FProfilT.PBAliGestPt3.Text;
|
||
| 548 | FieldValues['_AliGestPt4_'] := FProfilT.PBAliGestPt4.Text;
|
||
| 549 | FieldValues['_AliGestPt5_'] := FProfilT.PBAliGestPt5.Text;
|
||
| 550 | FieldValues['_AliGestPt6_'] := FProfilT.PBAliGestPt6.Text;
|
||
| 551 | FieldValues['_AliGestPt7_'] := FProfilT.PBAliGestPt7.Text;
|
||
| 552 | FieldValues['_AliGestPt8_'] := FProfilT.PBAliGestPt8.Text;
|
||
| 553 | FieldValues['_AliGestTot_'] := FProfilT.PBAliGestTot.Text;
|
||
| 554 | FieldValues['_AliLactPt1_'] := FProfilT.PBAliLactPt1.Text;
|
||
| 555 | FieldValues['_AliLactPt2_'] := FProfilT.PBAliLactPt2.Text;
|
||
| 556 | FieldValues['_AliLactPt3_'] := FProfilT.PBAliLactPt3.Text;
|
||
| 557 | FieldValues['_AliLactPt4_'] := FProfilT.PBAliLactPt4.Text;
|
||
| 558 | FieldValues['_AliLactPt5_'] := FProfilT.PBAliLactPt5.Text;
|
||
| 559 | FieldValues['_AliLactPt6_'] := FProfilT.PBAliLactPt6.Text;
|
||
| 560 | FieldValues['_AliLactPt7_'] := FProfilT.PBAliLactPt7.Text;
|
||
| 561 | FieldValues['_AliLactPt8_'] := FProfilT.PBAliLactPt8.Text;
|
||
| 562 | FieldValues['_AliLactTot_'] := FProfilT.PBAliLactTot.Text;
|
||
| 563 | Post; |
||
| 564 | end ;
|
||
| 565 | QRMMemo.Lines.Add(FProfilT.CBProfil.Hint); |
||
| 566 | RegisterPreviewClass(TQRPrevRapInterface); |
||
| 567 | // QRRapport.PreviewModal;
|
||
| 568 | // RegisterPreviewClass(TQRStandardPreviewInterface);
|
||
| 569 | end;
|
||
| 570 | |||
| 571 | end. |