areainfo_unt.dfm

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

inherited AreaInfo_Frm: TAreaInfo_Frm
  Left = 172
  Top = 128
  VertScrollBar.Range = 0
  Align = alClient
  BorderIcons = []
  BorderStyle = bsNone
  Caption = 'AreaInfo_Frm'
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    inherited BitBtn4: TBitBtn
      Caption = #19978#26465
    end
    inherited BitBtn5: TBitBtn
      Caption = #19979#26465
    end
    inherited BitBtn6: TBitBtn
      Caption = #26368#21069
    end
    inherited BitBtn7: TBitBtn
      Caption = #26368#21518
    end
  end
  inherited Panel2: TPanel
    object Label1: TLabel [0]
      Tag = 11
      Left = 24
      Top = 72
      Width = 61
      Height = 13
      Caption = #37319#21306#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 = 256
      Top = 64
      Width = 61
      Height = 13
      Caption = #37319#21306#31867#22411#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 = 24
      Top = 120
      Width = 53
      Height = 13
      Caption = ' '#21333#21452#32764#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 = 61
      Height = 13
      Caption = #21487#37319#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 Label5: TLabel [4]
      Tag = 31
      Left = 16
      Top = 176
      Width = 65
      Height = 13
      Caption = ' '#21516#37319#38754#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 = 33
      Left = 176
      Top = 176
      Width = 61
      Height = 13
      Caption = #25152#22312#27700#24179#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label7: TLabel [6]
      Tag = 35
      Left = 312
      Top = 176
      Width = 61
      Height = 13
      Caption = #29983#20135#29366#24577#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
      Columns = <
        item
          Expanded = False
          FieldName = 'Area_Id'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Area_Name'
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Area_Type'
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SingleOrDouble'
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Mine_Storage'
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SimultaneousFace'
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = #27700#24179
          Title.Caption = #25152#22312#27700#24179
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'State'
          Visible = True
        end>
    end
    object DBEdit1: TDBEdit
      Tag = 12
      Left = 112
      Top = 72
      Width = 121
      Height = 21
      Color = clMoneyGreen
      DataField = 'Area_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
      ParentFont = False
      TabOrder = 1
      OnKeyDown = DBEdit1KeyDown
    end
    object DBEdit2: TDBEdit
      Tag = 24
      Left = 360
      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 DBComboBox1: TDBComboBox
      Tag = 14
      Left = 352
      Top = 64
      Width = 145
      Height = 21
      Color = clMoneyGreen
      DataField = 'Area_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
      ItemHeight = 13
      Items.Strings = (
        #19978#23665#37319#21306
        #19979#23665#37319#21306)
      ParentFont = False
      TabOrder = 3
      OnKeyDown = DBComboBox1KeyDown
    end
    object DBComboBox2: TDBComboBox
      Tag = 22
      Left = 104
      Top = 120
      Width = 145
      Height = 21
      Color = clMoneyGreen
      DataField = 'SingleOrDouble'
      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 = (
        #21333#32764#24320#37319
        #21452#32764#24320#37319)
      ParentFont = False
      TabOrder = 4
      OnKeyDown = DBComboBox2KeyDown
    end
    object DBComboBox3: TDBComboBox
      Tag = 32
      Left = 96
      Top = 176
      Width = 73
      Height = 21
      Color = clMoneyGreen
      DataField = 'SimultaneousFace'
      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 = (
        '1'
        '2'
        '3'
        '4'
        '5'
        '6')
      ParentFont = False
      TabOrder = 5
      OnKeyDown = DBComboBox3KeyDown
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Tag = 34
      Left = 248
      Top = 176
      Width = 49
      Height = 21
      Color = clMoneyGreen
      DataField = 'BelongLevel'
      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 = 'Level_Id'
      ListField = 'Level_Name'
      ListSource = Level_DataS
      ParentFont = False
      TabOrder = 6
      OnKeyDown = DBLookupComboBox1KeyDown
    end
    object DBComboBox4: TDBComboBox
      Tag = 36
      Left = 376
      Top = 176
      Width = 97
      Height = 21
      Color = clMoneyGreen
      DataField = 'State'
      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 = (
        #29983#20135#37319#21306
        #20934#22791#37319#21306
        #25253#24223#37319#21306)
      ParentFont = False
      TabOrder = 7
      OnKeyDown = DBComboBox4KeyDown
    end
  end
  inherited Base_DataS: TDataSource
    DataSet = Data_Frm.Area_AdoTab
    Left = 288
    Top = 40
  end
  object Level_DataS: TDataSource
    DataSet = Data_Frm.Level_AdoTab
    Left = 328
    Top = 40
  end
end