pay210_01.dfm.svn-base

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

inherited Pay210_01Form: TPay210_01Form
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  HelpContext = 100
  Caption = #35745#20214#34218#36164#26597#35810
  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 = 271
      Top = 15
      Width = 48
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #21592#24037#32534#21495
      Transparent = True
    end
    object lblDate: TLabel
      Left = 441
      Top = 14
      Width = 48
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #26085#26399#33539#22260
      Transparent = True
    end
    object lblTo: TLabel
      Left = 598
      Top = 14
      Width = 12
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #33267
      Transparent = True
    end
    object sbOk: TSpeedButton
      Left = 725
      Top = 10
      Width = 59
      Height = 20
      Anchors = [akTop, akRight]
      Caption = #30830#23450
      Flat = True
      OnClick = sbOkClick
    end
    object SpeedButton2: TSpeedButton
      Left = 409
      Top = 9
      Width = 22
      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 dtStartDate: TwwDBDateTimePicker
      Left = 496
      Top = 11
      Width = 97
      Height = 20
      Anchors = [akTop, akRight]
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      CalendarAttributes.PopupYearOptions.ShowEditYear = True
      Epoch = 1950
      ShowButton = True
      TabOrder = 1
      UnboundDataType = wwDTEdtDate
    end
    object dtEndDate: TwwDBDateTimePicker
      Left = 614
      Top = 11
      Width = 97
      Height = 20
      Anchors = [akTop, akRight]
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      CalendarAttributes.PopupYearOptions.ShowEditYear = True
      Epoch = 1950
      ShowButton = True
      TabOrder = 2
      UnboundDataType = wwDTEdtDate
    end
    object edtEmpID: TEdit
      Left = 326
      Top = 10
      Width = 83
      Height = 20
      Anchors = [akTop, akRight]
      TabOrder = 0
      OnExit = edtEmpIDExit
      OnKeyDown = edtEmpIDKeyDown
    end
  end
  inherited ScrollBox2: TScrollBox
    Width = 800
    Height = 473
    inherited dxDBGrid1: TdxDBGrid
      Width = 796
      Height = 469
      KeyField = 'P520_003'
      ShowSummaryFooter = True
      Filter.Criteria = {00000000}
      OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
      object dxDBGrid1P520_003: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 97
        BandIndex = 0
        RowIndex = 0
        FieldName = 'P520_003'
      end
      object dxDBGrid1I150_002: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 91
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I150_002'
      end
      object dxDBGrid1I150_003: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 153
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I150_003'
      end
      object dxDBGrid1B100_002: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'B100_002'
      end
      object dxDBGrid1B100_003: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 125
        BandIndex = 0
        RowIndex = 0
        FieldName = 'B100_003'
      end
      object dxDBGrid1P520_006: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'P520_006'
        SummaryFooterType = cstSum
        SummaryFooterFormat = ',0.00;-,0.00'
      end
      object dxDBGrid1P520_007: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'P520_007'
        SummaryFooterType = cstSum
        SummaryFooterFormat = ',0.00;-,0.00'
      end
      object dxDBGrid1B110_004: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'B110_004'
      end
      object dxDBGrid1B110_003: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'B110_003'
      end
      object dxDBGrid1T100_001: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T100_001'
        SummaryFooterType = cstSum
        SummaryFooterFormat = #65509',0.00;-'#65509',0.00'
      end
      object dxDBGrid1T100_002: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T100_002'
        SummaryFooterType = cstSum
        SummaryFooterFormat = #65509',0.00;-'#65509',0.00'
      end
      object dxDBGrid1T100_003: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T100_003'
        SummaryFooterType = cstSum
        SummaryFooterFormat = #65509',0.00;-'#65509',0.00'
      end
    end
  end
  inherited ADOQuery1: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      'select P520_003,I150_002,I150_003,B100_002,B100_003,'
      '  P520_006,P520_007,B110_004,B110_003,'
      '  P520_006*B110_004 as T100_001, P520_007*B110_003 as T100_002,'
      '  P520_006*B110_004,0-P520_007*B110_003 as T100_003'
      'from PAY520 A, BOM110 B, INV150 C, HRM150 D, BOM100 E'
      'where A.P520_004=B.B110_001 and A.P520_005=B.B110_002 and '
      '  A.P520_004=C.I150_001 and A.P520_001=D.H150_001 and '
      '  A.P520_005=E.B100_001 and D.H150_001=0')
    object ADOQuery1P520_003: TStringField
      DisplayLabel = #24037#21333#32534#21495
      FieldName = 'P520_003'
    end
    object ADOQuery1I150_002: TStringField
      DisplayLabel = #26009#21697#32534#21495
      FieldName = 'I150_002'
      Size = 30
    end
    object ADOQuery1I150_003: TStringField
      DisplayLabel = #26009#21697#21517#31216
      FieldName = 'I150_003'
      Size = 60
    end
    object ADOQuery1B100_002: TStringField
      DisplayLabel = #24037#24207#32534#21495
      FieldName = 'B100_002'
    end
    object ADOQuery1B100_003: TStringField
      DisplayLabel = #24037#24207#21517#31216
      FieldName = 'B100_003'
      Size = 50
    end
    object ADOQuery1P520_006: TFloatField
      DisplayLabel = #27491#21697#25968#37327
      FieldName = 'P520_006'
    end
    object ADOQuery1P520_007: TFloatField
      DisplayLabel = #25439#22351#25968#37327
      FieldName = 'P520_007'
    end
    object ADOQuery1B110_004: TFloatField
      DisplayLabel = #35745#20214#21333#20215
      FieldName = 'B110_004'
    end
    object ADOQuery1B110_003: TFloatField
      DisplayLabel = #25187#27454#21333#20215
      FieldName = 'B110_003'
    end
    object ADOQuery1T100_001: TFloatField
      DisplayLabel = #35745#20214#37329#39069
      FieldName = 'T100_001'
      ReadOnly = True
    end
    object ADOQuery1T100_002: TFloatField
      DisplayLabel = #25187#27454#37329#39069
      FieldName = 'T100_002'
      ReadOnly = True
    end
    object ADOQuery1T100_003: TFloatField
      DisplayLabel = #21512#35745
      FieldName = 'T100_003'
      ReadOnly = True
    end
  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 = 144
    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
end