resw00_01.dfm.svn-base

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

        Top = 0
        Width = 165
        Height = 25
        Align = alTop
        Alignment = taLeftJustify
        BevelOuter = bvNone
        Caption = #26597#35810#25253#34920
        TabOrder = 0
      end
      object tvReports: TdxDBTreeView
        Left = 0
        Top = 25
        Width = 165
        Height = 207
        RightClickSelect = True
        ShowNodeHint = True
        HotTrack = True
        DataSource = dsReports
        KeyField = 'Code'
        ListField = 'Name'
        ParentField = 'Code'
        SeparatedSt = ' - '
        RaiseOnError = True
        ReadOnly = True
        HideSelection = False
        Indent = 19
        Align = alClient
        ParentColor = False
        Options = [trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
        SelectedIndex = 0
        TabOrder = 1
        OnDblClick = tvReportsDblClick
        Images = imgReports
        StateImages = imgReports
      end
    end
    object tvLists: TdxDBTreeView
      Left = 2
      Top = 25
      Width = 165
      Height = 217
      RightClickSelect = True
      ShowNodeHint = True
      HotTrack = True
      DataSource = dsLists
      KeyField = 'Num'
      ListField = 'Name'
      ParentField = 'Parent'
      SeparatedSt = ' - '
      RaiseOnError = True
      ReadOnly = True
      HideSelection = False
      Indent = 19
      OnGetImageIndex = tvListsGetImageIndex
      Align = alClient
      ParentColor = False
      Options = [trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
      SelectedIndex = 0
      TabOrder = 2
      OnDblClick = tvListsDblClick
      Images = imgLists
    end
  end
  object PageControl1: TPageControl
    Left = 172
    Top = 74
    Width = 628
    Height = 479
    ActivePage = TabSheet1
    Align = alClient
    Images = imgPage
    Style = tsFlatButtons
    TabIndex = 0
    TabOrder = 2
    object TabSheet1: TTabSheet
      Caption = #31243#24207#32534#30721
      object ScrollBox1: TScrollBox
        Left = 0
        Top = 37
        Width = 620
        Height = 369
        Align = alClient
        TabOrder = 0
        object dbgDetail: TdxDBGrid
          Left = 0
          Top = 0
          Width = 616
          Height = 365
          Bands = <
            item
            end>
          DefaultLayout = True
          HeaderPanelRowCount = 1
          KeyField = 'BILDT'
          ShowGroupPanel = True
          ShowSummaryFooter = True
          SummaryGroups = <>
          SummarySeparator = ', '
          Align = alClient
          BorderStyle = bsNone
          TabOrder = 1
          OnDblClick = dbgDetailDblClick
          DataSource = dsDetail
          Filter.Criteria = {00000000}
          HeaderColor = 15262169
          HideFocusRect = True
          LookAndFeel = lfUltraFlat
          OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
          OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoRowSelect, edgoUseBitmap]
          OnBackgroundDrawEvent = dbgDetailBackgroundDrawEvent
          object dbgDetailBILDT: TdxDBGridDateColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 80
            BandIndex = 0
            RowIndex = 0
            FieldName = 'BILDT'
          end
          object dbgDetailBILNO: TdxDBGridMaskColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 71
            BandIndex = 0
            RowIndex = 0
            FieldName = 'BILNO'
          end
          object dbgDetailMEMO: TdxDBGridMaskColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 176
            BandIndex = 0
            RowIndex = 0
            FieldName = 'MEMO'
          end
          object dbgDetailAMT01: TdxDBGridCurrencyColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 80
            BandIndex = 0
            RowIndex = 0
            FieldName = 'AMT01'
            SummaryFooterType = cstSum
            SummaryFooterFormat = #65509',0.00;-'#65509',0.00'
            Nullable = False
          end
          object dbgDetailAMT02: TdxDBGridCurrencyColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 80
            BandIndex = 0
            RowIndex = 0
            FieldName = 'AMT02'
            SummaryFooterType = cstSum
            SummaryFooterFormat = #65509',0.00;-'#65509',0.00'
            Nullable = False
          end
          object dbgDetailAMT03: TdxDBGridCurrencyColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 80
            BandIndex = 0
            RowIndex = 0
            FieldName = 'AMT03'
            Nullable = False
          end
        end
        object dbgMaster: TdxDBGrid
          Left = 0
          Top = 0
          Width = 616
          Height = 365
          Bands = <
            item
            end>
          DefaultLayout = True
          HeaderPanelRowCount = 1
          KeyField = 'T510_001'
          ShowGroupPanel = True
          SummaryGroups = <>
          SummarySeparator = ', '
          Align = alClient
          BorderStyle = bsNone
          PopupMenu = popInsert
          TabOrder = 0
          OnDblClick = dbgMasterDblClick
          DataSource = dsRes530
          Filter.Criteria = {00000000}
          HeaderColor = 15262169
          HideFocusRect = True
          LookAndFeel = lfUltraFlat
          OptionsBehavior = [edgoAutoSearch, edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
          OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoSmartRefresh, edgoSmartReload, edgoUseBookmarks]
          OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoRowSelect, edgoUseBitmap]
          OnBackgroundDrawEvent = dbgMasterBackgroundDrawEvent
        end
      end
      object Panel5: TPanel
        Left = 0
        Top = 0
        Width = 620
        Height = 37
        Align = alTop
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 1
        DesignSize = (
          620
          37)
        object Image1: TImage
          Left = 2
          Top = 2
          Width = 616
          Height = 33
          Align = alClient
          Picture.Data = {
            07544269746D617096EA0000424D96EA0000000000003600000028000000F401
            000028000000010018000000000060EA0000C40E0000C40E0000000000000000
            0000E49D7CE59E7CE59D7DE49D7CE59E7CE59D7DE59D7DE59E7DE59E7DE49E7D
            E59F7DE59F7DE59F7EE59F7EE59E7EE59F7EE59F7EE59F7EE5A07EE59F7FE59F
            7FE5A07FE5A07FE5A07FE5A080E5A080E5A17FE5A180E6A080E5A080E5A080E5
            A181E6A181E6A181E5A181E5A181E6A281E6A281E5A182E5A281E5A282E5A282
            E5A282E6A382E6A283E6A382E5A383E5A383E6A383E6A483E6A383E5A383E6A4
            84E6A384E6A483E6A484E5A484E6A485E6A585E6A585E6A585E6A485E6A585E6
            A585E6A585E6A585E6A586E6A586E6A586E6A686E7A686E6A686E6A786E7A787
            E6A786E6A687E6A788E6A787E6A787E6A787E7A787E7A787E7A788E6A888E7A8
            88E6A889E7A888E7A989E6A889E6A889E7A989E7A989E7A98AE6A98AE6A98AE6