laneinfo_unt.dfm

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

      ParentFont = False
      TabOrder = 2
      OnKeyDown = DBEdit2KeyDown
    end
    object DBEdit3: TDBEdit
      Tag = 46
      Left = 432
      Top = 216
      Width = 73
      Height = 21
      Color = clMoneyGreen
      DataField = 'TaskTime'
      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 = 16
      Left = 448
      Top = 64
      Width = 65
      Height = 21
      Color = clMoneyGreen
      DataField = '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
      ItemHeight = 13
      Items.Strings = (
        #24320#25299#24055#36947
        #20934#22791#24055#36947
        #22238#37319#24055#36947
        #30800#23460)
      ParentFont = False
      TabOrder = 4
      OnKeyDown = DBComboBox1KeyDown
    end
    object DBComboBox2: TDBComboBox
      Tag = 22
      Left = 104
      Top = 128
      Width = 81
      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
      ItemHeight = 13
      Items.Strings = (
        #30452#35282#26799#24418
        #30697#24418
        #22278#24418
        #21322#22278#25329#24418
        #26012#39030#26799#24418
        #22278#24359#24418
        #26377#24213#25329#30340#21322#22278#25329
        #19977#24515#25329#24418
        #26799#24418)
      ParentFont = False
      TabOrder = 5
      OnKeyDown = DBComboBox2KeyDown
    end
    object DBComboBox3: TDBComboBox
      Tag = 26
      Left = 424
      Top = 128
      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
      ItemHeight = 13
      Items.Strings = (
        #38170#21943
        #26550#26842
        #30732#30905
        #38170#32593
        #32852#21512#25903#25252)
      ParentFont = False
      TabOrder = 6
      OnKeyDown = DBComboBox3KeyDown
    end
    object DBComboBox4: TDBComboBox
      Tag = 32
      Left = 64
      Top = 168
      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
      ItemHeight = 13
      Items.Strings = (
        #28846#25496
        #26426#25496)
      ParentFont = False
      TabOrder = 7
      OnKeyDown = DBComboBox4KeyDown
    end
    object DBComboBox5: TDBComboBox
      Tag = 34
      Left = 224
      Top = 168
      Width = 73
      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
      ItemHeight = 13
      Items.Strings = (
        #23721#24055
        #29028#24055
        #21322#29028#23721#24055)
      ParentFont = False
      TabOrder = 8
      OnKeyDown = DBComboBox5KeyDown
    end
    object BitBtn9: TBitBtn
      Left = 136
      Top = 8
      Width = 75
      Height = 25
      Caption = #25554#20837
      Enabled = False
      TabOrder = 9
      OnClick = BitBtn9Click
    end
    object BitBtn10: TBitBtn
      Left = 240
      Top = 8
      Width = 75
      Height = 25
      Caption = #21069#31227
      Enabled = False
      TabOrder = 10
      OnClick = BitBtn10Click
    end
    object BitBtn11: TBitBtn
      Left = 352
      Top = 8
      Width = 75
      Height = 25
      Caption = #21518#31227
      Enabled = False
      TabOrder = 11
      OnClick = BitBtn11Click
    end
    object DBEdit4: TDBEdit
      Tag = 42
      Left = 96
      Top = 216
      Width = 81
      Height = 21
      Color = clMoneyGreen
      DataField = 'WorkQuantity'
      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 = 12
      OnKeyDown = DBEdit4KeyDown
    end
    object DBEdit5: TDBEdit
      Tag = 44
      Left = 264
      Top = 216
      Width = 97
      Height = 21
      Color = clMoneyGreen
      DataField = 'DayProgress'
      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 = 13
      OnKeyDown = DBEdit5KeyDown
    end
    object DBComboBox6: TDBComboBox
      Tag = 36
      Left = 400
      Top = 168
      Width = 89
      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 = (
        #24050#23436#24037
        #24050#24320#24037
        #24453#24320#24037)
      ParentFont = False
      TabOrder = 14
      OnKeyDown = DBComboBox6KeyDown
    end
    object BitBtn12: TBitBtn
      Left = 32
      Top = 8
      Width = 75
      Height = 25
      Caption = #24418#25104#20219#21153
      TabOrder = 15
      OnClick = BitBtn12Click
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Tag = 12
      Left = 72
      Top = 64
      Width = 81
      Height = 21
      Color = clMoneyGreen
      DataField = 'Project_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 = 'Project_Id'
      ListField = 'Project_Id'
      ListSource = Project_DataS
      ParentFont = False
      TabOrder = 16
      OnKeyDown = DBLookupComboBox1KeyDown
    end
    object BitBtn13: TBitBtn
      Left = 456
      Top = 8
      Width = 75
      Height = 25
      Caption = #26102#38388#35745#31639
      TabOrder = 17
      OnClick = BitBtn13Click
    end
  end
  inherited Base_DataS: TDataSource
    DataSet = Data_Frm.Lane_AdoTab
    Left = 104
    Top = 304
  end
  object Project_ADOQ: TADOQuery
    Connection = Data_Frm.MD_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select distinct Project_Id from '#22238#37319#25509#26367'f')
    Left = 8
    Top = 32
  end
  object Project_DataS: TDataSource
    DataSet = Project_ADOQ
    Left = 8
    Top = 72
  end
end