gzlr_unit.~dfm

通用人力资源系统,分类可以自设定 可以熟练掌握DELPHI语言

object gzlr: Tgzlr
  Left = 207
  Top = 147
  Width = 764
  Height = 612
  Caption = #34218#36164#65293'>'#25968#25454#24405#20837
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 597
    Top = 97
    Height = 469
    Align = alRight
    Color = 16711808
    ParentColor = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 97
    Width = 597
    Height = 469
    Align = alClient
    Caption = 'Panel1'
    TabOrder = 0
    object DBGridEh1: TDBGridEh
      Left = 1
      Top = 1
      Width = 595
      Height = 467
      Align = alClient
      AllowedOperations = [alopUpdateEh]
      DataSource = DataSource2
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      FooterColor = 11796479
      FooterFont.Charset = GB2312_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -13
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      FooterRowCount = 1
      FrozenCols = 2
      Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
      OptionsEh = [dghFixed3D, dghFooter3D, dghHighlightFocus, dghClearSelection, dghEnterAsTab, dghRowHighlight, dghDblClickOptimizeColWidth]
      ParentFont = False
      RowHeight = 20
      SortLocal = True
      SumList.VirtualRecords = True
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      UseMultiTitle = True
      OnDrawColumnCell = DBGridEh1DrawColumnCell
      OnExit = DBGridEh1Exit
      OnGetCellParams = DBGridEh1GetCellParams
      OnKeyPress = DBGridEh1KeyPress
      Columns = <
        item
          EditButtons = <>
          FieldName = 'A1'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'A2'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'A3'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'A4'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'A5'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'A6'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'A7'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'A8'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'A9'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'A10'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'A11'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'A12'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'A13'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'A14'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'A15'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'A16'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'A18'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'A17'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'A19'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'A20'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'A21'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'A22'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'A23'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'A24'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'A25'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'A26'
          Footers = <>
          OnUpdateData = DBGridEh1ColumnsUpdateData
        end
        item
          EditButtons = <>
          FieldName = 'A27'
          Footers = <>
          OnUpdateData = DBGridEh1ColumnsUpdateData
        end
        item
          EditButtons = <>
          FieldName = 'A28'
          Footers = <>
          OnUpdateData = DBGridEh1ColumnsUpdateData
        end
        item
          EditButtons = <>
          FieldName = 'A29'
          Footers = <>
          OnUpdateData = DBGridEh1ColumnsUpdateData
        end
        item
          EditButtons = <>
          FieldName = 'A30'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'A31'
          Footer.ValueType = fvtSum
          Footers = <>
          OnUpdateData = DBGridEh1ColumnsUpdateData
        end
        item
          EditButtons = <>
          FieldName = 'A32'
          Footer.ValueType = fvtSum
          Footers = <>
          OnUpdateData = DBGridEh1ColumnsUpdateData
        end
        item
          EditButtons = <>
          FieldName = 'A33'
          Footer.ValueType = fvtSum
          Footers = <>
          OnUpdateData = DBGridEh1ColumnsUpdateData
        end
        item
          EditButtons = <>
          FieldName = 'A34'
          Footer.ValueType = fvtSum
          Footers = <>
          OnUpdateData = DBGridEh1ColumnsUpdateData
        end
        item
          EditButtons = <>
          FieldName = 'A35'
          Footer.ValueType = fvtSum
          Footers = <>
          OnUpdateData = DBGridEh1ColumnsUpdateData
        end
        item
          EditButtons = <>
          FieldName = 'A36'
          Footer.ValueType = fvtSum
          Footers = <>
          OnUpdateData = DBGridEh1ColumnsUpdateData
        end
        item
          EditButtons = <>
          FieldName = 'A37'
          Footer.ValueType = fvtSum
          Footers = <>
          OnUpdateData = DBGridEh1ColumnsUpdateData
        end
        item
          EditButtons = <>
          FieldName = 'A38'
          Footer.ValueType = fvtSum
          Footers = <>
          OnUpdateData = DBGridEh1ColumnsUpdateData
        end
        item
          EditButtons = <>
          FieldName = 'A39'
          Footer.ValueType = fvtSum
          Footers = <>
          OnUpdateData = DBGridEh1ColumnsUpdateData
        end
        item
          EditButtons = <>
          FieldName = 'A40'
          Footer.ValueType = fvtSum
          Footers = <>
          OnUpdateData = DBGridEh1ColumnsUpdateData
        end
        item
          EditButtons = <>
          FieldName = 'A41'
          Footer.ValueType = fvtSum
          Footers = <>
          OnUpdateData = DBGridEh1ColumnsUpdateData
        end
        item
          EditButtons = <>
          FieldName = 'A42'
          Footer.ValueType = fvtSum
          Footers = <>
          OnUpdateData = DBGridEh1ColumnsUpdateData
        end
        item
          EditButtons = <>
          FieldName = 'A43'
          Footer.ValueType = fvtSum
          Footers = <>
          OnUpdateData = DBGridEh1ColumnsUpdateData
        end
        item
          EditButtons = <>