roomchart.dfm

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

object roomChartForm: TroomChartForm
  Left = 207
  Top = 166
  Width = 574
  Height = 375
  Caption = #23458#25151#20449#24687#26597#35810
  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 RadioGroup1: TRadioGroup
    Left = 14
    Top = 299
    Width = 546
    Height = 41
    Caption = #25490#24207#26041#24335
    TabOrder = 0
  end
  object BudgetRadio: TRadioButton
    Left = 24
    Top = 316
    Width = 81
    Height = 17
    Caption = #24212#25910#37329#39069
    TabOrder = 1
    OnClick = BudgetRadioClick
  end
  object IncomeRadio: TRadioButton
    Left = 116
    Top = 316
    Width = 73
    Height = 17
    Caption = #23454#25910#37329#39069
    TabOrder = 2
    OnClick = IncomeRadioClick
  end
  object TaxRadio: TRadioButton
    Left = 209
    Top = 316
    Width = 73
    Height = 17
    Caption = #31246#25910#37329#39069
    TabOrder = 3
    OnClick = TaxRadioClick
  end
  object DiscountRadio: TRadioButton
    Left = 302
    Top = 316
    Width = 73
    Height = 17
    Caption = #25552#25104#37329#39069
    TabOrder = 4
    OnClick = DiscountRadioClick
  end
  object CostRadio: TRadioButton
    Left = 395
    Top = 316
    Width = 73
    Height = 17
    Caption = #25104#26412
    TabOrder = 5
    OnClick = CostRadioClick
  end
  object ProfitRadio: TRadioButton
    Left = 479
    Top = 316
    Width = 73
    Height = 17
    Caption = #27611#21033
    TabOrder = 6
    OnClick = ProfitRadioClick
  end
  object DBChart: TDBChart
    Left = 16
    Top = 8
    Width = 545
    Height = 289
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    Title.Text.Strings = (
      'TDBChart')
    TabOrder = 7
    object Series1: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = True
      DataSource = DataSource1
      SeriesColor = clRed
      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 = 
        'People;Dinner_price;Romm_price;Service_price;Discount;Budget;Inc' +
        'ome;Profit'
    end
  end
  object DataSource1: TDataSource
    DataSet = roomQuery
    Left = 488
    Top = 272
  end
  object roomQuery: TQuery
    Active = True
    DatabaseName = 'Sales'
    SQL.Strings = (
      'select * from room')
    Left = 520
    Top = 272
  end
end