unit4.dfm

人事管理(delphi源码)

object Form4: TForm4
  Left = 148
  Top = 60
  BorderStyle = bsNone
  Caption = '人员统计'
  ClientHeight = 348
  ClientWidth = 536
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  PixelsPerInch = 96
  TextHeight = 13
  object XP_Form1: TXP_Form
    Left = 0
    Top = 0
    Width = 536
    Height = 348
    BtnClose = True
    BtnMax = False
    BtnMin = False
    BtnHelp = False
    IconOffSet = 0
    CaptionOffSet = 0
    BorderStyle = bsSizeable
    Magnet = 0
    TopMost = False
    BoldCaption = True
    ClientPanel = Panel1
    UseSystemFont = True
    CaptionShadow = True
    PictureTrans = False
    PictureTransColor = clBlack
    Color = 15136504
  end
  object Label3: TLabel
    Left = 360
    Top = 519
    Width = 91
    Height = 16
    Caption = '请输入职工年龄'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Panel1: TPanel
    Left = 3
    Top = 29
    Width = 530
    Height = 316
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 488
      Width = 52
      Height = 16
      Caption = '是否离厂'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 175
      Top = 490
      Width = 65
      Height = 16
      Caption = '请选择分类'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 354
      Top = 489
      Width = 91
      Height = 16
      Caption = '请输入职工年龄'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBGrid1: TDBGrid
      Left = 0
      Top = 1
      Width = 793
      Height = 472
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
    object Button1: TButton
      Left = 592
      Top = 484
      Width = 73
      Height = 25
      Caption = '刷  新'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 680
      Top = 484
      Width = 73
      Height = 25
      Caption = '退  出'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = Button2Click
    end
    object ComboBox1: TComboBox
      Left = 64
      Top = 483
      Width = 97
      Height = 24
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 16
      ParentFont = False
      TabOrder = 3
      Text = '忽略'
      Items.Strings = (
        '忽略'
        '在厂职工'
        '离厂职工')
    end
    object ComboBox2: TComboBox
      Left = 245
      Top = 485
      Width = 97
      Height = 24
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 16
      ParentFont = False
      TabOrder = 4
      Text = '按年龄统计'
      OnChange = ComboBox2Change
      Items.Strings = (
        '按年龄统计'
        '按性别统计'
        '按车间统计'
        '按工资形式统计'
        '按文化程度统计'
        '显示全厂职工'
        ' ')
    end
    object ComboBox3: TComboBox
      Left = 475
      Top = 485
      Width = 97
      Height = 21
      ItemHeight = 13
      TabOrder = 5
    end
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'F:\zqw\workdir'
    TableName = 'dagl.DB'
    Left = 51
    Top = 77
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 59
    Top = 149
  end
end