/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

269

1

avalancogn

end

270

  object DataSourceInraAfz: TDataSource

271

    DataSet = ClientDataSetInraAfz

272

    Left = 240

273

    Top = 120

274

end

275

  object ClientDataSetIngredients: TClientDataSet

276

    Aggregates = <>

277

    AutoCalcFields = False

278

    FilterOptions = [foCaseInsensitive]

279

    Params = <>

280

    OnFilterRecord = ClientDataSetIngredientsFilterRecord

281

    Left = 400

282

    Top = 160

283

    object ClientDataSetIngredientsId: TIntegerField

284

      FieldName = 'Id'

285

end

286

    object ClientDataSetIngredientsName: TWideStringField

287

      FieldName = 'Name'

288

      Size = 80

289

end

290

    object ClientDataSetIngredientsDefinition: TWideStringField

291

      FieldName = 'Definition'

292

      Size = 320

293

end

294

    object ClientDataSetIngredientsClass: TIntegerField

295

      FieldName = 'Class'

296

end

297

    object ClientDataSetIngredientsClassName: TWideStringField

298

      DisplayLabel = 'Class'

299

      FieldKind = fkLookup

300

      FieldName = 'ClassName'

301

      LookupDataSet = ClientDataSetClasses

302

      LookupKeyFields = 'Id'

303

      LookupResultField = 'Name'

304

      KeyFields = 'Class'

305

      Size = 40

306

      Lookup = True

307

end

308

    object ClientDataSetIngredientsUser: TBooleanField

309

      FieldName = 'User'

310

end

311

    object ClientDataSetIngredientsModel: TIntegerField

312

      FieldName = 'Model'

313

end

314

    object ClientDataSetIngredientsSource: TWideStringField

315

      DisplayLabel = 'Origin'

316

      FieldName = 'Source'

317

      Size = 80

318

end

319

    object ClientDataSetIngredientsMS: TFloatField

320

      DisplayLabel = 'Dry matter'

321

      FieldName = 'MS'

322

end

323

    object ClientDataSetIngredientsMS2: TFloatField

324

      DisplayLabel = 'Dry matter'

325

      FieldName = 'MS2'

326

end

327

    object ClientDataSetIngredientsMM: TFloatField

328

      DisplayLabel = 'Ash'

329

      FieldName = 'MM'

330

end

331

    object ClientDataSetIngredientsMAT: TFloatField

332

      DisplayLabel = 'Crude protein'

333

      FieldName = 'MAT'

334

end

335

    object ClientDataSetIngredientsMG: TFloatField

336

      DisplayLabel = 'Crude fat'

337

      FieldName = 'MG'

338

end

339

    object ClientDataSetIngredientsCB: TFloatField

340

      DisplayLabel = 'Crude fibre'

341

      FieldName = 'CB'

342

end

343

    object ClientDataSetIngredientsNDF: TFloatField

344

      FieldName = 'NDF'

345

end

346

    object ClientDataSetIngredientsADF: TFloatField

347

      FieldName = 'ADF'

348

end

349

    object ClientDataSetIngredientsADL: TFloatField

350

      FieldName = 'ADL'

351

end

352

    object ClientDataSetIngredientsAmidon: TFloatField

353

      DisplayLabel = 'Starch'

354

      FieldName = 'Amidon'

355

end

356

    object ClientDataSetIngredientsSucres: TFloatField

357

      DisplayLabel = 'Sugars'

358

      FieldName = 'Sucres'

359

end

360

    object ClientDataSetIngredientsEB: TFloatField

361

      DisplayLabel = 'GE'

362

      FieldName = 'EB'

363

end

364

    object ClientDataSetIngredientsBonus: TFloatField

365

      DisplayLabel = 'Energy bonus'

366

      FieldName = 'Bonus'

367

end

368

    object ClientDataSetIngredientsdEc: TFloatField

369

      DisplayLabel = 'Ed, growing pig'

370

      FieldName = 'dEc'

371

end

372

    object ClientDataSetIngredientsEDc: TFloatField

373

      DisplayLabel = 'DE, growing pig'

374

      FieldName = 'EDc'

375

end

376

    object ClientDataSetIngredientsEMc_EDc: TFloatField

377

      DisplayLabel = 'ME / DE, growing pig'

378

      FieldName = 'EMc/EDc'

379

end

380

    object ClientDataSetIngredientsEMc: TFloatField

381

      DisplayLabel = 'ME, growing pig'

382

      FieldName = 'EMc'

383

end

384

    object ClientDataSetIngredientsENc_EMc: TFloatField

385

      DisplayLabel = 'NE / ME, growing pig'

386

      FieldName = 'ENc/EMc'

387

end

388

    object ClientDataSetIngredientsENc: TFloatField

389

      DisplayLabel = 'NE, growing pig'

390

      FieldName = 'ENc'

391

end

392

    object ClientDataSetIngredientsdEt: TFloatField

393

      DisplayLabel = 'Ed, adult pig'

394

      FieldName = 'dEt'

395

end

396

    object ClientDataSetIngredientsEDt: TFloatField

397

      DisplayLabel = 'DE, adult pig'

398

      FieldName = 'EDt'

399

end

400

    object ClientDataSetIngredientsEMt_EDt: TFloatField

401

      DisplayLabel = 'ME / DE, adult pig'

402

      FieldName = 'EMt/EDt'

403

end

404

    object ClientDataSetIngredientsEMt: TFloatField

405

      DisplayLabel = 'ME, adult pig'

406

      FieldName = 'EMt'

407

end

408

    object ClientDataSetIngredientsENt_EMt: TFloatField

409

      DisplayLabel = 'NE / ME, adult pig'

410

      FieldName = 'ENt/EMt'

411

end

412

    object ClientDataSetIngredientsENt: TFloatField

413

      DisplayLabel = 'NE, adult pig'

414

      FieldName = 'ENt'

415

end

416

    object ClientDataSetIngredientsEDt_EDc: TFloatField

417

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

418

      FieldName = 'EDt/EDc'

419

end

420

    object ClientDataSetIngredientsEMt_EMc: TFloatField

421

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

422

      FieldName = 'EMt/EMc'

423

end

424

    object ClientDataSetIngredientsENt_ENc: TFloatField

425

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

426

      FieldName = 'ENt/ENc'

427

end

428

    object ClientDataSetIngredientsdNc: TFloatField

429

      DisplayLabel = 'Nd, growing pig'

430

      FieldName = 'dNc'

431

end

432

    object ClientDataSetIngredientsdNt: TFloatField

433

      DisplayLabel = 'Nd, adult pig'

434

      FieldName = 'dNt'

435

end

436

    object ClientDataSetIngredientsLys: TFloatField

437

      FieldName = 'Lys'

438

end

439

    object ClientDataSetIngredientsThr: TFloatField

440

      FieldName = 'Thr'

441

end

442

    object ClientDataSetIngredientsMet: TFloatField

443

      FieldName = 'Met'

444

end

445

    object ClientDataSetIngredientsCys: TFloatField

446

      FieldName = 'Cys'

447

end

448

    object ClientDataSetIngredientsMetCys: TFloatField

449

      DisplayLabel = 'Met+Cys'

450

      FieldName = 'MetCys'

451

end

452

    object ClientDataSetIngredientsTrp: TFloatField

453

      FieldName = 'Trp'

454

end

455

    object ClientDataSetIngredientsIle: TFloatField

456

      FieldName = 'Ile'

457

end

458

    object ClientDataSetIngredientsVal: TFloatField

459

      FieldName = 'Val'

460

end

461

    object ClientDataSetIngredientsLeu: TFloatField

462

      FieldName = 'Leu'

463

end

464

    object ClientDataSetIngredientsPhe: TFloatField

465

      FieldName = 'Phe'

466

end

467

    object ClientDataSetIngredientsTyr: TFloatField

468

      FieldName = 'Tyr'

469

end

470

    object ClientDataSetIngredientsPheTyr: TFloatField

471

      DisplayLabel = 'Phe+Tyr'

472

      FieldName = 'PheTyr'

473

end

474

    object ClientDataSetIngredientsHis: TFloatField

475

      FieldName = 'His'

476

end

477

    object ClientDataSetIngredientsArg: TFloatField

478

      FieldName = 'Arg'

479

end

480

    object ClientDataSetIngredientsAla: TFloatField

481

      FieldName = 'Ala'

482

end

483

    object ClientDataSetIngredientsAsp: TFloatField

484

      FieldName = 'Asp'

485

end

486

    object ClientDataSetIngredientsGlu: TFloatField

487

      FieldName = 'Glu'

488

end

489

    object ClientDataSetIngredientsGly: TFloatField

490

      FieldName = 'Gly'

491

end

492

    object ClientDataSetIngredientsSer: TFloatField

493

      FieldName = 'Ser'

494

end

495

    object ClientDataSetIngredientsPro: TFloatField

496

      FieldName = 'Pro'

497

end

498

    object ClientDataSetIngredientsLys_MAT: TFloatField

499

      DisplayLabel = 'Lys / crude protein'

500

      FieldName = 'Lys/MAT'

501

end

502

    object ClientDataSetIngredientsThr_MAT: TFloatField

503

      DisplayLabel = 'Thr / crude protein'

504

      FieldName = 'Thr/MAT'

505

end

506

    object ClientDataSetIngredientsMet_MAT: TFloatField

507

      DisplayLabel = 'Met / crude protein'

508

      FieldName = 'Met/MAT'

509

end

510

    object ClientDataSetIngredientsCys_MAT: TFloatField

511

      DisplayLabel = 'Cys / crude protein'

512

      FieldName = 'Cys/MAT'

513

end

514

    object ClientDataSetIngredientsMetCys_MAT: TFloatField

515

      DisplayLabel = 'Met+Cys / crude protein'

516

      FieldName = 'MetCys/MAT'

517

end

518

    object ClientDataSetIngredientsTrp_MAT: TFloatField

519

      DisplayLabel = 'Trp / crude protein'

520

      FieldName = 'Trp/MAT'

521

end

522

    object ClientDataSetIngredientsIle_MAT: TFloatField

523

      DisplayLabel = 'Ile / crude protein'

524

      FieldName = 'Ile/MAT'

525

end

526

    object ClientDataSetIngredientsVal_MAT: TFloatField

527

      DisplayLabel = 'Val / crude protein'

528

      FieldName = 'Val/MAT'

529

end

530

    object ClientDataSetIngredientsLeu_MAT: TFloatField

531

      DisplayLabel = 'Leu / crude protein'

532

      FieldName = 'Leu/MAT'

533

end

534

    object ClientDataSetIngredientsPhe_MAT: TFloatField

535

      DisplayLabel = 'Phe / crude protein'

536

      FieldName = 'Phe/MAT'

537

end

538

    object ClientDataSetIngredientsTyr_MAT: TFloatField

539

      DisplayLabel = 'Tyr / crude protein'

540

      FieldName = 'Tyr/MAT'

541

end

542

    object ClientDataSetIngredientsPheTyr_MAT: TFloatField

543

      DisplayLabel = 'Phe+Tyr / crude protein'

544

      FieldName = 'PheTyr/MAT'

545

end

546

    object ClientDataSetIngredientsHis_MAT: TFloatField

547

      DisplayLabel = 'His / crude protein'

548

      FieldName = 'His/MAT'

549

end

550

    object ClientDataSetIngredientsArg_MAT: TFloatField

551

      DisplayLabel = 'Arg / crude protein'

552

      FieldName = 'Arg/MAT'

553

end

554

    object ClientDataSetIngredientsAla_MAT: TFloatField

555

      DisplayLabel = 'Ala / crude protein'

556

      FieldName = 'Ala/MAT'

557

end

558

    object ClientDataSetIngredientsAsp_MAT: TFloatField

559

      DisplayLabel = 'Asp / crude protein'

560

      FieldName = 'Asp/MAT'

561

end

562

    object ClientDataSetIngredientsGlu_MAT: TFloatField

563

      DisplayLabel = 'Glu / crude protein'

564

      FieldName = 'Glu/MAT'

565

end

566

    object ClientDataSetIngredientsGly_MAT: TFloatField

567

      DisplayLabel = 'Gly / crude protein'

568

      FieldName = 'Gly/MAT'

569

end

570

    object ClientDataSetIngredientsSer_MAT: TFloatField

571

      DisplayLabel = 'Ser / crude protein'

572

      FieldName = 'Ser/MAT'

573

end

574

    object ClientDataSetIngredientsPro_MAT: TFloatField

575

      DisplayLabel = 'Pro / crude protein'

576

      FieldName = 'Pro/MAT'

577

end

578

    object ClientDataSetIngredientsdLys: TFloatField

579

      DisplayLabel = 'Lysd'

580

      FieldName = 'dLys'

581

end

582

    object ClientDataSetIngredientsdThr: TFloatField

583

      DisplayLabel = 'Thrd'

584

      FieldName = 'dThr'

585

end

586

    object ClientDataSetIngredientsdMet: TFloatField

587

      DisplayLabel = 'Metd'

588

      FieldName = 'dMet'

589

end

590

    object ClientDataSetIngredientsdCys: TFloatField

591

      DisplayLabel = 'Cysd'

592

      FieldName = 'dCys'

593

end

594

    object ClientDataSetIngredientsdMetCys: TFloatField

595

      DisplayLabel = 'Met+Cysd'

596

      FieldName = 'dMetCys'

597

end

598

    object ClientDataSetIngredientsdTrp: TFloatField

599

      DisplayLabel = 'Trpd'

600

      FieldName = 'dTrp'

601

end

602

    object ClientDataSetIngredientsdIle: TFloatField

603

      DisplayLabel = 'Iled'

604

      FieldName = 'dIle'

605

end

606

    object ClientDataSetIngredientsdVal: TFloatField

607

      DisplayLabel = 'Vald'

608

      FieldName = 'dVal'

609

end

610

    object ClientDataSetIngredientsdLeu: TFloatField

611

      DisplayLabel = 'Leud'

612

      FieldName = 'dLeu'

613

end

614

    object ClientDataSetIngredientsdPhe: TFloatField

615

      DisplayLabel = 'Phed'

616

      FieldName = 'dPhe'

617

end

618

    object ClientDataSetIngredientsdTyr: TFloatField

619

      DisplayLabel = 'Tyrd'

620

      FieldName = 'dTyr'

621

end

622

    object ClientDataSetIngredientsdPheTyr: TFloatField

623

      DisplayLabel = 'Phe+Tyrd'

624

      FieldName = 'dPheTyr'

625

end

626

    object ClientDataSetIngredientsdHis: TFloatField

627

      DisplayLabel = 'Hisd'

628

      FieldName = 'dHis'

629

end

630

    object ClientDataSetIngredientsdArg: TFloatField

631

      DisplayLabel = 'Argd'

632

      FieldName = 'dArg'

633

end

634

    object ClientDataSetIngredientsdAla: TFloatField

635

      DisplayLabel = 'Alad'

636

      FieldName = 'dAla'

637

end

638

    object ClientDataSetIngredientsdAsp: TFloatField

639

      DisplayLabel = 'Aspd'

640

      FieldName = 'dAsp'

641

end

642

    object ClientDataSetIngredientsdGlu: TFloatField

643

      DisplayLabel = 'Glud'

644

      FieldName = 'dGlu'

645

end

646

    object ClientDataSetIngredientsdGly: TFloatField

647

      DisplayLabel = 'Glyd'

648

      FieldName = 'dGly'

649

end

650

    object ClientDataSetIngredientsdSer: TFloatField

651

      DisplayLabel = 'Serd'

652

      FieldName = 'dSer'

653

end

654

    object ClientDataSetIngredientsdPro: TFloatField

655

      DisplayLabel = 'Prod'

656

      FieldName = 'dPro'

657

end

658

    object ClientDataSetIngredientsLysd: TFloatField

659

      DisplayLabel = 'dLys'

660

      FieldName = 'Lysd'

661

end

662

    object ClientDataSetIngredientsThrd: TFloatField

663

      DisplayLabel = 'dThr'

664

      FieldName = 'Thrd'

665

end

666

    object ClientDataSetIngredientsMetd: TFloatField

667

      DisplayLabel = 'dMet'

668

      FieldName = 'Metd'

669

end

670

    object ClientDataSetIngredientsCysd: TFloatField

671

      DisplayLabel = 'dCys'

672

      FieldName = 'Cysd'

673

end

674

    object ClientDataSetIngredientsMetCysd: TFloatField

675

      DisplayLabel = 'dMet+Cys'

676

      FieldName = 'MetCysd'

677

end

678

    object ClientDataSetIngredientsTrpd: TFloatField

679

      DisplayLabel = 'dTrp'

680

      FieldName = 'Trpd'

681

end

682

    object ClientDataSetIngredientsIled: TFloatField

683

      DisplayLabel = 'dIle'

684

      FieldName = 'Iled'

685

end

686

    object ClientDataSetIngredientsVald: TFloatField

687

      DisplayLabel = 'dVal'

688

      FieldName = 'Vald'

689

end

690

    object ClientDataSetIngredientsLeud: TFloatField

691

      DisplayLabel = 'dLeu'

692

      FieldName = 'Leud'

693

end

694

    object ClientDataSetIngredientsPhed: TFloatField

695

      DisplayLabel = 'dPhe'

696

      FieldName = 'Phed'

697

end

698

    object ClientDataSetIngredientsTyrd: TFloatField

699

      DisplayLabel = 'dTyr'

700

      FieldName = 'Tyrd'

701

end

702

    object ClientDataSetIngredientsPheTyrd: TFloatField

703

      DisplayLabel = 'dPhe+Tyr'

704

      FieldName = 'PheTyrd'

705

end

706

    object ClientDataSetIngredientsHisd: TFloatField

707

      DisplayLabel = 'dHis'

708

      FieldName = 'Hisd'

709

end

710

    object ClientDataSetIngredientsArgd: TFloatField

711

      DisplayLabel = 'dArg'

712

      FieldName = 'Argd'

713

end

714

    object ClientDataSetIngredientsAlad: TFloatField

715

      DisplayLabel = 'dAla'

716

      FieldName = 'Alad'

717

end

718

    object ClientDataSetIngredientsAspd: TFloatField

719

      DisplayLabel = 'dAsp'

720

      FieldName = 'Aspd'

721

end

722

    object ClientDataSetIngredientsGlud: TFloatField

723

      DisplayLabel = 'dGlu'

724

      FieldName = 'Glud'

725

end

726

    object ClientDataSetIngredientsGlyd: TFloatField

727

      DisplayLabel = 'dGly'

728

      FieldName = 'Glyd'

729

end

730

    object ClientDataSetIngredientsSerd: TFloatField

731

      DisplayLabel = 'dSer'

732

      FieldName = 'Serd'

733

end

734

    object ClientDataSetIngredientsProd: TFloatField

735

      DisplayLabel = 'dPro'

736

      FieldName = 'Prod'

737

end

738

    object ClientDataSetIngredientsLysd_ENc: TFloatField

739

      DisplayLabel = 'dLys / NE, growing pig'

740

      FieldName = 'Lysd/ENc'

741

end

742

    object ClientDataSetIngredientsLysd_ENt: TFloatField

743

      DisplayLabel = 'dLys / NE, adult pig'

744

      FieldName = 'Lysd/ENt'

745

end

746

    object ClientDataSetIngredientsCa: TFloatField

748

1

avalancogn

      FieldName = 'Ca'

749

end

750

    object ClientDataSetIngredientsP: TFloatField

752

1

avalancogn

      FieldName = 'P'

753

end

770

1

avalancogn

    object ClientDataSetIngredientsdP: TFloatField

771

      DisplayLabel = 'Pd, pellet'

772

      FieldName = 'dP'

773

end

774

    object ClientDataSetIngredientsdPphy: TFloatField

775

      DisplayLabel = 'Pd, mash'

776

      FieldName = 'dPphy'

777

end

778

end

779

  object DataSourceIngredients: TDataSource

780

    DataSet = ClientDataSetIngredients

781

    Left = 560

782

    Top = 160

783

end

784

  object ClientDataSetComposition: TClientDataSet

785

    Aggregates = <

786

      item

787

        Active = True

788

        AggregateName = 'LevelSum'

789

        Expression = 'Sum(Level)'

790

        GroupingLevel = 1

791

        IndexName = 'IndexRank'

792

        Visible = False

793

        OnUpdate = AggregateLevelSumUpdate

794

      end>

795

    AggregatesActive = True

796

    AutoCalcFields = False

797

    FieldDefs = <>

798

    IndexDefs = <

799

      item

800

        Name = 'IndexRank'

801

        Fields = 'Feed;Rank'

802

        GroupingLevel = 1

803

end

804

      item

805

        Name = 'IndexLevel'

806

        DescFields = 'Level'

807

        Fields = 'Feed;Level'

808

        Options = [ixDescending]

809

        GroupingLevel = 1

810

end

811

      item

812

        Name = 'IndexIngredientName'

813

        Fields = 'Feed;IngredientName'

814

        GroupingLevel = 1

815

      end>

816

    IndexName = 'IndexRank'

817

    Params = <>

818

    StoreDefs = True

819

    Left = 400

820

    Top = 360

821

    object ClientDataSetCompositionFeed: TIntegerField

822

      FieldName = 'Feed'

823

end

824

    object ClientDataSetCompositionIngredient: TIntegerField

825

      FieldName = 'Ingredient'

826

end

827

    object ClientDataSetCompositionUser: TBooleanField

828

      FieldName = 'User'

829

end

830

    object ClientDataSetCompositionIngredientName: TWideStringField

831

      DisplayLabel = 'Name'

832

      FieldName = 'IngredientName'

833

      Size = 80

834

end

835

    object ClientDataSetCompositionRank: TIntegerField

836

      FieldName = 'Rank'

837

end

838

    object ClientDataSetCompositionMS: TFloatField

839

      DisplayLabel = 'DM'

840

      FieldName = 'MS'

841

end

842

    object ClientDataSetCompositionLevel: TFloatField

843

      FieldName = 'Level'

844

end

845

end

846

  object DataSourceComposition: TDataSource

847

    DataSet = ClientDataSetComposition

848

    Left = 560

849

    Top = 360

850

end

851

  object ClientDataSetPhytase: TClientDataSet

852

    Aggregates = <>

853

    AutoCalcFields = False

854

    MasterFields = 'Id'

855

    Params = <>

856

    Left = 400

857

    Top = 440

858

    object ClientDataSetPhytaseId: TAutoIncField

859

      FieldName = 'Id'

860

end

861

    object ClientDataSetPhytaseType: TFloatField

862

      FieldName = 'Type'

863

      DisplayFormat = '0.00'

864

end

865

    object ClientDataSetPhytaseCoef: TFloatField

866

      FieldName = 'Coef'

867

end

868

end

869

  object DataSourcePhytase: TDataSource

870

    DataSet = ClientDataSetPhytase

871

    Left = 560

872

    Top = 440

873

end

874

  object ClientDataSetFeeds: TClientDataSet

875

    Aggregates = <>

876

    AutoCalcFields = False

877

    FilterOptions = [foCaseInsensitive]

878

    Params = <>

879

    OnCalcFields = ClientDataSetFeedsCalcFields

880

    Left = 400

881

    Top = 280

882

    object ClientDataSetFeedsId: TIntegerField

883

      FieldName = 'Id'

884

end

885

    object ClientDataSetFeedsName: TWideStringField

886

      FieldName = 'Name'

887

      Size = 80

888

end

889

    object ClientDataSetFeedsDescription: TWideStringField

890

      FieldName = 'Description'

891

      Size = 320

892

end

893

    object ClientDataSetFeedsPresentation: TIntegerField

894

      DisplayLabel = 'Physical form'

895

      FieldName = 'Presentation'

896

end

897

    object ClientDataSetFeedsBonusC: TFloatField

898

      DisplayLabel = 'Energy bonus, growing pig'

899

      FieldName = 'BonusC'

900

end

901

    object ClientDataSetFeedsBonusT: TFloatField

902

      DisplayLabel = 'Energy bonus, adult pig'

903

      FieldName = 'BonusT'

904

end

905

    object ClientDataSetFeedsMS: TFloatField

906

      DisplayLabel = 'Dry matter'

907

      FieldName = 'MS'

908

end

909

    object ClientDataSetFeedsMS2: TFloatField

910

      DisplayLabel = 'Dry matter'

911

      FieldName = 'MS2'

912

end

913

    object ClientDataSetFeedsMM: TFloatField

914

      DisplayLabel = 'Ash'

915

      FieldName = 'MM'

916

end

917

    object ClientDataSetFeedsMAT: TFloatField

918

      DisplayLabel = 'Crude protein'

919

      FieldName = 'MAT'

920

end

921

    object ClientDataSetFeedsMG: TFloatField

922

      DisplayLabel = 'Crude fat'

923

      FieldName = 'MG'

924

end

925

    object ClientDataSetFeedsCB: TFloatField

926

      DisplayLabel = 'Crude fibre'

927

      FieldName = 'CB'

928

end

929

    object ClientDataSetFeedsNDF: TFloatField

930

      FieldName = 'NDF'

931

end

932

    object ClientDataSetFeedsADF: TFloatField

933

      FieldName = 'ADF'

934

end

935

    object ClientDataSetFeedsADL: TFloatField

936

      FieldName = 'ADL'

937

end

938

    object ClientDataSetFeedsAmidon: TFloatField

939

      DisplayLabel = 'Starch'

940

      FieldName = 'Amidon'

941

end

942

    object ClientDataSetFeedsSucres: TFloatField

943

      DisplayLabel = 'Sugars'

944

      FieldName = 'Sucres'

945

end

946

    object ClientDataSetFeedsEB: TFloatField

947

      DisplayLabel = 'GE'

948

      FieldName = 'EB'

949

end

950

    object ClientDataSetFeedsdEc: TFloatField

951

      DisplayLabel = 'Ed, growing pig'

952

      FieldName = 'dEc'

953

end

954

    object ClientDataSetFeedsEDc: TFloatField

955

      DisplayLabel = 'DE, growing pig'

956

      FieldName = 'EDc'

957

end

958

    object ClientDataSetFeedsEMc_EDc: TFloatField

959

      DisplayLabel = 'ME / DE, growing pig'

960

      FieldName = 'EMc/EDc'

961

end

962

    object ClientDataSetFeedsEMc: TFloatField

963

      DisplayLabel = 'ME, growing pig'

964

      FieldName = 'EMc'

965

end

966

    object ClientDataSetFeedsENc_EMc: TFloatField

967

      DisplayLabel = 'NE / ME, growing pig'

968

      FieldName = 'ENc/EMc'

969

end

970

    object ClientDataSetFeedsENc: TFloatField

971

      DisplayLabel = 'NE, growing pig'

972

      FieldName = 'ENc'

973

end

974

    object ClientDataSetFeedsdEt: TFloatField

975

      DisplayLabel = 'Ed, adult pig'

976

      FieldName = 'dEt'

977

end

978

    object ClientDataSetFeedsEDt: TFloatField

979

      DisplayLabel = 'DE, adult pig'

980

      FieldName = 'EDt'

981

end

982

    object ClientDataSetFeedsEMt_EDt: TFloatField

983

      DisplayLabel = 'ME / DE, adult pig'

984

      FieldName = 'EMt/EDt'

985

end

986

    object ClientDataSetFeedsEMt: TFloatField

987

      DisplayLabel = 'ME, adult pig'

988

      FieldName = 'EMt'

989

end

990

    object ClientDataSetFeedsENt_EMt: TFloatField

991

      DisplayLabel = 'NE / ME, adult pig'

992

      FieldName = 'ENt/EMt'

993

end

994

    object ClientDataSetFeedsENt: TFloatField

995

      DisplayLabel = 'NE, adult pig'

996

      FieldName = 'ENt'

997

end

998

    object ClientDataSetFeedsEDt_EDc: TFloatField

999

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

1000

      FieldName = 'EDt/EDc'

1001

end

1002

    object ClientDataSetFeedsEMt_EMc: TFloatField

1003

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

1004

      FieldName = 'EMt/EMc'

1005

end

1006

    object ClientDataSetFeedsENt_ENc: TFloatField

1007

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

1008

      FieldName = 'ENt/ENc'

1009

end

1010

    object ClientDataSetFeedsdNc: TFloatField

1011

      DisplayLabel = 'Nd, growing pig'

1012

      FieldName = 'dNc'

1013

end

1014

    object ClientDataSetFeedsdNt: TFloatField

1015

      DisplayLabel = 'Nd, adult pig'

1016

      FieldName = 'dNt'

1017

end

1018

    object ClientDataSetFeedsLys: TFloatField

1019

      FieldName = 'Lys'

1020

end

1021

    object ClientDataSetFeedsThr: TFloatField

1022

      FieldName = 'Thr'

1023

end

1024

    object ClientDataSetFeedsMet: TFloatField

1025

      FieldName = 'Met'

1026

end

1027

    object ClientDataSetFeedsCys: TFloatField

1028

      FieldName = 'Cys'

1029

end

1030

    object ClientDataSetFeedsMetCys: TFloatField

1031

      DisplayLabel = 'Met+Cys'

1032

      FieldName = 'MetCys'

1033

end

1034

    object ClientDataSetFeedsTrp: TFloatField

1035

      FieldName = 'Trp'

1036

end

1037

    object ClientDataSetFeedsIle: TFloatField

1038

      FieldName = 'Ile'

1039

end

1040

    object ClientDataSetFeedsVal: TFloatField

1041

      FieldName = 'Val'

1042

end

1043

    object ClientDataSetFeedsLeu: TFloatField

1044

      FieldName = 'Leu'

1045

end

1046

    object ClientDataSetFeedsPhe: TFloatField

1047

      FieldName = 'Phe'

1048

end

1049

    object ClientDataSetFeedsTyr: TFloatField

1050

      FieldName = 'Tyr'

1051

end

1052

    object ClientDataSetFeedsPheTyr: TFloatField

1053

      DisplayLabel = 'Phe+Tyr'

1054

      FieldName = 'PheTyr'

1055

end

1056

    object ClientDataSetFeedsHis: TFloatField

1057

      FieldName = 'His'

1058

end

1059

    object ClientDataSetFeedsArg: TFloatField

1060

      FieldName = 'Arg'

1061

end

1062

    object ClientDataSetFeedsAla: TFloatField

1063

      FieldName = 'Ala'

1064

end

1065

    object ClientDataSetFeedsAsp: TFloatField

1066

      FieldName = 'Asp'

1067

end

1068

    object ClientDataSetFeedsGlu: TFloatField

1069

      FieldName = 'Glu'

1070

end

1071

    object ClientDataSetFeedsGly: TFloatField

1072

      FieldName = 'Gly'

1073

end

1074

    object ClientDataSetFeedsSer: TFloatField

1075

      FieldName = 'Ser'

1076

end

1077

    object ClientDataSetFeedsPro: TFloatField

1078

      FieldName = 'Pro'

1079

end

1080

    object ClientDataSetFeedsLysd: TFloatField

1081

      DisplayLabel = 'dLys'

1082

      FieldName = 'Lysd'

1083

end

1084

    object ClientDataSetFeedsThrd: TFloatField

1085

      DisplayLabel = 'dThr'

1086

      FieldName = 'Thrd'

1087

end

1088

    object ClientDataSetFeedsMetd: TFloatField

1089

      DisplayLabel = 'dMet'

1090

      FieldName = 'Metd'

1091

end

1092

    object ClientDataSetFeedsCysd: TFloatField

1093

      DisplayLabel = 'dCys'

1094

      FieldName = 'Cysd'

1095

end

1096

    object ClientDataSetFeedsMetCysd: TFloatField

1097

      DisplayLabel = 'dMet+Cys'

1098

      FieldName = 'MetCysd'

1099

end

1100

    object ClientDataSetFeedsTrpd: TFloatField

1101

      DisplayLabel = 'dTrp'

1102

      FieldName = 'Trpd'

1103

end

1104

    object ClientDataSetFeedsIled: TFloatField

1105

      DisplayLabel = 'dIle'

1106

      FieldName = 'Iled'

1107

end

1108

    object ClientDataSetFeedsVald: TFloatField

1109

      DisplayLabel = 'dVal'

1110

      FieldName = 'Vald'

1111

end

1112

    object ClientDataSetFeedsLeud: TFloatField

1113

      DisplayLabel = 'dLeu'

1114

      FieldName = 'Leud'

1115

end

1116

    object ClientDataSetFeedsPhed: TFloatField

1117

      DisplayLabel = 'dPhe'

1118

      FieldName = 'Phed'

1119

end

1120

    object ClientDataSetFeedsTyrd: TFloatField

1121

      DisplayLabel = 'dTyr'

1122

      FieldName = 'Tyrd'

1123

end

1124

    object ClientDataSetFeedsPheTyrd: TFloatField

1125

      DisplayLabel = 'dPhe+Tyr'

1126

      FieldName = 'PheTyrd'

1127

end

1128

    object ClientDataSetFeedsHisd: TFloatField

1129

      DisplayLabel = 'dHis'

1130

      FieldName = 'Hisd'

1131

end

1132

    object ClientDataSetFeedsArgd: TFloatField

1133

      DisplayLabel = 'dArg'

1134

      FieldName = 'Argd'

1135

end

1136

    object ClientDataSetFeedsAlad: TFloatField

1137

      DisplayLabel = 'dAla'

1138

      FieldName = 'Alad'

1139

end

1140

    object ClientDataSetFeedsAspd: TFloatField

1141

      DisplayLabel = 'dAsp'

1142

      FieldName = 'Aspd'

1143

end

1144

    object ClientDataSetFeedsGlud: TFloatField

1145

      DisplayLabel = 'dGlu'

1146

      FieldName = 'Glud'

1147

end

1148

    object ClientDataSetFeedsGlyd: TFloatField

1149

      DisplayLabel = 'dGly'

1150

      FieldName = 'Glyd'

1151

end

1152

    object ClientDataSetFeedsSerd: TFloatField

1153

      DisplayLabel = 'dSer'

1154

      FieldName = 'Serd'

1155

end

1156

    object ClientDataSetFeedsProd: TFloatField

1157

      DisplayLabel = 'dPro'

1158

      FieldName = 'Prod'

1159

end

1160

    object ClientDataSetFeedsLysd_ENc: TFloatField

1161

      DisplayLabel = 'dLys / NE, growing pig'

1162

      FieldName = 'Lysd/ENc'

1163

end

1164

    object ClientDataSetFeedsLysd_ENt: TFloatField

1165

      DisplayLabel = 'dLys / NE, adult pig'

1166

      FieldName = 'Lysd/ENt'

1167

end

1168

    object ClientDataSetFeedsThrd_Lysd: TFloatField

1169

      DisplayLabel = 'dThr / dLys'

1170

      FieldName = 'Thrd/Lysd'

1171

end

1172

    object ClientDataSetFeedsMetd_Lysd: TFloatField

1173

      DisplayLabel = 'dMet / dLys'

1174

      FieldName = 'Metd/Lysd'

1175

end

1176

    object ClientDataSetFeedsCysd_Lysd: TFloatField

1177

      DisplayLabel = 'dCys / dLys'

1178

      FieldName = 'Cysd/Lysd'

1179

end

1180

    object ClientDataSetFeedsMetCysd_Lysd: TFloatField

1181

      DisplayLabel = 'dMet+Cys / dLys'

1182

      FieldName = 'MetCysd/Lysd'

1183

end

1184

    object ClientDataSetFeedsTrpd_Lysd: TFloatField

1185

      DisplayLabel = 'dTrp / dLys'

1186

      FieldName = 'Trpd/Lysd'

1187

end

1188

    object ClientDataSetFeedsIled_Lysd: TFloatField

1189

      DisplayLabel = 'dIle / dLys'

1190

      FieldName = 'Iled/Lysd'

1191

end

1192

    object ClientDataSetFeedsVald_Lysd: TFloatField

1193

      DisplayLabel = 'dVal / dLys'

1194

      FieldName = 'Vald/Lysd'

1195

end

1196

    object ClientDataSetFeedsLeud_Lysd: TFloatField

1197

      DisplayLabel = 'dLeu / dLys'

1198

      FieldName = 'Leud/Lysd'

1199

end

1200

    object ClientDataSetFeedsPhed_Lysd: TFloatField

1201

      DisplayLabel = 'dPhe / dLys'

1202

      FieldName = 'Phed/Lysd'

1203

end

1204

    object ClientDataSetFeedsTyrd_Lysd: TFloatField

1205

      DisplayLabel = 'dTyr / dLys'

1206

      FieldName = 'Tyrd/Lysd'

1207

end

1208

    object ClientDataSetFeedsPheTyrd_Lysd: TFloatField

1209

      DisplayLabel = 'dPhe+Tyr / dLys'

1210

      FieldName = 'PheTyrd/Lysd'

1211

end

1212

    object ClientDataSetFeedsHisd_Lysd: TFloatField

1213

      DisplayLabel = 'dHis / dLys'

1214

      FieldName = 'Hisd/Lysd'

1215

end

1216

    object ClientDataSetFeedsArgd_Lysd: TFloatField

1217

      DisplayLabel = 'dArg / dLys'

1218

      FieldName = 'Argd/Lysd'

1219

end

1220

    object ClientDataSetFeedsAlad_Lysd: TFloatField

1221

      DisplayLabel = 'dAla / dLys'

1222

      FieldName = 'Alad/Lysd'

1223

end

1224

    object ClientDataSetFeedsAspd_Lysd: TFloatField

1225

      DisplayLabel = 'dAsp / dLys'

1226

      FieldName = 'Aspd/Lysd'

1227

end

1228

    object ClientDataSetFeedsGlud_Lysd: TFloatField

1229

      DisplayLabel = 'dGlu / dLys'

1230

      FieldName = 'Glud/Lysd'

1231

end

1232

    object ClientDataSetFeedsGlyd_Lysd: TFloatField

1233

      DisplayLabel = 'dGly / dLys'

1234

      FieldName = 'Glyd/Lysd'

1235

end

1236

    object ClientDataSetFeedsSerd_Lysd: TFloatField

1237

      DisplayLabel = 'dSer / dLys'

1238

      FieldName = 'Serd/Lysd'

1239

end

1240

    object ClientDataSetFeedsProd_Lysd: TFloatField

1241

      DisplayLabel = 'dPro / dLys'

1242

      FieldName = 'Prod/Lysd'

1243

end

1244

    object ClientDataSetFeedsCa: TFloatField

1245

      DisplayLabel = 'Calcium (Ca)'

1246

      FieldName = 'Ca'

1247

end

1248

    object ClientDataSetFeedsP: TFloatField

1249

      DisplayLabel = 'Phosphorus (P)'

1250

      FieldName = 'P'

1251

end

1268

1

avalancogn

    object ClientDataSetFeedsPd: TFloatField

1269

      DisplayLabel = 'Digestible P (dP)'

1270

      FieldName = 'Pd'

1271

end

1272

    object ClientDataSetFeedsCa_Pd: TFloatField

1273

      DisplayLabel = 'Ca / dP'

1274

      FieldName = 'Ca/Pd'

1275

end

1276

    object ClientDataSetFeedsPd_ENc: TFloatField

1277

      DisplayLabel = 'dP / NE, growing pig'

1278

      FieldName = 'Pd/ENc'

1279

end

1280

    object ClientDataSetFeedsPd_ENt: TFloatField

1281

      DisplayLabel = 'dP / NE, adult pig'

1282

      FieldName = 'Pd/ENt'

1283

end

1284

    object ClientDataSetFeedsPhytaseId: TIntegerField

1285

      DisplayLabel = 'Phytase ID'

1286

      FieldName = 'PhytaseId'

1287

end

1288

    object ClientDataSetFeedsPhytaseType: TFloatField

1289

      DisplayLabel = 'Phytase type'

1290

      FieldKind = fkLookup

1291

      FieldName = 'PhytaseType'

1292

      LookupDataSet = ClientDataSetPhytase

1293

      LookupKeyFields = 'Id'

1294

      LookupResultField = 'Type'

1295

      KeyFields = 'PhytaseId'

1296

      DisplayFormat = '0.00'

1297

      Lookup = True

1298

end

1299

    object ClientDataSetFeedsPhytaseConcentration: TFloatField

1300

      DisplayLabel = 'Phytase concentration'

1301

      FieldName = 'PhytaseConcentration'

1302

      DisplayFormat = '#,##0'

1303

end

1304

    object ClientDataSetFeedsPhytaseIncorporation: TFloatField

1305

      DisplayLabel = 'Phytase incorporation'

1306

      FieldName = 'PhytaseIncorporation'

1307

      DisplayFormat = '#,##0'

1308

end

1309

    object ClientDataSetFeedsPhytaseLevel: TFloatField

1310

      DisplayLabel = 'Phytase level'

1311

      FieldKind = fkInternalCalc

1312

      FieldName = 'PhytaseLevel'

1313

end

1314

    object ClientDataSetFeedsLevelSum: TFloatField

1315

      DisplayLabel = 'Sum'

1316

      FieldName = 'LevelSum'

1317

end

1318

    object ClientDataSetFeedsTotal: TFloatField

1319

      FieldKind = fkInternalCalc

1320

      FieldName = 'Total'

1321

end

1322

    object ClientDataSetFeedsRemain: TFloatField

1323

      FieldKind = fkInternalCalc

1324

      FieldName = 'Remain'

1325

end

1326

end

1327

  object DataSourceFeeds: TDataSource

1328

    DataSet = ClientDataSetFeeds

1329

    Left = 560

1330

    Top = 280

1331

end

1332

end

EvaPig

root / UnitDeclaration.dfm @ 3