pay510_01.dfm.svn-base

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

inherited Pay510_01Form: TPay510_01Form
  Left = 128
  Top = 76
  Width = 663
  Height = 466
  HelpContext = 77
  Caption = #21592#24037#34218#36164#32467#26500
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter [0]
    Left = 201
    Top = 81
    Width = 3
    Height = 358
    Cursor = crHSplit
  end
  object CoolBar1: TCoolBar [1]
    Left = 0
    Top = 0
    Width = 655
    Height = 43
    AutoSize = True
    Bands = <
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 39
        Width = 651
      end>
    object ToolBar2: TToolBar
      Left = 9
      Top = 0
      Width = 638
      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 tlbInsert: TToolButton
        Left = 148
        Top = 0
        Action = ActInsert
        AutoSize = True
      end
      object tlbUpdate: TToolButton
        Left = 183
        Top = 0
        Action = ActUpdate
        AutoSize = True
      end
      object tlbDelete: TToolButton
        Left = 218
        Top = 0
        Action = ActDelete
        AutoSize = True
      end
      object ToolButton2: TToolButton
        Left = 253
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbSave: TToolButton
        Left = 261
        Top = 0
        Action = ActSave
        AutoSize = True
      end
      object tlbCancel: TToolButton
        Left = 296
        Top = 0
        Action = ActCancel
        AutoSize = True
      end
      object ToolButton3: TToolButton
        Left = 331
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbRefresh: TToolButton
        Left = 339
        Top = 0
        Action = ActRefresh
        AutoSize = True
      end
      object tlbLocate: TToolButton
        Left = 374
        Top = 0
        Action = ActLocate
        AutoSize = True
      end
      object tlbSearch: TToolButton
        Left = 409
        Top = 0
        Action = ActSearch
        AutoSize = True
      end
      object tlbPrint: TToolButton
        Left = 444
        Top = 0
        Action = ActPrint
        AutoSize = True
        DropdownMenu = PopupMenu1
        Style = tbsDropDown
      end
      object ToolButton4: TToolButton
        Left = 492
        Top = 0
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbSet: TToolButton
        Left = 500
        Top = 0
        Action = ActSet
      end
      object ToolButton6: TToolButton
        Left = 531
        Top = 0
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 15
        Style = tbsSeparator
      end
      object tlbExit: TToolButton
        Left = 539
        Top = 0
        Action = ActExit
        AutoSize = True
      end
    end
  end
  object Panel1: TPanel [2]
    Left = 0
    Top = 43
    Width = 655
    Height = 38
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object Image1: TImage
      Left = 2
      Top = 2
      Width = 651
      Height = 34
      Align = alClient
      Stretch = True
    end
  end
  object ScrollBox1: TScrollBox [3]
    Left = 0
    Top = 81
    Width = 201
    Height = 358
    Align = alLeft
    TabOrder = 2
    object dxDBGrid1: TdxDBGrid
      Left = 0
      Top = 0
      Width = 197
      Height = 354
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      KeyField = 'P160A_001'
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alClient
      BorderStyle = bsNone
      TabOrder = 0
      DataSource = dsHrm150
      Filter.Criteria = {00000000}
      HeaderColor = 15262169
      HideFocusRect = True
      LookAndFeel = lfUltraFlat
      OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
      OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
      object dxDBGrid1H150_002: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'H150_002'
      end
      object dxDBGrid1H150_003: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 97
        BandIndex = 0
        RowIndex = 0
        FieldName = 'H150_003'
      end
    end
  end
  object PageControl1: TPageControl [4]
    Left = 204
    Top = 81
    Width = 451
    Height = 358
    ActivePage = TabSheet2
    Align = alClient
    Style = tsFlatButtons
    TabIndex = 1
    TabOrder = 3
    OnChanging = PageControl1Changing
    object TabSheet1: TTabSheet
      Caption = #34218#36164#32467#26500
      object Splitter2: TSplitter
        Left = 0
        Top = 81
        Width = 443
        Height = 3
        Cursor = crVSplit
        Align = alTop
      end
      object ScrollBox2: TScrollBox
        Left = 0
        Top = 84
        Width = 443
        Height = 244
        Align = alClient
        TabOrder = 0
        object dxDBGrid2: TdxDBGrid
          Left = 0
          Top = 0
          Width = 439
          Height = 240
          Bands = <
            item
            end>
          DefaultLayout = True
          HeaderPanelRowCount = 1
          KeyField = 'P160B_002'
          SummaryGroups = <>
          SummarySeparator = ', '
          Align = alClient
          BorderStyle = bsNone
          TabOrder = 0
          DataSource = dsPay510B
          Filter.Criteria = {00000000}
          HeaderColor = 15262169
          HideFocusRect = True
          LookAndFeel = lfUltraFlat
          OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
          OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
          object dxDBGrid2P150_009: TdxDBGridLookupColumn
            Alignment = taCenter
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 60
            BandIndex = 0
            RowIndex = 0
            FieldName = 'P150_009'
          end
          object dxDBGrid2P150_002: TdxDBGridLookupColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 66
            BandIndex = 0
            RowIndex = 0
            FieldName = 'P150_002'
          end
          object dxDBGrid2P150_003: TdxDBGridLookupColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 158
            BandIndex = 0
            RowIndex = 0
            FieldName = 'P150_003'
          end
          object dxDBGrid2P510B_003: TdxDBGridMaskColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 70
            BandIndex = 0
            RowIndex = 0
            FieldName = 'P510B_003'
          end
          object dxDBGrid2P510B_004: TdxDBGridCheckColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 48
            BandIndex = 0
            RowIndex = 0
            FieldName = 'P510B_004'
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
        end
      end
      object ScrollBox3: TScrollBox
        Left = 0
        Top = 0
        Width = 443
        Height = 81
        Align = alTop
        TabOrder = 1
        object dxDBGrid3: TdxDBGrid
          Left = 0
          Top = 0
          Width = 439
          Height = 77
          Bands = <
            item
            end>
          DefaultLayout = True
          HeaderPanelRowCount = 1
          KeyField = 'P160B_002'
          SummaryGroups = <>
          SummarySeparator = ', '