tas440_01.dfm.svn-base

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

inherited Tas440_01Form: TTas440_01Form
  Width = 812
  Height = 612
  Caption = #26410#23436#20219#21209#20998#26512
  PixelsPerInch = 96
  TextHeight = 12
  inherited CoolBar1: TCoolBar
    Width = 804
    Bands = <
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 39
        Width = 800
      end>
    inherited ToolBar2: TToolBar
      Width = 787
    end
  end
  inherited Panel1: TPanel
    Width = 804
    inherited Image1: TImage
      Width = 800
    end
    object lblDate: TLabel
      Left = 429
      Top = 12
      Width = 48
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #36215#27490#26085#26399
      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 = 485
      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 = 596
      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
  end
  inherited ScrollBox2: TScrollBox
    Width = 804
    Height = 505
    object Splitter1: TSplitter [0]
      Left = 0
      Top = 210
      Width = 800
      Height = 3
      Cursor = crVSplit
      Align = alBottom
      MinSize = 3
    end
    inherited dxDBTreeList1: TdxDBTreeList
      Width = 800
      Height = 210
      Bands = <
        item
          Fixed = bfLeft
        end
        item
        end
        item
          Fixed = bfRight
        end>
      DefaultLayout = False
      HeaderMinRowCount = 2
      KeyField = 'FNo'
      ParentField = 'FParent'
      PopupMenu = PopupMenu1
      OnDblClick = dxDBTreeList1DblClick
      FixedBandLineWidth = 1
    end
    object Panel2: TPanel
      Left = 0
      Top = 213
      Width = 800
      Height = 288
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 1
      object Splitter2: TSplitter
        Left = 429
        Top = 0
        Width = 3
        Height = 288
        Cursor = crHSplit
        Align = alRight
      end
      object DBChart2: TDBChart
        Left = 432
        Top = 0
        Width = 368
        Height = 288
        AllowPanning = pmNone
        AllowZoom = False
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        BackWall.Pen.Visible = False
        Title.Text.Strings = (
          '')
        AxisVisible = False
        ClipPoints = False
        Frame.Visible = False
        View3DOptions.Elevation = 315
        View3DOptions.Orthogonal = False
        View3DOptions.Perspective = 0
        View3DOptions.Rotation = 360
        View3DWalls = False
        Align = alRight
        BevelOuter = bvLowered
        TabOrder = 0
        object Series2: TPieSeries
          Marks.ArrowLength = 8
          Marks.Style = smsLabelPercent
          Marks.Visible = True
          DataSource = ADODataSet2
          SeriesColor = clRed
          ShowInLegend = False
          XLabelsSource = 'FName'
          OtherSlice.Text = 'Other'
          PieValues.DateTime = False
          PieValues.Name = 'Pie'
          PieValues.Multiplier = 1
          PieValues.Order = loNone
          PieValues.ValueSource = 'FSum'
        end
      end
      object DBChart1: TDBChart
        Left = 0
        Top = 0
        Width = 429
        Height = 288
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        Title.Text.Strings = (
          '')
        Legend.Visible = False
        Align = alClient
        BevelOuter = bvLowered
        TabOrder = 1
        object Series1: TBarSeries
          Marks.ArrowLength = 20
          Marks.Style = smsValue
          Marks.Visible = True
          DataSource = ADODataSet1
          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
  end
  inherited ActionList1: TActionList
    object ActOpen: TAction
      Caption = #26597#30475'(&N)'
      ShortCut = 16397
      OnExecute = ActOpenExecute
    end
  end
  inherited ADODataSet1: TADODataSet
    CursorType = ctStatic
    LockType = ltBatchOptimistic
  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 ADODataSet2: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    FieldDefs = <
      item
        Name = 'FName'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'FSum'
        Attributes = [faFixed]
        DataType = ftInteger
      end>
    Parameters = <>
    StoreDefs = True
    Left = 88
    Top = 200
  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
end