unit1.dfm

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

        Min = 2
        Position = 2
        TabOrder = 7
        Wrap = False
      end
      object UDYear2: TUpDown
        Left = 37
        Top = 49
        Width = 17
        Height = 28
        Associate = tToYear
        Min = 2
        Position = 2
        TabOrder = 8
        Wrap = False
      end
      object tFromYear: TEdit
        Left = 4
        Top = 21
        Width = 33
        Height = 28
        Hint = '起始年'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clPurple
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 5
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 9
        Text = '2'
      end
      object tFromMonth: TEdit
        Left = 52
        Top = 21
        Width = 33
        Height = 28
        Hint = '起始月'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clPurple
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 10
        Text = '1'
      end
      object tFromDay: TEdit
        Left = 100
        Top = 21
        Width = 33
        Height = 28
        Hint = '起始日'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clPurple
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 11
        Text = '1'
      end
      object tFromHour: TEdit
        Left = 148
        Top = 21
        Width = 33
        Height = 28
        Hint = '起始小时'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clPurple
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 12
        Text = '0'
      end
      object tToYear: TEdit
        Left = 4
        Top = 49
        Width = 33
        Height = 28
        Hint = '结束年'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clPurple
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 13
        Text = '2'
      end
      object tToMonth: TEdit
        Left = 52
        Top = 49
        Width = 33
        Height = 28
        Hint = '结束月'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clPurple
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 14
        Text = '1'
      end
      object tToDay: TEdit
        Left = 100
        Top = 49
        Width = 33
        Height = 28
        Hint = '结束日'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clPurple
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 15
        Text = '1'
      end
      object tToHour: TEdit
        Left = 148
        Top = 49
        Width = 33
        Height = 28
        Hint = '结束小时'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clPurple
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 16
        Text = '0'
      end
      object eUserName: TEdit
        Left = 4
        Top = 101
        Width = 121
        Height = 28
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 17
      end
      object eTemp: TEdit
        Left = 136
        Top = 100
        Width = 41
        Height = 28
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 18
        Text = '0'
      end
      object UDTemp: TUpDown
        Left = 177
        Top = 100
        Width = 17
        Height = 28
        Associate = eTemp
        Min = 0
        Max = 30
        Position = 0
        TabOrder = 19
        Wrap = False
        OnClick = UDTempClick
      end
      object eDay: TEdit
        Left = 136
        Top = 132
        Width = 41
        Height = 28
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 20
        Text = '1'
      end
      object UDDay: TUpDown
        Left = 177
        Top = 132
        Width = 17
        Height = 28
        Associate = eDay
        Min = 1
        Max = 14
        Position = 1
        TabOrder = 21
        Wrap = False
        OnClick = UDDayClick
      end
    end
    object Panel4: TPanel
      Left = 2
      Top = 2
      Width = 229
      Height = 463
      Align = alTop
      BevelInner = bvLowered
      TabOrder = 1
      object cmbDate: TComboBox
        Left = 8
        Top = 16
        Width = 201
        Height = 28
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 20
        ParentFont = False
        TabOrder = 0
        OnClick = cmbDateClick
      end
      object grdData: TStringGrid
        Left = 2
        Top = 48
        Width = 225
        Height = 413
        Align = alBottom
        ColCount = 2
        FixedCols = 0
        RowCount = 97
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        ColWidths = (
          106
          89)
      end
    end
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 1018
    Height = 33
    ButtonHeight = 25
    Caption = 'ToolBar1'
    Images = ImageList1
    TabOrder = 3
    object cmdPrintChar: TToolButton
      Left = 0
      Top = 2
      Hint = '打印曲线'
      Caption = 'cmdPrintChar'
      ImageIndex = 0
      ParentShowHint = False
      ShowHint = True
      OnClick = mnuPrintClick
    end
    object cmdCommData: TToolButton
      Left = 23
      Top = 2
      Hint = '传数'
      Caption = 'cmdCommData'
      ImageIndex = 1
      ParentShowHint = False
      ShowHint = True
      OnClick = mnuDownLoadClick
    end
    object cmdClearData: TToolButton
      Left = 46
      Top = 2
      Hint = '清空'
      Caption = 'cmdClearData'
      ImageIndex = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = mnuClearSaveDataClick
    end
    object cmdTime: TToolButton
      Left = 69
      Top = 2
      Hint = '校时'
      Caption = 'cmdTime'
      ImageIndex = 3
      ParentShowHint = False
      ShowHint = True
      OnClick = mnuTimeClick
    end
    object cmdRef: TToolButton
      Left = 92
      Top = 2
      Hint = '刷新'
      Caption = 'cmdRef'
      ImageIndex = 4
      ParentShowHint = False
      ShowHint = True
      OnClick = cmdRefreshClick
    end
    object cmdClreaScr: TToolButton
      Left = 115
      Top = 2
      Hint = '清屏'
      Caption = 'cmdClreaScr'
      ImageIndex = 5
      ParentShowHint = False
      ShowHint = True
      OnClick = mnuClearScrClick
    end
    object cmdOpenFile: TToolButton
      Left = 138
      Top = 2
      Hint = '打开文件'
      Caption = 'cmdOpenFile'
      ImageIndex = 6
      ParentShowHint = False
      ShowHint = True
      OnClick = mnuOpenDataClick
    end
    object cmdSaveFile: TToolButton
      Left = 161
      Top = 2
      Hint = '保存文件'
      Caption = 'cmdSaveFile'
      ImageIndex = 7
      ParentShowHint = False