cwa550_01.dfm.svn-base

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

inherited Cwa550_01Form: TCwa550_01Form
  Left = 17
  Top = 25
  Width = 765
  Height = 540
  HelpContext = 39
  Caption = #32771#21220#36164#26009#26680#31639
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter [0]
    Left = 193
    Top = 81
    Width = 3
    Height = 432
    Cursor = crHSplit
  end
  object Panel1: TPanel [1]
    Left = 0
    Top = 43
    Width = 757
    Height = 38
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    DesignSize = (
      757
      38)
    object Image1: TImage
      Left = 2
      Top = 2
      Width = 753
      Height = 34
      Align = alClient
      Stretch = True
    end
    object Label1: TLabel
      Left = 437
      Top = 13
      Width = 24
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #24180#20221
      Transparent = True
    end
    object Label2: TLabel
      Left = 548
      Top = 13
      Width = 24
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #26376#20221
      Transparent = True
    end
    object sbOk: TSpeedButton
      Left = 669
      Top = 9
      Width = 60
      Height = 21
      Anchors = [akTop, akRight]
      Caption = #30830#23450
      Flat = True
      OnClick = sbOkClick
    end
    object cbYear: TComboBox
      Left = 467
      Top = 9
      Width = 67
      Height = 20
      Style = csDropDownList
      Anchors = [akTop, akRight]
      ItemHeight = 12
      TabOrder = 0
      OnChange = cbYearChange
    end
    object cbMonth: TComboBox
      Left = 578
      Top = 9
      Width = 67
      Height = 20
      Style = csDropDownList
      Anchors = [akTop, akRight]
      ItemHeight = 12
      TabOrder = 1
      OnChange = cbMonthChange
    end
  end
  object CoolBar1: TCoolBar [2]
    Left = 0
    Top = 0
    Width = 757
    Height = 43
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 39
        Width = 753
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 740
      Height = 39
      AutoSize = True
      ButtonHeight = 39
      ButtonWidth = 31
      Caption = 'ToolBar2'
      EdgeBorders = []
      Flat = True
      Images = SYSDM.imgBtn
      ShowCaptions = True
      TabOrder = 0
      object tlbFirst: TToolButton
        Left = 0
        Top = 0
        Action = ActFirst
        AutoSize = True
      end
      object tlbPrior: TToolButton
        Left = 35
        Top = 0
        Action = ActPrior
        AutoSize = True
      end
      object tlbNext: TToolButton
        Left = 70
        Top = 0
        Action = ActNext
        AutoSize = True
      end
      object tlbLast: TToolButton
        Left = 105
        Top = 0
        Action = ActLast
        AutoSize = True
      end
      object ToolButton10: TToolButton
        Left = 140
        Top = 0
        Width = 8
        Caption = 'ToolButton10'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbLocate: TToolButton
        Left = 148
        Top = 0
        Action = ActLocate
        AutoSize = True
      end
      object tlbPrint: TToolButton
        Left = 183
        Top = 0
        Action = ActPrint
        AutoSize = True
        DropdownMenu = PopupMenu1
        Style = tbsDropDown
      end
      object ToolButton17: TToolButton
        Left = 231
        Top = 0
        Width = 8
        Caption = 'ToolButton17'
        ImageIndex = 14
        Style = tbsSeparator
      end
      object tlbCheck: TToolButton
        Left = 239
        Top = 0
        Action = ActCheck
        AutoSize = True
      end
      object tlbVise: TToolButton
        Left = 274
        Top = 0
        Action = ActProv
        AutoSize = True
      end
      object tlbCalculate: TToolButton
        Left = 309
        Top = 0
        Action = ActCalc
        AutoSize = True
      end
      object ToolButton15: TToolButton
        Left = 344
        Top = 0
        Width = 8
        Caption = 'ToolButton15'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbExit: TToolButton
        Left = 352
        Top = 0
        Action = ActExit
        AutoSize = True
      end
    end
  end
  object PageControl1: TPageControl [3]
    Left = 196
    Top = 81
    Width = 561
    Height = 432
    ActivePage = TabSheet1
    Align = alClient
    Style = tsFlatButtons
    TabIndex = 0
    TabOrder = 2
    object TabSheet1: TTabSheet
      Caption = #32771#21220#27719#24635
      object ScrollBox2: TScrollBox
        Left = 0
        Top = 0
        Width = 553
        Height = 402
        Align = alClient
        TabOrder = 0
        object dxDBGrid2: TdxDBGrid
          Left = 0
          Top = 0
          Width = 549
          Height = 398
          Bands = <
            item
            end>
          DefaultLayout = False
          HeaderMinRowCount = 2
          HeaderPanelRowCount = 1
          SummaryGroups = <>
          SummarySeparator = ', '
          Align = alClient
          BorderStyle = bsNone
          TabOrder = 0
          DataSource = dsCwa550A
          Filter.Criteria = {00000000}
          HeaderColor = 15262169
          HideFocusRect = True
          LookAndFeel = lfUltraFlat
          OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoRowSelect, edgoUseBitmap]
          object dxDBGrid2C150_002: TdxDBGridMaskColumn
            HeaderAlignment = taCenter
            Width = 76
            BandIndex = 0
            RowIndex = 0
            FieldName = 'C150_002'
          end
          object dxDBGrid2C150_003: TdxDBGridMaskColumn
            HeaderAlignment = taCenter
            Width = 254
            BandIndex = 0
            RowIndex = 0
            FieldName = 'C150_003'
          end
          object dxDBGrid2C550A_005: TdxDBGridMaskColumn
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'C550A_005'
          end
          object dxDBGrid2C150_005: TdxDBGridMaskColumn
            HeaderAlignment = taCenter
            Width = 47
            BandIndex = 0
            RowIndex = 0
            FieldName = 'C150_005'
          end
          object dxDBGrid2C550A_006: TdxDBGridCheckColumn
            HeaderAlignment = taCenter
            Width = 37
            BandIndex = 0
            RowIndex = 0
            FieldName = 'C550A_006'
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #32771#21220#26126#32454
      ImageIndex = 1
      object ScrollBox3: TScrollBox
        Left = 0
        Top = 0
        Width = 553
        Height = 402
        Align = alClient
        TabOrder = 0
        object dxDBGrid3: TdxDBGrid
          Left = 0
          Top = 0
          Width = 549
          Height = 398
          Bands = <
            item
            end>
          DefaultLayout = True
          HeaderMinRowCount = 2
          HeaderPanelRowCount = 1
          SummaryGroups = <>
          SummarySeparator = ', '
          Align = alClient
          BorderStyle = bsNone
          TabOrder = 0
          DataSource = dsCwa550B
          Filter.Criteria = {00000000}
          HeaderColor = 15262169
          HideFocusRect = True
          LookAndFeel = lfUltraFlat
          OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoRowSelect, edgoUseBitmap]
          object dxDBGrid3C550B_001: TdxDBGridDateColumn
            HeaderAlignment = taCenter
            Width = 90
            BandIndex = 0
            RowIndex = 0
            FieldName = 'C550B_001'
          end
          object dxDBGrid3C150_003: TdxDBGridMaskColumn
            HeaderAlignment = taCenter
            Width = 181
            BandIndex = 0
            RowIndex = 0
            FieldName = 'C150_003'
          end
          object dxDBGrid3C550B_004: TdxDBGridMaskColumn
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'C550B_004'
          end
          object dxDBGrid3C150_005: TdxDBGridMaskColumn
            HeaderAlignment = taCenter
            Width = 47
            BandIndex = 0
            RowIndex = 0
            FieldName = 'C150_005'
          end
          object dxDBGrid3C550B_005: TdxDBGridCheckColumn
            HeaderAlignment = taCenter
            Width = 41
            BandIndex = 0
            RowIndex = 0
            FieldName = 'C550B_005'
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
          object dxDBGrid3C550B_006: TdxDBGridMaskColumn
            HeaderAlignment = taCenter
            Width = 59
            BandIndex = 0
            RowIndex = 0
            FieldName = 'C550B_006'
          end
          object dxDBGrid3C550B_007: TdxDBGridCheckColumn
            HeaderAlignment = taCenter
            Width = 36
            BandIndex = 0
            RowIndex = 0
            FieldName = 'C550B_007'
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = #21345#38047#25968#25454
      ImageIndex = 2
      object ScrollBox4: TScrollBox
        Left = 0
        Top = 0
        Width = 553
        Height = 402
        Align = alClient
        TabOrder = 0
        object dxDBGrid4: TdxDBGrid
          Left = 0
          Top = 0
          Width = 549
          Height = 398
          Bands = <
            item
            end>
          DefaultLayout = True
          HeaderMinRowCount = 2
          HeaderPanelRowCount = 1
          SummaryGroups = <>
          SummarySeparator = ', '
          Align = alClient
          BorderStyle = bsNone
          TabOrder = 0
          DataSource = dsCwa510
          Filter.Criteria = {00000000}
          HeaderColor = 15262169
          HideFocusRect = True
          LookAndFeel = lfUltraFlat
          OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoRowSelect, edgoUseBitmap]
          object dxDBGrid4C510_001: TdxDBGridColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 125
            BandIndex = 0
            RowIndex = 0
            FieldName = 'C510_001'
          end
          object dxDBGrid4C510_002: TdxDBGridDateColumn
            DisableEditor = True
            HeaderAlignment = taCenter