levelinfo_unt.dfm

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

inherited LevelInfo_Frm: TLevelInfo_Frm
  Left = 168
  Top = 155
  VertScrollBar.Range = 0
  Align = alClient
  BorderIcons = []
  BorderStyle = bsNone
  Caption = 'LevelInfo_Frm'
  OnCreate = nil
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    object Label1: TLabel [0]
      Tag = 11
      Left = 32
      Top = 72
      Width = 73
      Height = 25
      AutoSize = False
      Caption = #27700#24179#21517#31216#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 = 280
      Top = 72
      Width = 65
      Height = 25
      AutoSize = False
      Caption = #27700#24179#26631#39640#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 = 21
      Left = 16
      Top = 128
      Width = 73
      Height = 25
      AutoSize = False
      Caption = #27700#24179#20648#37327#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 = 23
      Left = 272
      Top = 129
      Width = 65
      Height = 25
      AutoSize = False
      Caption = #26381#21153#24180#38480#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 = 216
      Height = 90
      Color = clWhite
      Columns = <
        item
          Expanded = False
          FieldName = 'Level_Id'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Level_Name'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Altitude'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Mine_Storage'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Serve_Year'
          Visible = True
        end>
    end
    object DBEdit1: TDBEdit
      Tag = 14
      Left = 352
      Top = 72
      Width = 121
      Height = 21
      Color = clMoneyGreen
      DataField = 'Altitude'
      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 = 22
      Left = 96
      Top = 128
      Width = 121
      Height = 21
      Color = clMoneyGreen
      DataField = 'Mine_Storage'
      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 = 24
      Left = 352
      Top = 128
      Width = 121
      Height = 21
      Color = clMoneyGreen
      DataField = 'Serve_Year'
      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 = 12
      Left = 112
      Top = 72
      Width = 145
      Height = 21
      Color = clMoneyGreen
      DataField = 'Level_Name'
      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 = (
        #19968#27700#24179
        #20108#27700#24179
        #19977#27700#24179
        #22235#27700#24179
        #20116#27700#24179)
      ParentFont = False
      TabOrder = 4
      OnKeyDown = DBComboBox1KeyDown
    end
  end
  inherited Base_DataS: TDataSource
    DataSet = Data_Frm.Level_AdoTab
  end
end