u_employ_select.dfm

超信人力资源管理系统,一个用Delphi编写的人事管理系统

object F_employ_select: TF_employ_select
  Left = 313
  Top = 166
  Width = 362
  Height = 335
  Caption = #20154#21592#36873#25321
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 16
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 0
    Width = 354
    Height = 308
    Align = alClient
    DataSource = DataSource1
    FooterColor = clWindow
    FooterFont.Charset = ANSI_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -13
    FooterFont.Name = 'Arial'
    FooterFont.Style = []
    FooterRowCount = 1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'Arial'
    TitleFont.Style = []
    OnDblClick = DBGridEh1DblClick
    OnDrawColumnCell = DBGridEh1DrawColumnCell
    Columns = <
      item
        EditButtons = <>
        FieldName = 'EMp_id'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'Emp_name'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'Emp_bmcode'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'Emp_bmname'
        Footers = <>
      end>
  end
  object Q_main: TADOQuery
    Active = True
    Connection = DM.ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'Select EMp_id,Emp_name,EMP_iccard,Emp_bmcode,Emp_bmname From TB_' +
        'Employ')
    Left = 80
    Top = 8
    object Q_mainEMp_id: TStringField
      DisplayLabel = #24037#21495
      DisplayWidth = 10
      FieldName = 'EMp_id'
      Size = 10
    end
    object Q_mainEmp_name: TStringField
      DisplayLabel = #22995#21517
      DisplayWidth = 8
      FieldName = 'Emp_name'
    end
    object Q_mainEMP_iccard: TStringField
      DisplayLabel = #21345#21495
      FieldName = 'EMP_iccard'
    end
    object Q_mainEmp_bmcode: TStringField
      DisplayLabel = #37096#38376#32534#21495
      DisplayWidth = 13
      FieldName = 'Emp_bmcode'
    end
    object Q_mainEmp_bmname: TStringField
      DisplayLabel = #37096#38376#21517#31216
      DisplayWidth = 14
      FieldName = 'Emp_bmname'
    end
  end
  object DataSource1: TDataSource
    DataSet = Q_main
    Left = 144
    Top = 8
  end
end