fmain.~dfm

这是一款功能齐全的人力资源管理软件系统,是成功运用于企业的管理软件,具有很高的研究价值

object Main: TMain
  Left = 186
  Top = 148
  Width = 783
  Height = 516
  Caption = 'RedHR-Office'#20154#21147#36164#28304#31649#29702#31995#32479
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnActivate = FormActivate
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object StatusBar1: TStatusBar
    Left = 0
    Top = 451
    Width = 775
    Height = 19
    Panels = <
      item
        Alignment = taCenter
        Text = 'RedTools Software'
        Width = 160
      end
      item
        Width = 50
      end
      item
        Width = 50
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 56
    Width = 775
    Height = 395
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 161
      Top = 0
      Height = 395
      OnMoved = Splitter1Moved
    end
    object dxDBTreeView1: TdxDBTreeView
      Left = 0
      Top = 0
      Width = 161
      Height = 395
      ShowNodeHint = True
      DataSource = BranchSource
      DisplayField = 'branchname'
      KeyField = 'id'
      ListField = 'branchname'
      ParentField = 'pid'
      SeparatedSt = ' - '
      RaiseOnError = True
      Indent = 19
      Align = alLeft
      Color = clWhite
      ParentColor = False
      Options = [trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
      SelectedIndex = -1
      TabOrder = 0
      OnClick = dxDBTreeView1Click
      OnMouseDown = dxDBTreeView1MouseDown
      OnDblClick = N41Click
      PopupMenu = PopupMenu2
      ParentShowHint = False
      ShowHint = True
      StateImages = ImageList1
    end
    object Panel2: TPanel
      Left = 164
      Top = 0
      Width = 611
      Height = 395
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object Splitter2: TSplitter
        Left = 0
        Top = 189
        Width = 611
        Height = 3
        Cursor = crVSplit
        Align = alBottom
      end
      object cxGrid1: TcxGrid
        Left = 0
        Top = 0
        Width = 611
        Height = 189
        Align = alClient
        PopupMenu = PopupMenu1
        TabOrder = 0
        OnClick = cxGrid1Click
        LookAndFeel.Kind = lfUltraFlat
        LookAndFeel.NativeStyle = True
        object cxGrid1DBTableView1: TcxGridDBTableView
          OnDblClick = N29Click
          OnKeyPress = cxGrid1DBTableView1KeyPress
          OnMouseDown = cxGrid1DBTableView1MouseDown
          DataController.DataSource = staffsource
          DataController.Filter.Criteria = {FFFFFFFF0000000000}
          DataController.KeyFieldNames = 'r_staffinfo.id'
          DataController.Summary.DefaultGroupSummaryItems = <>
          DataController.Summary.FooterSummaryItems = <>
          DataController.Summary.SummaryGroups = <>
          OnCellClick = cxGrid1DBTableView1CellClick
          OnEditing = cxGrid1DBTableView1Editing
          OnEditChanged = cxGrid1DBTableView1EditChanged
          OnSelectionChanged = cxGrid1DBTableView1SelectionChanged
          OptionsCustomize.ColumnFiltering = False
          OptionsData.Editing = False
          OptionsSelection.CellSelect = False
          OptionsView.ColumnAutoWidth = True
          Styles.Background = cxStyle2
          Styles.StyleSheet = GridTableViewStyleSheetDevExpress
          Styles.Content = cxStyle2
          Styles.ContentEven = cxStyle2
          Styles.ContentOdd = cxStyle2
          Styles.Inactive = cxStyle4
          Styles.IncSearch = cxStyle2
          Styles.Selection = cxStyle9
          Styles.FilterBox = cxStyle14
          Styles.Group = cxStyle7
          Styles.GroupByBox = cxStyle18
          Styles.Header = cxStyle26
          Styles.Indicator = cxStyle4
          Styles.Preview = cxStyle2
          object cxGrid1DBTableView1DBColumn1: TcxGridDBColumn
            Caption = #22995#21517
            Width = 58
            DataBinding.FieldName = 'name'
          end
          object cxGrid1DBTableView1DBColumn2: TcxGridDBColumn
            Caption = #24615#21035
            Width = 46
            DataBinding.FieldName = 'sex'
          end
          object cxGrid1DBTableView1DBColumn6: TcxGridDBColumn
            Caption = #31821#36143
            SortOrder = soAscending
            Width = 60
            DataBinding.FieldName = 'Nativeplace'
          end
          object cxGrid1DBTableView1DBColumn7: TcxGridDBColumn
            Caption = #27665#26063
            Width = 46
            DataBinding.FieldName = 'Nationality'
          end
          object cxGrid1DBTableView1DBColumn9: TcxGridDBColumn
            Caption = #23398#21382
            Width = 50
            DataBinding.FieldName = 'knowledge'
          end
          object cxGrid1DBTableView1DBColumn4: TcxGridDBColumn
            Caption = #32852#31995#30005#35805
            Width = 78
            DataBinding.FieldName = 'Telephone'
          end
          object cxGrid1DBTableView1DBColumn5: TcxGridDBColumn
            Caption = #20837#32844#26085#26399
            PropertiesClassName = 'TcxDateEditProperties'
            Properties.ShowTime = False
            Width = 52
            DataBinding.FieldName = 'intime'
          end
          object cxGrid1DBTableView1DBColumn3: TcxGridDBColumn
            Caption = #32844#24037#31867#22411
            Width = 63
            DataBinding.FieldName = 'classcodename'
          end
          object cxGrid1DBTableView1DBColumn8: TcxGridDBColumn
            Caption = #30005#23376#37038#20214
            Width = 126
            DataBinding.FieldName = 'Email'
          end
        end
        object cxGrid1Level1: TcxGridLevel
          GridView = cxGrid1DBTableView1
        end
      end
      object PageControl1: TPageControl
        Left = 0
        Top = 192
        Width = 611
        Height = 203
        ActivePage = TabSheet2
        Align = alBottom
        TabOrder = 1
        object TabSheet1: TTabSheet
          Caption = #32844#20301#21464#21160
          object cxGrid2: TcxGrid
            Left = 0
            Top = 0
            Width = 603
            Height = 176
            Align = alClient
            PopupMenu = PopupMenu3
            TabOrder = 0
            LookAndFeel.Kind = lfFlat
            object cxGrid2DBTableView1: TcxGridDBTableView
              OnDblClick = N44Click
              DataController.DataSource = stachposteditSource
              DataController.Filter.Criteria = {FFFFFFFF0000000000}
              DataController.KeyFieldNames = 'id'
              DataController.Summary.DefaultGroupSummaryItems = <>
              DataController.Summary.FooterSummaryItems = <>
              DataController.Summary.SummaryGroups = <>
              OptionsCustomize.ColumnFiltering = False
              OptionsSelection.CellSelect = False
              OptionsView.ColumnAutoWidth = True
              OptionsView.GroupByBox = False
              object cxGrid2DBTableView1DBColumn1: TcxGridDBColumn
                Caption = #32844#20301#21517#31216
                PropertiesClassName = 'TcxLookupComboBoxProperties'
                Properties.KeyFieldNames = 'id'
                Properties.ListColumns = <
                  item
                    FieldName = 'postname'
                  end>
                Properties.ListSource = r_staffpostSource
                Options.Editing = False
                SortOrder = soAscending
                Width = 100
                DataBinding.FieldName = 'postid'
              end
              object cxGrid2DBTableView1DBColumn3: TcxGridDBColumn
                Caption = #25191#34892#26085#26399
                PropertiesClassName = 'TcxDateEditProperties'
                Properties.ShowTime = False
                DataBinding.FieldName = 'postdate'
              end
              object cxGrid2DBTableView1DBColumn2: TcxGridDBColumn
                Caption = #23601#32844#35828#26126
                Options.Editing = False
                Width = 300
                DataBinding.FieldName = 'memo'
              end
            end
            object cxGrid2Level1: TcxGridLevel
              GridView = cxGrid2DBTableView1
            end
          end
        end
        object TabSheet7: TTabSheet
          Caption = #37096#38376#21464#21160
          ImageIndex = 6
          object cxGrid3: TcxGrid
            Left = 0
            Top = 0
            Width = 603
            Height = 176
            Align = alClient
            PopupMenu = PopupMenu4
            TabOrder = 0
            LookAndFeel.Kind = lfFlat
            object cxGrid3DBTableView1: TcxGridDBTableView
              DataController.DataSource = brancheditsource
              DataController.Filter.Criteria = {FFFFFFFF0000000000}
              DataController.KeyFieldNames = 'id'
              DataController.Summary.DefaultGroupSummaryItems = <>
              DataController.Summary.FooterSummaryItems = <>
              DataController.Summary.SummaryGroups = <>
              OptionsCustomize.ColumnFiltering = False
              OptionsData.Editing = False
              OptionsSelection.CellSelect = False
              OptionsView.ColumnAutoWidth = True
              OptionsView.GroupByBox = False
              object cxGrid3DBTableView1DBColumn1: TcxGridDBColumn
                Caption = #25152#22312#37096#38376
                PropertiesClassName = 'TcxLookupComboBoxProperties'
                Properties.KeyFieldNames = 'id'
                Properties.ListColumns = <
                  item
                    FieldName = 'branchname'
                  end>
                Properties.ListSource = BranchSource
                SortOrder = soAscending
                Width = 100
                DataBinding.FieldName = 'branchid'
              end
              object cxGrid3DBTableView1DBColumn3: TcxGridDBColumn
                Caption = #25191#34892#26085#26399
                PropertiesClassName = 'TcxDateEditProperties'
                Properties.ShowTime = False
                DataBinding.FieldName = 'indate'
              end
              object cxGrid3DBTableView1DBColumn2: TcxGridDBColumn
                Caption = #21464#21160#35828#26126
                Width = 300
                DataBinding.FieldName = 'memo'
              end
            end
            object cxGrid3Level1: TcxGridLevel
              GridView = cxGrid3DBTableView1
            end
          end
        end
        object TabSheet5: TTabSheet
          Caption = #34218#36164#31119#21033
          ImageIndex = 4
          object cxGrid5: TcxGrid
            Left = 0
            Top = 0
            Width = 603
            Height = 176
            Align = alClient
            PopupMenu = PopupMenu6
            TabOrder = 0
            LookAndFeel.Kind = lfFlat
            object cxGrid5DBTableView1: TcxGridDBTableView
              OnDblClick = cxGrid5DBTableView1DblClick
              DataController.DataSource = r_staffpaySource
              DataController.Filter.Criteria = {FFFFFFFF0000000000}
              DataController.KeyFieldNames = 'id'
              DataController.Summary.DefaultGroupSummaryItems = <>
              DataController.Summary.FooterSummaryItems = <>
              DataController.Summary.SummaryGroups = <>
              OptionsCustomize.ColumnFiltering = False
              OptionsData.Editing = False
              OptionsSelection.CellSelect = False
              OptionsView.ColumnAutoWidth = True
              OptionsView.GroupByBox = False
              object cxGrid5DBTableView1DBColumn1: TcxGridDBColumn
                Caption = #31867#21035#21517#31216
                SortOrder = soDescending
                Width = 100
                DataBinding.FieldName = 'paytype'
              end
              object cxGrid5DBTableView1DBColumn2: TcxGridDBColumn
                Caption = #31867#21035#31867#22411
                Width = 80
                DataBinding.FieldName = 'payedit'
              end
              object cxGrid5DBTableView1DBColumn3: TcxGridDBColumn
                Caption = #31867#21035#37329#39069
                PropertiesClassName = 'TcxCurrencyEditProperties'
                DataBinding.FieldName = 'payfloat'
              end
              object cxGrid5DBTableView1DBColumn4: TcxGridDBColumn
                Caption = #26159#21542#25353'%'#35745#31639
                Width = 80
                DataBinding.FieldName = 'ifpercent'
              end
              object cxGrid5DBTableView1DBColumn5: TcxGridDBColumn
                Caption = #36215#22987#26085#26399
                PropertiesClassName = 'TcxDateEditProperties'
                Properties.ShowTime = False
                DataBinding.FieldName = 'pstardate'
              end
              object cxGrid5DBTableView1DBColumn6: TcxGridDBColumn
                Caption = #32467#26463#26085#26399
                PropertiesClassName = 'TcxDateEditProperties'
                Properties.ShowTime = False
                DataBinding.FieldName = 'penddate'
              end
              object cxGrid5DBTableView1DBColumn7: TcxGridDBColumn
                Caption = #35745#31639#35268#21017
                PropertiesClassName = 'TcxImageComboBoxProperties'
                Properties.Items = <
                  item
                    Description = #23567#26102
                    Value = '1'
                  end