pay550_01.dfm.svn-base

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

        Left = 80
        Top = 48
        Width = 48
        Height = 12
        Caption = #21592#24037#32534#21495
      end
      object lblDeptID: TLabel
        Left = 80
        Top = 72
        Width = 48
        Height = 12
        Caption = #37096#38376#32534#21495
      end
      object lblPayment: TLabel
        Left = 80
        Top = 96
        Width = 48
        Height = 12
        Caption = #23454#24471#24037#36164
      end
      object edtYear: TEdit
        Left = 136
        Top = 16
        Width = 113
        Height = 20
        ReadOnly = True
        TabOrder = 0
      end
      object edtMonth: TEdit
        Left = 320
        Top = 16
        Width = 121
        Height = 20
        ReadOnly = True
        TabOrder = 1
      end
      object edtEmpID: TEdit
        Left = 136
        Top = 40
        Width = 113
        Height = 20
        ReadOnly = True
        TabOrder = 2
      end
      object edtEmpName: TEdit
        Left = 256
        Top = 40
        Width = 185
        Height = 20
        ReadOnly = True
        TabOrder = 3
      end
      object edtDeptName: TEdit
        Left = 136
        Top = 64
        Width = 305
        Height = 20
        ReadOnly = True
        TabOrder = 4
      end
      object edtAmount: TEdit
        Left = 136
        Top = 88
        Width = 113
        Height = 20
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Pitch = fpFixed
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 5
      end
      object cbCheck: TCheckBox
        Left = 368
        Top = 88
        Width = 73
        Height = 17
        Caption = #24050#23457#26680#21542
        TabOrder = 6
      end
    end
  end
  object ScrollBox1: TScrollBox [4]
    Left = 0
    Top = 81
    Width = 185
    Height = 430
    Align = alLeft
    TabOrder = 3
    object dxDBGrid1: TdxDBGrid
      Left = 0
      Top = 0
      Width = 181
      Height = 426
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      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 = 92
        BandIndex = 0
        RowIndex = 0
        FieldName = 'H150_003'
      end
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 272
    Top = 64
    object mmiPrint: TMenuItem
      Action = ActPrint
    end
    object mmiExport: TMenuItem
      Action = ActExport
    end
  end
  object dsHrm150: TDataSource
    DataSet = qryHrm150
    Left = 32
    Top = 144
  end
  object dsPay550: TDataSource
    DataSet = adsPay550
    Left = 232
    Top = 241
  end
  object ActionList1: TActionList
    Images = SYSDM.imgBtn
    Left = 600
    Top = 8
    object ActFirst: TAction
      Caption = #26368#21069
      Hint = #31227#21040#31532#19968#26465#35760#24405
      ImageIndex = 0
      ShortCut = 32838
      OnExecute = ActFirstExecute
    end
    object ActPrior: TAction
      Caption = #19978#31227
      Hint = #31227#21040#19978#19968#26465#35760#24405
      ImageIndex = 1
      ShortCut = 32848
      OnExecute = ActPriorExecute
    end
    object ActNext: TAction
      Caption = #19979#31227
      Hint = #31227#21040#19979#19968#26465#35760#24405
      ImageIndex = 2
      ShortCut = 32846
      OnExecute = ActNextExecute
    end
    object ActLast: TAction
      Caption = #26368#21518
      Hint = #31227#21040#26368#21518#19968#26465#35760#24405
      ImageIndex = 3
      ShortCut = 32844
      OnExecute = ActLastExecute
    end
    object ActRefresh: TAction
      Caption = #21047#26032
      Hint = #21462#24471#26368#26032#30340#25968#25454
      ImageIndex = 9
      ShortCut = 32850
      OnExecute = ActRefreshExecute
    end
    object ActLocate: TAction
      Caption = #26597#25214
      Hint = #24555#36895#23450#20301#35760#24405
      ImageIndex = 10
      ShortCut = 32847
      OnExecute = ActLocateExecute
    end
    object ActSearch: TAction
      Caption = #26597#35810
      Hint = #25353#26465#20214#26597#35810#25968#25454
      ImageIndex = 11
      ShortCut = 32849
      OnExecute = ActSearchExecute
    end
    object ActPrint: TAction
      Caption = #25171#21360
      Hint = #23558#25968#25454#25171#21360#20986#26469
      ImageIndex = 12
      ShortCut = 32848
      OnExecute = ActPrintExecute
    end
    object ActExport: TAction
      Caption = #23548#20986#21040'Excel'
      Hint = #23548#20986#21040'Excel'#25991#20214#20013
      ShortCut = 32852
      OnExecute = ActExportExecute
    end
    object ActRun: TAction
      Caption = #35745#31639
      Hint = #35745#31639#24037#36164
      ImageIndex = 19
      OnExecute = ActRunExecute
    end
    object ActCheck: TAction
      Caption = #23457#26680
      Hint = #23457#26680#24037#36164
      ImageIndex = 13
      OnExecute = ActCheckExecute
    end
    object ActCurr: TAction
      Caption = #38646#37329
      Hint = #35745#31639#38646#37329#37329#39069
      ImageIndex = 17
      Visible = False
      OnExecute = ActCurrExecute
    end
    object ActTrans: TAction
      Caption = #36716#24080
      Hint = #36716#24080
      ImageIndex = 18
      Visible = False
      OnExecute = ActTransExecute
    end
    object ActCut: TAction
      Caption = #21010#20998
      Hint = #23558#19968#37096#20221#24037#36164#21010#20998#20986#26469
      ImageIndex = 5
      Visible = False
      OnExecute = ActCutExecute
    end
    object ActExit: TAction
      Caption = #36864#20986
      Hint = #20851#38381#24403#21069#31383#21475
      ImageIndex = 15
      ShortCut = 32856
      OnExecute = ActExitExecute
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'xls'
    Filter = 'Excel'#25991#20214'(*.xls)|*.xls'
    Left = 560
    Top = 8
  end
  object qryHrm150: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    AfterScroll = qryHrm150AfterScroll
    Parameters = <>
    SQL.Strings = (
      'select * from HRM150 A, HRM100 B '
      'where A.H150_005=B.H100_001 and A.H150_020<>0'
      'order by H150_002')
    Left = 40
    Top = 160
    object qryHrm150H150_002: TStringField
      DisplayLabel = #21592#24037#32534#21495
      DisplayWidth = 7
      FieldName = 'H150_002'
      FixedChar = True
      Size = 10
    end
    object qryHrm150H150_003: TStringField
      DisplayLabel = #21592#24037#22995#21517
      DisplayWidth = 13
      FieldName = 'H150_003'
      FixedChar = True
    end
    object qryHrm150H150_001: TAutoIncField
      DisplayLabel = #30005#33041#32534#21495
      FieldName = 'H150_001'
      ReadOnly = True
      Visible = False
    end
    object qryHrm150H100_002: TStringField
      FieldName = 'H100_002'
      Visible = False
      Size = 50
    end
  end
  object adsPay550: TADODataSet
    CacheSize = 1000
    LockType = ltBatchOptimistic
    FieldDefs = <
      item
        Name = 'ItemName1'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'Amount1'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'ItemName2'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'Amount2'
        Attributes = [faFixed]
        DataType = ftFloat
      end>
    Parameters = <>
    StoreDefs = True
    Left = 248
    Top = 256
    object adsPay550ItemName1: TStringField
      DisplayLabel = #39033#30446#21517#31216
      FieldName = 'ItemName1'
      Size = 30
    end
    object adsPay550Amount1: TFloatField
      DisplayLabel = #39033#30446#37329#39069
      FieldName = 'Amount1'
      DisplayFormat = '0.00'
    end
    object adsPay550ItemName2: TStringField
      DisplayLabel = #39033#30446#21517#31216
      FieldName = 'ItemName2'
      Size = 30
    end
    object adsPay550Amount2: TFloatField
      DisplayLabel = #39033#30446#37329#39069
      FieldName = 'Amount2'
      DisplayFormat = '0.00'
    end
  end
end