📄 faceinfo_unt.dfm

📁 煤矿行业采掘接替计划自动生成系统
💻 DFM
📖 第 1 页 / 共 2 页
字号:
上一页 12
      OnKeyDown = DBEdit2KeyDown
    end
    object DBEdit3: TDBEdit
      Tag = 16
      Left = 408
      Top = 32
      Width = 121
      Height = 21
      Hint = #36755#20837#21518#35831#25353#22238#36710#65281
      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
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnKeyDown = DBEdit3KeyDown
    end
    object DBEdit4: TDBEdit
      Tag = 22
      Left = 96
      Top = 72
      Width = 81
      Height = 21
      Hint = #36755#20837#21518#35831#25353#22238#36710#65281
      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
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnExit = DBEdit4Exit
      OnKeyDown = DBEdit4KeyDown
    end
    object DBEdit5: TDBEdit
      Tag = 44
      Left = 248
      Top = 160
      Width = 65
      Height = 21
      Hint = #36755#20837#21518#35831#25353#22238#36710#65281
      Color = clMoneyGreen
      DataField = 'Day_Progress'
      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
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      OnKeyDown = DBEdit5KeyDown
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Tag = 24
      Left = 248
      Top = 72
      Width = 65
      Height = 21
      Hint = #36755#20837#21518#35831#25353#22238#36710#65281
      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
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      OnKeyDown = DBLookupComboBox1KeyDown
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Tag = 32
      Left = 88
      Top = 112
      Width = 81
      Height = 21
      Hint = #36755#20837#21518#35831#25353#22238#36710#65281
      Color = clMoneyGreen
      DataField = 'MiningArea'
      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 = 'Area_Id'
      ListField = 'Area_Name'
      ListSource = Area_DataS
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
      OnKeyDown = DBLookupComboBox2KeyDown
    end
    object DBLookupComboBox3: TDBLookupComboBox
      Tag = 34
      Left = 240
      Top = 112
      Width = 57
      Height = 21
      Hint = #36755#20837#21518#35831#25353#22238#36710#65281
      Color = clMoneyGreen
      DataField = 'Mined'
      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 = 'State_Id'
      ListField = 'State_Name'
      ListSource = MineState_DataS
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 8
      OnKeyDown = DBLookupComboBox3KeyDown
    end
    object DBEdit7: TDBEdit
      Tag = 36
      Left = 384
      Top = 112
      Width = 57
      Height = 21
      Hint = #36755#20837#21518#35831#25353#22238#36710#65281
      Color = clMoneyGreen
      DataField = 'Finish_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
      ParentShowHint = False
      ShowHint = True
      TabOrder = 9
      OnKeyDown = DBEdit7KeyDown
    end
    object DBEdit8: TDBEdit
      Tag = 38
      Left = 512
      Top = 112
      Width = 65
      Height = 21
      Hint = #36755#20837#21518#35831#25353#22238#36710#65281
      Color = clMoneyGreen
      DataField = 'Remain_Reserve'
      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
      ParentShowHint = False
      ShowHint = True
      TabOrder = 10
      OnKeyDown = DBEdit8KeyDown
    end
    object DBEdit9: TDBEdit
      Tag = 42
      Left = 112
      Top = 160
      Width = 57
      Height = 21
      Hint = #36755#20837#21518#35831#25353#22238#36710#65281
      Color = clMoneyGreen
      DataField = 'Day_Output'
      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
      ParentShowHint = False
      ShowHint = True
      TabOrder = 11
      OnKeyDown = DBEdit9KeyDown
    end
    object DBEdit6: TDBEdit
      Tag = 26
      Left = 360
      Top = 72
      Width = 81
      Height = 21
      Color = clMoneyGreen
      DataField = 'Consistency'
      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 = DBEdit6KeyDown
    end
    object DBEdit11: TDBEdit
      Tag = 46
      Left = 400
      Top = 160
      Width = 57
      Height = 21
      Color = clMoneyGreen
      DataField = 'Repair_Time'
      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 = DBEdit11KeyDown
    end
    object DBEdit10: TDBEdit
      Tag = 48
      Left = 544
      Top = 160
      Width = 57
      Height = 21
      Color = clMoneyGreen
      DataField = 'Cycle_Output'
      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 = 14
      OnKeyDown = DBEdit10KeyDown
    end
  end
  inherited Base_DataS: TDataSource
    DataSet = Data_Frm.Face_AdoTab
    Left = 232
    Top = 296
  end
  object Area_DataS: TDataSource
    DataSet = Area_ADOQ
    Left = 128
    Top = 152
  end
  object MineTech_DataS: TDataSource
    DataSet = Data_Frm.MineTech_AdoTab
    Left = 280
    Top = 8
  end
  object MineState_DataS: TDataSource
    DataSet = Data_Frm.MineState_AdoTab
    Left = 352
    Top = 8
  end
  object Coal_DataS: TDataSource
    DataSet = Data_Frm.Coal_AdoTab
    Left = 392
    Top = 8
  end
  object Area_ADOQ: TADOQuery
    Connection = Data_Frm.MD_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select Area_Id,Area_Name,state from '#37319#21306'f'
      'where state<>'#39#25253#24223#37319#21306#39)
    Left = 96
    Top = 152
  end
end
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -