tas460_01.dfm.svn-base

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

inherited Tas460_01Form: TTas460_01Form
  Caption = #36164#28304#20351#29992#20998#26512
  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 lblDate: TLabel
      Left = 277
      Top = 12
      Width = 48
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #36215#27490#26085#26399
      Transparent = True
    end
    object lblType: TLabel
      Left = 565
      Top = 12
      Width = 24
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #31867#22411
      Transparent = True
    end
    object sbSearch: TSpeedButton
      Left = 722
      Top = 8
      Width = 57
      Height = 22
      Anchors = [akTop, akRight]
      Caption = #26597#35810
      OnClick = sbSearchClick
    end
    object edtFromDate: TwwDBDateTimePicker
      Left = 333
      Top = 8
      Width = 105
      Height = 20
      Anchors = [akTop, akRight]
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      Epoch = 1950
      ShowButton = True
      TabOrder = 0
    end
    object edtToDate: TwwDBDateTimePicker
      Left = 445
      Top = 8
      Width = 105
      Height = 20
      Anchors = [akTop, akRight]
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      Epoch = 1950
      ShowButton = True
      TabOrder = 1
    end
    object cbType: TComboBox
      Left = 597
      Top = 8
      Width = 108
      Height = 20
      Style = csDropDownList
      Anchors = [akTop, akRight]
      ItemHeight = 12
      TabOrder = 2
      Items.Strings = (
        #25353#20219#21153#31867#21035
        #25353#39033#30446
        #25353#23458#25142)
    end
  end
  inherited ScrollBox2: TScrollBox
    Height = 220
    inherited dxDBTreeList1: TdxDBTreeList
      Height = 216
      KeyField = 'FNo'
      ParentField = 'FParent'
      PopupMenu = PopupMenu1
      object dxDBTreeList1FName: TdxDBTreeListMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 304
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FName'
      end
      object dxDBTreeList1FQty: TdxDBTreeListMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 83
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FQty'
        SummaryFooterType = cstSum
        OnDrawSummaryFooter = dxDBTreeList1FQtyDrawSummaryFooter
      end
      object dxDBTreeList1FTotal: TdxDBTreeListMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 107
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FTotal'
        SummaryFooterType = cstSum
        OnDrawSummaryFooter = dxDBTreeList1FTotalDrawSummaryFooter
      end
      object dxDBTreeList1FAvg: TdxDBTreeListMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 83
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FAvg'
        SummaryFooterType = cstSum
        OnDrawSummaryFooter = dxDBTreeList1FAvgDrawSummaryFooter
      end
      object dxDBTreeList1FPercent: TdxDBTreeListMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FPercent'
        SummaryFooterType = cstSum
        OnDrawSummaryFooter = dxDBTreeList1FPercentDrawSummaryFooter
      end
    end
  end
  object Panel2: TPanel [4]
    Left = 0
    Top = 303
    Width = 800
    Height = 250
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 3
    object Splitter2: TSplitter
      Left = 345
      Top = 0
      Width = 3
      Height = 250
      Cursor = crHSplit
    end
    object DBChart1: TDBChart
      Left = 0
      Top = 0
      Width = 345
      Height = 250
      BackWall.Brush.Color = clWhite
      BackWall.Brush.Style = bsClear
      Title.Text.Strings = (
        '')
      Align = alLeft
      BevelOuter = bvLowered
      TabOrder = 0
      object Series1: TBarSeries
        Marks.ArrowLength = 20
        Marks.Style = smsValue
        Marks.Visible = True
        DataSource = ADODataSet2
        SeriesColor = clRed
        XLabelsSource = 'FName'
        XValues.DateTime = False
        XValues.Name = 'X'
        XValues.Multiplier = 1
        XValues.Order = loAscending
        YValues.DateTime = False
        YValues.Name = 'Bar'
        YValues.Multiplier = 1
        YValues.Order = loNone
        YValues.ValueSource = 'FTotal'
      end
    end
    object DBChart2: TDBChart
      Left = 348
      Top = 0
      Width = 452
      Height = 250
      BackWall.Brush.Color = clWhite
      BackWall.Brush.Style = bsClear
      Title.Text.Strings = (
        '')
      Align = alClient
      BevelOuter = bvLowered
      TabOrder = 1
      object BarSeries1: TBarSeries
        Marks.ArrowLength = 20
        Marks.Style = smsValue
        Marks.Visible = True
        DataSource = ADODataSet3
        SeriesColor = clRed
        XLabelsSource = 'FName'
        XValues.DateTime = False
        XValues.Name = 'X'
        XValues.Multiplier = 1
        XValues.Order = loAscending
        YValues.DateTime = False
        YValues.Name = 'Bar'
        YValues.Multiplier = 1
        YValues.Order = loNone
        YValues.ValueSource = 'FTotal'
      end
    end
  end
  inherited ActionList1: TActionList
    Left = 392
    Top = 0
    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 = 'FTotal'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FQty'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FAvg'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FPercent'
        Attributes = [faFixed]
        DataType = ftFloat
      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 ADODataSet1FTotal: TFloatField
      DisplayLabel = #24635#20154#24037#22825
      FieldName = 'FTotal'
      DisplayFormat = ',0.00'
    end
    object ADODataSet1FQty: TFloatField
      DisplayLabel = #20219#21153#25968#37327
      FieldName = 'FQty'
      DisplayFormat = ',0.00'
    end
    object ADODataSet1FAvg: TFloatField
      DisplayLabel = #24179#22343#20154#24037#22825
      FieldName = 'FAvg'
      DisplayFormat = ',0.00'
    end
    object ADODataSet1FPercent: TFloatField
      DisplayLabel = #25152#21344#27604#37325
      FieldName = 'FPercent'
      DisplayFormat = '0.00%'
    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
    AfterScroll = ADODataSet1AfterScroll
    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 = 'FTotal'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FPercent'
        Attributes = [faFixed]
        DataType = ftFloat
      end>
    Parameters = <>
    StoreDefs = True
    Left = 136
    Top = 368
    object IntegerField1: TIntegerField
      FieldName = 'FNo'
      Visible = False
    end
    object StringField1: TStringField
      DisplayLabel = #21517#31216
      FieldName = 'FName'
      Size = 50
    end
    object IntegerField2: TIntegerField
      FieldName = 'FParent'
      Visible = False
    end
    object IntegerField3: TIntegerField
      DisplayLabel = #32791#29992#36164#28304'('#20154#22825')'
      FieldName = 'FTotal'
    end
    object FloatField1: TFloatField
      DisplayLabel = #25152#21344#27604#37325
      FieldName = 'FPercent'
    end
  end
  object ADODataSet3: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    AfterScroll = ADODataSet1AfterScroll
    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 = 'FTotal'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FPercent'
        Attributes = [faFixed]
        DataType = ftFloat
      end>
    Parameters = <>
    StoreDefs = True
    Left = 480
    Top = 384
    object IntegerField4: TIntegerField
      FieldName = 'FNo'
      Visible = False
    end
    object StringField2: TStringField
      DisplayLabel = #21517#31216
      FieldName = 'FName'
      Size = 50
    end
    object IntegerField5: TIntegerField
      FieldName = 'FParent'
      Visible = False
    end
    object IntegerField6: TIntegerField
      DisplayLabel = #32791#29992#36164#28304'('#20154#22825')'
      FieldName = 'FTotal'
    end
    object FloatField2: TFloatField
      DisplayLabel = #25152#21344#27604#37325
      FieldName = 'FPercent'
    end
  end
end