tempchart.dfm

使用Delphi 6.0开发用于控制空调的程序

object frmTemChart: TfrmTemChart
  Left = 330
  Top = 11
  Width = 1024
  Height = 738
  Caption = 'frmTemChart'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  object lbl1: TLabel
    Left = 216
    Top = 648
    Width = 60
    Height = 13
    Caption = #36215#22987#26102#38388#65306
  end
  object lbl2: TLabel
    Left = 392
    Top = 648
    Width = 60
    Height = 13
    Caption = #32467#26463#26102#38388#65306
  end
  object Label1: TLabel
    Left = 48
    Top = 640
    Width = 60
    Height = 13
    Caption = #31354#35843#22320#22336#65306
  end
  object dbcht1: TDBChart
    Left = -8
    Top = -16
    Width = 1017
    Height = 633
    AllowPanning = pmHorizontal
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    Title.Text.Strings = (
      #22238#39118#28201#24230#36235#21183#22270'   ')
    Chart3DPercent = 5
    LeftAxis.MinorTickLength = 0
    LeftAxis.TickLength = 0
    LeftAxis.Title.Caption = #22238#39118#28201#24230
    ScaleLastPage = False
    View3D = False
    View3DOptions.Elevation = 320
    View3DOptions.HorizOffset = -7
    View3DOptions.VertOffset = 9
    View3DOptions.Zoom = 101
    View3DWalls = False
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object LsSeries1: TLineSeries
      Marks.ArrowLength = 8
      Marks.Style = smsLegend
      Marks.Visible = False
      DataSource = AQ1
      SeriesColor = clRed
      VertAxis = aBothVertAxis
      XLabelsSource = #26102#38388
      Pointer.InflateMargins = True
      Pointer.Style = psStar
      Pointer.Visible = True
      XValues.DateTime = True
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      XValues.ValueSource = #26102#38388
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1
      YValues.Order = loNone
      YValues.ValueSource = #22238#39118#28201#24230
    end
  end
  object btnFilter: TButton
    Left = 592
    Top = 636
    Width = 75
    Height = 25
    Caption = #36807#28388
    TabOrder = 1
    OnClick = btnFilterClick
  end
  object dtpStart: TDateTimePicker
    Left = 280
    Top = 640
    Width = 89
    Height = 21
    CalAlignment = dtaLeft
    Date = 39002.4039189005
    Time = 39002.4039189005
    DateFormat = dfShort
    DateMode = dmComboBox
    Kind = dtkDate
    ParseInput = False
    TabOrder = 2
  end
  object dtpStop: TDateTimePicker
    Left = 472
    Top = 640
    Width = 89
    Height = 21
    CalAlignment = dtaLeft
    Date = 39002.4060653472
    Time = 39002.4060653472
    DateFormat = dfShort
    DateMode = dmComboBox
    Kind = dtkDate
    ParseInput = False
    TabOrder = 3
  end
  object statTempReturn: TStatusBar
    Left = 0
    Top = 692
    Width = 1016
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object btnMark: TButton
    Left = 888
    Top = 636
    Width = 75
    Height = 25
    Caption = #38544#34255#27880#37322
    TabOrder = 5
    OnClick = btnMarkClick
  end
  object cbb1: TComboBox
    Left = 112
    Top = 640
    Width = 81
    Height = 21
    ItemHeight = 13
    TabOrder = 6
    Text = '01'
    Items.Strings = (
      '01'
      '02')
  end
  object AT1: TADOTable
    Connection = frmain.conAir
    CursorType = ctStatic
    TableName = 'ACData'
    Left = 48
    Top = 16
  end
  object AQ1: TADOQuery
    Connection = frmain.conAir
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from ACData')
    Left = 104
    Top = 16
  end
end