pay550_01.dfm.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

inherited Pay550_01Form: TPay550_01Form
  Left = 48
  Top = 28
  Width = 739
  Height = 538
  HelpContext = 79
  Caption = #34218#36164#26680#31639#22788#29702
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter [0]
    Left = 185
    Top = 81
    Width = 2
    Height = 430
    Cursor = crHSplit
  end
  object CoolBar1: TCoolBar [1]
    Left = 0
    Top = 0
    Width = 731
    Height = 43
    AutoSize = True
    Bands = <
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 39
        Width = 727
      end>
    object ToolBar2: TToolBar
      Left = 9
      Top = 0
      Width = 714
      Height = 39
      AutoSize = True
      ButtonHeight = 39
      ButtonWidth = 31
      Caption = 'ToolBar2'
      EdgeBorders = []
      Flat = True
      Images = SYSDM.imgBtn
      ShowCaptions = True
      TabOrder = 0
      object tlbFirst: TToolButton
        Left = 0
        Top = 0
        Action = ActFirst
        AutoSize = True
      end
      object tlbPrior: TToolButton
        Left = 35
        Top = 0
        Action = ActPrior
        AutoSize = True
      end
      object tlbNext: TToolButton
        Left = 70
        Top = 0
        Action = ActNext
        AutoSize = True
      end
      object tlbLast: TToolButton
        Left = 105
        Top = 0
        Action = ActLast
        AutoSize = True
      end
      object ToolButton1: TToolButton
        Left = 140
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbRefresh: TToolButton
        Left = 148
        Top = 0
        Action = ActRefresh
        AutoSize = True
      end
      object tlbLocate: TToolButton
        Left = 183
        Top = 0
        Action = ActLocate
        AutoSize = True
      end
      object tlbSearch: TToolButton
        Left = 218
        Top = 0
        Action = ActSearch
        AutoSize = True
      end
      object tlbPrint: TToolButton
        Left = 253
        Top = 0
        Action = ActPrint
        AutoSize = True
        DropdownMenu = PopupMenu1
        Style = tbsDropDown
      end
      object ToolButton4: TToolButton
        Left = 301
        Top = 0
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbRun: TToolButton
        Left = 309
        Top = 0
        Action = ActRun
        AutoSize = True
      end
      object tlbCheck: TToolButton
        Left = 344
        Top = 0
        Action = ActCheck
        AutoSize = True
      end
      object ToolButton6: TToolButton
        Left = 379
        Top = 0
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 14
        Style = tbsSeparator
      end
      object tlbCurr: TToolButton
        Left = 387
        Top = 0
        Action = ActCurr
        AutoSize = True
      end
      object tlbTrans: TToolButton
        Left = 422
        Top = 0
        Action = ActTrans
        AutoSize = True
      end
      object tlbCut: TToolButton
        Left = 457
        Top = 0
        Action = ActCut
        AutoSize = True
      end
      object ToolButton2: TToolButton
        Left = 492
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 14
        Style = tbsSeparator
        Visible = False
      end
      object tlbExit: TToolButton
        Left = 500
        Top = 0
        Action = ActExit
        AutoSize = True
      end
    end
  end
  object Panel1: TPanel [2]
    Left = 0
    Top = 43
    Width = 731
    Height = 38
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    DesignSize = (
      731
      38)
    object Image1: TImage
      Left = 2
      Top = 2
      Width = 727
      Height = 34
      Align = alClient
      Stretch = True
    end
    object lblYear: TLabel
      Left = 431
      Top = 13
      Width = 24
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #24180#20221
      Transparent = True
    end
    object lblMonth: TLabel
      Left = 542
      Top = 13
      Width = 24
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #26376#20221
      Transparent = True
    end
    object sbOk: TSpeedButton
      Left = 655
      Top = 9
      Width = 60
      Height = 21
      Anchors = [akTop, akRight]
      Caption = #30830#23450
      Flat = True
      OnClick = sbOkClick
    end
    object cbYear: TComboBox
      Left = 461
      Top = 9
      Width = 67
      Height = 20
      Style = csDropDownList
      Anchors = [akTop, akRight]
      ItemHeight = 12
      TabOrder = 0
      OnChange = cbYearChange
    end
    object cbMonth: TComboBox
      Left = 572
      Top = 9
      Width = 67
      Height = 20
      Style = csDropDownList
      Anchors = [akTop, akRight]
      ItemHeight = 12
      TabOrder = 1
      OnChange = cbMonthChange
    end
  end
  object Panel3: TPanel [3]
    Left = 187
    Top = 81
    Width = 544
    Height = 430
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object PageControl1: TPageControl
      Left = 0
      Top = 119
      Width = 544
      Height = 311
      ActivePage = TabSheet1
      Align = alClient
      Style = tsFlatButtons
      TabIndex = 0
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = #24037#36164#26126#32454
        object ScrollBox2: TScrollBox
          Left = 0
          Top = 0
          Width = 536
          Height = 281
          Align = alClient
          TabOrder = 0
          object dxDBGrid2: TdxDBGrid
            Left = 0
            Top = 0
            Width = 532
            Height = 277
            Bands = <
              item
              end>
            DefaultLayout = True
            HeaderPanelRowCount = 1
            KeyField = 'ItemName1'
            ShowSummaryFooter = True
            SummaryGroups = <>
            SummarySeparator = ', '
            Align = alClient
            BorderStyle = bsNone
            TabOrder = 0
            DataSource = dsPay550
            Filter.Criteria = {00000000}
            HeaderColor = 15262169
            HideFocusRect = True
            LookAndFeel = lfUltraFlat
            OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
            OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
            OnColumnSorting = dxDBGrid2ColumnSorting
            object dxDBGrid2ItemName1: TdxDBGridMaskColumn
              DisableEditor = True
              HeaderAlignment = taCenter
              Width = 164
              BandIndex = 0
              RowIndex = 0
              FieldName = 'ItemName1'
            end
            object dxDBGrid2Amount1: TdxDBGridMaskColumn
              DisableEditor = True
              HeaderAlignment = taCenter
              Width = 84
              BandIndex = 0
              RowIndex = 0
              FieldName = 'Amount1'
              SummaryFooterType = cstSum
              SummaryFooterFormat = #65509',0.00;-'#65509',0.00'
            end
            object dxDBGrid2ItemName2: TdxDBGridMaskColumn
              DisableEditor = True
              HeaderAlignment = taCenter
              Width = 164
              BandIndex = 0
              RowIndex = 0
              FieldName = 'ItemName2'
            end
            object dxDBGrid2Amount2: TdxDBGridMaskColumn
              DisableEditor = True
              HeaderAlignment = taCenter
              Width = 84
              BandIndex = 0
              RowIndex = 0
              FieldName = 'Amount2'
              SummaryFooterType = cstSum
              SummaryFooterFormat = #65509',0.00;-'#65509',0.00'
            end
          end
        end
      end
    end
    object Panel4: TPanel
      Left = 0
      Top = 0
      Width = 544
      Height = 119
      Align = alTop
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Enabled = False
      TabOrder = 1
      object lblPayYear: TLabel
        Left = 80
        Top = 24
        Width = 48
        Height = 12
        Caption = #34218#36164#24180#20221
      end
      object lblPayMonth: TLabel
        Left = 264
        Top = 24
        Width = 48
        Height = 12
        Caption = #34218#36164#26376#20221
      end
      object lblEmpID: TLabel