data.~dfm

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

object frmData: TfrmData
  Left = 204
  Top = 113
  Width = 663
  Height = 555
  Caption = #24403#21069#31354#35843#30340#29366#24577#25968#25454'          '
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object lbl1: TLabel
    Left = 184
    Top = 8
    Width = 230
    Height = 24
    Caption = #24403#21069#31354#35843#30340#29366#24577#25968#25454'          '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object grp1: TGroupBox
    Left = 32
    Top = 48
    Width = 601
    Height = 177
    Caption = #21462#24471#35774#23450#21442#25968
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 72
      Width = 111
      Height = 13
      Caption = #31354#35843#24320#26426#28201#24230#65306'         '
    end
    object lbl5: TLabel
      Left = 24
      Top = 108
      Width = 111
      Height = 13
      Caption = #22238#39118#28201#24230#19978#38480#65306'         '
    end
    object lbl7: TLabel
      Left = 24
      Top = 144
      Width = 111
      Height = 13
      Caption = #22238#39118#28287#24230#19978#38480#65306'         '
    end
    object lbl2: TLabel
      Left = 248
      Top = 72
      Width = 111
      Height = 13
      Caption = #31354#35843#20851#26426#28201#24230#65306'         '
    end
    object lbl3: TLabel
      Left = 248
      Top = 144
      Width = 111
      Height = 13
      Caption = #22238#39118#28287#24230#19979#38480#65306'         '
    end
    object lbl4: TLabel
      Left = 248
      Top = 108
      Width = 111
      Height = 13
      Caption = #22238#39118#28201#24230#19979#38480#65306'         '
    end
    object lbl6: TLabel
      Left = 248
      Top = 32
      Width = 69
      Height = 13
      Caption = #31354#35843#22320#22336#65306'   '
    end
    object lbl8: TLabel
      Left = 200
      Top = 72
      Width = 24
      Height = 13
      Caption = ' '#8451'   '
    end
    object lbl9: TLabel
      Left = 200
      Top = 108
      Width = 24
      Height = 13
      Caption = ' '#8451'   '
    end
    object lbl10: TLabel
      Left = 200
      Top = 144
      Width = 24
      Height = 13
      Caption = ' '#8451'   '
    end
    object lbl11: TLabel
      Left = 424
      Top = 72
      Width = 24
      Height = 13
      Caption = ' '#8451'   '
    end
    object lbl12: TLabel
      Left = 424
      Top = 108
      Width = 24
      Height = 13
      Caption = ' '#8451'   '
    end
    object lbl13: TLabel
      Left = 424
      Top = 144
      Width = 24
      Height = 13
      Caption = ' '#8451'   '
    end
    object lbl14: TLabel
      Left = 24
      Top = 32
      Width = 72
      Height = 13
      Caption = #25509#21475#26495#22320#22336#65306
    end
    object edtOpenTemp: TEdit
      Left = 128
      Top = 67
      Width = 65
      Height = 21
      TabOrder = 0
      Text = '0'
    end
    object edtReturnTempCeiling: TEdit
      Left = 128
      Top = 101
      Width = 65
      Height = 21
      TabOrder = 1
      Text = '0'
    end
    object edtCloseTemp: TEdit
      Left = 352
      Top = 72
      Width = 65
      Height = 21
      TabOrder = 2
      Text = '0'
    end
    object edtReturnTempLimit: TEdit
      Left = 352
      Top = 104
      Width = 65
      Height = 21
      TabOrder = 3
      Text = '0'
    end
    object edtReturnHumidityCelling: TEdit
      Left = 128
      Top = 136
      Width = 65
      Height = 21
      TabOrder = 4
      Text = '0'
    end
    object edtReturnHumidityLimit: TEdit
      Left = 352
      Top = 136
      Width = 65
      Height = 21
      TabOrder = 5
      Text = '0'
    end
    object dblkcbbACAddress: TDBLookupComboBox
      Left = 128
      Top = 32
      Width = 65
      Height = 21
      KeyField = 'id'
      ListField = 'id'
      ListSource = dsID
      TabOrder = 6
      OnClick = dblkcbbACAddressClick
      OnExit = dblkcbbACAddressExit
      OnMouseDown = dblkcbbACAddressMouseDown
    end
    object dblkcbbAddress: TDBLookupComboBox
      Left = 352
      Top = 32
      Width = 65
      Height = 21
      KeyField = 'ACAddress'
      ListField = 'ACAddress'
      ListSource = dsAC
      TabOrder = 7
      OnClick = dblkcbbAddressClick
      OnMouseDown = dblkcbbAddressMouseDown
    end
    object btnGAP: TButton
      Left = 472
      Top = 80
      Width = 75
      Height = 25
      Caption = #19978#20256
      TabOrder = 8
      OnClick = btnGAPClick
    end
  end
  object grpState: TGroupBox
    Left = 32
    Top = 240
    Width = 385
    Height = 257
    Caption = #36816#36716#29366#24577#25968#25454
    TabOrder = 1
    object lbl16: TLabel
      Left = 32
      Top = 64
      Width = 60
      Height = 13
      Caption = #31354#35843#29366#24577'    '
    end
    object Label2: TLabel
      Left = 200
      Top = 93
      Width = 75
      Height = 13
      Caption = #21152#28287#22120#29366#24577'     '
    end
    object Label3: TLabel
      Left = 200
      Top = 121
      Width = 75
      Height = 13
      Caption = #21387#32553#26426#29366#24577'     '
    end
    object Label4: TLabel
      Left = 200
      Top = 178
      Width = 78
      Height = 13
      Caption = #36807#28388#32593#29366#24577'      '
    end
    object Label5: TLabel
      Left = 32
      Top = 96
      Width = 63
      Height = 13
      Caption = #35686#25253#29366#24577'     '
    end
    object lblv: TLabel
      Left = 32
      Top = 125
      Width = 57
      Height = 13
      Caption = #39118#25159#29366#24577'   '
    end
    object Label6: TLabel
      Left = 200
      Top = 64
      Width = 69
      Height = 13
      Caption = #27880#24847#25253#29366#24577'   '
    end
    object Label7: TLabel
      Left = 32
      Top = 152
      Width = 60
      Height = 13
      Caption = #24322#24120#29366#24577'    '
    end
    object Label8: TLabel
      Left = 32
      Top = 176
      Width = 63
      Height = 13
      Caption = #36816#36716#29366#24577'     '
    end
    object lbl17: TLabel
      Left = 336
      Top = 136
      Width = 3
      Height = 13
    end
    object lbl18: TLabel
      Left = 200
      Top = 149
      Width = 78
      Height = 13
      Caption = #30005#21152#28909#29366#24577'      '
    end
    object Label9: TLabel
      Left = 32
      Top = 32
      Width = 48
      Height = 13
      Caption = #25509#21475#26495#65306
    end
    object Label10: TLabel
      Left = 200
      Top = 32
      Width = 69
      Height = 13
      Caption = #31354#35843#22320#22336#65306'   '
    end
    object edtACState: TEdit
      Left = 104
      Top = 64
      Width = 65
      Height = 21
      TabOrder = 0
    end
    object edtWaringState: TEdit
      Left = 104
      Top = 90
      Width = 65
      Height = 21
      TabOrder = 1
    end
    object edtFansState: TEdit
      Left = 104
      Top = 116
      Width = 65
      Height = 21
      TabOrder = 2
    end
    object edtAbalState: TEdit
      Left = 104
      Top = 142
      Width = 65
      Height = 21
      TabOrder = 3
    end
    object edtRunState: TEdit
      Left = 104
      Top = 168
      Width = 65
      Height = 21
      TabOrder = 4
    end
    object edtAttentionstate: TEdit
      Left = 288
      Top = 64
      Width = 65
      Height = 21
      TabOrder = 5
    end
    object edtJSQState: TEdit
      Left = 288
      Top = 90
      Width = 65
      Height = 21
      TabOrder = 6
    end
    object edtCompState: TEdit
      Left = 288
      Top = 116
      Width = 65
      Height = 21
      TabOrder = 7
    end
    object edtDJRState: TEdit
      Left = 288
      Top = 142
      Width = 65
      Height = 21
      TabOrder = 8
    end
    object edtFilterState: TEdit
      Left = 288
      Top = 168
      Width = 65
      Height = 21
      TabOrder = 9
    end
    object btnCOOPS: TButton
      Left = 144
      Top = 208
      Width = 75
      Height = 25
      Caption = #19978#20256
      TabOrder = 10
      OnClick = btnCOOPSClick
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 104
      Top = 32
      Width = 65
      Height = 21
      KeyField = 'id'
      ListField = 'id'
      ListSource = dsID
      TabOrder = 11
      OnClick = DBLookupComboBox1Click
      OnExit = DBLookupComboBox1Exit
      OnMouseDown = DBLookupComboBox1MouseDown
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 288
      Top = 32
      Width = 65
      Height = 21
      KeyField = 'ACAddress'
      ListField = 'ACAddress'
      ListSource = DataSource1
      TabOrder = 12
      OnClick = DBLookupComboBox2Click
      OnMouseDown = DBLookupComboBox2MouseDown
    end
  end
  object grp2: TGroupBox
    Left = 432
    Top = 240
    Width = 201
    Height = 257
    Caption = #20195#34920#25968#25454
    TabOrder = 2
    object lbl15: TLabel
      Left = 20
      Top = 92
      Width = 69
      Height = 13
      Caption = #22238#39118#28201#24230#65306'   '
    end
    object Label11: TLabel
      Left = 20
      Top = 24
      Width = 72
      Height = 13
      Caption = #25509#21475#26495#22320#22336#65306
    end
    object Label12: TLabel
      Left = 20
      Top = 56
      Width = 69
      Height = 13
      Caption = #31354#35843#22320#22336#65306'   '
    end
    object Label13: TLabel
      Left = 176
      Top = 88
      Width = 24
      Height = 13
      Caption = ' '#8451'   '
    end
    object DBLookupComboBox3: TDBLookupComboBox
      Left = 104
      Top = 16
      Width = 65
      Height = 21
      KeyField = 'id'
      ListField = 'id'
      ListSource = dsID
      TabOrder = 0
      OnClick = DBLookupComboBox3Click
      OnExit = DBLookupComboBox3Exit
      OnMouseDown = DBLookupComboBox3MouseDown
    end
    object DBLookupComboBox4: TDBLookupComboBox
      Left = 105
      Top = 50
      Width = 65
      Height = 21
      KeyField = 'ACAddress'
      ListField = 'ACAddress'
      ListSource = DataSource2
      TabOrder = 1
      OnClick = DBLookupComboBox4Click
      OnMouseDown = DBLookupComboBox4MouseDown
    end
    object btnCORP: TButton
      Left = 64
      Top = 120
      Width = 75
      Height = 25
      Caption = #19978#20256
      TabOrder = 2
      OnClick = btnCORPClick
    end
    object grp3: TGroupBox
      Left = 16
      Top = 160
      Width = 169
      Height = 89
      Caption = #35686#21578#29366#24577' '#25968#25454
      TabOrder = 3
      object Label14: TLabel
        Left = 12
        Top = 28
        Width = 69
        Height = 13
        Caption = #22238#39118#28201#24230#65306'   '
      end
      object edtRNTempWaringState: TEdit
        Left = 88
        Top = 24
        Width = 57
        Height = 21
        TabOrder = 0
      end
      object btnRNTempWaringState: TButton
        Left = 40
        Top = 56
        Width = 75
        Height = 25
        Caption = #19978#20256
        TabOrder = 1
        OnClick = btnRNTempWaringStateClick
      end
    end
    object edtRnTemp: TEdit
      Left = 104
      Top = 84
      Width = 65
      Height = 21
      TabOrder = 4
    end
  end
  object statData: TStatusBar
    Left = 0
    Top = 509
    Width = 655
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object ADOqryAQAC: TADOQuery
    Connection = frmain.conAir
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from AC ')
    Left = 440
  end
  object dsAC: TDataSource
    DataSet = ADOqryAQAC
    Left = 472
  end
  object ADOqryID: TADOQuery
    Connection = frmain.conAir
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select distinct ID from AC')
    Left = 240
  end
  object dsID: TDataSource
    DataSet = ADOqryID
    Left = 216
  end
  object ADOQuery1: TADOQuery
    Connection = frmain.conAir
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from AC ')
    Left = 464
    Top = 40
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 496
    Top = 40
  end
  object ADOQuery2: TADOQuery
    Connection = frmain.conAir
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from AC ')
    Left = 536
    Top = 16
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 568
    Top = 16
  end
end