wenducaiji.dfm

显示热传感器18b20测得的实时温度

object wdcj: Twdcj
  Left = 348
  Top = 121
  Width = 549
  Height = 595
  Caption = #28201#24230#37319#38598
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = -2
    Top = 1
    Width = 543
    Height = 560
    BevelInner = bvLowered
    BorderStyle = bsSingle
    Color = clMoneyGreen
    TabOrder = 0
    object Label1: TLabel
      Left = 321
      Top = 233
      Width = 84
      Height = 13
      Caption = #37319#38598#38388#38548#26102#38388#65306
    end
    object Label2: TLabel
      Left = 345
      Top = 261
      Width = 60
      Height = 13
      Caption = #37319#38598#27425#25968#65306
    end
    object SpeedButton5: TSpeedButton
      Left = 358
      Top = 520
      Width = 177
      Height = 33
      Cursor = crHandPoint
      Caption = #36864#20986
      Flat = True
      OnClick = SpeedButton5Click
    end
    object Label3: TLabel
      Left = 11
      Top = 257
      Width = 60
      Height = 13
      Caption = #24403#21069#28201#24230#65306
    end
    object Label4: TLabel
      Left = 11
      Top = 234
      Width = 60
      Height = 13
      Caption = #24403#21069#26102#38388#65306
    end
    object Bevel1: TBevel
      Left = 22
      Top = 318
      Width = 130
      Height = 2
    end
    object Label5: TLabel
      Left = 22
      Top = 299
      Width = 24
      Height = 13
      Caption = #26102#38388
    end
    object Label6: TLabel
      Left = 106
      Top = 299
      Width = 24
      Height = 13
      Caption = #28201#24230
    end
    object DBGrid1: TDBGrid
      Left = 4
      Top = 2
      Width = 320
      Height = 213
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
    object Panel2: TPanel
      Left = 342
      Top = 5
      Width = 185
      Height = 207
      BevelInner = bvLowered
      Color = clMoneyGreen
      TabOrder = 1
      object SpeedButton1: TSpeedButton
        Left = 34
        Top = 16
        Width = 121
        Height = 32
        Cursor = crHandPoint
        Caption = #25171#24320#20018#21475
        Flat = True
        OnClick = SpeedButton1Click
      end
      object SpeedButton2: TSpeedButton
        Left = 34
        Top = 64
        Width = 121
        Height = 32
        Cursor = crHandPoint
        Caption = #28165#31354#25968#25454#24211
        Flat = True
        OnClick = SpeedButton2Click
      end
      object SpeedButton3: TSpeedButton
        Left = 34
        Top = 110
        Width = 121
        Height = 32
        Cursor = crHandPoint
        Caption = #26356'        '#26032
        Flat = True
        OnClick = SpeedButton3Click
      end
      object SpeedButton4: TSpeedButton
        Left = 34
        Top = 158
        Width = 121
        Height = 32
        Cursor = crHandPoint
        Caption = #20851#38381#20018#21475
        Flat = True
        OnClick = SpeedButton4Click
      end
    end
    object Edit1: TEdit
      Left = 407
      Top = 227
      Width = 121
      Height = 21
      TabOrder = 2
    end
    object CS_Edit: TEdit
      Left = 409
      Top = 256
      Width = 121
      Height = 21
      TabOrder = 3
    end
    object Comm1: TMSComm
      Left = 220
      Top = 242
      Width = 32
      Height = 32
      OnComm = Comm1Comm
      ControlData = {
        2143341208000000ED030000ED03000001568A64000006000000010000040000
        00020000802500000000080000000000000000003F00000001000000}
    end
    object Edit2: TEdit
      Left = 75
      Top = 253
      Width = 142
      Height = 21
      TabOrder = 5
    end
    object Edit3: TEdit
      Left = 76
      Top = 229
      Width = 141
      Height = 21
      TabOrder = 6
    end
    object Memo1: TMemo
      Left = 0
      Top = 323
      Width = 169
      Height = 182
      TabOrder = 7
    end
    object sp_XYPlot1: Tsp_XYPlot
      Left = 184
      Top = 296
      Width = 353
      Height = 209
      Color = clBtnFace
      ParentColor = False
      TabOrder = 8
      LeftAxis.Margin = 4
      LeftAxis.TicksCount = 21
      LeftAxis.LineAttr.Color = clBlack
      LeftAxis.LineAttr.Visible = True
      LeftAxis.GridAttr.Color = clGray
      LeftAxis.GridAttr.Visible = True
      LeftAxis.LabelFormat = '###0.##'
      LeftAxis.SFlags = 1
      LeftAxis.SLinePos = (
        27
        187
        178)
      LeftAxis.fMin = -10.000000000000000000
      LeftAxis.fMax = 50.000000000000000000
      RightAxis.Margin = 4
      RightAxis.LineAttr.Color = clBlack
      RightAxis.LineAttr.Visible = True
      RightAxis.GridAttr.Color = clGray
      RightAxis.GridAttr.Visible = False
      RightAxis.LabelFormat = '###0.##'
      RightAxis.SFlags = 57
      RightAxis.SLinePos = (
        343
        187
        178)
      RightAxis.fMax = 10.000000000000000000
      BottomAxis.Margin = 4
      BottomAxis.TicksCount = 21
      BottomAxis.LineAttr.Color = clBlack
      BottomAxis.LineAttr.Visible = True
      BottomAxis.GridAttr.Color = clGray
      BottomAxis.GridAttr.Visible = True
      BottomAxis.LabelFormat = '###0.##'
      BottomAxis.SFlags = 0
      BottomAxis.SLinePos = (
        28
        188
        314)
      BottomAxis.fMax = 20.000000000000000000
      TopAxis.Margin = 4
      TopAxis.LineAttr.Color = clBlack
      TopAxis.LineAttr.Visible = True
      TopAxis.GridAttr.Color = clGray
      TopAxis.GridAttr.Visible = False
      TopAxis.LabelFormat = '###0.##'
      TopAxis.SFlags = 56
      TopAxis.SLinePos = (
        28
        8
        314)
      TopAxis.fMax = 10.000000000000000000
      BorderStyle = bs_None
      FieldColor = clWhite
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuerywdcj
    Left = 15
    Top = 126
  end
  object ADOConnectionwdcj: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\mw'#27605#19994#35774#35745'\data\'#28201#24230#37319#38598 +
      '.mdb;Persist Security Info=False'
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 132
    Top = 19
  end
  object ADOQuerywdcj: TADOQuery
    Connection = ADOConnectionwdcj
    Parameters = <>
    Left = 207
    Top = 21
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 127
    Top = 262
  end
  object Timer2: TTimer
    OnTimer = Timer2Timer
    Left = 164
    Top = 272
  end
  object Timer3: TTimer
    OnTimer = Timer3Timer
    Left = 118
    Top = 229
  end
  object ADOQuerywdcj1: TADOQuery
    Connection = ADOConnectionwdcj
    Parameters = <>
    Left = 234
    Top = 82
  end
  object sp_XYLine1: Tsp_XYLine
    Plot = sp_XYPlot1
    LineAttr.Color = clBlack
    LineAttr.Visible = True
    PointAttr.Kind = ptRectangle
    PointAttr.Visible = False
    Left = 326
    Top = 377
  end
end