chararea.dfm

一款不错的商务程序商品管理系统,有简易的窗体皮肤

object Frm_Mailchart: TFrm_Mailchart
  Left = 50
  Top = 54
  Width = 915
  Height = 650
  Caption = #22320#21306#37038#20214#20998#26512' '
  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 GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 177
    Height = 623
    Align = alLeft
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 15
      Width = 81
      Height = 13
      Caption = #36215#22987#26102#38388#65306'       '
      Transparent = True
    end
    object Label2: TLabel
      Left = 8
      Top = 65
      Width = 105
      Height = 13
      Caption = #32467#26463#26102#38388#65306'               '
      Transparent = True
    end
    object SpeedButton1: TSpeedButton
      Left = 83
      Top = 142
      Width = 70
      Height = 23
      Caption = #24320#22987#20998#26512
      OnClick = SpeedButton1Click
    end
    object DateTimePicker1: TDateTimePicker
      Left = 7
      Top = 32
      Width = 159
      Height = 21
      Date = 38860.553713101850000000
      Time = 38860.553713101850000000
      ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
      TabOrder = 0
    end
    object DateTimePicker2: TDateTimePicker
      Left = 7
      Top = 84
      Width = 159
      Height = 21
      Date = 38860.553713101850000000
      Time = 38860.553713101850000000
      ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
      TabOrder = 1
    end
  end
  object DBChart1: TDBChart
    Left = 177
    Top = 0
    Width = 730
    Height = 623
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    Title.Text.Strings = (
      #22320#21306#37038#20214#20998#26512#22270)
    View3DOptions.Zoom = 102
    Align = alClient
    TabOrder = 1
    object Series1: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = True
      DataSource = ADOChart
      SeriesColor = clRed
      XLabelsSource = #37038#20214#25509#25910#22320#21306
      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
      YValues.ValueSource = #25509#25910#37038#20214#25968
    end
  end
  object ADOChart: TADODataSet
    Connection = FDM.ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from MR_Chart_Tab'
    Parameters = <>
    Left = 41
    Top = 344
  end
  object DSChart: TDataSource
    DataSet = ADOChart
    Left = 72
    Top = 344
  end
end