salechar.dfm

一个餐饮行业的销售管理类的源码

object SaleCharForm: TSaleCharForm
  Left = 211
  Top = 190
  Width = 567
  Height = 384
  Caption = #33829#19994#20449#24687#22270#34920#20998#26512
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBChart: TDBChart
    Left = 8
    Top = 13
    Width = 545
    Height = 284
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    Title.Text.Strings = (
      'TDBChart')
    TabOrder = 0
    object Series1: TBarSeries
      Marks.ArrowLength = 8
      Marks.Visible = False
      DataSource = saleQuery
      SeriesColor = clRed
      XLabelsSource = 'ID'
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      XValues.ValueSource = 'ID'
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1
      YValues.Order = loNone
      YValues.ValueSource = 'Budget'
    end
  end
  object RadioGroup1: TRadioGroup
    Left = 7
    Top = 307
    Width = 546
    Height = 41
    Caption = #25490#24207#26041#24335
    TabOrder = 1
  end
  object BudgetRadio: TRadioButton
    Left = 24
    Top = 324
    Width = 81
    Height = 17
    Caption = #24212#25910#37329#39069
    TabOrder = 2
    OnClick = BudgetRadioClick
  end
  object IncomeRadio: TRadioButton
    Left = 116
    Top = 324
    Width = 73
    Height = 17
    Caption = #23454#25910#37329#39069
    TabOrder = 3
    OnClick = IncomeRadioClick
  end
  object TaxRadio: TRadioButton
    Left = 209
    Top = 324
    Width = 73
    Height = 17
    Caption = #31246#25910#37329#39069
    TabOrder = 4
    OnClick = TaxRadioClick
  end
  object DeductRadio: TRadioButton
    Left = 302
    Top = 324
    Width = 73
    Height = 17
    Caption = #25552#25104#37329#39069
    TabOrder = 5
    OnClick = DeductRadioClick
  end
  object CostRadio: TRadioButton
    Left = 395
    Top = 324
    Width = 73
    Height = 17
    Caption = #37202#33756#25104#26412
    TabOrder = 6
    OnClick = CostRadioClick
  end
  object ProfitRadio: TRadioButton
    Left = 480
    Top = 324
    Width = 66
    Height = 17
    Caption = #27611#21033
    TabOrder = 7
    OnClick = ProfitRadioClick
  end
  object saleQuery: TQuery
    Active = True
    DatabaseName = 'Sales'
    SQL.Strings = (
      'select * from sales')
    Left = 496
    Top = 280
  end
  object DataSource1: TDataSource
    DataSet = saleQuery
    Left = 464
    Top = 280
  end
end