minerelayedit_unt.dfm

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

inherited MineRelayEdit_Frm: TMineRelayEdit_Frm
  VertScrollBar.Range = 0
  Align = alClient
  BorderIcons = []
  BorderStyle = bsNone
  Caption = 'MineRelayEdit_Frm'
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    inherited BitBtn1: TBitBtn
      Enabled = False
    end
    inherited BitBtn2: TBitBtn
      Enabled = False
    end
  end
  inherited Panel2: TPanel
    object Label1: TLabel [0]
      Tag = 11
      Left = 16
      Top = 48
      Width = 66
      Height = 13
      Caption = '      '#22238#37319#38754#65306
    end
    object Label2: TLabel [1]
      Tag = 13
      Left = 184
      Top = 48
      Width = 75
      Height = 13
      Caption = '         '#37319#29028#38431#65306
    end
    object Label3: TLabel [2]
      Tag = 15
      Left = 368
      Top = 48
      Width = 72
      Height = 13
      Caption = '            '#24037#26399#65306
    end
    object Label4: TLabel [3]
      Tag = 21
      Left = 8
      Top = 112
      Width = 96
      Height = 13
      Caption = '   '#23454#38469' '#24320#22987#26085#26399#65306
    end
    object Label5: TLabel [4]
      Tag = 23
      Left = 272
      Top = 112
      Width = 99
      Height = 13
      Caption = '     '#23454#38469#32467#26463#26085#26399#65306
    end
    inherited DBGrid1: TDBGrid
      Columns = <
        item
          Expanded = False
          FieldName = 'Sequence'
          Width = 40
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Project_Id'
          Width = 40
          Visible = True
        end
        item
          Expanded = False
          FieldName = #22238#37319#38754
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = #37319#29028#38431
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Begin_Date'
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'End_Date'
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'TaskTime'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Day_Progress'
          Visible = True
        end>
    end
    object BitBtn9: TBitBtn
      Left = 200
      Top = 8
      Width = 75
      Height = 25
      Caption = 'OK'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = BitBtn9Click
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Tag = 12
      Left = 88
      Top = 48
      Width = 97
      Height = 21
      Color = clMoneyGreen
      DataField = 'Face_Lane'
      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 = 'Face_Id'
      ListField = 'Name'
      ListSource = Face_DataS
      ParentFont = False
      ReadOnly = True
      TabOrder = 2
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Tag = 14
      Left = 264
      Top = 48
      Width = 105
      Height = 21
      Color = clMoneyGreen
      DataField = 'WorkGroup'
      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 = MineWorker_DataS
      ParentFont = False
      ReadOnly = True
      TabOrder = 3
    end
    object DBEdit1: TDBEdit
      Tag = 16
      Left = 448
      Top = 48
      Width = 57
      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 = 4
    end
    object DBEdit2: TDBEdit
      Tag = 22
      Left = 120
      Top = 112
      Width = 121
      Height = 21
      Color = clMoneyGreen
      DataField = 'Begin_Date'
      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
    end
    object DBEdit3: TDBEdit
      Tag = 24
      Left = 384
      Top = 112
      Width = 121
      Height = 21
      Color = clMoneyGreen
      DataField = 'End_Date'
      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
    end
  end
  inherited Base_DataS: TDataSource
    DataSet = Data_Frm.MineRelayTrace_AdoTab
    Left = 88
    Top = 304
  end
  object Face_DataS: TDataSource
    DataSet = Data_Frm.Face_AdoTab
    Left = 96
    Top = 64
  end
  object MineWorker_DataS: TDataSource
    DataSet = MineWorker_Q
    Left = 328
    Top = 56
  end
  object MineWorker_Q: TADOQuery
    Connection = Data_Frm.MD_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#26045#24037#38431'f '
      'where WorkGroup_Type='#39#37319#29028#39)
    Left = 296
    Top = 56
  end
end