mainform.dfm

企业工资管理系统的代码实现主要包括五个功能模块在此不一一列举

object frmMain: TfrmMain
  Left = 238
  Top = 165
  Width = 544
  Height = 375
  Caption = 'frmMain'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button3: TButton
    Left = 312
    Top = 184
    Width = 75
    Height = 25
    Caption = #27979#35797
    TabOrder = 0
    OnClick = Button3Click
  end
  object Panel1: TPanel
    Left = 0
    Top = 70
    Width = 536
    Height = 278
    Align = alClient
    TabOrder = 5
    object spLeft: TSplitter
      Left = 151
      Top = 1
      Height = 276
      Color = clBtnFace
      ParentColor = False
      ResizeStyle = rsUpdate
    end
    object dxSideBar1: TdxSideBar
      Left = 1
      Top = 1
      Width = 150
      Height = 276
      GroupFont.Charset = DEFAULT_CHARSET
      GroupFont.Color = clWindowText
      GroupFont.Height = -11
      GroupFont.Name = 'MS Sans Serif'
      GroupFont.Style = []
      Groups = <
        item
          Caption = #22522#26412#20449#24687
          Index = 0
          Items = <
            item
              Caption = #23494#30721#20462#25913
              Index = 0
              IsDefault = False
              LargeImage = 8
              SmallImage = 8
              StoredItem = dxSideBarStore1Item1
            end
            item
              Caption = #25968#25454#22791#20221
              Index = 1
              IsDefault = False
              LargeImage = 17
              SmallImage = 17
              StoredItem = dxSideBarStore1Item2
            end
            item
              Caption = #25968#25454#36824#21407
              Index = 2
              IsDefault = False
              LargeImage = 14
              SmallImage = 14
              StoredItem = dxSideBarStore1Item3
            end>
        end
        item
          Caption = #37096#38376#31649#29702
          Index = 1
          Items = <
            item
              Caption = #37096#38376#20449#24687
              Index = 0
              IsDefault = False
              LargeImage = 6
              SmallImage = 6
              StoredItem = dxSideBarStore1Item4
            end
            item
              Caption = #24037#36164#31649#29702
              Index = 1
              IsDefault = False
              LargeImage = 9
              SmallImage = 9
              StoredItem = dxSideBarStore1Item5
            end>
        end
        item
          Caption = #25253#34920#20013#24515' '
          Index = 2
          Items = <
            item
              Caption = #24037#36164#25253#34920
              Index = 0
              IsDefault = False
              LargeImage = 3
              SmallImage = 3
              StoredItem = dxSideBarStore1Item6
            end
            item
              Caption = #24037#36164#32479#35745
              Index = 1
              IsDefault = False
              LargeImage = 15
              SmallImage = 15
              StoredItem = dxSideBarStore1Item7
            end>
        end>
      ActiveGroupIndex = 0
      ItemFont.Charset = DEFAULT_CHARSET
      ItemFont.Color = clWindow
      ItemFont.Height = -11
      ItemFont.Name = 'MS Sans Serif'
      ItemFont.Style = []
      LargeImages = ImageList1
      SmallImages = ImageList1
      Store = dxSideBarStore1
    end
    object Button1: TButton
      Left = 288
      Top = 64
      Width = 75
      Height = 25
      Caption = 'Button1'
      TabOrder = 1
      OnClick = Button1Click
    end
  end
  object dxBarManager1: TdxBarManager
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Bars = <
      item
        Caption = 'Custom 1'
        DockedDockingStyle = dsTop
        DockedLeft = 0
        DockedTop = 0
        DockingStyle = dsTop
        FloatLeft = 250
        FloatTop = 236
        FloatClientWidth = 23
        FloatClientHeight = 22
        ItemLinks = <
          item
            Item = dxBarSubItem2
            Visible = True
          end
          item
            Item = dxBarSubItem3
            Visible = True
          end
          item
            Item = dxBarSubItem4
            Visible = True
          end
          item
            Item = dxBarSubItem5
            Visible = True
          end>
        Name = 'Custom 1'
        OneOnRow = True
        Row = 0
        UseOwnFont = False
        Visible = True
        WholeRow = False
      end
      item
        Caption = 'Custom 2'
        DockedDockingStyle = dsTop
        DockedLeft = 5
        DockedTop = 26
        DockingStyle = dsTop
        FloatLeft = 496
        FloatTop = 254
        FloatClientWidth = 62
        FloatClientHeight = 40
        ItemLinks = <
          item
            Item = dxBarLargeButton1
            Visible = True
          end
          item
            Item = dxBarLargeButton2
            Visible = True
          end>
        Name = 'Custom 2'
        OneOnRow = True
        Row = 1
        UseOwnFont = False
        Visible = True
        WholeRow = False
      end>
    Categories.Strings = (
      'Default')
    Categories.ItemsVisibles = (
      2)
    Categories.Visibles = (
      True)
    Images = ImageList1
    PopupMenuLinks = <>
    UseSystemFont = True
    Left = 224
    Top = 40
    DockControlHeights = (
      0
      0
      70
      0)
    object dxBarSubItem1: TdxBarSubItem
      Caption = 'New Item'
      Category = 0
      Visible = ivAlways
      ItemLinks = <>
    end
    object dxBarButton1: TdxBarButton
      Caption = 'New Item'
      Category = 0
      Hint = 'New Item'
      Visible = ivAlways
    end
    object dxBarSubItem2: TdxBarSubItem
      Caption = #22522#26412#20449#24687
      Category = 0
      Visible = ivAlways
      ImageIndex = 0