dinnerchart.~dfm

完成酒店管理系统

object DinnerChartFrm: TDinnerChartFrm
  Left = 154
  Top = 111
  Width = 568
  Height = 395
  Caption = #39184#39278#20998#26512#25253#34920
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBChart1: TDBChart
    Left = 0
    Top = 0
    Width = 497
    Height = 281
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    Title.Text.Strings = (
      #39184#39278#20449#24687#22270#34920)
    TabOrder = 0
    object Series1: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = True
      DataSource = ADOQuery1
      SeriesColor = clRed
      XLabelsSource = #24212#25910#37329#39069
      XValues.DateTime = True
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      XValues.ValueSource = #26085#26399
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      YValues.ValueSource = #24212#25910#37329#39069
    end
    object Series2: TBarSeries
      Active = False
      Marks.ArrowLength = 20
      Marks.Visible = True
      SeriesColor = clGreen
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
    end
    object Series3: TBarSeries
      Active = False
      Marks.ArrowLength = 20
      Marks.Visible = True
      SeriesColor = clYellow
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
    end
  end
  object GroupBox2: TGroupBox
    Left = 12
    Top = 290
    Width = 545
    Height = 41
    Caption = #25490#24207#26041#24335
    TabOrder = 1
    object RadioButton1: TRadioButton
      Left = 8
      Top = 16
      Width = 73
      Height = 17
      Caption = #24212#25910#37329#39069
      TabOrder = 0
      OnClick = RadioButton1Click
    end
    object RadioButton2: TRadioButton
      Left = 88
      Top = 16
      Width = 73
      Height = 17
      Caption = #23454#25910#37329#39069
      TabOrder = 1
      OnClick = RadioButton2Click
    end
    object RadioButton3: TRadioButton
      Left = 168
      Top = 16
      Width = 89
      Height = 17
      Caption = #31246#25910#37329#39069
      TabOrder = 2
      OnClick = RadioButton3Click
    end
    object RadioButton4: TRadioButton
      Left = 256
      Top = 16
      Width = 97
      Height = 17
      Caption = #25552#25104#37329#39069
      TabOrder = 3
      OnClick = RadioButton4Click
    end
    object RadioButton5: TRadioButton
      Left = 352
      Top = 16
      Width = 81
      Height = 17
      Caption = #25104#26412#37329#39069
      TabOrder = 4
      OnClick = RadioButton5Click
    end
    object RadioButton6: TRadioButton
      Left = 448
      Top = 16
      Width = 81
      Height = 17
      Caption = #27611#21033
      TabOrder = 5
      OnClick = RadioButton6Click
    end
  end
  object ADOQuery1: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Manage.mdb;Persist ' +
      'Security Info=False'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From DinnerInput')
    Left = 528
    Top = 32
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 528
    Top = 72
  end
end