firstfacedrillworkpriortask_unt.dfm

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

inherited FirstFaceDrillWorkPriorTask_Frm: TFirstFaceDrillWorkPriorTask_Frm
  Left = 168
  Top = 120
  Width = 586
  Height = 305
  Caption = #26032#37319#21306#27491#24335#29983#20135#21069#24517#39035#23436#25104#30340#24037#20316#65288#24320#22987#20934#22791#31532#19968#20010#37319#29028#24037#20316#38754#21069#35201#23436#25104#30340#24037#20316#65289
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Width = 578
    inherited BitBtn1: TBitBtn
      Left = 8
    end
    inherited BitBtn2: TBitBtn
      Left = 80
    end
    inherited BitBtn3: TBitBtn
      Left = 160
    end
    inherited BitBtn4: TBitBtn
      Left = 224
      Caption = #19978#26465
    end
    inherited BitBtn5: TBitBtn
      Left = 272
      Caption = #19979#26465
    end
    inherited BitBtn6: TBitBtn
      Left = 328
      Caption = #26368#21069
    end
    inherited BitBtn7: TBitBtn
      Left = 384
      Caption = #26368#21518
    end
    inherited BitBtn8: TBitBtn
      Left = 440
    end
  end
  inherited Panel2: TPanel
    Width = 578
    Height = 237
    object Label1: TLabel [0]
      Tag = 11
      Left = 24
      Top = 80
      Width = 89
      Height = 25
      AutoSize = False
      Caption = #25496#36827#24037#20316#20219#21153#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel [1]
      Tag = 13
      Left = 272
      Top = 80
      Width = 89
      Height = 25
      AutoSize = False
      Caption = #21069#32622#20219#21153#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    inherited DBGrid1: TDBGrid
      Top = 194
      Width = 576
      Columns = <
        item
          Expanded = False
          FieldName = 'Sequence'
          Width = 40
          Visible = True
        end
        item
          Expanded = False
          FieldName = #25496#36827#24037#24207
          Width = 200
          Visible = True
        end
        item
          Expanded = False
          FieldName = #21069#24037#24207
          Width = 200
          Visible = True
        end>
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Tag = 12
      Left = 112
      Top = 80
      Width = 121
      Height = 21
      Color = clMoneyGreen
      DataField = 'DrillTask_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 = 1
      OnClick = DBLookupComboBox1Click
      OnKeyDown = DBLookupComboBox1KeyDown
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Tag = 14
      Left = 352
      Top = 80
      Width = 129
      Height = 21
      Color = clMoneyGreen
      DataField = 'PriorTask_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
      OnKeyDown = DBLookupComboBox2KeyDown
    end
    object BitBtn9: TBitBtn
      Left = 224
      Top = 8
      Width = 75
      Height = 25
      Caption = #25554#20837
      TabOrder = 3
      OnClick = BitBtn9Click
    end
  end
  inherited Base_DataS: TDataSource
    DataSet = Data_Frm.FirstFaceDrillPriorTask_AdoTab
    Left = 384
    Top = 240
  end
  object DrillWorkTask_DataS: TDataSource
    DataSet = DrillWorkTask_AdoQ
    Left = 160
    Top = 112
  end
  object SelectPriorTask_DataS: TDataSource
    DataSet = SelectPriorTask_AdoQ
    Left = 432
    Top = 120
  end
  object SelectPriorTask_AdoQ: TADOQuery
    Connection = Data_Frm.MD_Connection
    Parameters = <>
    Left = 400
    Top = 120
  end
  object DrillWorkTask_AdoQ: TADOQuery
    Connection = Data_Frm.MD_Connection
    Parameters = <>
    Left = 120
    Top = 112
  end
end