tas450_01.dfm.svn-base

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

inherited Tas450_01Form: TTas450_01Form
  Caption = #26381#21209#23458#25143#25976#37327
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter [0]
    Left = 0
    Top = 300
    Width = 800
    Height = 3
    Cursor = crVSplit
    Align = alBottom
  end
  inherited Panel1: TPanel
    object lblYear: TLabel
      Left = 589
      Top = 12
      Width = 24
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #24180#24230
      Transparent = True
    end
    object sbSearch: TSpeedButton
      Left = 722
      Top = 8
      Width = 57
      Height = 22
      Anchors = [akTop, akRight]
      Caption = #26597#35810
      OnClick = sbSearchClick
    end
    object cbYear: TComboBox
      Left = 621
      Top = 8
      Width = 81
      Height = 20
      Style = csDropDownList
      Anchors = [akTop, akRight]
      ItemHeight = 12
      TabOrder = 0
    end
  end
  inherited ScrollBox2: TScrollBox
    Height = 220
    inherited dxDBTreeList1: TdxDBTreeList
      Height = 216
      Bands = <
        item
          Fixed = bfLeft
        end
        item
        end
        item
          Fixed = bfRight
        end>
      DefaultLayout = False
      KeyField = 'FNo'
      ParentField = 'FParent'
      PopupMenu = PopupMenu1
      FixedBandLineWidth = 1
      object dxDBTreeList1FName: TdxDBTreeListMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 208
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FName'
      end
      object dxDBTreeList1FTotal1: TdxDBTreeListMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 1
        RowIndex = 0
        FieldName = 'FTotal1'
        SummaryFooterType = cstSum
        SummaryFooterFormat = '0'
        OnDrawSummaryFooter = dxDBTreeList1FTotal1DrawSummaryFooter
      end
      object dxDBTreeList1FTotal2: TdxDBTreeListMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 1
        RowIndex = 0
        FieldName = 'FTotal2'
        SummaryFooterType = cstSum
        SummaryFooterFormat = '0'
        OnDrawSummaryFooter = dxDBTreeList1FTotal2DrawSummaryFooter
      end
      object dxDBTreeList1FTotal3: TdxDBTreeListMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 1
        RowIndex = 0
        FieldName = 'FTotal3'
        SummaryFooterType = cstSum
        SummaryFooterFormat = '0'
        OnDrawSummaryFooter = dxDBTreeList1FTotal3DrawSummaryFooter
      end
      object dxDBTreeList1FTotal4: TdxDBTreeListMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 1
        RowIndex = 0
        FieldName = 'FTotal4'
        SummaryFooterType = cstSum
        SummaryFooterFormat = '0'
        OnDrawSummaryFooter = dxDBTreeList1FTotal4DrawSummaryFooter
      end
      object dxDBTreeList1FTotal5: TdxDBTreeListMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 1
        RowIndex = 0
        FieldName = 'FTotal5'
        SummaryFooterType = cstSum
        SummaryFooterFormat = '0'
        OnDrawSummaryFooter = dxDBTreeList1FTotal5DrawSummaryFooter
      end
      object dxDBTreeList1FTotal6: TdxDBTreeListMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 1
        RowIndex = 0
        FieldName = 'FTotal6'
        SummaryFooterType = cstSum
        SummaryFooterFormat = '0'
        OnDrawSummaryFooter = dxDBTreeList1FTotal6DrawSummaryFooter
      end
      object dxDBTreeList1FTotal7: TdxDBTreeListMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 1
        RowIndex = 0
        FieldName = 'FTotal7'
        SummaryFooterType = cstSum
        SummaryFooterFormat = '0'
        OnDrawSummaryFooter = dxDBTreeList1FTotal7DrawSummaryFooter
      end
      object dxDBTreeList1FTotal8: TdxDBTreeListMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 1
        RowIndex = 0
        FieldName = 'FTotal8'
        SummaryFooterType = cstSum
        SummaryFooterFormat = '0'
        OnDrawSummaryFooter = dxDBTreeList1FTotal8DrawSummaryFooter
      end
      object dxDBTreeList1FTotal9: TdxDBTreeListMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 1
        RowIndex = 0
        FieldName = 'FTotal9'
        SummaryFooterType = cstSum
        SummaryFooterFormat = '0'
        OnDrawSummaryFooter = dxDBTreeList1FTotal9DrawSummaryFooter
      end
      object dxDBTreeList1FTotal10: TdxDBTreeListMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 1
        RowIndex = 0
        FieldName = 'FTotal10'
        SummaryFooterType = cstSum
        SummaryFooterFormat = '0'
        OnDrawSummaryFooter = dxDBTreeList1FTotal10DrawSummaryFooter
      end
      object dxDBTreeList1FTotal11: TdxDBTreeListMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 1
        RowIndex = 0
        FieldName = 'FTotal11'
        SummaryFooterType = cstSum
        SummaryFooterFormat = '0'
        OnDrawSummaryFooter = dxDBTreeList1FTotal11DrawSummaryFooter
      end
      object dxDBTreeList1FTotal12: TdxDBTreeListMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 1
        RowIndex = 0
        FieldName = 'FTotal12'
        SummaryFooterType = cstSum
        SummaryFooterFormat = '0'
        OnDrawSummaryFooter = dxDBTreeList1FTotal12DrawSummaryFooter
      end
      object dxDBTreeList1FTotal: TdxDBTreeListMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 2
        RowIndex = 0
        FieldName = 'FTotal'
        SummaryFooterType = cstSum
        SummaryFooterFormat = '0'
        OnDrawSummaryFooter = dxDBTreeList1FTotalDrawSummaryFooter
      end
    end
  end
  object DBChart1: TDBChart [4]
    Left = 0
    Top = 303
    Width = 800
    Height = 250
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    Title.Text.Strings = (
      '')
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 3
    object Series1: TLineSeries
      Marks.ArrowLength = 20
      Marks.Style = smsValue
      Marks.Visible = True
      DataSource = ADODataSet2
      SeriesColor = clRed
      Title = #23458#25142#25976#37327
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1
      YValues.Order = loNone
    end
    object Series2: TLineSeries
      Marks.ArrowLength = 8
      Marks.Visible = False
      DataSource = Series1
      SeriesColor = clGreen
      Title = #24179#22343#20540
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1
      YValues.Order = loNone
      object TeeFunction1: TAverageTeeFunction
      end
    end
  end
  inherited ActionList1: TActionList
    object ActOpen: TAction
      Caption = #26597#30475'(&N)'
      ShortCut = 16397
      OnExecute = ActOpenExecute
    end
  end
  inherited ADODataSet1: TADODataSet
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    FieldDefs = <
      item
        Name = 'FNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FName'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'FParent'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FTotal1'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FTotal2'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FTotal3'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FTotal4'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FTotal5'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FTotal6'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FTotal7'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FTotal8'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FTotal9'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FTotal10'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FTotal11'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FTotal12'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FTotal'
        Attributes = [faFixed]
        DataType = ftInteger
      end>
    StoreDefs = True
    object ADODataSet1FNo: TIntegerField
      FieldName = 'FNo'
      Visible = False
    end
    object ADODataSet1FName: TStringField
      DisplayLabel = #21517#31216
      FieldName = 'FName'
      Size = 50
    end
    object ADODataSet1FParent: TIntegerField
      FieldName = 'FParent'
      Visible = False
    end
    object ADODataSet1FTotal1: TIntegerField
      DisplayLabel = #19968#26376
      FieldName = 'FTotal1'
    end
    object ADODataSet1FTotal2: TIntegerField
      DisplayLabel = #20108#26376
      FieldName = 'FTotal2'
    end
    object ADODataSet1FTotal3: TIntegerField
      DisplayLabel = #19977#26376
      FieldName = 'FTotal3'
    end
    object ADODataSet1FTotal4: TIntegerField
      DisplayLabel = #22235#26376
      FieldName = 'FTotal4'
    end
    object ADODataSet1FTotal5: TIntegerField
      DisplayLabel = #20116#26376
      FieldName = 'FTotal5'
    end
    object ADODataSet1FTotal6: TIntegerField
      DisplayLabel = #20845#26376
      FieldName = 'FTotal6'
    end
    object ADODataSet1FTotal7: TIntegerField
      DisplayLabel = #19971#26376
      FieldName = 'FTotal7'
    end
    object ADODataSet1FTotal8: TIntegerField
      DisplayLabel = #20843#26376
      FieldName = 'FTotal8'
    end
    object ADODataSet1FTotal9: TIntegerField
      DisplayLabel = #20061#26376
      FieldName = 'FTotal9'
    end
    object ADODataSet1FTotal10: TIntegerField
      DisplayLabel = #21313#26376
      FieldName = 'FTotal10'
    end
    object ADODataSet1FTotal11: TIntegerField
      DisplayLabel = #21313#19968#26376
      FieldName = 'FTotal11'
    end
    object ADODataSet1FTotal12: TIntegerField
      DisplayLabel = #21313#20108#26376
      FieldName = 'FTotal12'
    end
    object ADODataSet1FTotal: TIntegerField
      DisplayLabel = #23567#35745
      FieldName = 'FTotal'
    end
  end
  object ADOQuery1: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select count(T510_001) as FTotal,T100_001,T100_002,T100_003,T510' +
        '_013 as FDays'
      'from TAS510,TAS100'
      'where T510_004=T100_001'
      '  and T510_003=3 group by T100_001,T100_002,T100_003,T510_013')
    Left = 336
    Top = 144
  end
  object PopupMenu1: TPopupMenu
    Left = 72
    Top = 216
    object N1: TMenuItem
      Action = ActOpen
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object N4: TMenuItem
      Action = ActLocate
    end
    object N5: TMenuItem
      Action = ActSearch
    end
  end
  object ADODataSet2: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    FieldDefs = <
      item
        Name = 'FMonth'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FTotal'
        Attributes = [faFixed]
        DataType = ftInteger
      end>
    IndexFieldNames = 'FMonth'
    Parameters = <>
    StoreDefs = True
    Left = 344
    Top = 384
  end
end