unt_data.dfm

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

      FieldName = #25509#26367#25496#36827#24055#36947
      LookupDataSet = ADOT_Task
      LookupKeyFields = 'Task_Id'
      LookupResultField = 'Task_Name'
      KeyFields = 'NextAT_Id'
      Size = 26
      Lookup = True
    end
  end
  object ADOD_AreaWL: 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=1)'#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 = 54
    object AutoIncField2: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object IntegerField6: TIntegerField
      FieldName = 'ADMW_Id'
    end
    object IntegerField7: TIntegerField
      FieldName = 'AWL'
    end
    object IntegerField8: TIntegerField
      FieldName = 'IId'
    end
    object IntegerField9: TIntegerField
      FieldName = 'AT_Id'
    end
    object IntegerField10: TIntegerField
      FieldName = 'NextAT_Id'
    end
    object StringField7: TStringField
      FieldKind = fkLookup
      FieldName = #37319#25496#24037#24207
      LookupDataSet = ADOT_Task
      LookupKeyFields = 'Task_Id'
      LookupResultField = 'Task_Name'
      KeyFields = 'AT_Id'
      Size = 26
      Lookup = True
    end
    object StringField8: TStringField
      FieldKind = fkLookup
      FieldName = #25509#26367#37319#25496#24037#24207
      LookupDataSet = ADOT_Task
      LookupKeyFields = 'Task_Id'
      LookupResultField = 'Task_Name'
      KeyFields = 'NextAT_Id'
      Size = 26
      Lookup = True
    end
  end
  object ADOT_LaneChara: TADOTable
    Tag = 1
    Connection = ADOC_Mining
    CursorType = ctStatic
    TableName = #29305#24449#25496#36827#38754
    Left = 331
    Top = 304
    object ADOT_LaneCharaid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOT_LaneCharaLaneT_Id: TIntegerField
      FieldName = 'LaneT_Id'
    end
    object ADOT_LaneCharaWOrL: TIntegerField
      FieldName = 'WOrL'
    end
    object ADOT_LaneCharaRockT: TStringField
      FieldName = 'RockT'
      Size = 10
    end
    object ADOT_LaneCharaRock: TBCDField
      FieldName = 'Rock'
      Precision = 18
      Size = 2
    end
    object ADOT_LaneCharaSect_Id: TIntegerField
      FieldName = 'Sect_Id'
    end
    object ADOT_LaneCharaSect: TBCDField
      FieldName = 'Sect'
      Precision = 18
      Size = 2
    end
    object ADOT_LaneCharaW: TBCDField
      FieldName = 'W'
      Precision = 18
      Size = 2
    end
    object ADOT_LaneCharaH: TBCDField
      FieldName = 'H'
      Precision = 18
      Size = 2
    end
    object ADOT_LaneCharaField: TStringField
      FieldKind = fkLookup
      FieldName = #25496#36827#24037#33402
      LookupDataSet = ADOT_DrillT
      LookupKeyFields = 'DrillT_Id'
      LookupResultField = 'Drill_Type'
      KeyFields = 'DrillT_Id'
      Lookup = True
    end
    object ADOT_LaneCharaAngle: TBCDField
      FieldName = 'Angle'
      Precision = 18
      Size = 2
    end
    object ADOT_LaneCharaDrillT_Id: TIntegerField
      FieldName = 'DrillT_Id'
    end
    object ADOT_LaneCharaCarrDis: TBCDField
      FieldName = 'CarrDis'
      Precision = 18
      Size = 2
    end
    object ADOT_LaneCharaDayDis: TBCDField
      FieldName = 'DayDis'
      Precision = 18
      Size = 2
    end
    object ADOT_LaneCharaUnit: TStringField
      FieldName = 'Unit'
      Size = 10
    end
    object ADOT_LaneCharaField2: TStringField
      FieldKind = fkLookup
      FieldName = #26029#38754#31867#22411
      LookupDataSet = ADOT_LaneT
      LookupKeyFields = 'Sect_Id'
      LookupResultField = 'Sect_name'
      KeyFields = 'Sect_Id'
      Lookup = True
    end
    object ADOT_LaneCharaTraT: TStringField
      FieldName = 'TraT'
      Size = 6
    end
  end
  object ADOT_WorkChara: TADOTable
    Tag = 1
    Connection = ADOC_Mining
    CursorType = ctStatic
    TableName = #29305#24449#22238#37319#38754
    Left = 331
    Top = 256
    object ADOT_WorkCharaid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOT_WorkCharaWorkT_Id: TIntegerField
      FieldName = 'WorkT_Id'
    end
    object ADOT_WorkCharaWOrL: TIntegerField
      FieldName = 'WOrL'
    end
    object ADOT_WorkCharaFY_Angle: TBCDField
      FieldName = 'FY_Angle'
      Precision = 18
      Size = 2
    end
    object ADOT_WorkCharaH: TBCDField
      FieldName = 'H'
      Precision = 18
      Size = 2
    end
    object ADOT_WorkCharaMFH: TBCDField
      FieldName = 'MFH'
      Precision = 18
      Size = 2
    end
    object ADOT_WorkCharaFDis: TBCDField
      FieldName = 'FDis'
      Precision = 18
      Size = 2
    end
    object ADOT_WorkCharaMineT_Id: TIntegerField
      FieldName = 'MineT_Id'
    end
    object ADOT_WorkCharaTBDivide: TIntegerField
      FieldName = 'TBDivide'
    end
    object ADOT_WorkCharaSysTache: TIntegerField
      FieldName = 'SysTache'
    end
    object ADOT_WorkCharaDayDis: TBCDField
      FieldName = 'DayDis'
      Precision = 18
      Size = 2
    end
    object ADOT_WorkCharaField: TStringField
      FieldKind = fkLookup
      FieldName = #22238#37319#24037#33402
      LookupDataSet = ADOT_MineT
      LookupKeyFields = 'MineT_Id'
      LookupResultField = 'Mine_Type'
      KeyFields = 'MineT_Id'
      Lookup = True
    end
    object ADOT_WorkCharaUnit: TStringField
      FieldName = 'Unit'
      Size = 10
    end
  end
  object ADOD_WLChara: TADODataSet
    Tag = 1
    Connection = ADOC_Mining
    CursorType = ctStatic
    CommandText = 
      'select *'#13#10'from '#20854#23427#29305#24449#20540#13#10'where (WLT_Id=:v)and(WOrL=:v1)'#13#10'order by I' +
      'Id'
    Parameters = <
      item
        Name = 'v'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'v1'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 418
    Top = 255
    object ADOD_WLCharaid: TIntegerField
      FieldName = 'id'
    end
    object ADOD_WLCharaWLT_Id: TIntegerField
      FieldName = 'WLT_Id'
    end
    object ADOD_WLCharaWOrL: TIntegerField
      FieldName = 'WOrL'
    end
    object ADOD_WLCharaIId: TIntegerField
      FieldName = 'IId'
    end
    object ADOD_WLCharaWLFact: TStringField
      FieldName = 'WLFact'
      Size = 30
    end
    object ADOD_WLCharaWLFactR: TStringField
      FieldName = 'WLFactR'
      Size = 50
    end
  end
  object ADOD_WLChMat: TADODataSet
    Tag = 1
    Connection = ADOC_Mining
    CursorType = ctStatic
    CommandText = 
      'select  *'#13#10'from '#29305#24449#38754#26448#26009#13#10'where (WLT_Id=:v)and( WOrL=:v1)'#13#10'order by' +
      ' IId'
    Parameters = <
      item
        Name = 'v'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'v1'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 418
    Top = 303
    object ADOD_WLChMatid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOD_WLChMatWLT_Id: TIntegerField
      FieldName = 'WLT_Id'
    end
    object ADOD_WLChMatWOrL: TIntegerField
      FieldName = 'WOrL'
    end
    object ADOD_WLChMatIId: TIntegerField
      FieldName = 'IId'
    end
    object ADOD_WLChMatCostN_Id: TIntegerField
      FieldName = 'CostN_Id'
    end
    object ADOD_WLChMatCostT_N: TStringField
      FieldName = 'CostT_N'
      Size = 16
    end
    object ADOD_WLChMatCost: TBCDField
      FieldName = 'Cost'
      Precision = 18
      Size = 2
    end
    object ADOD_WLChMatField: TStringField
      FieldKind = fkLookup
      FieldName = #26448#26009#21517#31216
      LookupDataSet = ADOT_Material
      LookupKeyFields = 'CostN_Id'
      LookupResultField = 'Cost_name'
      KeyFields = 'CostN_Id'
      Size = 40
      Lookup = True
    end
  end
  object ADOD_WLChCoal: TADODataSet
    Tag = 1
    Connection = ADOC_Mining
    CursorType = ctStatic
    CommandText = 
      'select *'#13#10'from '#29305#24449#38754#29028#23618#13#10'where (WLT_Id=:v)and(WOrL=:v1)'#13#10'order by I' +
      'Id'
    Parameters = <
      item
        Name = 'v'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'v1'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 514
    Top = 303
    object ADOD_WLChCoalid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOD_WLChCoalWLT_Id: TIntegerField
      FieldName = 'WLT_Id'
    end
    object ADOD_WLChCoalWOrL: TIntegerField
      FieldName = 'WOrL'
    end
    object ADOD_WLChCoalIId: TIntegerField
      FieldName = 'IId'
    end
    object ADOD_WLChCoalCoal_Id: TIntegerField
      FieldName = 'Coal_Id'
    end
    object ADOD_WLChCoalCoal_Pa: TBCDField
      FieldName = 'Coal_Pa'
      Precision = 18
      Size = 2
    end
    object ADOD_WLChCoalField: TStringField
      FieldKind = fkLookup
      FieldName = #29028#23618
      LookupDataSet = ADOT_Coal
      LookupKeyFields = 'Coal_Id'
      LookupResultField = 'Coal_Name'
      KeyFields = 'Coal_Id'
      Size = 30
      Lookup = True
    end
  end
  object ADOD_DMDPro: TADODataSet
    Tag = 1
    Connection = ADOC_Mining
    CommandText = 
      'select   id,Pro_Id,IId, Area_Id, Task_Id, WorkDay, B_Date, E_Dat' +
      'e, ProTask, SGD_Id, Salary from '#37319#25496#26041#26696#21452#25509#26367#13#10'where Pro_Id=:v'#13#10'order ' +
      'by IId'
    Parameters = <
      item
        Name = 'v'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 664
    Top = 152
    object ADOD_DMDProid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOD_DMDProPro_Id: TIntegerField
      FieldName = 'Pro_Id'
    end
    object ADOD_DMDProIId: TIntegerField
      FieldName = 'IId'
    end
    object ADOD_DMDProField2: TStringField
      FieldKind = fkLookup
      FieldName = #37319#21306
      LookupDataSet = ADOT_Area
      LookupKeyFields = 'Area_Id'
      LookupResultField = 'Area_Name'
      KeyFields = 'Area_Id'
      Size = 26
      Lookup = True
    end
    object ADOD_DMDProArea_Id: TIntegerField
      FieldName = 'Area_Id'
    end
    object ADOD_DMDProField: TStringField
      FieldKind = fkLookup
      FieldName = #24037#24207
      LookupDataSet = ADOT_Task
      LookupKeyFields = 'Task_Id'
      LookupResultField = 'Task_Name'
      KeyFields = 'Task_Id'
      Size = 30
      Lookup = True
    end
    object ADOD_DMDProTask_Id: TIntegerField
      FieldName = 'Task_Id'
    end
    object ADOD_DMDProWorkDay: TIntegerField
      FieldName = 'WorkDay'
    end
    object ADOD_DMDProB_Date: TDateTimeField
      FieldName = 'B_Date'
    end
    object ADOD_DMDProE_Date: TDateTimeField
      FieldName = 'E_Date'
    end
    object ADOD_DMDProProTask: TStringField
      FieldName = 'ProTask'
      Size = 30
    end
    object ADOD_DMDProField3: TStringField
      FieldKind = fkLookup
      FieldName = #36164#28304
      LookupDataSet = ADOT_SGD
      LookupKeyFields = 'SGD_Id'
      LookupResultField = 'SGD_name'
      KeyFields = 'SGD_Id'
      Size = 12
      Lookup = True
    end
    object ADOD_DMDProSGD_Id: TIntegerField
      FieldName = 'SGD_Id'
    end
    object ADOD_DMDProSalary: TBCDField
      FieldName = 'Salary'
      Precision = 18
    end
  end
end