pay200_01.dfm.svn-base

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

inherited Pay200_01Form: TPay200_01Form
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  HelpContext = 99
  Caption = #34218#36164#26597#35810#25253#34920
  PixelsPerInch = 96
  TextHeight = 12
  inherited CoolBar1: TCoolBar
    Width = 800
    Bands = <
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 39
        Width = 796
      end>
    inherited ToolBar2: TToolBar
      Width = 783
    end
  end
  inherited Panel1: TPanel
    Width = 800
    inherited Image1: TImage
      Width = 796
    end
    object lblEmpID: TLabel
      Left = 173
      Top = 13
      Width = 48
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #21592#24037#32534#21495
      Transparent = True
    end
    object sbOk: TSpeedButton
      Left = 726
      Top = 8
      Width = 59
      Height = 21
      Anchors = [akTop, akRight]
      Caption = #30830#23450
      Flat = True
      OnClick = sbOkClick
    end
    object lblYear: TLabel
      Left = 502
      Top = 13
      Width = 24
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #24180#20221
      Transparent = True
    end
    object lblMonth: TLabel
      Left = 612
      Top = 13
      Width = 24
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #26376#20221
      Transparent = True
    end
    object lblItem: TLabel
      Left = 335
      Top = 13
      Width = 48
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #34218#36164#39033#30446
      Transparent = True
    end
    object SpeedButton2: TSpeedButton
      Left = 304
      Top = 9
      Width = 21
      Height = 21
      Anchors = [akTop, akRight]
      Flat = True
      Glyph.Data = {
        F6060000424DF606000000000000360000002800000018000000180000000100
        180000000000C006000000000000000000000000000000000000FF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000000000
        000000FF00FFFF00FFFF00FFFF00FFFF00FF000000000000000000FF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FF000000C0C0C0000000FF00FFFF00FFFF00FFFF00FFFF00FF000000C0C0C0
        000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FF000000000000000000808080FF00FFFF00FFFF00FF80
        8080000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0000000000000000000000000000
        00000000000000000000000000000000000000FF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFBF0000BF0000BF0000BF0000000000C0C0C0
        000000000000000000000000C0C0C0000000000000000000000000FF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000FFFFFFFFFFFFFF
        FFFF000000C0C0C0000000000000000000000000C0C0C0000000000000000000
        000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
        00FFFFFF80808080808000000000000000000000000000000000000000000000
        0000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFBF0000FFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000
        00C0C0C0000000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFBF0000FFFFFF808080808080FFFFFF808080
        000000000000808080808080FFFFFF000000000000FF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000FFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000000000FF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
        00FFFFFF808080808080FFFFFF808080000000000000808080808080FFFFFF00
        0000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFBF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFBF0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFBF0000BF0000BF0000BF0000BF0000BF0000
        BF0000BF0000BF0000BF0000BF0000BF0000FF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000C0C0C0BF0000BF
        0000C0C0C0BF0000BF0000C0C0C0BF0000BF0000C0C0C0BF0000FF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
        00BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF
        0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
      OnClick = SpeedButton2Click
    end
    object cbYear: TComboBox
      Left = 531
      Top = 9
      Width = 67
      Height = 20
      Style = csDropDownList
      Anchors = [akTop, akRight]
      ItemHeight = 12
      TabOrder = 0
      OnChange = cbYearChange
    end
    object cbMonth: TComboBox
      Left = 642
      Top = 9
      Width = 67
      Height = 20
      Style = csDropDownList
      Anchors = [akTop, akRight]
      ItemHeight = 12
      TabOrder = 1
      OnChange = cbMonthChange
    end
    object cbItem: TComboBox
      Left = 391
      Top = 9
      Width = 97
      Height = 20
      Style = csDropDownList
      Anchors = [akTop, akRight]
      ItemHeight = 12
      TabOrder = 2
    end
    object edtEmpID: TEdit
      Left = 228
      Top = 10
      Width = 75
      Height = 20
      Anchors = [akTop, akRight]
      TabOrder = 3
      OnExit = edtEmpIDExit
      OnKeyDown = edtEmpIDKeyDown
    end
  end
  inherited ScrollBox2: TScrollBox
    Width = 800
    Height = 473
    inherited dxDBGrid1: TdxDBGrid
      Width = 796
      Height = 469
      KeyField = 'P150_003'
      ShowSummaryFooter = True
      Filter.Criteria = {00000000}
      OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
      object dxDBGrid1P550_001: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'P550_001'
      end
      object dxDBGrid1C170_003: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'C170_003'
      end
      object dxDBGrid1H150_002: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'H150_002'
      end
      object dxDBGrid1H150_003: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'H150_003'
      end
      object dxDBGrid1P150_003: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 232
        BandIndex = 0
        RowIndex = 0
        FieldName = 'P150_003'
      end
      object dxDBGrid1P550_005: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'P550_005'
        SummaryFooterType = cstSum
        SummaryFooterFormat = #65509',0.00;-'#65509',0.00'
      end
      object dxDBGrid1P550_006: TdxDBGridCheckColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'P550_006'
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
    end
  end
  inherited DataSource1: TDataSource
    Top = 112
  end
  inherited ADOQuery1: TADOQuery
    SQL.Strings = (
      
        'select P550_001,C170_003,H150_002,H150_003,P150_003,P550_005,P55' +
        '0_006 from PAY550 A, HRM150 B, PAY150 C, CWA170 D'
      
        'where A.P550_003=B.H150_001 and A.P550_004=C.P150_001 and A.P550' +
        '_001=D.C170_001 and A.P550_002=D.C170_002')
    object ADOQuery1P550_001: TIntegerField
      DisplayLabel = #34218#36164#24180#20221
      FieldName = 'P550_001'
    end
    object ADOQuery1C170_003: TStringField
      DisplayLabel = #34218#36164#26376#20221
      FieldName = 'C170_003'
      Size = 10
    end
    object ADOQuery1H150_002: TStringField
      DisplayLabel = #21592#24037#32534#21495
      FieldName = 'H150_002'
    end
    object ADOQuery1H150_003: TStringField
      DisplayLabel = #21592#24037#22995#21517
      FieldName = 'H150_003'
    end
    object ADOQuery1P150_003: TStringField
      DisplayLabel = #39033#30446#35828#26126
      FieldName = 'P150_003'
      Size = 50
    end
    object ADOQuery1P550_005: TFloatField
      DisplayLabel = #39033#30446#37329#39069
      FieldName = 'P550_005'
    end
    object ADOQuery1P550_006: TBooleanField
      DisplayLabel = #24050#23457#26680#21542
      FieldName = 'P550_006'
    end
  end
  inherited pmGrid: TPopupMenu
    Left = 264
    Top = 32
  end
  object qryHrm150: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select H150_001,H150_002,H150_003 from HRM150 order by H150_002')
    Left = 176
    Top = 48
    object qryHrm150H150_001: TAutoIncField
      FieldName = 'H150_001'
      ReadOnly = True
      Visible = False
    end
    object qryHrm150H150_002: TStringField
      DisplayLabel = #21592#24037#32534#21495
      FieldName = 'H150_002'
      FixedChar = True
      Size = 10
    end
    object qryHrm150H150_003: TStringField
      DisplayLabel = #21592#24037#22995#21517
      FieldName = 'H150_003'
      FixedChar = True
    end
  end
  object qryPay150: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select P150_001,P150_002,P150_003 from PAY150 order by P150_002')
    Left = 328
    Top = 48
    object qryPay150P150_001: TAutoIncField
      FieldName = 'P150_001'
      ReadOnly = True
      Visible = False
    end
    object qryPay150P150_002: TStringField
      DisplayLabel = #39033#30446#32534#21495
      FieldName = 'P150_002'
      FixedChar = True
      Size = 6
    end
    object qryPay150P150_003: TStringField
      DisplayLabel = #39033#30446#21517#31216
      FieldName = 'P150_003'
      FixedChar = True
      Size = 30
    end
  end
end