root / UFRapProfilT.pas
Historique | Voir | Annoter | Télécharger (20,745 ko)
| 1 |
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.
|