Statistiques
| Révision:

root / InraAfz / UnitMain.dfm @ 1

Historique | Voir | Annoter | Télécharger (17,957 ko)

1
object FormMain: TFormMain
2
  Left = 0
3
  Top = 0
4
  Caption = 'Tables'
5
  ClientHeight = 566
6
  ClientWidth = 792
7
  Color = clBtnFace
8
  Font.Charset = DEFAULT_CHARSET
9
  Font.Color = clWindowText
10
  Font.Height = -11
11
  Font.Name = 'Tahoma'
12
  Font.Style = []
13
  OldCreateOrder = False
14
  WindowState = wsMaximized
15
  OnClose = FormClose
16
  OnShow = FormShow
17
  PixelsPerInch = 96
18
  TextHeight = 13
19
  object DBGridInraAfz: TDBGrid
20
    Left = 0
21
    Top = 0
22
    Width = 792
23
    Height = 526
24
    Align = alClient
25
    DataSource = DataSourceInraAfz
26
    DefaultDrawing = False
27
    TabOrder = 0
28
    TitleFont.Charset = DEFAULT_CHARSET
29
    TitleFont.Color = clWindowText
30
    TitleFont.Height = -11
31
    TitleFont.Name = 'Tahoma'
32
    TitleFont.Style = []
33
    OnDrawColumnCell = DBGridInraAfzDrawColumnCell
34
    OnTitleClick = DBGridInraAfzTitleClick
35
    Columns = <
36
      item
37
        Expanded = False
38
        FieldName = 'Id'
39
        ReadOnly = True
40
        Width = 48
41
        Visible = True
42
      end
43
      item
44
        Expanded = False
45
        FieldName = 'Name'
46
        Width = 320
47
        Visible = True
48
      end
49
      item
50
        Expanded = False
51
        FieldName = 'Source'
52
        Width = 120
53
        Visible = True
54
      end
55
      item
56
        Expanded = False
57
        FieldName = 'ClassName'
58
        Title.Caption = 'Classe'
59
        Width = 200
60
        Visible = True
61
      end
62
      item
63
        Expanded = False
64
        FieldName = 'MS'
65
        Visible = True
66
      end
67
      item
68
        Expanded = False
69
        FieldName = 'MM'
70
        Visible = True
71
      end
72
      item
73
        Expanded = False
74
        FieldName = 'MAT'
75
        Visible = True
76
      end
77
      item
78
        Expanded = False
79
        FieldName = 'MG'
80
        Visible = True
81
      end
82
      item
83
        Expanded = False
84
        FieldName = 'CB'
85
        Visible = True
86
      end
87
      item
88
        Expanded = False
89
        FieldName = 'CoefCB'
90
        Visible = True
91
      end
92
      item
93
        Expanded = False
94
        FieldName = 'NDF'
95
        Visible = True
96
      end
97
      item
98
        Expanded = False
99
        FieldName = 'CoefNDF'
100
        Visible = True
101
      end
102
      item
103
        Expanded = False
104
        FieldName = 'ADF'
105
        Visible = True
106
      end
107
      item
108
        Expanded = False
109
        FieldName = 'CoefADF'
110
        Visible = True
111
      end
112
      item
113
        Expanded = False
114
        FieldName = 'ADL'
115
        Visible = True
116
      end
117
      item
118
        Expanded = False
119
        FieldName = 'Amidon'
120
        Visible = True
121
      end
122
      item
123
        Expanded = False
124
        FieldName = 'Sucres'
125
        Visible = True
126
      end
127
      item
128
        Expanded = False
129
        FieldName = 'EB'
130
        Visible = True
131
      end
132
      item
133
        Expanded = False
134
        FieldName = 'dEc'
135
        Visible = True
136
      end
137
      item
138
        Expanded = False
139
        FieldName = 'EMc/EDc'
140
        Visible = True
141
      end
142
      item
143
        Expanded = False
144
        FieldName = 'ENc/EMc'
145
        Visible = True
146
      end
147
      item
148
        Expanded = False
149
        FieldName = 'EMt/EDt'
150
        Visible = True
151
      end
152
      item
153
        Expanded = False
154
        FieldName = 'ENt/EMt'
155
        Visible = True
156
      end
157
      item
158
        Expanded = False
159
        FieldName = 'EDt/EDc'
160
        Visible = True
161
      end
162
      item
163
        Expanded = False
164
        FieldName = 'a'
165
        Visible = True
166
      end
167
      item
168
        Expanded = False
169
        FieldName = 'b'
170
        Visible = True
171
      end
172
      item
173
        Expanded = False
174
        FieldName = 'dNc'
175
        Visible = True
176
      end
177
      item
178
        Expanded = False
179
        FieldName = 'dNt'
180
        Visible = True
181
      end
182
      item
183
        Expanded = False
184
        FieldName = 'Lys'
185
        Visible = True
186
      end
187
      item
188
        Expanded = False
189
        FieldName = 'Thr'
190
        Visible = True
191
      end
192
      item
193
        Expanded = False
194
        FieldName = 'Met'
195
        Visible = True
196
      end
197
      item
198
        Expanded = False
199
        FieldName = 'Cys'
200
        Visible = True
201
      end
202
      item
203
        Expanded = False
204
        FieldName = 'MetCys'
205
        Visible = True
206
      end
207
      item
208
        Expanded = False
209
        FieldName = 'Trp'
210
        Visible = True
211
      end
212
      item
213
        Expanded = False
214
        FieldName = 'Ile'
215
        Visible = True
216
      end
217
      item
218
        Expanded = False
219
        FieldName = 'Val'
220
        Visible = True
221
      end
222
      item
223
        Expanded = False
224
        FieldName = 'Leu'
225
        Visible = True
226
      end
227
      item
228
        Expanded = False
229
        FieldName = 'Phe'
230
        Visible = True
231
      end
232
      item
233
        Expanded = False
234
        FieldName = 'Tyr'
235
        Visible = True
236
      end
237
      item
238
        Expanded = False
239
        FieldName = 'PheTyr'
240
        Visible = True
241
      end
242
      item
243
        Expanded = False
244
        FieldName = 'His'
245
        Visible = True
246
      end
247
      item
248
        Expanded = False
249
        FieldName = 'Arg'
250
        Visible = True
251
      end
252
      item
253
        Expanded = False
254
        FieldName = 'Ala'
255
        Visible = True
256
      end
257
      item
258
        Expanded = False
259
        FieldName = 'Asp'
260
        Visible = True
261
      end
262
      item
263
        Expanded = False
264
        FieldName = 'Glu'
265
        Visible = True
266
      end
267
      item
268
        Expanded = False
269
        FieldName = 'Gly'
270
        Visible = True
271
      end
272
      item
273
        Expanded = False
274
        FieldName = 'Ser'
275
        Visible = True
276
      end
277
      item
278
        Expanded = False
279
        FieldName = 'Pro'
280
        Visible = True
281
      end
282
      item
283
        Expanded = False
284
        FieldName = 'dLys'
285
        Visible = True
286
      end
287
      item
288
        Expanded = False
289
        FieldName = 'dThr'
290
        Visible = True
291
      end
292
      item
293
        Expanded = False
294
        FieldName = 'dMet'
295
        Visible = True
296
      end
297
      item
298
        Expanded = False
299
        FieldName = 'dCys'
300
        Visible = True
301
      end
302
      item
303
        Expanded = False
304
        FieldName = 'dMetCys'
305
        Visible = True
306
      end
307
      item
308
        Expanded = False
309
        FieldName = 'dTrp'
310
        Visible = True
311
      end
312
      item
313
        Expanded = False
314
        FieldName = 'dIle'
315
        Visible = True
316
      end
317
      item
318
        Expanded = False
319
        FieldName = 'dVal'
320
        Visible = True
321
      end
322
      item
323
        Expanded = False
324
        FieldName = 'dLeu'
325
        Visible = True
326
      end
327
      item
328
        Expanded = False
329
        FieldName = 'dPhe'
330
        Visible = True
331
      end
332
      item
333
        Expanded = False
334
        FieldName = 'dTyr'
335
        Visible = True
336
      end
337
      item
338
        Expanded = False
339
        FieldName = 'dPheTyr'
340
        Visible = True
341
      end
342
      item
343
        Expanded = False
344
        FieldName = 'dHis'
345
        Visible = True
346
      end
347
      item
348
        Expanded = False
349
        FieldName = 'dArg'
350
        Visible = True
351
      end
352
      item
353
        Expanded = False
354
        FieldName = 'dAla'
355
        Visible = True
356
      end
357
      item
358
        Expanded = False
359
        FieldName = 'dAsp'
360
        Visible = True
361
      end
362
      item
363
        Expanded = False
364
        FieldName = 'dGlu'
365
        Visible = True
366
      end
367
      item
368
        Expanded = False
369
        FieldName = 'dGly'
370
        Visible = True
371
      end
372
      item
373
        Expanded = False
374
        FieldName = 'dSer'
375
        Visible = True
376
      end
377
      item
378
        Expanded = False
379
        FieldName = 'dPro'
380
        Visible = True
381
      end
382
      item
383
        Expanded = False
384
        FieldName = 'Ca'
385
        Visible = True
386
      end
387
      item
388
        Expanded = False
389
        FieldName = 'P'
390
        Visible = True
391
      end
392
      item
393
        Expanded = False
394
        FieldName = 'dP'
395
        Visible = True
396
      end
397
      item
398
        Expanded = False
399
        FieldName = 'dPphy'
400
        Visible = True
401
      end>
402
  end
403
  object PanelBoutons: TPanel
404
    Left = 0
405
    Top = 526
406
    Width = 792
407
    Height = 40
408
    Align = alBottom
409
    BevelOuter = bvNone
410
    TabOrder = 1
411
    object SpeedButtonExit: TSpeedButton
412
      Left = 184
413
      Top = 8
414
      Width = 80
415
      Height = 25
416
      Caption = 'Exit'
417
      ParentShowHint = False
418
      ShowHint = True
419
      OnClick = SpeedButtonExitClick
420
    end
421
    object SpeedButtonSave: TSpeedButton
422
      Left = 96
423
      Top = 8
424
      Width = 80
425
      Height = 25
426
      Caption = 'Save'
427
      ParentShowHint = False
428
      ShowHint = True
429
      OnClick = SpeedButtonSaveClick
430
    end
431
    object SpeedButtonLoad: TSpeedButton
432
      Left = 8
433
      Top = 8
434
      Width = 80
435
      Height = 25
436
      Caption = 'Load'
437
      ParentShowHint = False
438
      ShowHint = True
439
      OnClick = SpeedButtonLoadClick
440
    end
441
  end
442
  object ListBoxClasses: TListBox
443
    Left = 8
444
    Top = 48
445
    Width = 200
446
    Height = 238
447
    ItemHeight = 13
448
    Items.Strings = (
449
      'Cereals'
450
      'Wheat by-products'
451
      'Maize by-products'
452
      'Other cereal by-products'
453
      'Rice by-products'
454
      'Legume and oil seeds'
455
      'Oil seed meals'
456
      'Starch, roots and tubers'
457
      'Fruits and vegetables by-products'
458
      'Molasses and vinasses'
459
      'Other plant products'
460
      'Dehydrated forages'
461
      'Dairy products'
462
      'Fish meals and solubles'
463
      'Other animal by-products'
464
      'Fats and oils'
465
      'Amino acids'
466
      'Mineral sources')
467
    TabOrder = 2
468
    Visible = False
469
  end
470
  object DataSourceInraAfz: TDataSource
471
    DataSet = ClientDataSetInraAfz
472
    Left = 400
473
    Top = 456
474
  end
475
  object XPManifestStyle: TXPManifest
476
    Left = 40
477
    Top = 456
478
  end
479
  object ClientDataSetClasses: TClientDataSet
480
    Aggregates = <>
481
    MasterFields = 'Id'
482
    Params = <>
483
    Left = 160
484
    Top = 456
485
    object ClientDataSetClassesId: TIntegerField
486
      FieldName = 'Id'
487
    end
488
    object ClientDataSetClassesName: TWideStringField
489
      FieldName = 'Name'
490
      Size = 40
491
    end
492
  end
493
  object ClientDataSetInraAfz: TClientDataSet
494
    Aggregates = <>
495
    AutoCalcFields = False
496
    FieldDefs = <>
497
    IndexDefs = <
498
      item
499
        Name = 'ClientDataSetInraAfzIndexId'
500
        Fields = 'Id'
501
        Options = [ixPrimary]
502
      end>
503
    Params = <>
504
    StoreDefs = True
505
    Left = 280
506
    Top = 456
507
    object ClientDataSetInraAfzId: TAutoIncField
508
      AutoGenerateValue = arAutoInc
509
      FieldName = 'Id'
510
    end
511
    object ClientDataSetInraAfzName: TStringField
512
      FieldName = 'Name'
513
      Size = 80
514
    end
515
    object ClientDataSetInraAfzComment: TStringField
516
      FieldName = 'Comment'
517
      Size = 320
518
    end
519
    object ClientDataSetInraAfzSource: TStringField
520
      FieldName = 'Source'
521
      Size = 80
522
    end
523
    object ClientDataSetInraAfzClass: TIntegerField
524
      DisplayLabel = 'ClassId'
525
      FieldName = 'Class'
526
      Required = True
527
    end
528
    object ClientDataSetInraAfzClassName: TStringField
529
      FieldKind = fkLookup
530
      FieldName = 'ClassName'
531
      LookupDataSet = ClientDataSetClasses
532
      LookupKeyFields = 'Id'
533
      LookupResultField = 'Name'
534
      KeyFields = 'Class'
535
      Size = 40
536
      Lookup = True
537
    end
538
    object ClientDataSetInraAfzMS: TFloatField
539
      FieldName = 'MS'
540
    end
541
    object ClientDataSetInraAfzMM: TFloatField
542
      FieldName = 'MM'
543
    end
544
    object ClientDataSetInraAfzMAT: TFloatField
545
      FieldName = 'MAT'
546
    end
547
    object ClientDataSetInraAfzMG: TFloatField
548
      FieldName = 'MG'
549
    end
550
    object ClientDataSetInraAfzCB: TFloatField
551
      FieldName = 'CB'
552
    end
553
    object ClientDataSetInraAfzCoefCB: TFloatField
554
      FieldName = 'CoefCB'
555
    end
556
    object ClientDataSetInraAfzNDF: TFloatField
557
      FieldName = 'NDF'
558
    end
559
    object ClientDataSetInraAfzCoefNDF: TFloatField
560
      FieldName = 'CoefNDF'
561
    end
562
    object ClientDataSetInraAfzADF: TFloatField
563
      FieldName = 'ADF'
564
    end
565
    object ClientDataSetInraAfzCoefADF: TFloatField
566
      FieldName = 'CoefADF'
567
    end
568
    object ClientDataSetInraAfzADL: TFloatField
569
      FieldName = 'ADL'
570
    end
571
    object ClientDataSetInraAfzAmidon: TFloatField
572
      FieldName = 'Amidon'
573
    end
574
    object ClientDataSetInraAfzSucres: TFloatField
575
      FieldName = 'Sucres'
576
    end
577
    object ClientDataSetInraAfzEB: TFloatField
578
      FieldName = 'EB'
579
    end
580
    object ClientDataSetInraAfzdEc: TFloatField
581
      FieldName = 'dEc'
582
    end
583
    object ClientDataSetInraAfzEMc_EDc: TFloatField
584
      FieldName = 'EMc/EDc'
585
    end
586
    object ClientDataSetInraAfzENc_EMc: TFloatField
587
      FieldName = 'ENc/EMc'
588
    end
589
    object ClientDataSetInraAfzEMt_EDt: TFloatField
590
      FieldName = 'EMt/EDt'
591
    end
592
    object ClientDataSetInraAfzENt_EMt: TFloatField
593
      FieldName = 'ENt/EMt'
594
    end
595
    object ClientDataSetInraAfzEDt_EDc: TFloatField
596
      FieldName = 'EDt/EDc'
597
    end
598
    object ClientDataSetInraAfza: TFloatField
599
      FieldName = 'a'
600
    end
601
    object ClientDataSetInraAfzb: TFloatField
602
      FieldName = 'b'
603
    end
604
    object ClientDataSetInraAfzdNc: TFloatField
605
      FieldName = 'dNc'
606
    end
607
    object ClientDataSetInraAfzdNt: TFloatField
608
      FieldName = 'dNt'
609
    end
610
    object ClientDataSetInraAfzLys: TFloatField
611
      FieldName = 'Lys'
612
    end
613
    object ClientDataSetInraAfzThr: TFloatField
614
      FieldName = 'Thr'
615
    end
616
    object ClientDataSetInraAfzMet: TFloatField
617
      FieldName = 'Met'
618
    end
619
    object ClientDataSetInraAfzCys: TFloatField
620
      FieldName = 'Cys'
621
    end
622
    object ClientDataSetInraAfzMetCys: TFloatField
623
      FieldName = 'MetCys'
624
    end
625
    object ClientDataSetInraAfzTrp: TFloatField
626
      FieldName = 'Trp'
627
    end
628
    object ClientDataSetInraAfzIle: TFloatField
629
      FieldName = 'Ile'
630
    end
631
    object ClientDataSetInraAfzVal: TFloatField
632
      FieldName = 'Val'
633
    end
634
    object ClientDataSetInraAfzLeu: TFloatField
635
      FieldName = 'Leu'
636
    end
637
    object ClientDataSetInraAfzPhe: TFloatField
638
      FieldName = 'Phe'
639
    end
640
    object ClientDataSetInraAfzTyr: TFloatField
641
      FieldName = 'Tyr'
642
    end
643
    object ClientDataSetInraAfzPheTyr: TFloatField
644
      FieldName = 'PheTyr'
645
    end
646
    object ClientDataSetInraAfzHis: TFloatField
647
      FieldName = 'His'
648
    end
649
    object ClientDataSetInraAfzArg: TFloatField
650
      FieldName = 'Arg'
651
    end
652
    object ClientDataSetInraAfzAla: TFloatField
653
      FieldName = 'Ala'
654
    end
655
    object ClientDataSetInraAfzAsp: TFloatField
656
      FieldName = 'Asp'
657
    end
658
    object ClientDataSetInraAfzGlu: TFloatField
659
      FieldName = 'Glu'
660
    end
661
    object ClientDataSetInraAfzGly: TFloatField
662
      FieldName = 'Gly'
663
    end
664
    object ClientDataSetInraAfzSer: TFloatField
665
      FieldName = 'Ser'
666
    end
667
    object ClientDataSetInraAfzPro: TFloatField
668
      FieldName = 'Pro'
669
    end
670
    object ClientDataSetInraAfzdLys: TFloatField
671
      FieldName = 'dLys'
672
    end
673
    object ClientDataSetInraAfzdThr: TFloatField
674
      FieldName = 'dThr'
675
    end
676
    object ClientDataSetInraAfzdMet: TFloatField
677
      FieldName = 'dMet'
678
    end
679
    object ClientDataSetInraAfzdCys: TFloatField
680
      FieldName = 'dCys'
681
    end
682
    object ClientDataSetInraAfzdMetCys: TFloatField
683
      FieldName = 'dMetCys'
684
    end
685
    object ClientDataSetInraAfzdTrp: TFloatField
686
      FieldName = 'dTrp'
687
    end
688
    object ClientDataSetInraAfzdIle: TFloatField
689
      FieldName = 'dIle'
690
    end
691
    object ClientDataSetInraAfzdVal: TFloatField
692
      FieldName = 'dVal'
693
    end
694
    object ClientDataSetInraAfzdLeu: TFloatField
695
      FieldName = 'dLeu'
696
    end
697
    object ClientDataSetInraAfzdPhe: TFloatField
698
      FieldName = 'dPhe'
699
    end
700
    object ClientDataSetInraAfzdTyr: TFloatField
701
      FieldName = 'dTyr'
702
    end
703
    object ClientDataSetInraAfzdPheTyr: TFloatField
704
      FieldName = 'dPheTyr'
705
    end
706
    object ClientDataSetInraAfzdHis: TFloatField
707
      FieldName = 'dHis'
708
    end
709
    object ClientDataSetInraAfzdArg: TFloatField
710
      FieldName = 'dArg'
711
    end
712
    object ClientDataSetInraAfzdAla: TFloatField
713
      FieldName = 'dAla'
714
    end
715
    object ClientDataSetInraAfzdAsp: TFloatField
716
      FieldName = 'dAsp'
717
    end
718
    object ClientDataSetInraAfzdGlu: TFloatField
719
      FieldName = 'dGlu'
720
    end
721
    object ClientDataSetInraAfzdGly: TFloatField
722
      FieldName = 'dGly'
723
    end
724
    object ClientDataSetInraAfzdSer: TFloatField
725
      FieldName = 'dSer'
726
    end
727
    object ClientDataSetInraAfzdPro: TFloatField
728
      FieldName = 'dPro'
729
    end
730
    object ClientDataSetInraAfzCa: TFloatField
731
      FieldName = 'Ca'
732
    end
733
    object ClientDataSetInraAfzP: TFloatField
734
      FieldName = 'P'
735
    end
736
    object ClientDataSetInraAfzdP: TFloatField
737
      FieldName = 'dP'
738
    end
739
    object ClientDataSetInraAfzdPphy: TFloatField
740
      FieldName = 'dPphy'
741
    end
742
  end
743
  object OpenDialogCSV: TOpenDialog
744
    DefaultExt = 'csv'
745
    Filter = 'CSV (s'#233'parateur: point-virgule) (*.csv)|*.csv'
746
    Left = 640
747
    Top = 456
748
  end
749
  object JvCsvDataSetInput: TJvCsvDataSet
750
    ReadOnly = True
751
    CsvFieldDef = 
752
      'Id:%;Name:$80;Comment:$320;Source:$80;ClassId:%;ClassName:$40;MS' +
753
      ':&;MM:&;MAT:&;MG:&;CB:&;CoefCB:&;NDF:&;CoefNDF:&;ADF:&;CoefADF:&' +
754
      ';ADL:&;Amidon:&;Sucres:&;EB_kCal:&;EB_MJ:&;dEc:&;EMc_EDc:&;ENc_E' +
755
      'Mc:&;EMt_EDt:&;ENt_EMt:&;EDt_EDc:&;a:&;b:&;dNc:&;dNt:&;Lys:&;Thr' +
756
      ':&;Met:&;Cys:&;MetCys:&;Trp:&;Ile:&;Val:&;Leu:&;Phe:&;Tyr:&;PheT' +
757
      'yr:&;His:&;Arg:&;Ala:&;Asp:&;Glu:&;Gly:&;Ser:&;Pro:&;dLys:&;dThr' +
758
      ':&;dMet:&;dCys:&;dMetCys:&;dTrp:&;dIle:&;dVal:&;dLeu:&;dPhe:&;dT' +
759
      'yr:&;dPheTyr:&;dHis:&;dArg:&;dAla:&;dAsp:&;dGlu:&;dGly:&;dSer:&;' +
760
      'dPro:&;Ca:&;P:&;dP:&;dPphy:&'
761
    ValidateHeaderRow = False
762
    Separator = ';'
763
    AutoBackupCount = 0
764
    Left = 520
765
    Top = 456
766
  end
767
end