laneclass_unt.dfm

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

inherited LaneClass_Frm: TLaneClass_Frm
  VertScrollBar.Range = 0
  Align = alClient
  BorderIcons = []
  BorderStyle = bsNone
  Caption = 'LaneClass_Frm'
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    object Label1: TLabel [0]
      Tag = 11
      Left = -40
      Top = 32
      Width = 123
      Height = 13
      Caption = '                           '#23721'  '#24615#65306
    end
    object Label2: TLabel [1]
      Tag = 13
      Left = 240
      Top = 32
      Width = 123
      Height = 13
      Caption = '                     '#26029#38754#31867#22411#65306
    end
    object Label3: TLabel [2]
      Tag = 21
      Left = 16
      Top = 88
      Width = 78
      Height = 13
      Caption = '        '#26029' '#38754' '#31215#65306
    end
    object Label4: TLabel [3]
      Tag = 23
      Left = 200
      Top = 80
      Width = 72
      Height = 13
      Caption = ' '#25903' '#25252' '#26041' '#24335#65306
    end
    object Label5: TLabel [4]
      Tag = 25
      Left = 352
      Top = 88
      Width = 69
      Height = 13
      Caption = '         '#24037'  '#33402#65306
    end
    object Label6: TLabel [5]
      Tag = 31
      Left = 16
      Top = 152
      Width = 69
      Height = 13
      Caption = '         '#30828'  '#24230#65306
    end
    object Label7: TLabel [6]
      Tag = 33
      Left = 176
      Top = 144
      Width = 63
      Height = 13
      Caption = '       '#20542'  '#35282#65306
    end
    object Label8: TLabel [7]
      Tag = 35
      Left = 328
      Top = 144
      Width = 69
      Height = 13
      Caption = #25496' '#36827' '#36895' '#24230#65306
    end
    inherited DBGrid1: TDBGrid
      Columns = <
        item
          Expanded = False
          FieldName = 'Id'
          Visible = True
        end
        item
          Expanded = False
          FieldName = #23721#24615
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Section_Area'
          Visible = True
        end
        item
          Expanded = False
          FieldName = #26029#38754#31867#22411
          Visible = True
        end
        item
          Expanded = False
          FieldName = #25903#25252#26041#24335
          Visible = True
        end
        item
          Expanded = False
          FieldName = #24037#33402
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Rigidity'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Obliquity'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Push_Velocity'
          Visible = True
        end>
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Tag = 12
      Left = 96
      Top = 24
      Width = 89
      Height = 21
      Color = clMoneyGreen
      DataField = 'Rock_Property'
      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 = 'Id'
      ListField = 'Type_Name'
      ListSource = RockProperty_DataS
      ParentFont = False
      TabOrder = 1
      OnKeyDown = DBLookupComboBox1KeyDown
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Tag = 14
      Left = 400
      Top = 24
      Width = 89
      Height = 21
      Color = clMoneyGreen
      DataField = 'Section_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 = 'Id'
      ListField = 'Type_Name'
      ListSource = SectionType_DataS
      ParentFont = False
      TabOrder = 2
      OnKeyDown = DBLookupComboBox2KeyDown
    end
    object DBEdit1: TDBEdit
      Tag = 22
      Left = 88
      Top = 80
      Width = 49
      Height = 21
      Color = clMoneyGreen
      DataField = 'Section_Area'
      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 = 24
      Left = 272
      Top = 80
      Width = 73
      Height = 21
      Color = clMoneyGreen
      DataField = 'Support_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 = 'Id'
      ListField = 'Name'
      ListSource = SupportType_DataS
      ParentFont = False
      TabOrder = 4
      OnKeyDown = DBLookupComboBox3KeyDown
    end
    object DBLookupComboBox4: TDBLookupComboBox
      Tag = 26
      Left = 432
      Top = 80
      Width = 89
      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 = 'DrillType_Id'
      ListField = 'DrillType_Name'
      ListSource = DrillTech_DataS
      ParentFont = False
      TabOrder = 5
      OnKeyDown = DBLookupComboBox4KeyDown
    end
    object DBEdit2: TDBEdit
      Tag = 32
      Left = 88
      Top = 144
      Width = 65
      Height = 21
      Color = clMoneyGreen
      DataField = 'Rigidity'
      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
    object DBEdit3: TDBEdit
      Tag = 34
      Left = 248
      Top = 136
      Width = 57
      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 = 7
      OnKeyDown = DBEdit3KeyDown
    end
    object DBEdit4: TDBEdit
      Tag = 36
      Left = 448
      Top = 136
      Width = 65
      Height = 21
      Color = clMoneyGreen
      DataField = 'Push_Velocity'
      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 = 8
      OnKeyDown = DBEdit4KeyDown
    end
  end
  inherited Base_DataS: TDataSource
    DataSet = Data_Frm.LaneClass_AdoTab
    Left = 216
    Top = 40
  end
  object RockProperty_DataS: TDataSource
    DataSet = Data_Frm.RockProperty_AdoTab
    Left = 248
    Top = 40
  end
  object SectionType_DataS: TDataSource
    DataSet = Data_Frm.SectionType_AdoTab
    Left = 280
    Top = 40
  end
  object SupportType_DataS: TDataSource
    DataSet = Data_Frm.SupportType_AdoTab
    Left = 320
    Top = 40
  end
  object DrillTech_DataS: TDataSource
    DataSet = Data_Frm.DrillTech_AdoTab
    Left = 360
    Top = 40
  end
end