unt_data.dfm

煤矿行业采掘接替计划自动生成系统

    object ADOT_MDPlanField: TStringField
      FieldKind = fkLookup
      FieldName = #37319#21306
      LookupDataSet = ADOT_Area
      LookupKeyFields = 'Area_Id'
      LookupResultField = 'Area_Name'
      KeyFields = 'Area_Id'
      Size = 12
      Lookup = True
    end
    object ADOT_MDPlanField2: TStringField
      FieldKind = fkLookup
      FieldName = #21517#31216
      LookupDataSet = ADOT_Task
      LookupKeyFields = 'Task_Id'
      LookupResultField = 'Task_Name'
      KeyFields = 'Task_Id'
      Size = 24
      Lookup = True
    end
    object ADOT_MDPlanField3: TStringField
      FieldKind = fkLookup
      FieldName = #36164#28304
      LookupDataSet = ADOT_SGD
      LookupKeyFields = 'SGD_Id'
      LookupResultField = 'SGD_name'
      KeyFields = 'SGD_Id'
      Size = 15
      Lookup = True
    end
    object ADOT_MDPlanEqu_Id: TSmallintField
      FieldName = 'Equ_Id'
    end
    object ADOT_MDPlanQ: TFloatField
      FieldName = 'Q'
    end
  end
  object ADOT_Apprise: TADOTable
    Tag = 1
    Connection = ADOC_Mining
    CursorType = ctStatic
    TableName = #37319#25496#35780#20215#26435
    Left = 104
    Top = 140
    object ADOT_AppriseApprise_Id: TIntegerField
      FieldName = 'Apprise_Id'
    end
    object ADOT_AppriseApprise_Name: TWideStringField
      FieldName = 'Apprise_Name'
    end
    object ADOT_Appriseweight: TFloatField
      FieldName = 'weight'
      DisplayFormat = '#.000'
    end
  end
  object ADOT_ProApprise: TADOTable
    Tag = 1
    Connection = ADOC_Mining
    CursorType = ctStatic
    IndexFieldNames = 'Pro_Id'
    MasterFields = 'Pro_Id'
    MasterSource = Ds_MDPro
    TableName = #37319#25496#26041#26696#35780#20215
    Left = 667
    Top = 205
    object ADOT_ProAppriseId: TAutoIncField
      FieldName = 'Id'
      ReadOnly = True
    end
    object ADOT_ProAppriseApprise_Id: TIntegerField
      FieldName = 'Apprise_Id'
    end
    object ADOT_ProAppriseresult: TFloatField
      FieldName = 'result'
      DisplayFormat = '#.0000'
    end
    object ADOT_ProApprisePro_Id: TSmallintField
      FieldName = 'Pro_Id'
    end
    object ADOT_ProAppriseField: TStringField
      FieldKind = fkLookup
      FieldName = #35780#20215#25351#26631
      LookupDataSet = ADOT_Apprise
      LookupKeyFields = 'Apprise_Id'
      LookupResultField = 'Apprise_Name'
      KeyFields = 'Apprise_Id'
      Lookup = True
    end
  end
  object ADOQ_All: TADOQuery
    Connection = ADOC_Mining
    Parameters = <>
    Left = 418
    Top = 391
  end
  object ADOQ_Aid: TADOQuery
    Connection = ADOC_Mining
    Parameters = <>
    Left = 336
    Top = 391
  end
  object ADOT_DirPara: TADOTable
    Tag = 1
    Connection = ADOC_Mining
    CursorType = ctStatic
    TableName = #26041#26696#21644#25351#26631#21442#25968
    Left = 723
    Top = 391
    object ADOT_DirParaShaft_Id: TSmallintField
      FieldName = 'Shaft_Id'
    end
    object ADOT_DirParaPro_Id: TSmallintField
      FieldName = 'Pro_Id'
    end
    object ADOT_DirParaAd_ADPara: TFloatField
      FieldName = 'Ad_ADPara'
      DisplayFormat = '#.00'
    end
    object ADOT_DirParaIsWDayMod: TBooleanField
      FieldName = 'IsWDayMod'
    end
    object ADOT_DirParaIsDirPMod: TBooleanField
      FieldName = 'IsDirPMod'
    end
  end
  object ADOT_Users: TADOTable
    Tag = 1
    Connection = ADOC_Mining
    TableName = #29992#25143
    Left = 706
    Top = 496
    object ADOT_Usersid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOT_UsersUserT_Id: TIntegerField
      FieldName = 'UserT_Id'
    end
    object ADOT_UsersShaft_Id: TIntegerField
      FieldName = 'Shaft_Id'
    end
    object ADOT_UsersUser_Name: TWideStringField
      FieldName = 'User_Name'
      Size = 50
    end
    object ADOT_UsersPassW: TWideStringField
      FieldName = 'PassW'
      Size = 50
    end
    object ADOT_UsersDiscripe: TMemoField
      FieldName = 'Discripe'
      BlobType = ftMemo
    end
  end
  object ADOT_TaskArea: TADOTable
    Tag = 1
    Connection = ADOC_Mining
    CursorType = ctStatic
    IndexFieldNames = 'Task_Id'
    MasterFields = 'Task_Id'
    MasterSource = Ds_Task
    TableName = #24037#24207#37319#21306
    Left = 416
    Top = 55
    object ADOT_TaskAreaTA_Id: TSmallintField
      FieldName = 'TA_Id'
    end
    object ADOT_TaskAreaArea_Id: TSmallintField
      FieldName = 'Area_Id'
    end
    object ADOT_TaskAreaLevel_Id: TIntegerField
      FieldName = 'Level_Id'
    end
    object ADOT_TaskAreaTask_Id: TSmallintField
      FieldName = 'Task_Id'
    end
    object ADOT_TaskAreaStringField: TStringField
      FieldKind = fkLookup
      FieldName = #27700#24179
      LookupDataSet = ADOT_Level
      LookupKeyFields = 'Level_Id'
      LookupResultField = 'Level_name'
      KeyFields = 'Level_Id'
      Size = 30
      Lookup = True
    end
    object ADOT_TaskAreaField: TStringField
      FieldKind = fkLookup
      FieldName = #37319#21306
      LookupDataSet = ADOT_Area
      LookupKeyFields = 'Area_Id'
      LookupResultField = 'Area_Name'
      KeyFields = 'Area_Id'
      Lookup = True
    end
    object ADOT_TaskAreaField2: TStringField
      FieldKind = fkLookup
      FieldName = #24037#24207
      LookupDataSet = ADOT_Task1
      LookupKeyFields = 'Task_Id'
      LookupResultField = 'Task_Name'
      KeyFields = 'Task_Id'
      Size = 30
      Lookup = True
    end
    object ADOT_TaskAreaWorkDay: TSmallintField
      FieldName = 'WorkDay'
    end
    object ADOT_TaskAreaDis: TFloatField
      FieldName = 'Dis'
      DisplayFormat = '#.00'
    end
    object ADOT_TaskAreaWillSim: TBooleanField
      FieldName = 'WillSim'
    end
    object ADOT_TaskAreaIsSim: TBooleanField
      FieldName = 'IsSim'
    end
    object ADOT_TaskAreaMaterial: TBCDField
      FieldName = 'Material'
      DisplayFormat = '#.0000'
      Precision = 19
    end
    object ADOT_TaskAreaEquipment: TBCDField
      FieldName = 'Equipment'
      DisplayFormat = '#.0000'
      Precision = 19
    end
    object ADOT_TaskAreaElectricity: TBCDField
      FieldName = 'Electricity'
      DisplayFormat = '#.0000'
      Precision = 19
    end
    object ADOT_TaskAreaQ: TFloatField
      FieldName = 'Q'
      DisplayFormat = '#.00'
    end
    object ADOT_TaskAreaid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOT_TaskAreaTBPara: TBCDField
      FieldName = 'TBPara'
      Precision = 18
      Size = 2
    end
    object ADOT_TaskAreaStPara: TBCDField
      FieldName = 'StPara'
      Precision = 18
      Size = 2
    end
    object ADOT_TaskAreaWtPara: TBCDField
      FieldName = 'WtPara'
      Precision = 18
      Size = 2
    end
    object ADOT_TaskAreaCHPara: TBCDField
      FieldName = 'CHPara'
      Precision = 18
      Size = 2
    end
    object ADOT_TaskAreaAccPara: TBCDField
      FieldName = 'AccPara'
      Precision = 18
      Size = 2
    end
    object ADOT_TaskAreaSecPara: TBCDField
      FieldName = 'SecPara'
      Precision = 18
      Size = 2
    end
    object ADOT_TaskAreaTraPara: TBCDField
      FieldName = 'TraPara'
      Precision = 18
      Size = 2
    end
    object ADOT_TaskAreaCaDPara: TBCDField
      FieldName = 'CaDPara'
      Precision = 18
      Size = 2
    end
  end
  object ADOT_Task1: TADOTable
    Tag = 1
    Connection = ADOC_Mining
    CursorType = ctStatic
    TableName = #24037#24207
    Left = 497
    Top = 4
    object ADOT_Task1id: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object SmallintField1: TSmallintField
      FieldName = 'Task_Id'
    end
    object SmallintField5: TSmallintField
      FieldName = 'shaft_Id'
    end
    object ADOT_Task1TaskT_Id: TSmallintField
      FieldName = 'TaskT_Id'
    end
    object WideStringField1: TWideStringField
      FieldName = 'Task_Name'
      Size = 30
    end
    object ADOT_Task1LightP: TFloatField
      FieldName = 'LightP'
    end
    object ADOT_Task1WLT_Id: TIntegerField
      FieldName = 'WLT_Id'
    end
    object ADOT_Task1Equ_Id: TIntegerField
      FieldName = 'Equ_Id'
    end
  end
  object ADOT_TaskT: TADOTable
    Tag = 1
    Connection = ADOC_Mining
    CursorType = ctStatic
    TableName = #24037#24207#31867#22411
    Left = 338
    Top = 49
  end
  object ADOT_Ellipse: TADOTable
    Tag = 1
    Connection = ADOC_Mining
    TableName = #26925#22278
    Left = 409
    Top = 495
  end
  object ADOT_TaskS: TADOTable
    Tag = 1
    Connection = ADOC_Mining
    CursorType = ctStatic
    TableName = #21306#27573
    Left = 264
    Top = 112
    object ADOT_TaskSid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOT_TaskSShaft_Id: TIntegerField
      FieldName = 'Shaft_Id'
    end
    object ADOT_TaskSTS_Id: TIntegerField
      FieldName = 'TS_Id'
    end
    object ADOT_TaskSArea_Id: TIntegerField
      FieldName = 'Area_Id'
    end
    object ADOT_TaskSTS_Name: TStringField
      FieldName = 'TS_Name'
    end
    object ADOT_TaskSField: TStringField
      FieldKind = fkLookup
      FieldName = #37319#21306
      LookupDataSet = ADOT_Area
      LookupKeyFields = 'Area_Id'
      LookupResultField = 'Area_Name'
      KeyFields = 'Area_Id'
      Lookup = True
    end
  end
  object Ds_TaskS: TDataSource
    DataSet = ADOT_TaskS
    Left = 332
    Top = 136
  end
  object ADOD_MDProL: TADODataSet
    Tag = 1
    Connection = ADOC_Mining
    CursorType = ctStatic
    CommandText = 
      'select  *'#13#10'from '#37319#25496#25509#32493#34920#13#10'where  (ADMW_Id=:v)and(AWL=2)'#13#10'order by I' +
      'Id'
    Parameters = <
      item
        Name = 'v'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 739
    Top = 104
    object ADOD_MDProLid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOD_MDProLADMW_Id: TIntegerField
      FieldName = 'ADMW_Id'
    end
    object ADOD_MDProLAWL: TIntegerField
      FieldName = 'AWL'
    end
    object ADOD_MDProLIId: TIntegerField
      FieldName = 'IId'
    end
    object ADOD_MDProLAT_Id: TIntegerField
      FieldName = 'AT_Id'
    end
    object ADOD_MDProLNextAT_Id: TIntegerField
      FieldName = 'NextAT_Id'
    end
    object ADOD_MDProLField: TStringField
      FieldKind = fkLookup
      FieldName = #21306#27573
      LookupDataSet = ADOT_TaskS
      LookupKeyFields = 'TS_Id'
      LookupResultField = 'TS_Name'
      KeyFields = 'AT_Id'
      Size = 26
      Lookup = True
    end
    object ADOD_MDProLField2: TStringField
      FieldKind = fkLookup
      FieldName = #25509#26367#21306#27573
      LookupDataSet = ADOT_TaskS
      LookupKeyFields = 'TS_Id'
      LookupResultField = 'TS_Name'
      KeyFields = 'NextAT_Id'
      Size = 26
      Lookup = True
    end
  end
  object ADOD_AreaDL: TADODataSet
    Tag = 1
    Connection = ADOC_Mining
    CursorType = ctStatic
    CommandText = 
      'select  *'#13#10'from '#37319#25496#25509#32493#34920#13#10'where  (ADMW_Id=:v)and(AWL=0)'#13#10'order by I' +
      'Id'
    Parameters = <
      item
        Name = 'v'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 737
    Top = 6
    object AutoIncField1: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object IntegerField1: TIntegerField
      FieldName = 'ADMW_Id'
    end
    object IntegerField2: TIntegerField
      FieldName = 'AWL'
    end
    object IntegerField3: TIntegerField
      FieldName = 'IId'
    end
    object IntegerField4: TIntegerField
      FieldName = 'AT_Id'
    end
    object IntegerField5: TIntegerField
      FieldName = 'NextAT_Id'
    end
    object StringField5: TStringField
      FieldKind = fkLookup
      FieldName = #25496#36827#24055#36947
      LookupDataSet = ADOT_Task
      LookupKeyFields = 'Task_Id'
      LookupResultField = 'Task_Name'
      KeyFields = 'AT_Id'
      Size = 26
      Lookup = True
    end
    object StringField6: TStringField
      FieldKind = fkLookup