ser310_01.dfm.svn-base

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

            Left = 193
            Top = 60
            Width = 48
            Height = 12
            Caption = #20462#25913#20154#21592
          end
          object DBEdit6: TDBEdit
            Left = 64
            Top = 8
            Width = 121
            Height = 20
            DataField = 'S520_001'
            DataSource = dsSer520
            ImeName = ''
            ReadOnly = True
            TabOrder = 0
          end
          object DBEdit7: TDBEdit
            Left = 248
            Top = 8
            Width = 105
            Height = 20
            DataField = 'S520_003'
            DataSource = dsSer520
            ImeName = ''
            ReadOnly = True
            TabOrder = 1
          end
          object DBEdit8: TDBEdit
            Left = 413
            Top = 8
            Width = 90
            Height = 20
            DataField = 'S520_013'
            DataSource = dsSer520
            ImeName = ''
            ReadOnly = True
            TabOrder = 2
          end
          object DBEdit9: TDBEdit
            Left = 64
            Top = 32
            Width = 121
            Height = 20
            DataField = 'S520_012'
            DataSource = dsSer520
            ImeName = ''
            ReadOnly = True
            TabOrder = 3
          end
          object DBEdit10: TDBEdit
            Left = 248
            Top = 32
            Width = 105
            Height = 20
            DataField = 'S520_004'
            DataSource = dsSer520
            ImeName = ''
            ReadOnly = True
            TabOrder = 4
          end
          object DBEdit11: TDBEdit
            Left = 413
            Top = 32
            Width = 91
            Height = 20
            DataField = 'S520_005'
            DataSource = dsSer520
            ImeName = ''
            ReadOnly = True
            TabOrder = 5
          end
          object DBMemo1: TDBMemo
            Left = 63
            Top = 79
            Width = 441
            Height = 75
            DataField = 'S520_011'
            DataSource = dsSer520
            ImeName = ''
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 6
          end
          object ToolBar1: TToolBar
            Left = 509
            Top = 0
            Width = 35
            Height = 165
            Align = alRight
            AutoSize = True
            BorderWidth = 1
            ButtonHeight = 26
            ButtonWidth = 27
            Caption = 'ToolBar1'
            EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom]
            Flat = True
            Images = SYSDM.imgBtn
            TabOrder = 7
            object ToolButton2: TToolButton
              Left = 0
              Top = 0
              Action = ActFirst3
              Wrap = True
            end
            object ToolButton4: TToolButton
              Left = 0
              Top = 26
              Action = ActNext3
              Wrap = True
            end
            object ToolButton3: TToolButton
              Left = 0
              Top = 52
              Action = ActPrior3
              Wrap = True
            end
            object ToolButton5: TToolButton
              Left = 0
              Top = 78
              Action = ActLast3
              Wrap = True
            end
            object ToolButton7: TToolButton
              Left = 0
              Top = 104
              Action = ActLocate3
            end
          end
        end
      end
      object TabSheet2: TTabSheet
        Caption = #27966#24037#35760#24405
        ImageIndex = 1
        object dbgSer521: TdxDBGrid
          Left = 0
          Top = 0
          Width = 548
          Height = 169
          Bands = <
            item
            end>
          DefaultLayout = True
          HeaderPanelRowCount = 1
          KeyField = 'T520_001'
          ShowGroupPanel = True
          SummaryGroups = <>
          SummarySeparator = ', '
          Align = alClient
          BorderStyle = bsNone
          PopupMenu = PopupMenu1
          TabOrder = 0
          OnDblClick = dbgSer510DblClick
          DataSource = dsSer521
          Filter.Criteria = {00000000}
          HeaderColor = 15262169
          HideFocusRect = True
          LookAndFeel = lfUltraFlat
          OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
          OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
          OnBackgroundDrawEvent = dbgTas520BackgroundDrawEvent
          object dbgSer521S521_002: TdxDBGridMaskColumn
            Alignment = taCenter
            DisableEditor = True
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S521_002'
          end
          object dbgSer521S521_003: TdxDBGridColumn
            Alignment = taCenter
            DisableEditor = True
            Width = 107
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S521_003'
          end
          object dbgSer521S521_004: TdxDBGridColumn
            Alignment = taCenter
            DisableEditor = True
            Width = 93
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S521_004'
          end
          object dbgSer521S521_005: TdxDBGridCurrencyColumn
            Alignment = taCenter
            DisableEditor = True
            Width = 58
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S521_005'
            Nullable = False
          end
          object dbgSer521S521_006: TdxDBGridMaskColumn
            Alignment = taCenter
            DisableEditor = True
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S521_006'
          end
          object dbgSer521S521_007: TdxDBGridDateColumn
            Alignment = taCenter
            DisableEditor = True
            Width = 112
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S521_007'
          end
          object dbgSer521S521_008: TdxDBGridDateColumn
            Alignment = taCenter
            DisableEditor = True
            Width = 112
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S521_008'
          end
        end
      end
      object TabSheet5: TTabSheet
        Caption = #22788#32602#35760#24405
        ImageIndex = 2
        object dbgSer522: TdxDBGrid
          Left = 0
          Top = 0
          Width = 548
          Height = 169
          Bands = <
            item
            end>
          DefaultLayout = True
          HeaderPanelRowCount = 1
          KeyField = 'T520_001'
          ShowGroupPanel = True
          SummaryGroups = <>
          SummarySeparator = ', '
          Align = alClient
          BorderStyle = bsNone
          PopupMenu = PopupMenu1
          TabOrder = 0
          OnDblClick = dbgSer510DblClick
          DataSource = dsSer522
          Filter.Criteria = {00000000}
          HeaderColor = 15262169
          HideFocusRect = True
          LookAndFeel = lfUltraFlat
          OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
          OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
          OnBackgroundDrawEvent = dbgTas520BackgroundDrawEvent
          object dbgSer522S522_002: TdxDBGridMaskColumn
            Alignment = taCenter
            DisableEditor = True
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S522_002'
          end
          object dbgSer522S522_003: TdxDBGridDateColumn
            Alignment = taCenter
            DisableEditor = True
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S522_003'
          end
          object dbgSer522H150_003: TdxDBGridColumn
            Alignment = taCenter
            DisableEditor = True
            BandIndex = 0
            RowIndex = 0
            FieldName = 'H150_003'
          end
          object dbgSer522S522_005: TdxDBGridCurrencyColumn
            Alignment = taCenter
            DisableEditor = True
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S522_005'
            Nullable = False
          end
        end
      end
      object TabSheet6: TTabSheet
        Caption = #36180#20607#35760#24405
        ImageIndex = 3
        object dbgSer523: TdxDBGrid
          Left = 0
          Top = 0
          Width = 548
          Height = 169
          Bands = <
            item
            end>
          DefaultLayout = True
          HeaderPanelRowCount = 1
          KeyField = 'T520_001'
          ShowGroupPanel = True
          SummaryGroups = <>
          SummarySeparator = ', '
          Align = alClient
          BorderStyle = bsNone
          PopupMenu = PopupMenu1
          TabOrder = 0
          OnDblClick = dbgSer510DblClick
          DataSource = dsSer523
          Filter.Criteria = {00000000}
          HeaderColor = 15262169
          HideFocusRect = True
          LookAndFeel = lfUltraFlat
          OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
          OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
          OnBackgroundDrawEvent = dbgTas520BackgroundDrawEvent
          object dbgSer523S523_002: TdxDBGridMaskColumn
            Alignment = taCenter
            DisableEditor = True
            Width = 80
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S523_002'
          end
          object dbgSer523S523_003: TdxDBGridDateColumn
            Alignment = taCenter
            DisableEditor = True
            Width = 112
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S523_003'
          end
          object dbgSer523O150_003: TdxDBGridColumn
            Alignment = taCenter
            DisableEditor = True
            Width = 169
            BandIndex = 0
            RowIndex = 0
            FieldName = 'O150_003'
          end
          object dbgSer523S523_005: TdxDBGridCurrencyColumn
            Alignment = taCenter
            DisableEditor = True
            Width = 100
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S523_005'
            Nullable = False
          end
        end
      end
      object TabSheet7: TTabSheet
        Caption = #36864#36135#35760#24405
        ImageIndex = 4
        object dbgSer524: TdxDBGrid
          Left = 0
          Top = 0
          Width = 548
          Height = 169
          Bands = <
            item
            end>
          DefaultLayout = True
          HeaderPanelRowCount = 1
          KeyField = 'T520_001'
          ShowGroupPanel = True
          SummaryGroups = <>
          SummarySeparator = ', '
          Align = alClient
          BorderStyle = bsNone
          PopupMenu = PopupMenu1
          TabOrder = 0
          OnDblClick = dbgSer510DblClick
          DataSource = dsSer524
          Filter.Criteria = {00000000}
          HeaderColor = 15262169
          HideFocusRect = True
          LookAndFeel = lfUltraFlat
          OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
          OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
          OnBackgroundDrawEvent = dbgTas520BackgroundDrawEvent
          object dbgSer524S524_002: TdxDBGridMaskColumn
            Alignment = taLeftJustify
            DisableEditor = True
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S524_002'
          end
          object dbgSer524S524_003: TdxDBGridDateColumn
            Alignment = taLeftJustify
            DisableEditor = True
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S524_003'
          end
          object dbgSer524S524_004: TdxDBGridMaskColumn
            Alignment = taLeftJustify
            DisableEditor = True
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S524_004'
          end
          object dbgSer524S524_005: TdxDBGridMaskColumn
            Alignment = taLeftJustify
            DisableEditor = True
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S524_005'
          end
          object dbgSer524S524_006: TdxDBGridMaskColumn
            Alignment = taLeftJustify
            DisableEditor = True
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S524_006'
          end
          object dbgSer524S524_007: TdxDBGridMaskColumn
            Alignment = taLeftJustify
            DisableEditor = True
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S524_007'
          end
        end
      end
    end
    object Panel4: TPanel
      Left = 0
      Top = 0
      Width = 556
      Height = 65
      Align = alTop
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 1
      object lblTaskCode: TLabel
        Tag = 1
        Left = 24
        Top = 16
        Width = 48
        Height = 12
        Alignment = taRightJustify
        Caption = #26469#30005#32534#21495
      end
      object lblTaskName: TLabel