bbxsmlnb.dfm

来自「IT业进销存管理系统源代码Delphi」· DFM 代码 · 共 87 行

inherited frmBbXsMlNb: TfrmBbXsMlNb
  Caption = '销售毛利年表(不含税价)'
  PixelsPerInch = 96
  TextHeight = 15
  inherited DBGrid1: TDBGrid
    DataSource = DataBb.sXsMlNb
    Columns = <
      item
        Expanded = False
        FieldName = 'YF'
        PickList.Strings = ()
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'JEA'
        PickList.Strings = ()
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CBJE'
        PickList.Strings = ()
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'LRJE'
        PickList.Strings = ()
        Visible = True
      end>
  end
  inherited ControlBar1: TControlBar
    inherited ToolBar2: TToolBar
      Left = 617
    end
  end
  inherited pnlFxt: TPanel
    inherited DBChart1: TDBChart
      BackWall.Brush.Style = bsSolid
      View3DOptions.Elevation = 315
      View3DOptions.Orthogonal = False
      View3DOptions.Perspective = 0
      View3DOptions.Rotation = 360
      object Series1: TBarSeries
        Marks.ArrowLength = 20
        Marks.Visible = True
        DataSource = DataBb.XsMlNb
        SeriesColor = clRed
        Title = '销售金额'
        XValues.DateTime = False
        XValues.Name = 'X'
        XValues.Multiplier = 1
        XValues.Order = loAscending
        XValues.ValueSource = 'YF'
        YValues.DateTime = False
        YValues.Name = 'Bar'
        YValues.Multiplier = 1
        YValues.Order = loNone
        YValues.ValueSource = 'JEA'
      end
      object Series2: TBarSeries
        Marks.ArrowLength = 20
        Marks.Visible = True
        DataSource = DataBb.XsMlNb
        SeriesColor = clGreen
        Title = '销售毛利'
        XValues.DateTime = False
        XValues.Name = 'X'
        XValues.Multiplier = 1
        XValues.Order = loAscending
        XValues.ValueSource = 'YF'
        YValues.DateTime = False
        YValues.Name = 'Bar'
        YValues.Multiplier = 1
        YValues.Order = loNone
        YValues.ValueSource = 'LRJE'
      end
    end
  end
  inherited ActionList1: TActionList
    inherited aMx: TAction
      Tag = 0
    end
  end
end