salechart.dfm

完成酒店管理系统

object SaleChartFrm: TSaleChartFrm
  Left = 61
  Top = 233
  Width = 569
  Height = 382
  Caption = #33829#19994#20449#24687#22270#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 = 8
    Top = 0
    Width = 521
    Height = 273
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    Title.Text.Strings = (
      #33829#19994#20449#24687#25253#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
  end
  object GroupBox2: TGroupBox
    Left = 7
    Top = 292
    Width = 545
    Height = 41
    Caption = #25490#24207#26041#24335
    TabOrder = 1
    object RadioButton1: TRadioButton
      Left = 8
      Top = 16
      Width = 113
      Height = 17
      Caption = #24212#25910#37329#39069
      TabOrder = 0
      OnClick = RadioButton1Click
    end
    object RadioButton2: TRadioButton
      Left = 88
      Top = 16
      Width = 113
      Height = 17
      Caption = #23454#25910#37329#39069
      Checked = True
      TabOrder = 1
      TabStop = True
      OnClick = RadioButton2Click
    end
    object RadioButton3: TRadioButton
      Left = 168
      Top = 16
      Width = 113
      Height = 17
      Caption = #31246#25910#37329#39069
      TabOrder = 2
      OnClick = RadioButton3Click
    end
    object RadioButton4: TRadioButton
      Left = 256
      Top = 16
      Width = 113
      Height = 17
      Caption = #25552#25104#37329#39069
      TabOrder = 3
      OnClick = RadioButton4Click
    end
    object RadioButton5: TRadioButton
      Left = 352
      Top = 16
      Width = 113
      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 sail')
    Left = 528
    Top = 24
  end
end