faceclass_unt.dfm

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

inherited FaceClass_Frm: TFaceClass_Frm
  Left = 212
  Top = 135
  VertScrollBar.Range = 0
  Align = alClient
  BorderStyle = bsNone
  Caption = 'FaceClass_Frm'
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    object Label1: TLabel [0]
      Tag = 11
      Left = 16
      Top = 24
      Width = 78
      Height = 13
      Caption = '              '#37319#39640#65306
    end
    object Label2: TLabel [1]
      Tag = 13
      Left = 192
      Top = 16
      Width = 78
      Height = 13
      Caption = '              '#38754#38271#65306
    end
    object Label3: TLabel [2]
      Tag = 15
      Left = 328
      Top = 24
      Width = 84
      Height = 13
      Caption = '        '#25512#36827#38271#24230#65306
    end
    object Label4: TLabel [3]
      Tag = 21
      Left = -8
      Top = 72
      Width = 75
      Height = 13
      Caption = '             '#24037#33402#65306
    end
    object Label5: TLabel [4]
      Tag = 23
      Left = 168
      Top = 80
      Width = 75
      Height = 13
      Caption = '             '#20542#35282#65306
    end
    object Label6: TLabel [5]
      Tag = 25
      Left = 328
      Top = 72
      Width = 84
      Height = 13
      Caption = '        '#35774#22791#24773#20917#65306
    end
    object Label7: TLabel [6]
      Tag = 31
      Left = 16
      Top = 136
      Width = 60
      Height = 13
      Caption = #29926#26031#24773#20917#65306
    end
    object Label8: TLabel [7]
      Tag = 33
      Left = 168
      Top = 136
      Width = 60
      Height = 13
      Caption = #26029#23618#24773#20917#65306
    end
    object Label9: TLabel [8]
      Tag = 35
      Left = 296
      Top = 136
      Width = 60
      Height = 13
      Caption = #28044#27700#24773#20917#65306
    end
    object Label10: TLabel [9]
      Tag = 37
      Left = 408
      Top = 144
      Width = 60
      Height = 13
      Caption = #25512#36827#36895#24230#65306
    end
    inherited DBGrid1: TDBGrid
      Columns = <
        item
          Expanded = False
          FieldName = 'Id'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Mine_Height'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Face_Length'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Push_Length'
          Visible = True
        end
        item
          Expanded = False
          FieldName = #24037#33402
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Obliquity'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Equip'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CH4'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Faultage'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Stream'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Push_Velocity'
          Visible = True
        end>
    end
    object DBEdit1: TDBEdit
      Tag = 12
      Left = 104
      Top = 16
      Width = 73
      Height = 21
      Color = clMoneyGreen
      DataField = 'Mine_Height'
      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 = 1
      OnKeyDown = DBEdit1KeyDown
    end
    object DBEdit2: TDBEdit
      Tag = 14
      Left = 272
      Top = 16
      Width = 57
      Height = 21
      Color = clMoneyGreen
      DataField = 'Face_Length'
      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 = 2
      OnKeyDown = DBEdit2KeyDown
    end
    object DBEdit3: TDBEdit
      Tag = 16
      Left = 432
      Top = 16
      Width = 81
      Height = 21
      Color = clMoneyGreen
      DataField = 'Push_Length'
      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 = DBEdit3KeyDown
    end
    object DBComboBox1: TDBComboBox
      Tag = 26
      Left = 424
      Top = 64
      Width = 89
      Height = 21
      Color = clMoneyGreen
      DataField = 'Equip'
      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
      ItemHeight = 13
      Items.Strings = (
        #24615#33021#22909','#21151#29575#22823
        #24615#33021#19968#33324','#21151#29575#20013#31561
        #24615#33021#24046','#21151#29575#23567)
      ParentFont = False
      TabOrder = 4
      OnKeyDown = DBComboBox1KeyDown
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Tag = 22
      Left = 64
      Top = 72
      Width = 97
      Height = 21
      Color = clMoneyGreen
      DataField = 'Technic_Type'
      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 = MineTech_DataS
      ParentFont = False
      TabOrder = 5
      OnKeyDown = DBLookupComboBox1KeyDown
    end
    object DBEdit4: TDBEdit
      Tag = 24
      Left = 256
      Top = 72
      Width = 81
      Height = 21
      Color = clMoneyGreen
      DataField = 'Obliquity'
      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 = DBEdit4KeyDown
    end
    object DBComboBox2: TDBComboBox
      Tag = 32
      Left = 80
      Top = 136
      Width = 65
      Height = 21
      Color = clMoneyGreen
      DataField = 'CH4'
      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
      ItemHeight = 13
      Items.Strings = (
        #20005#37325
        #19968#33324
        #24456#20302)
      ParentFont = False
      TabOrder = 7
      OnKeyDown = DBComboBox2KeyDown
    end
    object DBComboBox3: TDBComboBox
      Tag = 34
      Left = 240
      Top = 136
      Width = 41
      Height = 21
      Color = clMoneyGreen
      DataField = 'Faultage'
      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
      ItemHeight = 13
      Items.Strings = (
        #22810
        #19968#33324
        #24456#23569)
      ParentFont = False
      TabOrder = 8
      OnKeyDown = DBComboBox3KeyDown
    end
    object DBComboBox4: TDBComboBox
      Tag = 36
      Left = 360
      Top = 128
      Width = 49
      Height = 21
      Color = clMoneyGreen
      DataField = 'Stream'
      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
      ItemHeight = 13
      Items.Strings = (
        #20005#37325
        #19968#33324
        #24456#23569)
      ParentFont = False
      TabOrder = 9
      OnKeyDown = DBComboBox4KeyDown
    end
    object DBEdit5: TDBEdit
      Tag = 38
      Left = 480
      Top = 136
      Width = 41
      Height = 21
      Color = clMoneyGreen
      DataField = 'Push_Velocity'
      DataSource = Base_DataS
      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 = 10
      OnKeyDown = DBEdit5KeyDown
    end
  end
  inherited Base_DataS: TDataSource
    DataSet = Data_Frm.FaceClass_AdoTab
  end
  object MineTech_DataS: TDataSource
    DataSet = Data_Frm.MineTech_AdoTab
    Left = 304
    Top = 8
  end
end