Statistiques
| Révision:

root / InraAfz / UnitMain.dfm @ 3

Historique | Voir | Annoter | Télécharger (18,531 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 = 'Na'
395
        Visible = True
396
      end
397
      item
398
        Expanded = False
399
        FieldName = 'K'
400
        Visible = True
401
      end
402
      item
403
        Expanded = False
404
        FieldName = 'Cl'
405
        Visible = True
406
      end
407
      item
408
        Expanded = False
409
        FieldName = 'dP'
410
        Visible = True
411
      end
412
      item
413
        Expanded = False
414
        FieldName = 'dPphy'
415
        Visible = True
416
      end>
417
  end
418
  object PanelBoutons: TPanel
419
    Left = 0
420
    Top = 526
421
    Width = 792
422
    Height = 40
423
    Align = alBottom
424
    BevelOuter = bvNone
425
    TabOrder = 1
426
    object SpeedButtonExit: TSpeedButton
427
      Left = 184
428
      Top = 8
429
      Width = 80
430
      Height = 25
431
      Caption = 'Exit'
432
      ParentShowHint = False
433
      ShowHint = True
434
      OnClick = SpeedButtonExitClick
435
    end
436
    object SpeedButtonSave: TSpeedButton
437
      Left = 96
438
      Top = 8
439
      Width = 80
440
      Height = 25
441
      Caption = 'Save'
442
      ParentShowHint = False
443
      ShowHint = True
444
      OnClick = SpeedButtonSaveClick
445
    end
446
    object SpeedButtonLoad: TSpeedButton
447
      Left = 8
448
      Top = 8
449
      Width = 80
450
      Height = 25
451
      Caption = 'Load'
452
      ParentShowHint = False
453
      ShowHint = True
454
      OnClick = SpeedButtonLoadClick
455
    end
456
  end
457
  object ListBoxClasses: TListBox
458
    Left = 8
459
    Top = 48
460
    Width = 200
461
    Height = 238
462
    ItemHeight = 13
463
    Items.Strings = (
464
      'Cereals'
465
      'Wheat by-products'
466
      'Maize by-products'
467
      'Other cereal by-products'
468
      'Rice by-products'
469
      'Legume and oil seeds'
470
      'Oil seed meals'
471
      'Starch, roots and tubers'
472
      'Fruits and vegetables by-products'
473
      'Molasses and vinasses'
474
      'Other plant products'
475
      'Dehydrated forages'
476
      'Dairy products'
477
      'Fish meals and solubles'
478
      'Other animal by-products'
479
      'Fats and oils'
480
      'Amino acids'
481
      'Mineral sources')
482
    TabOrder = 2
483
    Visible = False
484
  end
485
  object DataSourceInraAfz: TDataSource
486
    DataSet = ClientDataSetInraAfz
487
    Left = 400
488
    Top = 456
489
  end
490
  object XPManifestStyle: TXPManifest
491
    Left = 40
492
    Top = 456
493
  end
494
  object ClientDataSetClasses: TClientDataSet
495
    Aggregates = <>
496
    MasterFields = 'Id'
497
    Params = <>
498
    Left = 160
499
    Top = 456
500
    object ClientDataSetClassesId: TIntegerField
501
      FieldName = 'Id'
502
    end
503
    object ClientDataSetClassesName: TWideStringField
504
      FieldName = 'Name'
505
      Size = 40
506
    end
507
  end
508
  object ClientDataSetInraAfz: TClientDataSet
509
    Aggregates = <>
510
    AutoCalcFields = False
511
    FieldDefs = <>
512
    IndexDefs = <
513
      item
514
        Name = 'ClientDataSetInraAfzIndexId'
515
        Fields = 'Id'
516
        Options = [ixPrimary]
517
      end>
518
    Params = <>
519
    StoreDefs = True
520
    Left = 280
521
    Top = 456
522
    object ClientDataSetInraAfzId: TAutoIncField
523
      AutoGenerateValue = arAutoInc
524
      FieldName = 'Id'
525
    end
526
    object ClientDataSetInraAfzName: TStringField
527
      FieldName = 'Name'
528
      Size = 80
529
    end
530
    object ClientDataSetInraAfzComment: TStringField
531
      FieldName = 'Comment'
532
      Size = 320
533
    end
534
    object ClientDataSetInraAfzSource: TStringField
535
      FieldName = 'Source'
536
      Size = 80
537
    end
538
    object ClientDataSetInraAfzClass: TIntegerField
539
      DisplayLabel = 'ClassId'
540
      FieldName = 'Class'
541
      Required = True
542
    end
543
    object ClientDataSetInraAfzClassName: TStringField
544
      FieldKind = fkLookup
545
      FieldName = 'ClassName'
546
      LookupDataSet = ClientDataSetClasses
547
      LookupKeyFields = 'Id'
548
      LookupResultField = 'Name'
549
      KeyFields = 'Class'
550
      Size = 40
551
      Lookup = True
552
    end
553
    object ClientDataSetInraAfzMS: TFloatField
554
      FieldName = 'MS'
555
    end
556
    object ClientDataSetInraAfzMM: TFloatField
557
      FieldName = 'MM'
558
    end
559
    object ClientDataSetInraAfzMAT: TFloatField
560
      FieldName = 'MAT'
561
    end
562
    object ClientDataSetInraAfzMG: TFloatField
563
      FieldName = 'MG'
564
    end
565
    object ClientDataSetInraAfzCB: TFloatField
566
      FieldName = 'CB'
567
    end
568
    object ClientDataSetInraAfzCoefCB: TFloatField
569
      FieldName = 'CoefCB'
570
    end
571
    object ClientDataSetInraAfzNDF: TFloatField
572
      FieldName = 'NDF'
573
    end
574
    object ClientDataSetInraAfzCoefNDF: TFloatField
575
      FieldName = 'CoefNDF'
576
    end
577
    object ClientDataSetInraAfzADF: TFloatField
578
      FieldName = 'ADF'
579
    end
580
    object ClientDataSetInraAfzCoefADF: TFloatField
581
      FieldName = 'CoefADF'
582
    end
583
    object ClientDataSetInraAfzADL: TFloatField
584
      FieldName = 'ADL'
585
    end
586
    object ClientDataSetInraAfzAmidon: TFloatField
587
      FieldName = 'Amidon'
588
    end
589
    object ClientDataSetInraAfzSucres: TFloatField
590
      FieldName = 'Sucres'
591
    end
592
    object ClientDataSetInraAfzEB: TFloatField
593
      FieldName = 'EB'
594
    end
595
    object ClientDataSetInraAfzdEc: TFloatField
596
      FieldName = 'dEc'
597
    end
598
    object ClientDataSetInraAfzEMc_EDc: TFloatField
599
      FieldName = 'EMc/EDc'
600
    end
601
    object ClientDataSetInraAfzENc_EMc: TFloatField
602
      FieldName = 'ENc/EMc'
603
    end
604
    object ClientDataSetInraAfzEMt_EDt: TFloatField
605
      FieldName = 'EMt/EDt'
606
    end
607
    object ClientDataSetInraAfzENt_EMt: TFloatField
608
      FieldName = 'ENt/EMt'
609
    end
610
    object ClientDataSetInraAfzEDt_EDc: TFloatField
611
      FieldName = 'EDt/EDc'
612
    end
613
    object ClientDataSetInraAfza: TFloatField
614
      FieldName = 'a'
615
    end
616
    object ClientDataSetInraAfzb: TFloatField
617
      FieldName = 'b'
618
    end
619
    object ClientDataSetInraAfzdNc: TFloatField
620
      FieldName = 'dNc'
621
    end
622
    object ClientDataSetInraAfzdNt: TFloatField
623
      FieldName = 'dNt'
624
    end
625
    object ClientDataSetInraAfzLys: TFloatField
626
      FieldName = 'Lys'
627
    end
628
    object ClientDataSetInraAfzThr: TFloatField
629
      FieldName = 'Thr'
630
    end
631
    object ClientDataSetInraAfzMet: TFloatField
632
      FieldName = 'Met'
633
    end
634
    object ClientDataSetInraAfzCys: TFloatField
635
      FieldName = 'Cys'
636
    end
637
    object ClientDataSetInraAfzMetCys: TFloatField
638
      FieldName = 'MetCys'
639
    end
640
    object ClientDataSetInraAfzTrp: TFloatField
641
      FieldName = 'Trp'
642
    end
643
    object ClientDataSetInraAfzIle: TFloatField
644
      FieldName = 'Ile'
645
    end
646
    object ClientDataSetInraAfzVal: TFloatField
647
      FieldName = 'Val'
648
    end
649
    object ClientDataSetInraAfzLeu: TFloatField
650
      FieldName = 'Leu'
651
    end
652
    object ClientDataSetInraAfzPhe: TFloatField
653
      FieldName = 'Phe'
654
    end
655
    object ClientDataSetInraAfzTyr: TFloatField
656
      FieldName = 'Tyr'
657
    end
658
    object ClientDataSetInraAfzPheTyr: TFloatField
659
      FieldName = 'PheTyr'
660
    end
661
    object ClientDataSetInraAfzHis: TFloatField
662
      FieldName = 'His'
663
    end
664
    object ClientDataSetInraAfzArg: TFloatField
665
      FieldName = 'Arg'
666
    end
667
    object ClientDataSetInraAfzAla: TFloatField
668
      FieldName = 'Ala'
669
    end
670
    object ClientDataSetInraAfzAsp: TFloatField
671
      FieldName = 'Asp'
672
    end
673
    object ClientDataSetInraAfzGlu: TFloatField
674
      FieldName = 'Glu'
675
    end
676
    object ClientDataSetInraAfzGly: TFloatField
677
      FieldName = 'Gly'
678
    end
679
    object ClientDataSetInraAfzSer: TFloatField
680
      FieldName = 'Ser'
681
    end
682
    object ClientDataSetInraAfzPro: TFloatField
683
      FieldName = 'Pro'
684
    end
685
    object ClientDataSetInraAfzdLys: TFloatField
686
      FieldName = 'dLys'
687
    end
688
    object ClientDataSetInraAfzdThr: TFloatField
689
      FieldName = 'dThr'
690
    end
691
    object ClientDataSetInraAfzdMet: TFloatField
692
      FieldName = 'dMet'
693
    end
694
    object ClientDataSetInraAfzdCys: TFloatField
695
      FieldName = 'dCys'
696
    end
697
    object ClientDataSetInraAfzdMetCys: TFloatField
698
      FieldName = 'dMetCys'
699
    end
700
    object ClientDataSetInraAfzdTrp: TFloatField
701
      FieldName = 'dTrp'
702
    end
703
    object ClientDataSetInraAfzdIle: TFloatField
704
      FieldName = 'dIle'
705
    end
706
    object ClientDataSetInraAfzdVal: TFloatField
707
      FieldName = 'dVal'
708
    end
709
    object ClientDataSetInraAfzdLeu: TFloatField
710
      FieldName = 'dLeu'
711
    end
712
    object ClientDataSetInraAfzdPhe: TFloatField
713
      FieldName = 'dPhe'
714
    end
715
    object ClientDataSetInraAfzdTyr: TFloatField
716
      FieldName = 'dTyr'
717
    end
718
    object ClientDataSetInraAfzdPheTyr: TFloatField
719
      FieldName = 'dPheTyr'
720
    end
721
    object ClientDataSetInraAfzdHis: TFloatField
722
      FieldName = 'dHis'
723
    end
724
    object ClientDataSetInraAfzdArg: TFloatField
725
      FieldName = 'dArg'
726
    end
727
    object ClientDataSetInraAfzdAla: TFloatField
728
      FieldName = 'dAla'
729
    end
730
    object ClientDataSetInraAfzdAsp: TFloatField
731
      FieldName = 'dAsp'
732
    end
733
    object ClientDataSetInraAfzdGlu: TFloatField
734
      FieldName = 'dGlu'
735
    end
736
    object ClientDataSetInraAfzdGly: TFloatField
737
      FieldName = 'dGly'
738
    end
739
    object ClientDataSetInraAfzdSer: TFloatField
740
      FieldName = 'dSer'
741
    end
742
    object ClientDataSetInraAfzdPro: TFloatField
743
      FieldName = 'dPro'
744
    end
745
    object ClientDataSetInraAfzCa: TFloatField
746
      FieldName = 'Ca'
747
    end
748
    object ClientDataSetInraAfzP: TFloatField
749
      FieldName = 'P'
750
    end
751
    object ClientDataSetInraAfzdP: TFloatField
752
      FieldName = 'dP'
753
    end
754
    object ClientDataSetInraAfzdPphy: TFloatField
755
      FieldName = 'dPphy'
756
    end
757
    object ClientDataSetInraAfzNa: TFloatField
758
      FieldName = 'Na'
759
    end
760
    object ClientDataSetInraAfzK: TFloatField
761
      FieldName = 'K'
762
    end
763
    object ClientDataSetInraAfzCl: TFloatField
764
      FieldName = 'Cl'
765
    end
766
  end
767
  object OpenDialogCSV: TOpenDialog
768
    DefaultExt = 'csv'
769
    Filter = 'CSV (s'#233'parateur: point-virgule) (*.csv)|*.csv'
770
    Left = 640
771
    Top = 456
772
  end
773
  object JvCsvDataSetInput: TJvCsvDataSet
774
    ReadOnly = True
775
    CsvFieldDef = 
776
      'NomENG:$80;NomFRA:$80;Origine:$80;Classe:$40;IdClasse:%;MS:&;MM:' +
777
      '&;MAT:&;MG:&;CB:&;CoefCB:&;NDF:&;CoefNDF:&;ADF:&;CoefADF:&;ADL:&' +
778
      ';Amidon:&;Sucres:&;EB:&;             dEc:&;EMc_EDc:&;ENc_EMc:&;E' +
779
      'Mt_EDt:&;ENt_EMt:&;EDt_EDc:&;a:&;b:&;dNc:&;dNt:&;Lys:&;Thr:&;Met' +
780
      ':&;Cys:&;MetCys:&;Trp:&;Ile:&;Val:&;Leu:&;Phe:&;Tyr:&;PheTyr:&;H' +
781
      'is:&;Arg:&;Ala:&;Asp:&;Glu:&;Gly:&;Ser:&;Pro:&;dLys:&;dThr:&;dMe' +
782
      't:&;dCys:&;dMetCys:&;dTrp:&;dIle:&;dVal:&;dLeu:&;dPhe:&;dTyr:&;d' +
783
      'PheTyr:&;dHis:&;dArg:&;dAla:&;dAsp:&;dGlu:&;dGly:&;dSer:&;dPro:&' +
784
      ';Ca:&;P:&;dP:&;dPPhy:&;Na:&;K:&;Cl:&;BE:&'
785
    ValidateHeaderRow = False
786
    Separator = ';'
787
    AutoBackupCount = 0
788
    UseSystemDecimalSeparator = True
789
    Left = 520
790
    Top = 456
791
  end
792
end