ser300_01.dfm.svn-base

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

          object dbgSer530S530_008: TdxDBGridColumn
            Alignment = taLeftJustify
            DisableEditor = True
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S530_008'
          end
          object dbgSer530S530_009: TdxDBGridDateColumn
            Alignment = taLeftJustify
            DisableEditor = True
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S530_009'
          end
          object dbgSer530S530_010: TdxDBGridColumn
            Alignment = taLeftJustify
            DisableEditor = True
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S530_010'
          end
        end
      end
      object TabSheet2: TTabSheet
        Caption = #27719#25253#26126#32454
        ImageIndex = 1
        object ScrollBox1: TScrollBox
          Left = 0
          Top = 0
          Width = 515
          Height = 142
          Align = alClient
          TabOrder = 0
          object lblWorkCode: TLabel
            Tag = 1
            Left = 8
            Top = 16
            Width = 48
            Height = 12
            Alignment = taRightJustify
            Caption = #27719#25253#32534#21495
          end
          object lblDays: TLabel
            Left = 8
            Top = 40
            Width = 48
            Height = 12
            Alignment = taRightJustify
            Caption = #27719#25253#26085#26399
          end
          object lblFactDays: TLabel
            Left = 169
            Top = 15
            Width = 48
            Height = 12
            Alignment = taRightJustify
            Caption = #21046#21333#20154#21592
          end
          object lblFromDate: TLabel
            Tag = 1
            Left = 169
            Top = 57
            Width = 48
            Height = 12
            Alignment = taRightJustify
            Caption = #21518#32493#22788#29702
          end
          object lblFactFromDate: TLabel
            Left = 340
            Top = 14
            Width = 48
            Height = 12
            Alignment = taRightJustify
            Caption = #20462#25913#26085#26399
          end
          object lblToDate: TLabel
            Tag = 1
            Left = 168
            Top = 37
            Width = 48
            Height = 12
            Alignment = taRightJustify
            Caption = #21046#21333#26085#26399
          end
          object lblFactToDate: TLabel
            Left = 341
            Top = 34
            Width = 48
            Height = 12
            Alignment = taRightJustify
            Caption = #20462#25913#20154#21592
          end
          object lblPerson: TLabel
            Tag = 1
            Left = 9
            Top = 61
            Width = 48
            Height = 12
            Alignment = taRightJustify
            Caption = #27719#25253#20154#21592
          end
          object lblResolvent: TLabel
            Left = 8
            Top = 88
            Width = 48
            Height = 12
            Alignment = taRightJustify
            Caption = #27719#25253#20869#23481
          end
          object edtDays: TEdit
            Left = 64
            Top = 32
            Width = 49
            Height = 20
            Color = clBtnFace
            ImeName = ''
            TabOrder = 0
            Text = '1'
          end
          object DBEdit5: TDBEdit
            Left = 64
            Top = 8
            Width = 97
            Height = 20
            DataField = 'S530_001'
            DataSource = dsSer530
            ImeName = ''
            ReadOnly = True
            TabOrder = 1
          end
          object DBEdit6: TDBEdit
            Left = 224
            Top = 8
            Width = 105
            Height = 20
            DataField = 'S530_008'
            DataSource = dsSer530
            ImeName = ''
            ReadOnly = True
            TabOrder = 2
          end
          object DBEdit7: TDBEdit
            Left = 64
            Top = 32
            Width = 97
            Height = 20
            DataField = 'S530_003'
            DataSource = dsSer530
            ImeName = ''
            ReadOnly = True
            TabOrder = 3
          end
          object DBEdit9: TDBEdit
            Left = 224
            Top = 32
            Width = 105
            Height = 20
            DataField = 'S530_007'
            DataSource = dsSer530
            ImeName = ''
            ReadOnly = True
            TabOrder = 4
          end
          object DBEdit10: TDBEdit
            Left = 392
            Top = 9
            Width = 113
            Height = 20
            DataField = 'S530_009'
            DataSource = dsSer530
            ImeName = ''
            ReadOnly = True
            TabOrder = 5
          end
          object DBEdit11: TDBEdit
            Left = 64
            Top = 56
            Width = 97
            Height = 20
            DataField = 'S530_003'
            DataSource = dsSer530
            ImeName = ''
            ReadOnly = True
            TabOrder = 6
          end
          object DBEdit13: TDBEdit
            Left = 224
            Top = 56
            Width = 105
            Height = 20
            DataField = 'S530_006'
            DataSource = dsSer530
            ImeName = ''
            ReadOnly = True
            TabOrder = 7
          end
          object DBEdit14: TDBEdit
            Left = 392
            Top = 33
            Width = 113
            Height = 20
            DataField = 'S530_010'
            DataSource = dsSer530
            ImeName = ''
            ReadOnly = True
            TabOrder = 8
          end
          object DBMemo1: TDBMemo
            Left = 64
            Top = 80
            Width = 441
            Height = 49
            DataField = 'S530_005'
            DataSource = dsSer530
            ImeName = ''
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 9
          end
        end
        object ToolBar1: TToolBar
          Left = 515
          Top = 0
          Width = 35
          Height = 142
          Align = alRight
          AutoSize = True
          BorderWidth = 1
          ButtonHeight = 26
          ButtonWidth = 27
          Caption = 'ToolBar1'
          EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom]
          Flat = True
          Images = SYSDM.imgBtn
          TabOrder = 1
          object ToolButton2: TToolButton
            Left = 0
            Top = 0
            Action = ActFirst2
            Wrap = True
          end
          object ToolButton3: TToolButton
            Left = 0
            Top = 26
            Action = ActPrior2
            Wrap = True
          end
          object ToolButton4: TToolButton
            Left = 0
            Top = 52
            Action = ActNext2
            Wrap = True
          end
          object ToolButton5: TToolButton
            Left = 0
            Top = 78
            Action = ActLast2
            Wrap = True
          end
          object ToolButton7: TToolButton
            Left = 0
            Top = 104
            Action = ActLocate2
          end
        end
      end
    end
    object PageControl2: TPageControl
      Left = 0
      Top = 240
      Width = 556
      Height = 233
      ActivePage = TabSheet3
      Align = alClient
      Style = tsFlatButtons
      TabIndex = 0
      TabOrder = 1
      object TabSheet3: TTabSheet
        Caption = #20219#21153#35745#21010
        object dbgTas510: TdxDBGrid
          Left = 0
          Top = 0
          Width = 548
          Height = 203
          Bands = <
            item
            end>
          DefaultLayout = True
          HeaderPanelRowCount = 1
          KeyField = 'T510_001'
          ShowGroupPanel = True
          SummaryGroups = <>
          SummarySeparator = ', '
          Align = alClient
          BorderStyle = bsNone
          PopupMenu = PopupMenu1
          TabOrder = 0
          OnDblClick = dbgTas510DblClick
          DataSource = dsTas510
          Filter.Criteria = {00000000}
          HeaderColor = 15262169
          HideFocusRect = True
          LookAndFeel = lfUltraFlat
          OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
          OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
          OnCustomDrawCell = dbgTas510CustomDrawCell
          object dbgTas510T510_001: TdxDBGridColumn
            Alignment = taLeftJustify
            DisableEditor = True
            Width = 80
            BandIndex = 0
            RowIndex = 0
            FieldName = 'T510_001'
          end
          object dbgTas510T510_002: TdxDBGridColumn
            Alignment = taLeftJustify
            DisableEditor = True
            Width = 200
            BandIndex = 0
            RowIndex = 0
            FieldName = 'T510_002'
          end
          object dbgTas510T120_003: TdxDBGridColumn
            Alignment = taLeftJustify
            DisableEditor = True
            Width = 78
            BandIndex = 0
            RowIndex = 0
            FieldName = 'T120_003'
          end
          object dbgTas510T100_002: TdxDBGridColumn
            Alignment = taLeftJustify
            DisableEditor = True
            Width = 139
            BandIndex = 0
            RowIndex = 0
            FieldName = 'T100_002'
          end
          object dbgTas510T510_005: TdxDBGridMaskColumn
            Alignment = taLeftJustify
            DisableEditor = True
            BandIndex = 0
            RowIndex = 0
            FieldName = 'T510_005'
          end
          object dbgTas510T510_006: TdxDBGridDateColumn
            Alignment = taLeftJustify
            DisableEditor = True
            Width = 112
            BandIndex = 0
            RowIndex = 0
            FieldName = 'T510_006'
          end
          object dbgTas510T510_007: TdxDBGridDateColumn
            Alignment = taLeftJustify
            DisableEditor = True
            Width = 112
            BandIndex = 0
            RowIndex = 0
            FieldName = 'T510_007'
          end
          object dbgTas510T510_008: TdxDBGridMaskColumn
            Alignment = taLeftJustify
            DisableEditor = True
            BandIndex = 0
            RowIndex = 0
            FieldName = 'T510_008'
          end
          object dbgTas510T510_009: TdxDBGridColumn
            Alignment = taLeftJustify
            DisableEditor = True
            Width = 184
            BandIndex = 0
            RowIndex = 0
            FieldName = 'T510_009'
          end
          object dbgTas510T510_011: TdxDBGridColumn
            Alignment = taLeftJustify
            DisableEditor = True
            Width = 54
            BandIndex = 0
            RowIndex = 0
            FieldName = 'T510_011'
          end
          object dbgTas510T510_012: TdxDBGridCurrencyColumn
            Alignment = taLeftJustify
            DisableEditor = True
            Width = 58
            BandIndex = 0
            RowIndex = 0
            FieldName = 'T510_012'
            DisplayFormat = '0.00'
            Nullable = False
          end
          object dbgTas510T510_025: TdxDBGridDateColumn
            Alignment = taLeftJustify
            DisableEditor = True
            Width = 112
            BandIndex = 0
            RowIndex = 0
            FieldName = 'T510_025'
          end
          object dbgTas510T510_026: TdxDBGridDateColumn
            Alignment = taLeftJustify
            DisableEditor = True
            Width = 112
            BandIndex = 0
            RowIndex = 0
            FieldName = 'T510_026'
          end
          object dbgTas510T510_013: TdxDBGridCurrencyColumn
            Alignment = taLeftJustify
            DisableEditor = True
            Width = 58
            BandIndex = 0
            RowIndex = 0
            FieldName = 'T510_013'
            DisplayFormat = '0.00'
            Nullable = False
          end
          object dbgTas510T510_027: TdxDBGridDateColumn
            Alignment = taLeftJustify
            DisableEditor = True
            Width = 112
            BandIndex = 0
            RowIndex = 0
            FieldName = 'T510_027'
          end
          object dbgTas510T510_028: TdxDBGridDateColumn
            Alignment = taLeftJustify
            DisableEditor = True
            Width = 112
            BandIndex = 0
            RowIndex = 0
            FieldName = 'T510_028'
          end
          object dbgTas510T510_014: TdxDBGridCurrencyColumn
            Alignment = taLeftJustify
            DisableEditor = True
            Width = 54
            BandIndex = 0
            RowIndex = 0
            FieldName = 'T510_014'
            DisplayFormat = '0.00%'
            Nullable = False
          end
          object dbgTas510T510_015: TdxDBGridMaskColumn
            Alignment = taLeftJustify
            DisableEditor = True