Statistiques
| Révision:

root / InraAfz / UnitMain.dfm @ 16

Historique | Voir | Annoter | Télécharger (18,572 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 = 'Quitter'
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 = 'Sauvegarder'
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 = 'Importer CSV'
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 = 251
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
      'Not referenced')
483
    TabOrder = 2
484
    Visible = False
485
  end
486
  object DataSourceInraAfz: TDataSource
487
    DataSet = ClientDataSetInraAfz
488
    Left = 400
489
    Top = 456
490
  end
491
  object XPManifestStyle: TXPManifest
492
    Left = 40
493
    Top = 456
494
  end
495
  object ClientDataSetClasses: TClientDataSet
496
    Aggregates = <>
497
    MasterFields = 'Id'
498
    Params = <>
499
    Left = 160
500
    Top = 456
501
    object ClientDataSetClassesId: TIntegerField
502
      FieldName = 'Id'
503
    end
504
    object ClientDataSetClassesName: TWideStringField
505
      FieldName = 'Name'
506
      Size = 40
507
    end
508
  end
509
  object ClientDataSetInraAfz: TClientDataSet
510
    Aggregates = <>
511
    AutoCalcFields = False
512
    FieldDefs = <>
513
    IndexDefs = <
514
      item
515
        Name = 'ClientDataSetInraAfzIndexId'
516
        Fields = 'Id'
517
        Options = [ixPrimary]
518
      end>
519
    Params = <>
520
    StoreDefs = True
521
    Left = 280
522
    Top = 456
523
    object ClientDataSetInraAfzId: TAutoIncField
524
      AutoGenerateValue = arAutoInc
525
      FieldName = 'Id'
526
    end
527
    object ClientDataSetInraAfzName: TStringField
528
      FieldName = 'Name'
529
      Size = 80
530
    end
531
    object ClientDataSetInraAfzComment: TStringField
532
      FieldName = 'Comment'
533
      Size = 320
534
    end
535
    object ClientDataSetInraAfzSource: TStringField
536
      FieldName = 'Source'
537
      Size = 80
538
    end
539
    object ClientDataSetInraAfzClass: TIntegerField
540
      DisplayLabel = 'ClassId'
541
      FieldName = 'Class'
542
      Required = True
543
    end
544
    object ClientDataSetInraAfzClassName: TStringField
545
      FieldKind = fkLookup
546
      FieldName = 'ClassName'
547
      LookupDataSet = ClientDataSetClasses
548
      LookupKeyFields = 'Id'
549
      LookupResultField = 'Name'
550
      KeyFields = 'Class'
551
      Size = 40
552
      Lookup = True
553
    end
554
    object ClientDataSetInraAfzMS: TFloatField
555
      FieldName = 'MS'
556
    end
557
    object ClientDataSetInraAfzMM: TFloatField
558
      FieldName = 'MM'
559
    end
560
    object ClientDataSetInraAfzMAT: TFloatField
561
      FieldName = 'MAT'
562
    end
563
    object ClientDataSetInraAfzMG: TFloatField
564
      FieldName = 'MG'
565
    end
566
    object ClientDataSetInraAfzCB: TFloatField
567
      FieldName = 'CB'
568
    end
569
    object ClientDataSetInraAfzCoefCB: TFloatField
570
      FieldName = 'CoefCB'
571
    end
572
    object ClientDataSetInraAfzNDF: TFloatField
573
      FieldName = 'NDF'
574
    end
575
    object ClientDataSetInraAfzCoefNDF: TFloatField
576
      FieldName = 'CoefNDF'
577
    end
578
    object ClientDataSetInraAfzADF: TFloatField
579
      FieldName = 'ADF'
580
    end
581
    object ClientDataSetInraAfzCoefADF: TFloatField
582
      FieldName = 'CoefADF'
583
    end
584
    object ClientDataSetInraAfzADL: TFloatField
585
      FieldName = 'ADL'
586
    end
587
    object ClientDataSetInraAfzAmidon: TFloatField
588
      FieldName = 'Amidon'
589
    end
590
    object ClientDataSetInraAfzSucres: TFloatField
591
      FieldName = 'Sucres'
592
    end
593
    object ClientDataSetInraAfzEB: TFloatField
594
      FieldName = 'EB'
595
    end
596
    object ClientDataSetInraAfzdEc: TFloatField
597
      FieldName = 'dEc'
598
    end
599
    object ClientDataSetInraAfzEMc_EDc: TFloatField
600
      FieldName = 'EMc/EDc'
601
    end
602
    object ClientDataSetInraAfzENc_EMc: TFloatField
603
      FieldName = 'ENc/EMc'
604
    end
605
    object ClientDataSetInraAfzEMt_EDt: TFloatField
606
      FieldName = 'EMt/EDt'
607
    end
608
    object ClientDataSetInraAfzENt_EMt: TFloatField
609
      FieldName = 'ENt/EMt'
610
    end
611
    object ClientDataSetInraAfzEDt_EDc: TFloatField
612
      FieldName = 'EDt/EDc'
613
    end
614
    object ClientDataSetInraAfza: TFloatField
615
      FieldName = 'a'
616
    end
617
    object ClientDataSetInraAfzb: TFloatField
618
      FieldName = 'b'
619
    end
620
    object ClientDataSetInraAfzdNc: TFloatField
621
      FieldName = 'dNc'
622
    end
623
    object ClientDataSetInraAfzdNt: TFloatField
624
      FieldName = 'dNt'
625
    end
626
    object ClientDataSetInraAfzLys: TFloatField
627
      FieldName = 'Lys'
628
    end
629
    object ClientDataSetInraAfzThr: TFloatField
630
      FieldName = 'Thr'
631
    end
632
    object ClientDataSetInraAfzMet: TFloatField
633
      FieldName = 'Met'
634
    end
635
    object ClientDataSetInraAfzCys: TFloatField
636
      FieldName = 'Cys'
637
    end
638
    object ClientDataSetInraAfzMetCys: TFloatField
639
      FieldName = 'MetCys'
640
    end
641
    object ClientDataSetInraAfzTrp: TFloatField
642
      FieldName = 'Trp'
643
    end
644
    object ClientDataSetInraAfzIle: TFloatField
645
      FieldName = 'Ile'
646
    end
647
    object ClientDataSetInraAfzVal: TFloatField
648
      FieldName = 'Val'
649
    end
650
    object ClientDataSetInraAfzLeu: TFloatField
651
      FieldName = 'Leu'
652
    end
653
    object ClientDataSetInraAfzPhe: TFloatField
654
      FieldName = 'Phe'
655
    end
656
    object ClientDataSetInraAfzTyr: TFloatField
657
      FieldName = 'Tyr'
658
    end
659
    object ClientDataSetInraAfzPheTyr: TFloatField
660
      FieldName = 'PheTyr'
661
    end
662
    object ClientDataSetInraAfzHis: TFloatField
663
      FieldName = 'His'
664
    end
665
    object ClientDataSetInraAfzArg: TFloatField
666
      FieldName = 'Arg'
667
    end
668
    object ClientDataSetInraAfzAla: TFloatField
669
      FieldName = 'Ala'
670
    end
671
    object ClientDataSetInraAfzAsp: TFloatField
672
      FieldName = 'Asp'
673
    end
674
    object ClientDataSetInraAfzGlu: TFloatField
675
      FieldName = 'Glu'
676
    end
677
    object ClientDataSetInraAfzGly: TFloatField
678
      FieldName = 'Gly'
679
    end
680
    object ClientDataSetInraAfzSer: TFloatField
681
      FieldName = 'Ser'
682
    end
683
    object ClientDataSetInraAfzPro: TFloatField
684
      FieldName = 'Pro'
685
    end
686
    object ClientDataSetInraAfzdLys: TFloatField
687
      FieldName = 'dLys'
688
    end
689
    object ClientDataSetInraAfzdThr: TFloatField
690
      FieldName = 'dThr'
691
    end
692
    object ClientDataSetInraAfzdMet: TFloatField
693
      FieldName = 'dMet'
694
    end
695
    object ClientDataSetInraAfzdCys: TFloatField
696
      FieldName = 'dCys'
697
    end
698
    object ClientDataSetInraAfzdMetCys: TFloatField
699
      FieldName = 'dMetCys'
700
    end
701
    object ClientDataSetInraAfzdTrp: TFloatField
702
      FieldName = 'dTrp'
703
    end
704
    object ClientDataSetInraAfzdIle: TFloatField
705
      FieldName = 'dIle'
706
    end
707
    object ClientDataSetInraAfzdVal: TFloatField
708
      FieldName = 'dVal'
709
    end
710
    object ClientDataSetInraAfzdLeu: TFloatField
711
      FieldName = 'dLeu'
712
    end
713
    object ClientDataSetInraAfzdPhe: TFloatField
714
      FieldName = 'dPhe'
715
    end
716
    object ClientDataSetInraAfzdTyr: TFloatField
717
      FieldName = 'dTyr'
718
    end
719
    object ClientDataSetInraAfzdPheTyr: TFloatField
720
      FieldName = 'dPheTyr'
721
    end
722
    object ClientDataSetInraAfzdHis: TFloatField
723
      FieldName = 'dHis'
724
    end
725
    object ClientDataSetInraAfzdArg: TFloatField
726
      FieldName = 'dArg'
727
    end
728
    object ClientDataSetInraAfzdAla: TFloatField
729
      FieldName = 'dAla'
730
    end
731
    object ClientDataSetInraAfzdAsp: TFloatField
732
      FieldName = 'dAsp'
733
    end
734
    object ClientDataSetInraAfzdGlu: TFloatField
735
      FieldName = 'dGlu'
736
    end
737
    object ClientDataSetInraAfzdGly: TFloatField
738
      FieldName = 'dGly'
739
    end
740
    object ClientDataSetInraAfzdSer: TFloatField
741
      FieldName = 'dSer'
742
    end
743
    object ClientDataSetInraAfzdPro: TFloatField
744
      FieldName = 'dPro'
745
    end
746
    object ClientDataSetInraAfzCa: TFloatField
747
      FieldName = 'Ca'
748
    end
749
    object ClientDataSetInraAfzP: TFloatField
750
      FieldName = 'P'
751
    end
752
    object ClientDataSetInraAfzdP: TFloatField
753
      FieldName = 'dP'
754
    end
755
    object ClientDataSetInraAfzdPphy: TFloatField
756
      FieldName = 'dPphy'
757
    end
758
    object ClientDataSetInraAfzNa: TFloatField
759
      FieldName = 'Na'
760
    end
761
    object ClientDataSetInraAfzK: TFloatField
762
      FieldName = 'K'
763
    end
764
    object ClientDataSetInraAfzCl: TFloatField
765
      FieldName = 'Cl'
766
    end
767
  end
768
  object OpenDialogCSV: TOpenDialog
769
    DefaultExt = 'csv'
770
    Filter = 'CSV (s'#233'parateur: point-virgule) (*.csv)|*.csv'
771
    Left = 640
772
    Top = 456
773
  end
774
  object JvCsvDataSetInput: TJvCsvDataSet
775
    ReadOnly = True
776
    CsvFieldDef = 
777
      'NomENG:$80;NomFRA:$80;Origine:$80;Classe:$40;IdClasse:%;MS:&;MM:' +
778
      '&;MAT:&;MG:&;CB:&;CoefCB:&;NDF:&;CoefNDF:&;ADF:&;CoefADF:&;ADL:&' +
779
      ';Amidon:&;Sucres:&;EB:&;             dEc:&;EMc_EDc:&;ENc_EMc:&;E' +
780
      'Mt_EDt:&;ENt_EMt:&;EDt_EDc:&;a:&;b:&;dNc:&;dNt:&;Lys:&;Thr:&;Met' +
781
      ':&;Cys:&;MetCys:&;Trp:&;Ile:&;Val:&;Leu:&;Phe:&;Tyr:&;PheTyr:&;H' +
782
      'is:&;Arg:&;Ala:&;Asp:&;Glu:&;Gly:&;Ser:&;Pro:&;dLys:&;dThr:&;dMe' +
783
      't:&;dCys:&;dMetCys:&;dTrp:&;dIle:&;dVal:&;dLeu:&;dPhe:&;dTyr:&;d' +
784
      'PheTyr:&;dHis:&;dArg:&;dAla:&;dAsp:&;dGlu:&;dGly:&;dSer:&;dPro:&' +
785
      ';Ca:&;P:&;dP:&;dPPhy:&;Na:&;K:&;Cl:&;BE:&'
786
    ValidateHeaderRow = False
787
    Separator = ';'
788
    AutoBackupCount = 0
789
    UseSystemDecimalSeparator = True
790
    Left = 520
791
    Top = 456
792
  end
793
end