home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / delphi2 / datetime.exe / 16BIT / FTEST.DFM / FTEST.txt
Text File  |  1996-10-14  |  4KB  |  154 lines
  1. object Form1: TForm1
  2.   Left = 211
  3.   Top = 105
  4.   Width = 435
  5.   Height = 300
  6.   Caption = 'Form1'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   TextHeight = 16
  13.   object LookupOutline1: TLookupOutline
  14.     Left = 144
  15.     Top = 84
  16.     Width = 121
  17.     Height = 26
  18.     TabOrder = 0
  19.     LookupSource = DSPlantSlot
  20.     StdParentChildJoins.LeftList.Strings = (
  21.       'PLANT_ID'
  22.       'PARENT_PLANT_ID'
  23.       'DESCRIPTION'
  24.       'ALLOC_CENTRE_ID'
  25.       'PARENT_ALLOC_CENTRE_ID'
  26.       'PLANT_TYPE')
  27.     StdParentChildJoins.RightList.Strings = (
  28.       'PLANT_ID'
  29.       'PARENT_PLANT_ID'
  30.       'DESCRIPTION'
  31.       'ALLOC_CENTRE_ID'
  32.       'PARENT_ALLOC_CENTRE_ID'
  33.       'PLANT_TYPE')
  34.     StdParentChildJoins.LeftSelectedJoins.Strings = (
  35.       'PLANT_ID')
  36.     StdParentChildJoins.RightSelectedJoins.Strings = (
  37.       'PARENT_PLANT_ID')
  38.     StdParentChildJoins.CanSelect = True
  39.     StdParentChildJoins.DuplicateNames = False
  40.     StdParentChildJoins.LeftText = 'Child Fields'
  41.     StdParentChildJoins.RightText = 'Parent Fields'
  42.     NumGlyphs = 1
  43.     RootCondition = 'parent_plant_id is null'
  44.     LookupField = 'DESCRIPTION'
  45.     DisplayField = 'DESCRIPTION'
  46.     CanUpdate = False
  47.     RtClickDetails = False
  48.     SearchEnabled = False
  49.     DataSource = DSEvent
  50.     ForeignJoins.LeftList.Strings = (
  51.       'PLANT_ID')
  52.     ForeignJoins.RightList.Strings = (
  53.       'EVENT_ID'
  54.       'ALLOC_CENTRE_ID'
  55.       'EVENT_TIME'
  56.       'STATE'
  57.       'PLANT_ID'
  58.       'PLANT_ALLOC_CENTRE_ID')
  59.     ForeignJoins.LeftSelectedJoins.Strings = (
  60.       'PLANT_ID')
  61.     ForeignJoins.RightSelectedJoins.Strings = (
  62.       'PLANT_ID')
  63.     ForeignJoins.CanSelect = True
  64.     ForeignJoins.DuplicateNames = True
  65.     ForeignJoins.LeftText = 'Lookup Key:'
  66.     ForeignJoins.RightText = 'Foreign Fields'
  67.   end
  68.   object DBNavigator1: TDBNavigator
  69.     Left = 168
  70.     Top = 16
  71.     Width = 241
  72.     Height = 25
  73.     DataSource = DSEvent
  74.     TabOrder = 1
  75.   end
  76.   object Database1: TDatabase
  77.     AliasName = 'Events'
  78.     Connected = True
  79.     DatabaseName = 'Events'
  80.     LoginPrompt = False
  81.     Params.Strings = (
  82.       'user=sysdba'
  83.       'password=masterkey')
  84.     Left = 12
  85.     Top = 12
  86.   end
  87.   object TablePlantEvent: TTable
  88.     DatabaseName = 'Events'
  89.     TableName = 'PLANT_EVENT'
  90.     Left = 40
  91.     Top = 12
  92.     object TablePlantEventEVENT_ID: TSmallintField
  93.       FieldName = 'EVENT_ID'
  94.       Required = True
  95.     end
  96.     object TablePlantEventALLOC_CENTRE_ID: TSmallintField
  97.       FieldName = 'ALLOC_CENTRE_ID'
  98.       Required = True
  99.     end
  100.     object TablePlantEventEVENT_TIME: TDateTimeField
  101.       FieldName = 'EVENT_TIME'
  102.     end
  103.     object TablePlantEventSTATE: TSmallintField
  104.       FieldName = 'STATE'
  105.     end
  106.     object TablePlantEventPLANT_ID: TStringField
  107.       FieldName = 'PLANT_ID'
  108.       Required = True
  109.     end
  110.     object TablePlantEventPLANT_ALLOC_CENTRE_ID: TFloatField
  111.       FieldName = 'PLANT_ALLOC_CENTRE_ID'
  112.       Required = True
  113.     end
  114.   end
  115.   object TablePlantSlot: TTable
  116.     DatabaseName = 'Events'
  117.     TableName = 'PLANT_SLOT'
  118.     Left = 40
  119.     Top = 40
  120.     object TablePlantSlotPLANT_ID: TStringField
  121.       FieldName = 'PLANT_ID'
  122.       Required = True
  123.     end
  124.     object TablePlantSlotPARENT_PLANT_ID: TStringField
  125.       FieldName = 'PARENT_PLANT_ID'
  126.     end
  127.     object TablePlantSlotDESCRIPTION: TStringField
  128.       FieldName = 'DESCRIPTION'
  129.       Size = 254
  130.     end
  131.     object TablePlantSlotALLOC_CENTRE_ID: TFloatField
  132.       FieldName = 'ALLOC_CENTRE_ID'
  133.       Required = True
  134.     end
  135.     object TablePlantSlotPARENT_ALLOC_CENTRE_ID: TFloatField
  136.       FieldName = 'PARENT_ALLOC_CENTRE_ID'
  137.     end
  138.     object TablePlantSlotPLANT_TYPE: TStringField
  139.       FieldName = 'PLANT_TYPE'
  140.       Size = 6
  141.     end
  142.   end
  143.   object DSEvent: TDataSource
  144.     DataSet = TablePlantEvent
  145.     Left = 68
  146.     Top = 12
  147.   end
  148.   object DSPlantSlot: TDataSource
  149.     DataSet = TablePlantSlot
  150.     Left = 68
  151.     Top = 40
  152.   end
  153. end
  154.