/UnitDeclaration.dfm - Annoter - EvaPig - Forge DGA

1

avalancogn

object DataModuleDeclaration: TDataModuleDeclaration

2

  OldCreateOrder = False

3

  OnCreate = DataModuleCreate

4

  OnDestroy = DataModuleDestroy

5

  Height = 605

6

  Width = 832

7

  object ClientDataSetClasses: TClientDataSet

8

    Aggregates = <>

9

    AutoCalcFields = False

10

    MasterFields = 'Id'

11

    Params = <>

12

    Left = 400

13

    Top = 40

14

    object ClientDataSetClassesId: TIntegerField

15

      FieldName = 'Id'

16

end

17

    object ClientDataSetClassesName: TWideStringField

18

      FieldName = 'Name'

19

      Size = 40

20

end

21

end

22

  object ClientDataSetInraAfz: TClientDataSet

23

    Aggregates = <>

24

    AutoCalcFields = False

25

    FieldDefs = <>

26

    IndexDefs = <

27

      item

28

        Name = 'ClientDataSetInraAfzIndexId'

29

        Fields = 'Id'

30

        Options = [ixPrimary]

31

      end>

32

    Params = <>

33

    StoreDefs = True

34

    Left = 80

35

    Top = 120

36

    object ClientDataSetInraAfzId: TAutoIncField

37

      AutoGenerateValue = arAutoInc

38

      FieldName = 'Id'

39

end

40

    object ClientDataSetInraAfzName: TStringField

41

      FieldName = 'Name'

42

      Size = 80

43

end

44

    object ClientDataSetInraAfzComment: TStringField

45

      FieldName = 'Comment'

46

      Size = 320

47

end

48

    object ClientDataSetInraAfzSource: TStringField

49

      FieldName = 'Source'

50

      Size = 80

51

end

52

    object ClientDataSetInraAfzClass: TIntegerField

53

      FieldName = 'Class'

54

      Required = True

55

end

56

    object ClientDataSetInraAfzMS: TFloatField

57

      FieldName = 'MS'

58

end

59

    object ClientDataSetInraAfzMM: TFloatField

60

      FieldName = 'MM'

61

end

62

    object ClientDataSetInraAfzMAT: TFloatField

63

      FieldName = 'MAT'

64

end

65

    object ClientDataSetInraAfzMG: TFloatField

66

      FieldName = 'MG'

67

end

68

    object ClientDataSetInraAfzCB: TFloatField

69

      FieldName = 'CB'

70

end

71

    object ClientDataSetInraAfzCoefCB: TFloatField

72

      FieldName = 'CoefCB'

73

end

74

    object ClientDataSetInraAfzNDF: TFloatField

75

      FieldName = 'NDF'

76

end

77

    object ClientDataSetInraAfzCoefNDF: TFloatField

78

      FieldName = 'CoefNDF'

79

end

80

    object ClientDataSetInraAfzADF: TFloatField

81

      FieldName = 'ADF'

82

end

83

    object ClientDataSetInraAfzCoefADF: TFloatField

84

      FieldName = 'CoefADF'

85

end

86

    object ClientDataSetInraAfzADL: TFloatField

87

      FieldName = 'ADL'

88

end

89

    object ClientDataSetInraAfzAmidon: TFloatField

90

      FieldName = 'Amidon'

91

end

92

    object ClientDataSetInraAfzSucres: TFloatField

93

      FieldName = 'Sucres'

94

end

95

    object ClientDataSetInraAfzEB: TFloatField

96

      FieldName = 'EB'

97

end

98

    object ClientDataSetInraAfzdEc: TFloatField

99

      FieldName = 'dEc'

100

end

101

    object ClientDataSetInraAfzEMc_EDc: TFloatField

102

      FieldName = 'EMc/EDc'

103

end

104

    object ClientDataSetInraAfzENc_EMc: TFloatField

105

      FieldName = 'ENc/EMc'

106

end

107

    object ClientDataSetInraAfzEMt_EDt: TFloatField

108

      FieldName = 'EMt/EDt'

109

end

110

    object ClientDataSetInraAfzENt_EMt: TFloatField

111

      FieldName = 'ENt/EMt'

112

end

113

    object ClientDataSetInraAfzEDt_EDc: TFloatField

114

      FieldName = 'EDt/EDc'

115

end

116

    object ClientDataSetInraAfza: TFloatField

117

      FieldName = 'a'

118

end

119

    object ClientDataSetInraAfzb: TFloatField

120

      FieldName = 'b'

121

end

122

    object ClientDataSetInraAfzdNc: TFloatField

123

      FieldName = 'dNc'

124

end

125

    object ClientDataSetInraAfzdNt: TFloatField

126

      FieldName = 'dNt'

127

end

128

    object ClientDataSetInraAfzLys: TFloatField

129

      FieldName = 'Lys'

130

end

131

    object ClientDataSetInraAfzThr: TFloatField

132

      FieldName = 'Thr'

133

end

134

    object ClientDataSetInraAfzMet: TFloatField

135

      FieldName = 'Met'

136

end

137

    object ClientDataSetInraAfzCys: TFloatField

138

      FieldName = 'Cys'

139

end

140

    object ClientDataSetInraAfzMetCys: TFloatField

141

      FieldName = 'MetCys'

142

end

143

    object ClientDataSetInraAfzTrp: TFloatField

144

      FieldName = 'Trp'

145

end

146

    object ClientDataSetInraAfzIle: TFloatField

147

      FieldName = 'Ile'

148

end

149

    object ClientDataSetInraAfzVal: TFloatField

150

      FieldName = 'Val'

151

end

152

    object ClientDataSetInraAfzLeu: TFloatField

153

      FieldName = 'Leu'

154

end

155

    object ClientDataSetInraAfzPhe: TFloatField

156

      FieldName = 'Phe'

157

end

158

    object ClientDataSetInraAfzTyr: TFloatField

159

      FieldName = 'Tyr'

160

end

161

    object ClientDataSetInraAfzPheTyr: TFloatField

162

      FieldName = 'PheTyr'

163

end

164

    object ClientDataSetInraAfzHis: TFloatField

165

      FieldName = 'His'

166

end

167

    object ClientDataSetInraAfzArg: TFloatField

168

      FieldName = 'Arg'

169

end

170

    object ClientDataSetInraAfzAla: TFloatField

171

      FieldName = 'Ala'

172

end

173

    object ClientDataSetInraAfzAsp: TFloatField

174

      FieldName = 'Asp'

175

end

176

    object ClientDataSetInraAfzGlu: TFloatField

177

      FieldName = 'Glu'

178

end

179

    object ClientDataSetInraAfzGly: TFloatField

180

      FieldName = 'Gly'

181

end

182

    object ClientDataSetInraAfzSer: TFloatField

183

      FieldName = 'Ser'

184

end

185

    object ClientDataSetInraAfzPro: TFloatField

186

      FieldName = 'Pro'

187

end

188

    object ClientDataSetInraAfzdLys: TFloatField

189

      FieldName = 'dLys'

190

end

191

    object ClientDataSetInraAfzdThr: TFloatField

192

      FieldName = 'dThr'

193

end

194

    object ClientDataSetInraAfzdMet: TFloatField

195

      FieldName = 'dMet'

196

end

197

    object ClientDataSetInraAfzdCys: TFloatField

198

      FieldName = 'dCys'

199

end

200

    object ClientDataSetInraAfzdMetCys: TFloatField

201

      FieldName = 'dMetCys'

202

end

203

    object ClientDataSetInraAfzdTrp: TFloatField

204

      FieldName = 'dTrp'

205

end

206

    object ClientDataSetInraAfzdIle: TFloatField

207

      FieldName = 'dIle'

208

end

209

    object ClientDataSetInraAfzdVal: TFloatField

210

      FieldName = 'dVal'

211

end

212

    object ClientDataSetInraAfzdLeu: TFloatField

213

      FieldName = 'dLeu'

214

end

215

    object ClientDataSetInraAfzdPhe: TFloatField

216

      FieldName = 'dPhe'

217

end

218

    object ClientDataSetInraAfzdTyr: TFloatField

219

      FieldName = 'dTyr'

220

end

221

    object ClientDataSetInraAfzdPheTyr: TFloatField

222

      FieldName = 'dPheTyr'

223

end

224

    object ClientDataSetInraAfzdHis: TFloatField

225

      FieldName = 'dHis'

226

end

227

    object ClientDataSetInraAfzdArg: TFloatField

228

      FieldName = 'dArg'

229

end

230

    object ClientDataSetInraAfzdAla: TFloatField

231

      FieldName = 'dAla'

232

end

233

    object ClientDataSetInraAfzdAsp: TFloatField

234

      FieldName = 'dAsp'

235

end

236

    object ClientDataSetInraAfzdGlu: TFloatField

237

      FieldName = 'dGlu'

238

end

239

    object ClientDataSetInraAfzdGly: TFloatField

240

      FieldName = 'dGly'

241

end

242

    object ClientDataSetInraAfzdSer: TFloatField

243

      FieldName = 'dSer'

244

end

245

    object ClientDataSetInraAfzdPro: TFloatField

246

      FieldName = 'dPro'

247

end

248

    object ClientDataSetInraAfzCa: TFloatField

249

      FieldName = 'Ca'

250

end

251

    object ClientDataSetInraAfzP: TFloatField

252

      FieldName = 'P'

253

end

254

    object ClientDataSetInraAfzdP: TFloatField

255

      FieldName = 'dP'

256

end

257

    object ClientDataSetInraAfzdPphy: TFloatField

258

      FieldName = 'dPphy'

259

end

260

end

261

  object DataSourceInraAfz: TDataSource

262

    DataSet = ClientDataSetInraAfz

263

    Left = 240

264

    Top = 120

265

end

266

  object ClientDataSetIngredients: TClientDataSet

267

    Aggregates = <>

268

    AutoCalcFields = False

269

    FilterOptions = [foCaseInsensitive]

270

    Params = <>

271

    OnFilterRecord = ClientDataSetIngredientsFilterRecord

272

    Left = 400

273

    Top = 160

274

    object ClientDataSetIngredientsId: TIntegerField

275

      FieldName = 'Id'

276

end

277

    object ClientDataSetIngredientsName: TWideStringField

278

      FieldName = 'Name'

279

      Size = 80

280

end

281

    object ClientDataSetIngredientsDefinition: TWideStringField

282

      FieldName = 'Definition'

283

      Size = 320

284

end

285

    object ClientDataSetIngredientsClass: TIntegerField

286

      FieldName = 'Class'

287

end

288

    object ClientDataSetIngredientsClassName: TWideStringField

289

      DisplayLabel = 'Class'

290

      FieldKind = fkLookup

291

      FieldName = 'ClassName'

292

      LookupDataSet = ClientDataSetClasses

293

      LookupKeyFields = 'Id'

294

      LookupResultField = 'Name'

295

      KeyFields = 'Class'

296

      Size = 40

297

      Lookup = True

298

end

299

    object ClientDataSetIngredientsUser: TBooleanField

300

      FieldName = 'User'

301

end

302

    object ClientDataSetIngredientsModel: TIntegerField

303

      FieldName = 'Model'

304

end

305

    object ClientDataSetIngredientsSource: TWideStringField

306

      DisplayLabel = 'Origin'

307

      FieldName = 'Source'

308

      Size = 80

309

end

310

    object ClientDataSetIngredientsMS: TFloatField

311

      DisplayLabel = 'Dry matter'

312

      FieldName = 'MS'

313

end

314

    object ClientDataSetIngredientsMS2: TFloatField

315

      DisplayLabel = 'Dry matter'

316

      FieldName = 'MS2'

317

end

318

    object ClientDataSetIngredientsMM: TFloatField

319

      DisplayLabel = 'Ash'

320

      FieldName = 'MM'

321

end

322

    object ClientDataSetIngredientsMAT: TFloatField

323

      DisplayLabel = 'Crude protein'

324

      FieldName = 'MAT'

325

end

326

    object ClientDataSetIngredientsMG: TFloatField

327

      DisplayLabel = 'Crude fat'

328

      FieldName = 'MG'

329

end

330

    object ClientDataSetIngredientsCB: TFloatField

331

      DisplayLabel = 'Crude fibre'

332

      FieldName = 'CB'

333

end

334

    object ClientDataSetIngredientsNDF: TFloatField

335

      FieldName = 'NDF'

336

end

337

    object ClientDataSetIngredientsADF: TFloatField

338

      FieldName = 'ADF'

339

end

340

    object ClientDataSetIngredientsADL: TFloatField

341

      FieldName = 'ADL'

342

end

343

    object ClientDataSetIngredientsAmidon: TFloatField

344

      DisplayLabel = 'Starch'

345

      FieldName = 'Amidon'

346

end

347

    object ClientDataSetIngredientsSucres: TFloatField

348

      DisplayLabel = 'Sugars'

349

      FieldName = 'Sucres'

350

end

351

    object ClientDataSetIngredientsEB: TFloatField

352

      DisplayLabel = 'GE'

353

      FieldName = 'EB'

354

end

355

    object ClientDataSetIngredientsBonus: TFloatField

356

      DisplayLabel = 'Energy bonus'

357

      FieldName = 'Bonus'

358

end

359

    object ClientDataSetIngredientsdEc: TFloatField

360

      DisplayLabel = 'Ed, growing pig'

361

      FieldName = 'dEc'

362

end

363

    object ClientDataSetIngredientsEDc: TFloatField

364

      DisplayLabel = 'DE, growing pig'

365

      FieldName = 'EDc'

366

end

367

    object ClientDataSetIngredientsEMc_EDc: TFloatField

368

      DisplayLabel = 'ME / DE, growing pig'

369

      FieldName = 'EMc/EDc'

370

end

371

    object ClientDataSetIngredientsEMc: TFloatField

372

      DisplayLabel = 'ME, growing pig'

373

      FieldName = 'EMc'

374

end

375

    object ClientDataSetIngredientsENc_EMc: TFloatField

376

      DisplayLabel = 'NE / ME, growing pig'

377

      FieldName = 'ENc/EMc'

378

end

379

    object ClientDataSetIngredientsENc: TFloatField

380

      DisplayLabel = 'NE, growing pig'

381

      FieldName = 'ENc'

382

end

383

    object ClientDataSetIngredientsdEt: TFloatField

384

      DisplayLabel = 'Ed, adult pig'

385

      FieldName = 'dEt'

386

end

387

    object ClientDataSetIngredientsEDt: TFloatField

388

      DisplayLabel = 'DE, adult pig'

389

      FieldName = 'EDt'

390

end

391

    object ClientDataSetIngredientsEMt_EDt: TFloatField

392

      DisplayLabel = 'ME / DE, adult pig'

393

      FieldName = 'EMt/EDt'

394

end

395

    object ClientDataSetIngredientsEMt: TFloatField

396

      DisplayLabel = 'ME, adult pig'

397

      FieldName = 'EMt'

398

end

399

    object ClientDataSetIngredientsENt_EMt: TFloatField

400

      DisplayLabel = 'NE / ME, adult pig'

401

      FieldName = 'ENt/EMt'

402

end

403

    object ClientDataSetIngredientsENt: TFloatField

404

      DisplayLabel = 'NE, adult pig'

405

      FieldName = 'ENt'

406

end

407

    object ClientDataSetIngredientsEDt_EDc: TFloatField

408

      DisplayLabel = 'DE, adult pig / DE, growing pig'

409

      FieldName = 'EDt/EDc'

410

end

411

    object ClientDataSetIngredientsEMt_EMc: TFloatField

412

      DisplayLabel = 'ME, adult pig / ME, growing pig'

413

      FieldName = 'EMt/EMc'

414

end

415

    object ClientDataSetIngredientsENt_ENc: TFloatField

416

      DisplayLabel = 'NE, adult pig / NE, growing pig'

417

      FieldName = 'ENt/ENc'

418

end

419

    object ClientDataSetIngredientsdNc: TFloatField

420

      DisplayLabel = 'Nd, growing pig'

421

      FieldName = 'dNc'

422

end

423

    object ClientDataSetIngredientsdNt: TFloatField

424

      DisplayLabel = 'Nd, adult pig'

425

      FieldName = 'dNt'

426

end

427

    object ClientDataSetIngredientsLys: TFloatField

428

      FieldName = 'Lys'

429

end

430

    object ClientDataSetIngredientsThr: TFloatField

431

      FieldName = 'Thr'

432

end

433

    object ClientDataSetIngredientsMet: TFloatField

434

      FieldName = 'Met'

435

end

436

    object ClientDataSetIngredientsCys: TFloatField

437

      FieldName = 'Cys'

438

end

439

    object ClientDataSetIngredientsMetCys: TFloatField

440

      DisplayLabel = 'Met+Cys'

441

      FieldName = 'MetCys'

442

end

443

    object ClientDataSetIngredientsTrp: TFloatField

444

      FieldName = 'Trp'

445

end

446

    object ClientDataSetIngredientsIle: TFloatField

447

      FieldName = 'Ile'

448

end

449

    object ClientDataSetIngredientsVal: TFloatField

450

      FieldName = 'Val'

451

end

452

    object ClientDataSetIngredientsLeu: TFloatField

453

      FieldName = 'Leu'

454

end

455

    object ClientDataSetIngredientsPhe: TFloatField

456

      FieldName = 'Phe'

457

end

458

    object ClientDataSetIngredientsTyr: TFloatField

459

      FieldName = 'Tyr'

460

end

461

    object ClientDataSetIngredientsPheTyr: TFloatField

462

      DisplayLabel = 'Phe+Tyr'

463

      FieldName = 'PheTyr'

464

end

465

    object ClientDataSetIngredientsHis: TFloatField

466

      FieldName = 'His'

467

end

468

    object ClientDataSetIngredientsArg: TFloatField

469

      FieldName = 'Arg'

470

end

471

    object ClientDataSetIngredientsAla: TFloatField

472

      FieldName = 'Ala'

473

end

474

    object ClientDataSetIngredientsAsp: TFloatField

475

      FieldName = 'Asp'

476

end

477

    object ClientDataSetIngredientsGlu: TFloatField

478

      FieldName = 'Glu'

479

end

480

    object ClientDataSetIngredientsGly: TFloatField

481

      FieldName = 'Gly'

482

end

483

    object ClientDataSetIngredientsSer: TFloatField

484

      FieldName = 'Ser'

485

end

486

    object ClientDataSetIngredientsPro: TFloatField

487

      FieldName = 'Pro'

488

end

489

    object ClientDataSetIngredientsLys_MAT: TFloatField

490

      DisplayLabel = 'Lys / crude protein'

491

      FieldName = 'Lys/MAT'

492

end

493

    object ClientDataSetIngredientsThr_MAT: TFloatField

494

      DisplayLabel = 'Thr / crude protein'

495

      FieldName = 'Thr/MAT'

496

end

497

    object ClientDataSetIngredientsMet_MAT: TFloatField

498

      DisplayLabel = 'Met / crude protein'

499

      FieldName = 'Met/MAT'

500

end

501

    object ClientDataSetIngredientsCys_MAT: TFloatField

502

      DisplayLabel = 'Cys / crude protein'

503

      FieldName = 'Cys/MAT'

504

end

505

    object ClientDataSetIngredientsMetCys_MAT: TFloatField

506

      DisplayLabel = 'Met+Cys / crude protein'

507

      FieldName = 'MetCys/MAT'

508

end

509

    object ClientDataSetIngredientsTrp_MAT: TFloatField

510

      DisplayLabel = 'Trp / crude protein'

511

      FieldName = 'Trp/MAT'

512

end

513

    object ClientDataSetIngredientsIle_MAT: TFloatField

514

      DisplayLabel = 'Ile / crude protein'

515

      FieldName = 'Ile/MAT'

516

end

517

    object ClientDataSetIngredientsVal_MAT: TFloatField

518

      DisplayLabel = 'Val / crude protein'

519

      FieldName = 'Val/MAT'

520

end

521

    object ClientDataSetIngredientsLeu_MAT: TFloatField

522

      DisplayLabel = 'Leu / crude protein'

523

      FieldName = 'Leu/MAT'

524

end

525

    object ClientDataSetIngredientsPhe_MAT: TFloatField

526

      DisplayLabel = 'Phe / crude protein'

527

      FieldName = 'Phe/MAT'

528

end

529

    object ClientDataSetIngredientsTyr_MAT: TFloatField

530

      DisplayLabel = 'Tyr / crude protein'

531

      FieldName = 'Tyr/MAT'

532

end

533

    object ClientDataSetIngredientsPheTyr_MAT: TFloatField

534

      DisplayLabel = 'Phe+Tyr / crude protein'

535

      FieldName = 'PheTyr/MAT'

536

end

537

    object ClientDataSetIngredientsHis_MAT: TFloatField

538

      DisplayLabel = 'His / crude protein'

539

      FieldName = 'His/MAT'

540

end

541

    object ClientDataSetIngredientsArg_MAT: TFloatField

542

      DisplayLabel = 'Arg / crude protein'

543

      FieldName = 'Arg/MAT'

544

end

545

    object ClientDataSetIngredientsAla_MAT: TFloatField

546

      DisplayLabel = 'Ala / crude protein'

547

      FieldName = 'Ala/MAT'

548

end

549

    object ClientDataSetIngredientsAsp_MAT: TFloatField

550

      DisplayLabel = 'Asp / crude protein'

551

      FieldName = 'Asp/MAT'

552

end

553

    object ClientDataSetIngredientsGlu_MAT: TFloatField

554

      DisplayLabel = 'Glu / crude protein'

555

      FieldName = 'Glu/MAT'

556

end

557

    object ClientDataSetIngredientsGly_MAT: TFloatField

558

      DisplayLabel = 'Gly / crude protein'

559

      FieldName = 'Gly/MAT'

560

end

561

    object ClientDataSetIngredientsSer_MAT: TFloatField

562

      DisplayLabel = 'Ser / crude protein'

563

      FieldName = 'Ser/MAT'

564

end

565

    object ClientDataSetIngredientsPro_MAT: TFloatField

566

      DisplayLabel = 'Pro / crude protein'

567

      FieldName = 'Pro/MAT'

568

end

569

    object ClientDataSetIngredientsdLys: TFloatField

570

      DisplayLabel = 'Lysd'

571

      FieldName = 'dLys'

572

end

573

    object ClientDataSetIngredientsdThr: TFloatField

574

      DisplayLabel = 'Thrd'

575

      FieldName = 'dThr'

576

end

577

    object ClientDataSetIngredientsdMet: TFloatField

578

      DisplayLabel = 'Metd'

579

      FieldName = 'dMet'

580

end

581

    object ClientDataSetIngredientsdCys: TFloatField

582

      DisplayLabel = 'Cysd'

583

      FieldName = 'dCys'

584

end

585

    object ClientDataSetIngredientsdMetCys: TFloatField

586

      DisplayLabel = 'Met+Cysd'

587

      FieldName = 'dMetCys'

588

end

589

    object ClientDataSetIngredientsdTrp: TFloatField

590

      DisplayLabel = 'Trpd'

591

      FieldName = 'dTrp'

592

end

593

    object ClientDataSetIngredientsdIle: TFloatField

594

      DisplayLabel = 'Iled'

595

      FieldName = 'dIle'

596

end

597

    object ClientDataSetIngredientsdVal: TFloatField

598

      DisplayLabel = 'Vald'

599

      FieldName = 'dVal'

600

end

601

    object ClientDataSetIngredientsdLeu: TFloatField

602

      DisplayLabel = 'Leud'

603

      FieldName = 'dLeu'

604

end

605

    object ClientDataSetIngredientsdPhe: TFloatField

606

      DisplayLabel = 'Phed'

607

      FieldName = 'dPhe'

608

end

609

    object ClientDataSetIngredientsdTyr: TFloatField

610

      DisplayLabel = 'Tyrd'

611

      FieldName = 'dTyr'

612

end

613

    object ClientDataSetIngredientsdPheTyr: TFloatField

614

      DisplayLabel = 'Phe+Tyrd'

615

      FieldName = 'dPheTyr'

616

end

617

    object ClientDataSetIngredientsdHis: TFloatField

618

      DisplayLabel = 'Hisd'

619

      FieldName = 'dHis'

620

end

621

    object ClientDataSetIngredientsdArg: TFloatField

622

      DisplayLabel = 'Argd'

623

      FieldName = 'dArg'

624

end

625

    object ClientDataSetIngredientsdAla: TFloatField

626

      DisplayLabel = 'Alad'

627

      FieldName = 'dAla'

628

end

629

    object ClientDataSetIngredientsdAsp: TFloatField

630

      DisplayLabel = 'Aspd'

631

      FieldName = 'dAsp'

632

end

633

    object ClientDataSetIngredientsdGlu: TFloatField

634

      DisplayLabel = 'Glud'

635

      FieldName = 'dGlu'

636

end

637

    object ClientDataSetIngredientsdGly: TFloatField

638

      DisplayLabel = 'Glyd'

639

      FieldName = 'dGly'

640

end

641

    object ClientDataSetIngredientsdSer: TFloatField

642

      DisplayLabel = 'Serd'

643

      FieldName = 'dSer'

644

end

645

    object ClientDataSetIngredientsdPro: TFloatField

646

      DisplayLabel = 'Prod'

647

      FieldName = 'dPro'

648

end

649

    object ClientDataSetIngredientsLysd: TFloatField

650

      DisplayLabel = 'dLys'

651

      FieldName = 'Lysd'

652

end

653

    object ClientDataSetIngredientsThrd: TFloatField

654

      DisplayLabel = 'dThr'

655

      FieldName = 'Thrd'

656

end

657

    object ClientDataSetIngredientsMetd: TFloatField

658

      DisplayLabel = 'dMet'

659

      FieldName = 'Metd'

660

end

661

    object ClientDataSetIngredientsCysd: TFloatField

662

      DisplayLabel = 'dCys'

663

      FieldName = 'Cysd'

664

end

665

    object ClientDataSetIngredientsMetCysd: TFloatField

666

      DisplayLabel = 'dMet+Cys'

667

      FieldName = 'MetCysd'

668

end

669

    object ClientDataSetIngredientsTrpd: TFloatField

670

      DisplayLabel = 'dTrp'

671

      FieldName = 'Trpd'

672

end

673

    object ClientDataSetIngredientsIled: TFloatField

674

      DisplayLabel = 'dIle'

675

      FieldName = 'Iled'

676

end

677

    object ClientDataSetIngredientsVald: TFloatField

678

      DisplayLabel = 'dVal'

679

      FieldName = 'Vald'

680

end

681

    object ClientDataSetIngredientsLeud: TFloatField

682

      DisplayLabel = 'dLeu'

683

      FieldName = 'Leud'

684

end

685

    object ClientDataSetIngredientsPhed: TFloatField

686

      DisplayLabel = 'dPhe'

687

      FieldName = 'Phed'

688

end

689

    object ClientDataSetIngredientsTyrd: TFloatField

690

      DisplayLabel = 'dTyr'

691

      FieldName = 'Tyrd'

692

end

693

    object ClientDataSetIngredientsPheTyrd: TFloatField

694

      DisplayLabel = 'dPhe+Tyr'

695

      FieldName = 'PheTyrd'

696

end

697

    object ClientDataSetIngredientsHisd: TFloatField

698

      DisplayLabel = 'dHis'

699

      FieldName = 'Hisd'

700

end

701

    object ClientDataSetIngredientsArgd: TFloatField

702

      DisplayLabel = 'dArg'

703

      FieldName = 'Argd'

704

end

705

    object ClientDataSetIngredientsAlad: TFloatField

706

      DisplayLabel = 'dAla'

707

      FieldName = 'Alad'

708

end

709

    object ClientDataSetIngredientsAspd: TFloatField

710

      DisplayLabel = 'dAsp'

711

      FieldName = 'Aspd'

712

end

713

    object ClientDataSetIngredientsGlud: TFloatField

714

      DisplayLabel = 'dGlu'

715

      FieldName = 'Glud'

716

end

717

    object ClientDataSetIngredientsGlyd: TFloatField

718

      DisplayLabel = 'dGly'

719

      FieldName = 'Glyd'

720

end

721

    object ClientDataSetIngredientsSerd: TFloatField

722

      DisplayLabel = 'dSer'

723

      FieldName = 'Serd'

724

end

725

    object ClientDataSetIngredientsProd: TFloatField

726

      DisplayLabel = 'dPro'

727

      FieldName = 'Prod'

728

end

729

    object ClientDataSetIngredientsLysd_ENc: TFloatField

730

      DisplayLabel = 'dLys / NE, growing pig'

731

      FieldName = 'Lysd/ENc'

732

end

733

    object ClientDataSetIngredientsLysd_ENt: TFloatField

734

      DisplayLabel = 'dLys / NE, adult pig'

735

      FieldName = 'Lysd/ENt'

736

end

737

    object ClientDataSetIngredientsCa: TFloatField

738

      FieldName = 'Ca'

739

end

740

    object ClientDataSetIngredientsP: TFloatField

741

      FieldName = 'P'

742

end

743

    object ClientDataSetIngredientsdP: TFloatField

744

      DisplayLabel = 'Pd, pellet'

745

      FieldName = 'dP'

746

end

747

    object ClientDataSetIngredientsdPphy: TFloatField

748

      DisplayLabel = 'Pd, mash'

749

      FieldName = 'dPphy'

750

end

751

end

752

  object DataSourceIngredients: TDataSource

753

    DataSet = ClientDataSetIngredients

754

    Left = 560

755

    Top = 160

756

end

757

  object ClientDataSetComposition: TClientDataSet

758

    Aggregates = <

759

      item

760

        Active = True

761

        AggregateName = 'LevelSum'

762

        Expression = 'Sum(Level)'

763

        GroupingLevel = 1

764

        IndexName = 'IndexRank'

765

        Visible = False

766

        OnUpdate = AggregateLevelSumUpdate

767

      end>

768

    AggregatesActive = True

769

    AutoCalcFields = False

770

    FieldDefs = <>

771

    IndexDefs = <

772

      item

773

        Name = 'IndexRank'

774

        Fields = 'Feed;Rank'

775

        GroupingLevel = 1

776

end

777

      item

778

        Name = 'IndexLevel'

779

        DescFields = 'Level'

780

        Fields = 'Feed;Level'

781

        Options = [ixDescending]

782

        GroupingLevel = 1

783

end

784

      item

785

        Name = 'IndexIngredientName'

786

        Fields = 'Feed;IngredientName'

787

        GroupingLevel = 1

788

      end>

789

    IndexName = 'IndexRank'

790

    Params = <>

791

    StoreDefs = True

792

    Left = 400

793

    Top = 360

794

    object ClientDataSetCompositionFeed: TIntegerField

795

      FieldName = 'Feed'

796

end

797

    object ClientDataSetCompositionIngredient: TIntegerField

798

      FieldName = 'Ingredient'

799

end

800

    object ClientDataSetCompositionUser: TBooleanField

801

      FieldName = 'User'

802

end

803

    object ClientDataSetCompositionIngredientName: TWideStringField

804

      DisplayLabel = 'Name'

805

      FieldName = 'IngredientName'

806

      Size = 80

807

end

808

    object ClientDataSetCompositionRank: TIntegerField

809

      FieldName = 'Rank'

810

end

811

    object ClientDataSetCompositionMS: TFloatField

812

      DisplayLabel = 'DM'

813

      FieldName = 'MS'

814

end

815

    object ClientDataSetCompositionLevel: TFloatField

816

      FieldName = 'Level'

817

end

818

end

819

  object DataSourceComposition: TDataSource

820

    DataSet = ClientDataSetComposition

821

    Left = 560

822

    Top = 360

823

end

824

  object ClientDataSetPhytase: TClientDataSet

825

    Aggregates = <>

826

    AutoCalcFields = False

827

    MasterFields = 'Id'

828

    Params = <>

829

    Left = 400

830

    Top = 440

831

    object ClientDataSetPhytaseId: TAutoIncField

832

      FieldName = 'Id'

833

end

834

    object ClientDataSetPhytaseType: TFloatField

835

      FieldName = 'Type'

836

      DisplayFormat = '0.00'

837

end

838

    object ClientDataSetPhytaseCoef: TFloatField

839

      FieldName = 'Coef'

840

end

841

end

842

  object DataSourcePhytase: TDataSource

843

    DataSet = ClientDataSetPhytase

844

    Left = 560

845

    Top = 440

846

end

847

  object ClientDataSetFeeds: TClientDataSet

848

    Aggregates = <>

849

    AutoCalcFields = False

850

    FilterOptions = [foCaseInsensitive]

851

    Params = <>

852

    OnCalcFields = ClientDataSetFeedsCalcFields

853

    Left = 400

854

    Top = 280

855

    object ClientDataSetFeedsId: TIntegerField

856

      FieldName = 'Id'

857

end

858

    object ClientDataSetFeedsName: TWideStringField

859

      FieldName = 'Name'

860

      Size = 80

861

end

862

    object ClientDataSetFeedsDescription: TWideStringField

863

      FieldName = 'Description'

864

      Size = 320

865

end

866

    object ClientDataSetFeedsPresentation: TIntegerField

867

      DisplayLabel = 'Physical form'

868

      FieldName = 'Presentation'

869

end

870

    object ClientDataSetFeedsBonusC: TFloatField

871

      DisplayLabel = 'Energy bonus, growing pig'

872

      FieldName = 'BonusC'

873

end

874

    object ClientDataSetFeedsBonusT: TFloatField

875

      DisplayLabel = 'Energy bonus, adult pig'

876

      FieldName = 'BonusT'

877

end

878

    object ClientDataSetFeedsMS: TFloatField

879

      DisplayLabel = 'Dry matter'

880

      FieldName = 'MS'

881

end

882

    object ClientDataSetFeedsMS2: TFloatField

883

      DisplayLabel = 'Dry matter'

884

      FieldName = 'MS2'

885

end

886

    object ClientDataSetFeedsMM: TFloatField

887

      DisplayLabel = 'Ash'

888

      FieldName = 'MM'

889

end

890

    object ClientDataSetFeedsMAT: TFloatField

891

      DisplayLabel = 'Crude protein'

892

      FieldName = 'MAT'

893

end

894

    object ClientDataSetFeedsMG: TFloatField

895

      DisplayLabel = 'Crude fat'

896

      FieldName = 'MG'

897

end

898

    object ClientDataSetFeedsCB: TFloatField

899

      DisplayLabel = 'Crude fibre'

900

      FieldName = 'CB'

901

end

902

    object ClientDataSetFeedsNDF: TFloatField

903

      FieldName = 'NDF'

904

end

905

    object ClientDataSetFeedsADF: TFloatField

906

      FieldName = 'ADF'

907

end

908

    object ClientDataSetFeedsADL: TFloatField

909

      FieldName = 'ADL'

910

end

911

    object ClientDataSetFeedsAmidon: TFloatField

912

      DisplayLabel = 'Starch'

913

      FieldName = 'Amidon'

914

end

915

    object ClientDataSetFeedsSucres: TFloatField

916

      DisplayLabel = 'Sugars'

917

      FieldName = 'Sucres'

918

end

919

    object ClientDataSetFeedsEB: TFloatField

920

      DisplayLabel = 'GE'

921

      FieldName = 'EB'

922

end

923

    object ClientDataSetFeedsdEc: TFloatField

924

      DisplayLabel = 'Ed, growing pig'

925

      FieldName = 'dEc'

926

end

927

    object ClientDataSetFeedsEDc: TFloatField

928

      DisplayLabel = 'DE, growing pig'

929

      FieldName = 'EDc'

930

end

931

    object ClientDataSetFeedsEMc_EDc: TFloatField

932

      DisplayLabel = 'ME / DE, growing pig'

933

      FieldName = 'EMc/EDc'

934

end

935

    object ClientDataSetFeedsEMc: TFloatField

936

      DisplayLabel = 'ME, growing pig'

937

      FieldName = 'EMc'

938

end

939

    object ClientDataSetFeedsENc_EMc: TFloatField

940

      DisplayLabel = 'NE / ME, growing pig'

941

      FieldName = 'ENc/EMc'

942

end

943

    object ClientDataSetFeedsENc: TFloatField

944

      DisplayLabel = 'NE, growing pig'

945

      FieldName = 'ENc'

946

end

947

    object ClientDataSetFeedsdEt: TFloatField

948

      DisplayLabel = 'Ed, adult pig'

949

      FieldName = 'dEt'

950

end

951

    object ClientDataSetFeedsEDt: TFloatField

952

      DisplayLabel = 'DE, adult pig'

953

      FieldName = 'EDt'

954

end

955

    object ClientDataSetFeedsEMt_EDt: TFloatField

956

      DisplayLabel = 'ME / DE, adult pig'

957

      FieldName = 'EMt/EDt'

958

end

959

    object ClientDataSetFeedsEMt: TFloatField

960

      DisplayLabel = 'ME, adult pig'

961

      FieldName = 'EMt'

962

end

963

    object ClientDataSetFeedsENt_EMt: TFloatField

964

      DisplayLabel = 'NE / ME, adult pig'

965

      FieldName = 'ENt/EMt'

966

end

967

    object ClientDataSetFeedsENt: TFloatField

968

      DisplayLabel = 'NE, adult pig'

969

      FieldName = 'ENt'

970

end

971

    object ClientDataSetFeedsEDt_EDc: TFloatField

972

      DisplayLabel = 'DE, adult pig / DE, growing pig'

973

      FieldName = 'EDt/EDc'

974

end

975

    object ClientDataSetFeedsEMt_EMc: TFloatField

976

      DisplayLabel = 'ME, adult pig / ME, growing pig'

977

      FieldName = 'EMt/EMc'

978

end

979

    object ClientDataSetFeedsENt_ENc: TFloatField

980

      DisplayLabel = 'NE, adult pig / NE, growing pig'

981

      FieldName = 'ENt/ENc'

982

end

983

    object ClientDataSetFeedsdNc: TFloatField

984

      DisplayLabel = 'Nd, growing pig'

985

      FieldName = 'dNc'

986

end

987

    object ClientDataSetFeedsdNt: TFloatField

988

      DisplayLabel = 'Nd, adult pig'

989

      FieldName = 'dNt'

990

end

991

    object ClientDataSetFeedsLys: TFloatField

992

      FieldName = 'Lys'

993

end

994

    object ClientDataSetFeedsThr: TFloatField

995

      FieldName = 'Thr'

996

end

997

    object ClientDataSetFeedsMet: TFloatField

998

      FieldName = 'Met'

999

end

1000

    object ClientDataSetFeedsCys: TFloatField

1001

      FieldName = 'Cys'

1002

end

1003

    object ClientDataSetFeedsMetCys: TFloatField

1004

      DisplayLabel = 'Met+Cys'

1005

      FieldName = 'MetCys'

1006

end

1007

    object ClientDataSetFeedsTrp: TFloatField

1008

      FieldName = 'Trp'

1009

end

1010

    object ClientDataSetFeedsIle: TFloatField

1011

      FieldName = 'Ile'

1012

end

1013

    object ClientDataSetFeedsVal: TFloatField

1014

      FieldName = 'Val'

1015

end

1016

    object ClientDataSetFeedsLeu: TFloatField

1017

      FieldName = 'Leu'

1018

end

1019

    object ClientDataSetFeedsPhe: TFloatField

1020

      FieldName = 'Phe'

1021

end

1022

    object ClientDataSetFeedsTyr: TFloatField

1023

      FieldName = 'Tyr'

1024

end

1025

    object ClientDataSetFeedsPheTyr: TFloatField

1026

      DisplayLabel = 'Phe+Tyr'

1027

      FieldName = 'PheTyr'

1028

end

1029

    object ClientDataSetFeedsHis: TFloatField

1030

      FieldName = 'His'

1031

end

1032

    object ClientDataSetFeedsArg: TFloatField

1033

      FieldName = 'Arg'

1034

end

1035

    object ClientDataSetFeedsAla: TFloatField

1036

      FieldName = 'Ala'

1037

end

1038

    object ClientDataSetFeedsAsp: TFloatField

1039

      FieldName = 'Asp'

1040

end

1041

    object ClientDataSetFeedsGlu: TFloatField

1042

      FieldName = 'Glu'

1043

end

1044

    object ClientDataSetFeedsGly: TFloatField

1045

      FieldName = 'Gly'

1046

end

1047

    object ClientDataSetFeedsSer: TFloatField

1048

      FieldName = 'Ser'

1049

end

1050

    object ClientDataSetFeedsPro: TFloatField

1051

      FieldName = 'Pro'

1052

end

1053

    object ClientDataSetFeedsLysd: TFloatField

1054

      DisplayLabel = 'dLys'

1055

      FieldName = 'Lysd'

1056

end

1057

    object ClientDataSetFeedsThrd: TFloatField

1058

      DisplayLabel = 'dThr'

1059

      FieldName = 'Thrd'

1060

end

1061

    object ClientDataSetFeedsMetd: TFloatField

1062

      DisplayLabel = 'dMet'

1063

      FieldName = 'Metd'

1064

end

1065

    object ClientDataSetFeedsCysd: TFloatField

1066

      DisplayLabel = 'dCys'

1067

      FieldName = 'Cysd'

1068

end

1069

    object ClientDataSetFeedsMetCysd: TFloatField

1070

      DisplayLabel = 'dMet+Cys'

1071

      FieldName = 'MetCysd'

1072

end

1073

    object ClientDataSetFeedsTrpd: TFloatField

1074

      DisplayLabel = 'dTrp'

1075

      FieldName = 'Trpd'

1076

end

1077

    object ClientDataSetFeedsIled: TFloatField

1078

      DisplayLabel = 'dIle'

1079

      FieldName = 'Iled'

1080

end

1081

    object ClientDataSetFeedsVald: TFloatField

1082

      DisplayLabel = 'dVal'

1083

      FieldName = 'Vald'

1084

end

1085

    object ClientDataSetFeedsLeud: TFloatField

1086

      DisplayLabel = 'dLeu'

1087

      FieldName = 'Leud'

1088

end

1089

    object ClientDataSetFeedsPhed: TFloatField

1090

      DisplayLabel = 'dPhe'

1091

      FieldName = 'Phed'

1092

end

1093

    object ClientDataSetFeedsTyrd: TFloatField

1094

      DisplayLabel = 'dTyr'

1095

      FieldName = 'Tyrd'

1096

end

1097

    object ClientDataSetFeedsPheTyrd: TFloatField

1098

      DisplayLabel = 'dPhe+Tyr'

1099

      FieldName = 'PheTyrd'

1100

end

1101

    object ClientDataSetFeedsHisd: TFloatField

1102

      DisplayLabel = 'dHis'

1103

      FieldName = 'Hisd'

1104

end

1105

    object ClientDataSetFeedsArgd: TFloatField

1106

      DisplayLabel = 'dArg'

1107

      FieldName = 'Argd'

1108

end

1109

    object ClientDataSetFeedsAlad: TFloatField

1110

      DisplayLabel = 'dAla'

1111

      FieldName = 'Alad'

1112

end

1113

    object ClientDataSetFeedsAspd: TFloatField

1114

      DisplayLabel = 'dAsp'

1115

      FieldName = 'Aspd'

1116

end

1117

    object ClientDataSetFeedsGlud: TFloatField

1118

      DisplayLabel = 'dGlu'

1119

      FieldName = 'Glud'

1120

end

1121

    object ClientDataSetFeedsGlyd: TFloatField

1122

      DisplayLabel = 'dGly'

1123

      FieldName = 'Glyd'

1124

end

1125

    object ClientDataSetFeedsSerd: TFloatField

1126

      DisplayLabel = 'dSer'

1127

      FieldName = 'Serd'

1128

end

1129

    object ClientDataSetFeedsProd: TFloatField

1130

      DisplayLabel = 'dPro'

1131

      FieldName = 'Prod'

1132

end

1133

    object ClientDataSetFeedsLysd_ENc: TFloatField

1134

      DisplayLabel = 'dLys / NE, growing pig'

1135

      FieldName = 'Lysd/ENc'

1136

end

1137

    object ClientDataSetFeedsLysd_ENt: TFloatField

1138

      DisplayLabel = 'dLys / NE, adult pig'

1139

      FieldName = 'Lysd/ENt'

1140

end

1141

    object ClientDataSetFeedsThrd_Lysd: TFloatField

1142

      DisplayLabel = 'dThr / dLys'

1143

      FieldName = 'Thrd/Lysd'

1144

end

1145

    object ClientDataSetFeedsMetd_Lysd: TFloatField

1146

      DisplayLabel = 'dMet / dLys'

1147

      FieldName = 'Metd/Lysd'

1148

end

1149

    object ClientDataSetFeedsCysd_Lysd: TFloatField

1150

      DisplayLabel = 'dCys / dLys'

1151

      FieldName = 'Cysd/Lysd'

1152

end

1153

    object ClientDataSetFeedsMetCysd_Lysd: TFloatField

1154

      DisplayLabel = 'dMet+Cys / dLys'

1155

      FieldName = 'MetCysd/Lysd'

1156

end

1157

    object ClientDataSetFeedsTrpd_Lysd: TFloatField

1158

      DisplayLabel = 'dTrp / dLys'

1159

      FieldName = 'Trpd/Lysd'

1160

end

1161

    object ClientDataSetFeedsIled_Lysd: TFloatField

1162

      DisplayLabel = 'dIle / dLys'

1163

      FieldName = 'Iled/Lysd'

1164

end

1165

    object ClientDataSetFeedsVald_Lysd: TFloatField

1166

      DisplayLabel = 'dVal / dLys'

1167

      FieldName = 'Vald/Lysd'

1168

end

1169

    object ClientDataSetFeedsLeud_Lysd: TFloatField

1170

      DisplayLabel = 'dLeu / dLys'

1171

      FieldName = 'Leud/Lysd'

1172

end

1173

    object ClientDataSetFeedsPhed_Lysd: TFloatField

1174

      DisplayLabel = 'dPhe / dLys'

1175

      FieldName = 'Phed/Lysd'

1176

end

1177

    object ClientDataSetFeedsTyrd_Lysd: TFloatField

1178

      DisplayLabel = 'dTyr / dLys'

1179

      FieldName = 'Tyrd/Lysd'

1180

end

1181

    object ClientDataSetFeedsPheTyrd_Lysd: TFloatField

1182

      DisplayLabel = 'dPhe+Tyr / dLys'

1183

      FieldName = 'PheTyrd/Lysd'

1184

end

1185

    object ClientDataSetFeedsHisd_Lysd: TFloatField

1186

      DisplayLabel = 'dHis / dLys'

1187

      FieldName = 'Hisd/Lysd'

1188

end

1189

    object ClientDataSetFeedsArgd_Lysd: TFloatField

1190

      DisplayLabel = 'dArg / dLys'

1191

      FieldName = 'Argd/Lysd'

1192

end

1193

    object ClientDataSetFeedsAlad_Lysd: TFloatField

1194

      DisplayLabel = 'dAla / dLys'

1195

      FieldName = 'Alad/Lysd'

1196

end

1197

    object ClientDataSetFeedsAspd_Lysd: TFloatField

1198

      DisplayLabel = 'dAsp / dLys'

1199

      FieldName = 'Aspd/Lysd'

1200

end

1201

    object ClientDataSetFeedsGlud_Lysd: TFloatField

1202

      DisplayLabel = 'dGlu / dLys'

1203

      FieldName = 'Glud/Lysd'

1204

end

1205

    object ClientDataSetFeedsGlyd_Lysd: TFloatField

1206

      DisplayLabel = 'dGly / dLys'

1207

      FieldName = 'Glyd/Lysd'

1208

end

1209

    object ClientDataSetFeedsSerd_Lysd: TFloatField

1210

      DisplayLabel = 'dSer / dLys'

1211

      FieldName = 'Serd/Lysd'

1212

end

1213

    object ClientDataSetFeedsProd_Lysd: TFloatField

1214

      DisplayLabel = 'dPro / dLys'

1215

      FieldName = 'Prod/Lysd'

1216

end

1217

    object ClientDataSetFeedsCa: TFloatField

1218

      DisplayLabel = 'Calcium (Ca)'

1219

      FieldName = 'Ca'

1220

end

1221

    object ClientDataSetFeedsP: TFloatField

1222

      DisplayLabel = 'Phosphorus (P)'

1223

      FieldName = 'P'

1224

end

1225

    object ClientDataSetFeedsPd: TFloatField

1226

      DisplayLabel = 'Digestible P (dP)'

1227

      FieldName = 'Pd'

1228

end

1229

    object ClientDataSetFeedsCa_Pd: TFloatField

1230

      DisplayLabel = 'Ca / dP'

1231

      FieldName = 'Ca/Pd'

1232

end

1233

    object ClientDataSetFeedsPd_ENc: TFloatField

1234

      DisplayLabel = 'dP / NE, growing pig'

1235

      FieldName = 'Pd/ENc'

1236

end

1237

    object ClientDataSetFeedsPd_ENt: TFloatField

1238

      DisplayLabel = 'dP / NE, adult pig'

1239

      FieldName = 'Pd/ENt'

1240

end

1241

    object ClientDataSetFeedsPhytaseId: TIntegerField

1242

      DisplayLabel = 'Phytase ID'

1243

      FieldName = 'PhytaseId'

1244

end

1245

    object ClientDataSetFeedsPhytaseType: TFloatField

1246

      DisplayLabel = 'Phytase type'

1247

      FieldKind = fkLookup

1248

      FieldName = 'PhytaseType'

1249

      LookupDataSet = ClientDataSetPhytase

1250

      LookupKeyFields = 'Id'

1251

      LookupResultField = 'Type'

1252

      KeyFields = 'PhytaseId'

1253

      DisplayFormat = '0.00'

1254

      Lookup = True

1255

end

1256

    object ClientDataSetFeedsPhytaseConcentration: TFloatField

1257

      DisplayLabel = 'Phytase concentration'

1258

      FieldName = 'PhytaseConcentration'

1259

      DisplayFormat = '#,##0'

1260

end

1261

    object ClientDataSetFeedsPhytaseIncorporation: TFloatField

1262

      DisplayLabel = 'Phytase incorporation'

1263

      FieldName = 'PhytaseIncorporation'

1264

      DisplayFormat = '#,##0'

1265

end

1266

    object ClientDataSetFeedsPhytaseLevel: TFloatField

1267

      DisplayLabel = 'Phytase level'

1268

      FieldKind = fkInternalCalc

1269

      FieldName = 'PhytaseLevel'

1270

end

1271

    object ClientDataSetFeedsLevelSum: TFloatField

1272

      DisplayLabel = 'Sum'

1273

      FieldName = 'LevelSum'

1274

end

1275

    object ClientDataSetFeedsTotal: TFloatField

1276

      FieldKind = fkInternalCalc

1277

      FieldName = 'Total'

1278

end

1279

    object ClientDataSetFeedsRemain: TFloatField

1280

      FieldKind = fkInternalCalc

1281

      FieldName = 'Remain'

1282

end

1283

end

1284

  object DataSourceFeeds: TDataSource

1285

    DataSet = ClientDataSetFeeds

1286

    Left = 560

1287

    Top = 280

1288

end

1289

end

EvaPig

root / UnitDeclaration.dfm @ 1