dinnerchar.dfm

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

object DinnerCharForm: TDinnerCharForm
  Left = 228
  Top = 147
  Width = 556
  Height = 371
  Caption = #39184#21381#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 RadioGroup1: TRadioGroup
    Left = -1
    Top = 300
    Width = 546
    Height = 41
    Caption = #25490#24207#26041#24335
    TabOrder = 0
  end
  object IncomeRadio: TRadioButton
    Left = 325
    Top = 317
    Width = 73
    Height = 17
    Caption = #23454#25910#37329#39069
    TabOrder = 1
    OnClick = IncomeRadioClick
  end
  object NummRadioButton: TRadioButton
    Left = 33
    Top = 318
    Width = 113
    Height = 17
    Caption = #37202#33756#23450#21333
    TabOrder = 2
    OnClick = NummRadioButtonClick
  end
  object SummRadioButton: TRadioButton
    Left = 179
    Top = 317
    Width = 113
    Height = 17
    Caption = #24635#37329#39069
    TabOrder = 3
    OnClick = SummRadioButtonClick
  end
  object DBChart: TDBChart
    Left = 0
    Top = 0
    Width = 545
    Height = 297
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    Title.Text.Strings = (
      'TDBChart')
    TabOrder = 4
    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 = 'Numm;Summ;Income'
    end
  end
  object DinnerQuery: TQuery
    Active = True
    DatabaseName = 'Sales'
    SQL.Strings = (
      'select * from dinner')
    Left = 505
    Top = 273
  end
  object DataSource1: TDataSource
    DataSet = DinnerQuery
    Left = 473
    Top = 273
  end
end