unit1.dfm

家庭内温度记录仪器与计算机之间的通讯软件

object frmMain: TfrmMain
  Left = 190
  Top = 134
  Width = 753
  Height = 561
  Caption = '温度记录仪数据管理系统(2.0)'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar: TStatusBar
    Left = 0
    Top = 471
    Width = 1018
    Height = 26
    Panels = <
      item
        Width = 50
      end
      item
        Width = 200
      end
      item
        Width = 600
      end>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 33
    Width = 785
    Height = 438
    Align = alLeft
    Alignment = taLeftJustify
    TabOrder = 1
    object MSComm1: TMSComm
      Left = 304
      Top = 8
      Width = 32
      Height = 32
      ControlData = {
        2143341208000000ED030000ED03000001568A640000060000000100DC050000
        00020000802500000000080000000000000000003F00000011000000}
    end
    object Chart1: TChart
      Left = 1
      Top = 1
      Width = 783
      Height = 436
      BackWall.Brush.Color = clWhite
      BackWall.Color = 64
      Foot.Alignment = taRightJustify
      Foot.Font.Charset = DEFAULT_CHARSET
      Foot.Font.Color = clBlack
      Foot.Font.Height = -15
      Foot.Font.Name = 'Arial'
      Foot.Font.Style = [fsItalic]
      Foot.Text.Strings = (
        '日 小时:分钟')
      LeftWall.Color = clWhite
      Title.Font.Charset = DEFAULT_CHARSET
      Title.Font.Color = clBlue
      Title.Font.Height = -16
      Title.Font.Name = 'Arial'
      Title.Font.Style = []
      Title.Text.Strings = (
        '温度曲线')
      BackColor = 64
      BottomAxis.Grid.Color = 4227072
      BottomAxis.Grid.Style = psSolid
      LeftAxis.Grid.Color = 4227072
      LeftAxis.Grid.Style = psSolid
      LeftAxis.Title.Caption = '温度值(℃)'
      LeftAxis.Title.Font.Charset = DEFAULT_CHARSET
      LeftAxis.Title.Font.Color = clBlack
      LeftAxis.Title.Font.Height = -13
      LeftAxis.Title.Font.Name = 'Arial'
      LeftAxis.Title.Font.Style = []
      Legend.Visible = False
      Align = alClient
      ParentShowHint = False
      ShowHint = False
      TabOrder = 1
      object Series1: TFastLineSeries
        Marks.ArrowLength = 8
        Marks.BackColor = 16384
        Marks.Visible = False
        SeriesColor = clYellow
        LinePen.Color = clYellow
        LinePen.Width = 2
        XValues.DateTime = False
        XValues.Name = 'X'
        XValues.Multiplier = 1
        XValues.Order = loAscending
        YValues.DateTime = False
        YValues.Name = 'Y'
        YValues.Multiplier = 1
        YValues.Order = loNone
      end
      object Series2: TFastLineSeries
        Marks.ArrowLength = 8
        Marks.Visible = False
        SeriesColor = clRed
        LinePen.Color = clRed
        LinePen.Width = 2
        XValues.DateTime = False
        XValues.Name = 'X'
        XValues.Multiplier = 1
        XValues.Order = loAscending
        YValues.DateTime = False
        YValues.Name = 'Y'
        YValues.Multiplier = 1
        YValues.Order = loNone
      end
      object Series3: TFastLineSeries
        Marks.ArrowLength = 8
        Marks.Visible = False
        SeriesColor = clWhite
        LinePen.Color = clWhite
        XValues.DateTime = False
        XValues.Name = 'X'
        XValues.Multiplier = 1
        XValues.Order = loAscending
        YValues.DateTime = False
        YValues.Name = 'Y'
        YValues.Multiplier = 1
        YValues.Order = loNone
      end
    end
  end
  object Panel2: TPanel
    Left = 785
    Top = 33
    Width = 233
    Height = 438
    Align = alRight
    BevelInner = bvRaised
    TabOrder = 2
    object Panel3: TPanel
      Left = 2
      Top = 267
      Width = 229
      Height = 169
      Align = alBottom
      BevelInner = bvLowered
      TabOrder = 0
      object Label1: TLabel
        Left = 16
        Top = 5
        Width = 16
        Height = 20
        Caption = '年'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clPurple
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 64
        Top = 5
        Width = 16
        Height = 20
        Caption = '月'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clPurple
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 112
        Top = 5
        Width = 16
        Height = 20
        Caption = '日'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clPurple
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 152
        Top = 4
        Width = 32
        Height = 20
        Caption = '小时'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clPurple
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 7
        Top = 83
        Width = 64
        Height = 20
        Caption = '用户名称'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clPurple
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 132
        Top = 83
        Width = 64
        Height = 20
        Caption = '标准室温'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clPurple
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object lblDay: TLabel
        Left = 100
        Top = 139
        Width = 32
        Height = 20
        Caption = '天数'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clPurple
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object cmdRefresh: TButton
        Left = 8
        Top = 135
        Width = 75
        Height = 25
        Caption = '刷  新'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnClick = cmdRefreshClick
      end
      object UDHour2: TUpDown
        Left = 181
        Top = 49
        Width = 17
        Height = 28
        Associate = tToHour
        Min = 0
        Max = 23
        Position = 0
        TabOrder = 1
        Wrap = False
      end
      object UDDay2: TUpDown
        Left = 133
        Top = 49
        Width = 17
        Height = 28
        Associate = tToDay
        Min = 1
        Max = 31
        Position = 1
        TabOrder = 2
        Wrap = False
      end
      object UDMonth2: TUpDown
        Left = 85
        Top = 49
        Width = 17
        Height = 28
        Associate = tToMonth
        Min = 1
        Max = 12
        Position = 1
        TabOrder = 3
        Wrap = False
      end
      object UDHour1: TUpDown
        Left = 181
        Top = 21
        Width = 17
        Height = 28
        Associate = tFromHour
        Min = 0
        Max = 23
        Position = 0
        TabOrder = 4
        Wrap = False
      end
      object UDMonth1: TUpDown
        Left = 85
        Top = 21
        Width = 17
        Height = 28
        Associate = tFromMonth
        Min = 1
        Max = 12
        Position = 1
        TabOrder = 5
        Wrap = False
      end
      object UDDay1: TUpDown
        Left = 133
        Top = 21
        Width = 17
        Height = 28
        Associate = tFromDay
        Min = 1
        Max = 31
        Position = 1
        TabOrder = 6
        Wrap = False
      end
      object UDYear1: TUpDown
        Left = 37
        Top = 21
        Width = 17
        Height = 28
        Associate = tFromYear