worker_unt.dfm

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

inherited Worker_Frm: TWorker_Frm
  VertScrollBar.Range = 0
  Align = alClient
  BorderIcons = [biHelp]
  BorderStyle = bsNone
  Caption = 'Worker_Frm'
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    object Label1: TLabel [0]
      Tag = 11
      Left = -16
      Top = 56
      Width = 113
      Height = 25
      AutoSize = False
      Caption = '      '#24037#20316#31867#22411#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 = 176
      Top = 48
      Width = 81
      Height = 25
      AutoSize = False
      Caption = '   '#38431#21517#31216#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel [2]
      Tag = 15
      Left = 312
      Top = 48
      Width = 89
      Height = 25
      AutoSize = False
      Caption = '        '#20154#25968#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label4: TLabel [3]
      Tag = 21
      Left = -22
      Top = 134
      Width = 113
      Height = 25
      AutoSize = False
      Caption = '      '#25152#22312#21306#38431#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label5: TLabel [4]
      Tag = 23
      Left = 170
      Top = 126
      Width = 81
      Height = 25
      AutoSize = False
      Caption = '  '#35013#22791#24773#20917#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label6: TLabel [5]
      Tag = 25
      Left = 306
      Top = 126
      Width = 89
      Height = 25
      AutoSize = False
      Caption = '          '#38431#38271#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
      Columns = <
        item
          Expanded = False
          FieldName = 'WorkGroup_Id'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'WorkGroup_Type'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'WorkGroup_Name'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'WorkerAmount'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Manger'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Equip'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'BelongedArea'
          Visible = True
        end>
    end
    object DBEdit1: TDBEdit
      Tag = 16
      Left = 392
      Top = 72
      Width = 121
      Height = 21
      Color = clMoneyGreen
      DataField = 'WorkerAmount'
      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
      OnKeyDown = DBEdit1KeyDown
    end
    object DBEdit2: TDBEdit
      Tag = 22
      Left = 42
      Top = 158
      Width = 121
      Height = 21
      Color = clMoneyGreen
      DataField = 'BelongedArea'
      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 = DBEdit2KeyDown
    end
    object DBComboBox1: TDBComboBox
      Tag = 12
      Left = 48
      Top = 72
      Width = 145
      Height = 21
      Color = clMoneyGreen
      DataField = 'WorkGroup_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 = (
        #37319#29028
        #25496#36827
        #24320#25299
        #20462#25252
        #20934#22791
        #36741#21161)
      ParentFont = False
      TabOrder = 3
      OnKeyDown = DBComboBox1KeyDown
    end
    object DBComboBox2: TDBComboBox
      Tag = 14
      Left = 232
      Top = 72
      Width = 145
      Height = 21
      Color = clMoneyGreen
      DataField = 'WorkGroup_Name'
      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 = (
        #32508#37319#21306
        #39640#26222#21306
        #37319#19968#21306
        #37319#20108#21306
        #20844#21496
        #25496#19968#21306
        #25496#20108#21306
        #25496#19977#21306
        #32508#25496#21306)
      ParentFont = False
      TabOrder = 4
      OnKeyDown = DBComboBox2KeyDown
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Tag = 24
      Left = 208
      Top = 160
      Width = 113
      Height = 21
      Color = clMoneyGreen
      DataField = 'Equip'
      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 = DBLookupComboBox1KeyDown
    end
    object DBEdit3: TDBEdit
      Tag = 26
      Left = 376
      Top = 160
      Width = 121
      Height = 21
      Color = clMoneyGreen
      DataField = 'Manger'
      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 = DBEdit3KeyDown
    end
  end
  inherited Base_DataS: TDataSource
    DataSet = Data_Frm.Worker_AdoTab
    Top = 40
  end
  object MineEquip_DataS: TDataSource
    DataSet = Data_Frm.MineEquip_AdoTab
    Left = 304
    Top = 40
  end
  object DrillEquip_DataS: TDataSource
    DataSet = Data_Frm.DrillEquip_AdoTab
    Left = 344
    Top = 40
  end
end