drillrelay_unt.dfm

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

inherited DrillRelay_Frm: TDrillRelay_Frm
  Top = 128
  VertScrollBar.Range = 0
  Align = alClient
  BorderIcons = []
  BorderStyle = bsNone
  Caption = 'DrillRelay_Frm'
  ClientHeight = 345
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 304
  end
  inherited Panel2: TPanel
    Height = 304
    PopupMenu = PopupMenu1
    inherited Label2: TLabel
      Caption = #25496#36827#38431#65306
    end
    inherited Label3: TLabel
      Left = 16
      Width = 36
      Caption = #37319#21306#65306
    end
    inherited Label8: TLabel
      Visible = True
    end
    inherited DBGrid1: TDBGrid
      Top = 261
      Columns = <
        item
          Expanded = False
          FieldName = 'Sequence'
          Visible = True
        end
        item
          Expanded = False
          FieldName = #20219#21153
          Visible = True
        end
        item
          Expanded = False
          FieldName = #25496#36827#38431
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Begin_Date'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'End_Date'
          Visible = True
        end
        item
          Expanded = False
          FieldName = #37319#21306
          Visible = True
        end>
    end
    inherited DBLookupComboBox3: TDBLookupComboBox
      Left = 56
      Top = 56
      OnClick = DBLookupComboBox3Click
    end
    inherited DBLookupListBox1: TDBLookupListBox
      Width = 121
      Enabled = True
      OnDblClick = DBLookupListBox1DblClick
      OnKeyDown = DBLookupListBox1KeyDown
    end
    inherited DBLookupComboBox1: TDBLookupComboBox
      ListFieldIndex = 1
    end
    inherited BitBtn10: TBitBtn
      Enabled = False
      Visible = False
    end
    object BitBtn13: TBitBtn [18]
      Left = 456
      Top = 144
      Width = 75
      Height = 25
      Caption = #26680#26597#25496#36827#35745#21010
      TabOrder = 10
      OnClick = BitBtn13Click
    end
    inherited ComboBox1: TComboBox
      Enabled = False
      TabOrder = 11
      Visible = True
      OnClick = ComboBox1Click
    end
    object BitBtn14: TBitBtn
      Left = 456
      Top = 96
      Width = 75
      Height = 25
      Caption = #26597#30475#25496#36827#20219#21153
      TabOrder = 12
      OnClick = BitBtn14Click
    end
    object BitBtn15: TBitBtn
      Left = 456
      Top = 200
      Width = 75
      Height = 25
      Caption = #30830#23450#37319#25496#35745#21010
      TabOrder = 13
      OnClick = BitBtn15Click
    end
  end
  inherited Base_DataS: TDataSource
    DataSet = Data_Frm.DrillRelay_AdoTab
  end
  object DrillGroup_AdoQ: TADOQuery
    Connection = Data_Frm.MD_Connection
    Parameters = <>
    Left = 288
  end
  object DrillGroup_DataS: TDataSource
    DataSet = DrillGroup_AdoQ
    Left = 320
  end
  object Project_AdoQ: TADOQuery
    Connection = Data_Frm.MD_Connection
    CursorType = ctStatic
    Parameters = <>
    Left = 64
  end
  object DrillProject_DataS: TDataSource
    DataSet = Project_AdoQ
    Left = 104
  end
  object Area_AdoQ: TADOQuery
    Connection = Data_Frm.MD_Connection
    CursorType = ctStatic
    Parameters = <>
    Left = 72
    Top = 56
  end
  object Area_DataS: TDataSource
    DataSet = Area_AdoQ
    Left = 104
    Top = 56
  end
  object DrillTask_AdoQ: TADOQuery
    Connection = Data_Frm.MD_Connection
    CursorType = ctStatic
    Parameters = <>
    Left = 336
    Top = 88
  end
  object DrillTask_DataS: TDataSource
    DataSet = DrillTask_AdoQ
    Left = 368
    Top = 88
  end
  object Face_AdoQ: TADOQuery
    Connection = Data_Frm.MD_Connection
    Parameters = <>
    Left = 216
    Top = 120
  end
  object PopupMenu1: TPopupMenu
    Left = 456
    Top = 32
    object N3: TMenuItem
      Caption = #25496#36827#25509#26367#38388#38548#26102#38388
      OnClick = N3Click
    end
    object N1: TMenuItem
      Caption = #25496#36827#25509#26367#35745#21010#27178#36947#22270#26174#31034
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #37319#25496#25509#26367#35745#21010#27178#36947#22270#26174#31034
      OnClick = N2Click
    end
  end
end