ser520_02.dfm.svn-base

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

        Caption = #35299#20915#26041#26696
        TabOrder = 0
        object lblSolution: TLabel
          Tag = 1
          Left = 24
          Top = 24
          Width = 48
          Height = 12
          Alignment = taRightJustify
          Caption = #35299#20915#26041#26696
        end
        object memSolution: TMemo
          Left = 80
          Top = 16
          Width = 649
          Height = 249
          ScrollBars = ssVertical
          TabOrder = 0
        end
      end
    end
    object tsSend: TTabSheet
      Caption = #27966#24037#35760#24405
      ImageIndex = 1
      object gbSend: TGroupBox
        Left = 0
        Top = 0
        Width = 745
        Height = 281
        Caption = #27966#24037#35760#24405
        TabOrder = 0
        object dbgSend: TdxDBGrid
          Left = 80
          Top = 19
          Width = 649
          Height = 249
          Bands = <
            item
            end>
          DefaultLayout = True
          HeaderPanelRowCount = 1
          KeyField = 'S521_002'
          SummaryGroups = <>
          SummarySeparator = ', '
          TabOrder = 0
          DataSource = dsSer521
          Filter.Criteria = {00000000}
          HeaderColor = 15262169
          HideFocusRect = True
          LookAndFeel = lfUltraFlat
          OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
          OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
          object dbgSendS521_003: TdxDBGridColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 110
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S521_003'
          end
          object dbgSendS521_004: TdxDBGridColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 200
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S521_004'
          end
          object dbgSendS521_005: TdxDBGridCurrencyColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 71
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S521_005'
            DisplayFormat = ',0.00;-,0.00'
            Nullable = False
          end
          object dbgSendS521_006: TdxDBGridMaskColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S521_006'
          end
          object dbgSendS521_007: TdxDBGridDateColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S521_007'
          end
          object dbgSendS521_008: TdxDBGridDateColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S521_008'
          end
        end
        object bbtnSendAdd: TBitBtn
          Left = 16
          Top = 48
          Width = 57
          Height = 25
          Caption = #26032#22686'(&I)'
          TabOrder = 1
          OnClick = bbtnSendAddClick
        end
        object bbtnSendEdit: TBitBtn
          Left = 16
          Top = 80
          Width = 57
          Height = 25
          Caption = #20462#25913'(&U)'
          TabOrder = 2
          OnClick = bbtnSendEditClick
        end
        object bbtnSendDel: TBitBtn
          Left = 16
          Top = 112
          Width = 57
          Height = 25
          Caption = #21024#38500'(&L)'
          TabOrder = 3
          OnClick = bbtnSendDelClick
        end
      end
    end
    object tsPunish: TTabSheet
      Caption = #22788#32602#35760#24405
      ImageIndex = 2
      object gbPunish: TGroupBox
        Left = 0
        Top = 0
        Width = 745
        Height = 281
        Caption = #22788#32602#35760#24405
        TabOrder = 0
        object dbgPunish: TdxDBGrid
          Left = 80
          Top = 19
          Width = 649
          Height = 246
          Bands = <
            item
            end>
          DefaultLayout = True
          HeaderPanelRowCount = 1
          KeyField = 'S522_002'
          SummaryGroups = <>
          SummarySeparator = ', '
          TabOrder = 0
          DataSource = dsSer522
          Filter.Criteria = {00000000}
          HeaderColor = 15262169
          HideFocusRect = True
          LookAndFeel = lfUltraFlat
          OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
          OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
          object dbgPunishS522_003: TdxDBGridDateColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 112
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S522_003'
          end
          object dbgPunishH150_002: TdxDBGridColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 97
            BandIndex = 0
            RowIndex = 0
            FieldName = 'H150_002'
          end
          object dbgPunishH150_003: TdxDBGridColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 124
            BandIndex = 0
            RowIndex = 0
            FieldName = 'H150_003'
          end
          object dbgPunishS522_005: TdxDBGridCurrencyColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 112
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S522_005'
            Nullable = False
          end
        end
        object bbtnPunishAdd: TBitBtn
          Left = 16
          Top = 48
          Width = 57
          Height = 25
          Caption = #26032#22686'(&I)'
          TabOrder = 1
          OnClick = bbtnPunishAddClick
        end
        object bbtnPunishEdit: TBitBtn
          Left = 16
          Top = 80
          Width = 57
          Height = 25
          Caption = #20462#25913'(&U)'
          TabOrder = 2
          OnClick = bbtnPunishEditClick
        end
        object bbtnPunishDel: TBitBtn
          Left = 16
          Top = 112
          Width = 57
          Height = 25
          Caption = #21024#38500'(&L)'
          TabOrder = 3
          OnClick = bbtnPunishDelClick
        end
      end
    end
    object tsPayfor: TTabSheet
      Caption = #36180#20607#35760#24405
      ImageIndex = 3
      object gbPayfor: TGroupBox
        Left = 0
        Top = 0
        Width = 745
        Height = 281
        Caption = #36180#20607#35760#24405
        TabOrder = 0
        object dbgPayfor: TdxDBGrid
          Left = 80
          Top = 19
          Width = 649
          Height = 246
          Bands = <
            item
            end>
          DefaultLayout = True
          HeaderPanelRowCount = 1
          SummaryGroups = <>
          SummarySeparator = ', '
          TabOrder = 0
          DataSource = dsSer523
          Filter.Criteria = {00000000}
          HeaderColor = 15262169
          HideFocusRect = True
          LookAndFeel = lfUltraFlat
          OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
          OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
          object dbgPayforS523_003: TdxDBGridDateColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 110
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S523_003'
          end
          object dbgPayforO150_002: TdxDBGridColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 100
            BandIndex = 0
            RowIndex = 0
            FieldName = 'O150_002'
          end
          object dbgPayforO150_003: TdxDBGridColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 273
            BandIndex = 0
            RowIndex = 0
            FieldName = 'O150_003'
          end
          object dbgPayforS523_005: TdxDBGridCurrencyColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 100
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S523_005'
            Nullable = False
          end
        end
        object bbtnPayforAdd: TBitBtn
          Left = 16
          Top = 48
          Width = 57
          Height = 25
          Caption = #26032#22686'(&I)'
          TabOrder = 1
          OnClick = bbtnPayforAddClick
        end
        object bbtnPayforEdit: TBitBtn
          Left = 16
          Top = 80
          Width = 57
          Height = 25
          Caption = #20462#25913'(&U)'
          TabOrder = 2
          OnClick = bbtnPayforEditClick
        end
        object bbtnPayforDel: TBitBtn
          Left = 16
          Top = 112
          Width = 57
          Height = 25
          Caption = #21024#38500'(&L)'
          TabOrder = 3
          OnClick = bbtnPayforDelClick
        end
      end
    end
    object tsReturn: TTabSheet
      Caption = #36864#36135#35760#24405
      ImageIndex = 4
      object gbReturn: TGroupBox
        Left = 0
        Top = 0
        Width = 745
        Height = 281
        Caption = #36864#36135#35760#24405
        TabOrder = 0
        object dbgReturn: TdxDBGrid
          Left = 80
          Top = 19
          Width = 649
          Height = 246
          Bands = <
            item
            end>
          DefaultLayout = True
          HeaderPanelRowCount = 1
          SummaryGroups = <>
          SummarySeparator = ', '
          TabOrder = 0
          DataSource = dsSer524
          Filter.Criteria = {00000000}
          HeaderColor = 15262169
          HideFocusRect = True
          LookAndFeel = lfUltraFlat
          OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
          OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
          object dbgReturnS524_003: TdxDBGridDateColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 110
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S524_003'
          end
          object dbgReturnI150_002: TdxDBGridColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 100
            BandIndex = 0
            RowIndex = 0
            FieldName = 'I150_002'
          end
          object dbgReturnI150_003: TdxDBGridColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 233
            BandIndex = 0
            RowIndex = 0
            FieldName = 'I150_003'
          end
          object dbgReturnS524_005: TdxDBGridMaskColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 71
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S524_005'
          end
          object dbgReturnS524_006: TdxDBGridCurrencyColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 71
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S524_006'
            DisplayFormat = ',0.00;-,0.00'
            Nullable = False
          end
          object dbgReturnS524_007: TdxDBGridCurrencyColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 71
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S524_007'
            DisplayFormat = ',0.00;-,0.00'
            Nullable = False
          end
        end
        object bbtnReturnAdd: TBitBtn
          Left = 16
          Top = 48
          Width = 57
          Height = 25
          Caption = #26032#22686'(&I)'
          TabOrder = 1
          OnClick = bbtnReturnAddClick
        end
        object bbtnReturnEdit: TBitBtn
          Left = 16
          Top = 80
          Width = 57
          Height = 25
          Caption = #20462#25913'(&U)'
          TabOrder = 2
          OnClick = bbtnReturnEditClick
        end
        object bbtnReturnDel: TBitBtn
          Left = 16
          Top = 112
          Width = 57
          Height = 25
          Caption = #21024#38500'(&L)'
          TabOrder = 3
          OnClick = bbtnReturnDelClick
        end
      end
    end
  end
  object qrySer520: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    AfterScroll = qrySer520AfterScroll
    Parameters = <>
    SQL.Strings = (
      'select A.*,'
      '       B.S500_002,B.S500_015,B.S500_016,'
      '       C.O150_001,C.O150_002,C.O150_003'
      'from SER520 A, SER500 B, ORD150 C'
      'where A.S520_002=B.S500_001 and B.S500_017=C.O150_001'
      'order by S520_001')
    Left = 8
    Top = 56
    object qrySer520S520_001: TWideStringField
      DisplayLabel = #26041#26696#32534#21495
      FieldName = 'S520_001'
      Size = 30
    end
    object qrySer520S520_002: TWideStringField
      DisplayLabel = #26469#30005#32534#21495
      FieldName = 'S520_002'
      Size = 30
    end
    object qrySer520S500_002: TWideStringField
      DisplayLabel = #26469#30005#21517#31216
      FieldName = 'S500_002'
      Size = 50
    end
    object qrySer520S520_003: TSmallintField
      DisplayLabel = #26041#26696#29366#24577
      FieldName = 'S520_003'
      OnGetText = qrySer520S520_003GetText
    end
    object qrySer520O150_002: TWideStringField
      DisplayLabel = #23458#25142#32534#21495
      FieldName = 'O150_002'
    end
    object qrySer520O150_003: TWideStringField
      DisplayLabel = #23458#25142#21517#31216
      FieldName = 'O150_003'
      Size = 60
    end
    object qrySer520S520_004: TDateTimeField
      DisplayLabel = #23457#26680#26085#26399
      FieldName = 'S520_004'
    end
    object qrySer520S520_005: TWideStringField
      DisplayLabel = #23457#26680#20154#21592
      FieldName = 'S520_005'
    end
    object qrySer520S500_015: TSmallintField
      DisplayLabel = #21333#25454#31867#22411
      FieldName = 'S500_015'
    end
    object qrySer520S500_016: TWideStringField
      DisplayLabel = #21333#25454#32534#21495
      FieldName = 'S500_016'
      Size = 30
    end
    object qrySer520S520_011: TMemoField
      DisplayLabel = #35299#20915#26041#27861
      FieldName = 'S520_011'
      Visible = False
      BlobType = ftMemo
    end
    object qrySer520S520_012: TDateTimeField
      DisplayLabel = #21046#21333#26085#26399
      FieldName = 'S520_012'
    end
    object qrySer520S520_013: TWideStringField
      DisplayLabel = #21046#21333#20154#21592
      FieldName = 'S520_013'
    end
    object qrySer520S520_014: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'S520_014'
    end