minestatistic_unt.dfm

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

inherited MineStatistic_Frm: TMineStatistic_Frm
  Left = 122
  Top = 143
  Width = 621
  Height = 427
  Caption = #37319#29028#32479#35745#31383#21475
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Width = 613
  end
  inherited Panel2: TPanel
    Width = 613
    Height = 359
    PopupMenu = PopupMenu1
    object Label1: TLabel [0]
      Tag = 11
      Left = 24
      Top = 16
      Width = 48
      Height = 13
      Caption = #37319#29028#38431#65306
    end
    object Label2: TLabel [1]
      Tag = 13
      Left = 280
      Top = 16
      Width = 48
      Height = 13
      Caption = #22238#37319#38754#65306
    end
    object Label3: TLabel [2]
      Tag = 21
      Left = 16
      Top = 64
      Width = 84
      Height = 13
      Caption = #32479#35745#24320#22987#26085#26399#65306
    end
    object Label4: TLabel [3]
      Tag = 23
      Left = 272
      Top = 64
      Width = 84
      Height = 13
      Caption = #32479#35745#32467#26463#26085#26399#65306
    end
    object Label5: TLabel [4]
      Tag = 31
      Left = 24
      Top = 112
      Width = 60
      Height = 13
      Caption = #23436#25104#20135#37327#65306
    end
    object Label6: TLabel [5]
      Tag = 33
      Left = 184
      Top = 112
      Width = 72
      Height = 13
      Caption = #35813#38754#21097#20313#37327#65306
    end
    object Label7: TLabel [6]
      Tag = 35
      Left = 384
      Top = 112
      Width = 60
      Height = 13
      Caption = #32047#35745#23436#25104#65306
    end
    inherited DBGrid1: TDBGrid
      Top = 316
      Width = 611
      Columns = <
        item
          Expanded = False
          FieldName = 'Id'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'WorkGroupName'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FaceName'
          Width = 90
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Begin_Date'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'End_Date'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Finished'
          Width = 75
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Remain'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Finished_Sum'
          Title.Caption = #32047#35745#23436#25104'(t)'
          Width = 75
          Visible = True
        end>
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Tag = 12
      Left = 88
      Top = 16
      Width = 145
      Height = 21
      Color = clMoneyGreen
      DataField = 'WorkGroup_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 = 'WorkGroup_Id'
      ListField = 'WorkGroup_Name'
      ListSource = MineTeam_DataS
      ParentFont = False
      TabOrder = 1
      OnClick = DBLookupComboBox1Click
      OnKeyDown = DBLookupComboBox1KeyDown
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Tag = 14
      Left = 368
      Top = 16
      Width = 145
      Height = 21
      Color = clMoneyGreen
      DataField = 'Item_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
      ParentFont = False
      TabOrder = 2
      OnClick = DBLookupComboBox2Click
      OnKeyDown = DBLookupComboBox2KeyDown
    end
    object DateTimePicker1: TDateTimePicker
      Tag = 22
      Left = 104
      Top = 64
      Width = 121
      Height = 21
      CalAlignment = dtaLeft
      Date = 38026.9286472801
      Time = 38026.9286472801
      Color = clMoneyGreen
      DateFormat = dfShort
      DateMode = dmComboBox
      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
      Kind = dtkDate
      ParseInput = False
      ParentFont = False
      TabOrder = 3
      OnKeyDown = DateTimePicker1KeyDown
    end
    object DateTimePicker2: TDateTimePicker
      Tag = 24
      Left = 368
      Top = 64
      Width = 129
      Height = 21
      CalAlignment = dtaLeft
      Date = 38026.9287355324
      Time = 38026.9287355324
      Color = clMoneyGreen
      DateFormat = dfShort
      DateMode = dmComboBox
      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
      Kind = dtkDate
      ParseInput = False
      ParentFont = False
      TabOrder = 4
      OnKeyDown = DateTimePicker2KeyDown
    end
    object DBEdit1: TDBEdit
      Tag = 32
      Left = 104
      Top = 112
      Width = 57
      Height = 21
      Color = clMoneyGreen
      DataField = 'Finished'
      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 = 5
      OnKeyDown = DBEdit1KeyDown
    end
    object DBEdit2: TDBEdit
      Tag = 34
      Left = 272
      Top = 112
      Width = 65
      Height = 21
      Color = clMoneyGreen
      DataField = 'Remain'
      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 = 36
      Left = 464
      Top = 112
      Width = 89
      Height = 21
      Color = clMoneyGreen
      DataField = 'Finished_Sum'
      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
  end
  inherited Base_DataS: TDataSource
    DataSet = Data_Frm.MineStat_AdoTab
    Left = 144
    Top = 304
  end
  object MineTeam_AdoQ: TADOQuery
    Connection = Data_Frm.MD_Connection
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'v'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    SQL.Strings = (
      'select WorkGroup_Id,WorkGroup_Type,WorkGroup_Name from '#26045#24037#38431'f'
      'where WorkGroup_Type=:v')
    Left = 112
    Top = 40
  end
  object RelayFace_AdoQ: TADOQuery
    Connection = Data_Frm.MD_Connection
    Parameters = <>
    Left = 400
    Top = 40
  end
  object MineTeam_DataS: TDataSource
    DataSet = MineTeam_AdoQ
    Left = 144
    Top = 40
  end
  object RelayFace_DataS: TDataSource
    Left = 440
    Top = 40
  end
  object PopupMenu1: TPopupMenu
    Left = 264
    Top = 200
    object N1: TMenuItem
      Caption = #37319#29028#25509#26367#35745#21010#34920
      OnClick = N1Click
    end
  end
end