mineequip_unt.dfm

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

inherited MineEquip_Frm: TMineEquip_Frm
  Left = 171
  Top = 126
  VertScrollBar.Range = 0
  Align = alClient
  BorderIcons = []
  BorderStyle = bsNone
  Caption = 'MineEquip_Frm'
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    PopupMenu = PopupMenu1
    object Label1: TLabel [0]
      Tag = 11
      Left = -16
      Top = 56
      Width = 113
      Height = 25
      AutoSize = False
      Caption = '       '#36866#29992#24037#33402#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel [1]
      Tag = 13
      Left = 176
      Top = 48
      Width = 81
      Height = 25
      AutoSize = False
      Caption = '        '#37319#29028#26426#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel [2]
      Tag = 15
      Left = 312
      Top = 48
      Width = 89
      Height = 25
      AutoSize = False
      Caption = '        '#36816#36755#26426#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label4: TLabel [3]
      Tag = 21
      Left = -22
      Top = 134
      Width = 113
      Height = 25
      AutoSize = False
      Caption = '        '#25903#26550#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label5: TLabel [4]
      Tag = 23
      Left = 170
      Top = 126
      Width = 81
      Height = 25
      AutoSize = False
      Caption = '     '#35013#22791#22871#25968#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label6: TLabel [5]
      Tag = 25
      Left = 306
      Top = 126
      Width = 89
      Height = 25
      AutoSize = False
      Caption = '           '#31199#37329#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    inherited DBGrid1: TDBGrid
      Top = 240
      Height = 66
      Columns = <
        item
          Expanded = False
          FieldName = 'MineEquip_Id'
          Visible = True
        end
        item
          Expanded = False
          FieldName = #36866#29992#24037#33402
          Visible = True
        end
        item
          Expanded = False
          FieldName = #37319#29028#26426
          Visible = True
        end
        item
          Expanded = False
          FieldName = #36816#36755#26426
          Visible = True
        end
        item
          Expanded = False
          FieldName = #25903#26550
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Equip_Cou'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Rent'
          Visible = True
        end>
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Tag = 12
      Left = 72
      Top = 72
      Width = 121
      Height = 21
      Color = clMoneyGreen
      DataField = 'MineType_Id'
      DataSource = Base_DataS
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clFuchsia
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      KeyField = 'MineType_Id'
      ListField = 'Mine_TypeName'
      ListSource = MineType_DataS
      ParentFont = False
      TabOrder = 1
      OnKeyDown = DBLookupComboBox1KeyDown
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Tag = 14
      Left = 256
      Top = 72
      Width = 81
      Height = 21
      Color = clMoneyGreen
      DataField = 'CutMachine'
      DataSource = Base_DataS
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clFuchsia
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      KeyField = 'CutMachine_Id'
      ListField = 'Type'
      ListSource = CutMachine_DataS
      ParentFont = False
      TabOrder = 2
      OnKeyDown = DBLookupComboBox2KeyDown
    end
    object DBEdit1: TDBEdit
      Tag = 24
      Left = 240
      Top = 152
      Width = 121
      Height = 21
      Color = clMoneyGreen
      DataField = 'Equip_Cou'
      DataSource = Base_DataS
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clFuchsia
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ParentFont = False
      TabOrder = 3
      OnKeyDown = DBEdit1KeyDown
    end
    object DBLookupComboBox3: TDBLookupComboBox
      Tag = 16
      Left = 386
      Top = 70
      Width = 121
      Height = 21
      Color = clMoneyGreen
      DataField = 'ConveyMachine'
      DataSource = Base_DataS
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clFuchsia
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      KeyField = 'Convey_Id'
      ListField = 'Type'
      ListSource = ConveyMachine_DataS
      ParentFont = False
      TabOrder = 4
      OnKeyDown = DBLookupComboBox3KeyDown
    end
    object DBLookupComboBox4: TDBLookupComboBox
      Tag = 22
      Left = 66
      Top = 150
      Width = 81
      Height = 21
      Color = clMoneyGreen
      DataField = 'Braket'
      DataSource = Base_DataS
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clFuchsia
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      KeyField = 'Braket_Id'
      ListField = 'Braket_Type'
      ListSource = Braket_DataS
      ParentFont = False
      TabOrder = 5
      OnKeyDown = DBLookupComboBox4KeyDown
    end
    object DBEdit2: TDBEdit
      Tag = 26
      Left = 394
      Top = 150
      Width = 121
      Height = 21
      Color = clMoneyGreen
      DataField = 'Rent'
      DataSource = Base_DataS
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clFuchsia
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ParentFont = False
      TabOrder = 6
      OnKeyDown = DBEdit2KeyDown
    end
  end
  inherited Base_DataS: TDataSource
    DataSet = Data_Frm.MineEquip_AdoTab
    Left = 56
    Top = 40
  end
  object MineType_DataS: TDataSource
    AutoEdit = False
    DataSet = Data_Frm.MineTech_AdoTab
    Left = 96
    Top = 57
  end
  object CutMachine_DataS: TDataSource
    AutoEdit = False
    DataSet = Data_Frm.CutMachine_AdoTab
    Left = 144
    Top = 57
  end
  object ConveyMachine_DataS: TDataSource
    AutoEdit = False
    DataSet = Data_Frm.ConveyMachine_AdoTab
    Left = 192
    Top = 57
  end
  object Braket_DataS: TDataSource
    AutoEdit = False
    DataSet = Data_Frm.Braket_AdoTab
    Left = 240
    Top = 57
  end
  object PopupMenu1: TPopupMenu
    Left = 424
    Top = 48
    object N1: TMenuItem
      Caption = #37319#29028#26426
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #36816#36755#26426
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = #25903#26550
      OnClick = N3Click
    end
  end
end