minerelay_unt.dfm

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

inherited MineRelay_Frm: TMineRelay_Frm
  Left = 163
  Top = 162
  VertScrollBar.Range = 0
  Align = alClient
  BorderIcons = []
  BorderStyle = bsNone
  Caption = 'MineRelay_Frm'
  PopupMenu = PopupMenu1
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    PopupMenu = PopupMenu1
    inherited Label1: TLabel
      Left = 8
      Width = 57
      AutoSize = False
    end
    inherited Label2: TLabel
      Left = 216
      Width = 73
      AutoSize = False
      Caption = #37319#29028#38431#65306
    end
    inherited Label3: TLabel
      Left = 16
      Width = 49
      AutoSize = False
      Caption = #37319#21306#65306
    end
    inherited Label4: TLabel
      Left = 224
      Top = 72
      Width = 97
      Height = 17
      AutoSize = False
      Caption = #37319#21306#21487#36873#38754#65306
    end
    inherited Label5: TLabel
      Width = 361
      Caption = #27880#24847#65306#35831#39318#20808#30830#23450#25509#26367#38388#38548#26102#38388'!'#21333#20987#40736#26631#21491#38190#65281
    end
    inherited DBGrid1: TDBGrid
      Columns = <
        item
          Expanded = False
          FieldName = 'Sequence'
          Width = 30
          Visible = True
        end
        item
          Expanded = False
          FieldName = #37319#29028#38431
          Width = 70
          Visible = True
        end
        item
          Expanded = False
          FieldName = #22238#37319#38754
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = #25152#22312#37319#21306
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Begin_Date'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'End_Date'
          Width = 80
          Visible = True
        end>
    end
    inherited DBLookupComboBox3: TDBLookupComboBox
      DataField = 'Area'
      DataSource = Base_DataS
      KeyField = 'Area_Id'
      ListField = 'Area_Name'
      ListSource = Area_DataS
      OnClick = DBLookupComboBox3Click
    end
    inherited DBLookupListBox1: TDBLookupListBox
      Tag = 0
      PopupMenu = PopupMenu2
      OnDblClick = DBLookupListBox1DblClick
      OnKeyDown = DBLookupListBox1KeyDown
    end
    inherited DBLookupComboBox1: TDBLookupComboBox
      DataField = 'Project_Id'
      DataSource = Base_DataS
      KeyField = 'Project_Id'
      ListField = 'Project_Name'
      ListSource = Project_DataS
    end
    inherited BitBtn10: TBitBtn
      Left = 32
      Width = 81
    end
    inherited DateTimePicker2: TDateTimePicker
      Date = 37950.632906169
      Time = 37950.632906169
    end
    inherited BitBtn11: TBitBtn
      Left = 32
      Width = 81
    end
    inherited BitBtn12: TBitBtn
      Left = 32
      Width = 81
    end
  end
  inherited Base_DataS: TDataSource
    DataSet = Data_Frm.MineRelay_AdoTab
  end
  object MineGroup_DataS: TDataSource [3]
    DataSet = MineGroup_AdoQ
    Left = 352
  end
  object Face_DataS: TDataSource [4]
    DataSet = Face_AdoQ
    Left = 368
    Top = 96
  end
  object MineGroup_AdoQ: TADOQuery [5]
    Connection = Data_Frm.MD_Connection
    Parameters = <>
    Left = 320
  end
  object Face_AdoQ: TADOQuery [6]
    Connection = Data_Frm.MD_Connection
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'v1'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from '#22238#37319#38754'f'
      'where (MiningArea=:v1) and (Mined<>0)')
    Left = 336
    Top = 96
    object Face_AdoQFace_Id: TIntegerField
      FieldName = 'Face_Id'
    end
    object Face_AdoQName: TStringField
      FieldName = 'Name'
      Size = 50
    end
    object Face_AdoQFace_Type: TIntegerField
      FieldName = 'Face_Type'
    end
    object Face_AdoQMine_Height: TFloatField
      FieldName = 'Mine_Height'
      Precision = 4
    end
    object Face_AdoQFace_Length: TIntegerField
      DisplayLabel = #38754#38271
      DisplayWidth = 6
      FieldName = 'Face_Length'
    end
    object Face_AdoQPush_Length: TIntegerField
      DisplayLabel = #25512#36827#38271#24230
      FieldName = 'Push_Length'
    end
    object Face_AdoQTechnic_Type: TIntegerField
      FieldName = 'Technic_Type'
    end
    object Face_AdoQObliquity: TFloatField
      FieldName = 'Obliquity'
      Precision = 4
    end
    object Face_AdoQMiningArea: TIntegerField
      FieldName = 'MiningArea'
    end
    object Face_AdoQMined: TIntegerField
      FieldName = 'Mined'
    end
    object Face_AdoQCoal: TIntegerField
      FieldName = 'Coal'
    end
    object Face_AdoQFinish_Length: TIntegerField
      FieldName = 'Finish_Length'
    end
    object Face_AdoQReserve: TFloatField
      FieldName = 'Reserve'
      Precision = 5
    end
    object Face_AdoQRemain_Reserve: TFloatField
      FieldName = 'Remain_Reserve'
      Precision = 5
    end
    object Face_AdoQField: TStringField
      FieldKind = fkLookup
      FieldName = #22238#37319#24037#33402
      LookupDataSet = Data_Frm.MineTech_AdoTab
      LookupKeyFields = 'MineType_Id'
      LookupResultField = 'Mine_TypeName'
      KeyFields = 'Technic_Type'
      Size = 10
      Lookup = True
    end
    object Face_AdoQDay_Progress: TFloatField
      FieldName = 'Day_Progress'
    end
    object Face_AdoQConsistency: TFloatField
      FieldName = 'Consistency'
    end
    object Face_AdoQTaskTime: TIntegerField
      FieldName = 'TaskTime'
    end
    object Face_AdoQDay_Output: TIntegerField
      FieldName = 'Day_Output'
    end
  end
  object Area_DataS: TDataSource [7]
    DataSet = Data_Frm.Area_AdoTab
    Left = 144
    Top = 64
  end
  inherited Project_DataS: TDataSource
    Left = 96
    Top = 0
  end
  inherited MineInterval_DataS: TDataSource
    Left = 192
  end
  object AllFace_DataS: TDataSource
    DataSet = Data_Frm.Face_AdoTab
    Left = 392
    Top = 40
  end
  object PopupMenu1: TPopupMenu
    Left = 464
    Top = 32
    object N1: TMenuItem
      Caption = #25509#26367#38388#27463#26102#38388
      OnClick = N1Click
    end
    object N3: TMenuItem
      Caption = #25496#36827#20445#38505#31995#25968
      OnClick = N3Click
    end
    object N4: TMenuItem
      Caption = #35843#25972#37319#38754#25968#25454
      OnClick = N4Click
    end
    object N5: TMenuItem
      Caption = #22238#37319#25509#26367#35745#21010#27178#36947#22270#26174#31034
      OnClick = N5Click
    end
  end
  object PopupMenu2: TPopupMenu
    Left = 432
    Top = 96
    object N2: TMenuItem
      Caption = #37319#38754#20449#24687
      OnClick = N2Click
    end
  end
end