⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 unit1.~dfm

📁 网吧电量采集、温湿度采集串口通信实例程序
💻 ~DFM
📖 第 1 页 / 共 2 页
字号:
        Caption = #30005#24230#28165#38646
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = SpeedButton3Click
      end
      object GroupBox4: TGroupBox
        Left = 8
        Top = 8
        Width = 529
        Height = 57
        Caption = #30005#21387'(V)'
        TabOrder = 0
        object StaticText5: TStaticText
          Left = 8
          Top = 24
          Width = 35
          Height = 17
          Caption = 'A'#30456#65306
          TabOrder = 0
        end
        object Edit1: TEdit
          Left = 56
          Top = 24
          Width = 89
          Height = 21
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          TabOrder = 1
          Text = '0000'
        end
        object StaticText7: TStaticText
          Left = 192
          Top = 24
          Width = 35
          Height = 17
          Caption = 'B'#30456#65306
          TabOrder = 2
        end
        object Edit2: TEdit
          Left = 240
          Top = 24
          Width = 89
          Height = 21
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          TabOrder = 3
          Text = '0000'
        end
        object StaticText8: TStaticText
          Left = 368
          Top = 24
          Width = 35
          Height = 17
          Caption = 'C'#30456#65306
          TabOrder = 4
        end
        object Edit3: TEdit
          Left = 416
          Top = 24
          Width = 89
          Height = 21
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          TabOrder = 5
          Text = '0000'
        end
      end
      object GroupBox5: TGroupBox
        Left = 8
        Top = 72
        Width = 529
        Height = 57
        Caption = #30005#27969'(A)'
        TabOrder = 1
        object StaticText9: TStaticText
          Left = 8
          Top = 24
          Width = 35
          Height = 17
          Caption = 'A'#30456#65306
          TabOrder = 0
        end
        object Edit4: TEdit
          Left = 56
          Top = 24
          Width = 89
          Height = 21
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          TabOrder = 1
          Text = '00.00'
        end
        object StaticText10: TStaticText
          Left = 192
          Top = 24
          Width = 35
          Height = 17
          Caption = 'B'#30456#65306
          TabOrder = 2
        end
        object Edit5: TEdit
          Left = 240
          Top = 24
          Width = 89
          Height = 21
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          TabOrder = 3
          Text = '00.00'
        end
        object Edit6: TEdit
          Left = 416
          Top = 24
          Width = 89
          Height = 21
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          TabOrder = 4
          Text = '00.00'
        end
        object StaticText11: TStaticText
          Left = 368
          Top = 24
          Width = 35
          Height = 17
          Caption = 'C'#30456#65306
          TabOrder = 5
        end
      end
      object GroupBox6: TGroupBox
        Left = 8
        Top = 136
        Width = 529
        Height = 57
        Caption = #26377#29992#21151#29575'(kW)'
        TabOrder = 2
        object StaticText12: TStaticText
          Left = 8
          Top = 24
          Width = 35
          Height = 17
          Caption = 'A'#30456#65306
          TabOrder = 0
        end
        object Edit7: TEdit
          Left = 56
          Top = 24
          Width = 89
          Height = 21
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          TabOrder = 1
          Text = '00.00'
        end
        object StaticText13: TStaticText
          Left = 192
          Top = 24
          Width = 35
          Height = 17
          Caption = 'B'#30456#65306
          TabOrder = 2
        end
        object Edit8: TEdit
          Left = 240
          Top = 24
          Width = 89
          Height = 21
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          TabOrder = 3
          Text = '00.00'
        end
        object Edit9: TEdit
          Left = 416
          Top = 24
          Width = 89
          Height = 21
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          TabOrder = 4
          Text = '00.00'
        end
        object StaticText14: TStaticText
          Left = 368
          Top = 24
          Width = 35
          Height = 17
          Caption = 'C'#30456#65306
          TabOrder = 5
        end
      end
      object GroupBox7: TGroupBox
        Left = 8
        Top = 200
        Width = 529
        Height = 57
        Caption = #21151#29575#22240#25968
        TabOrder = 3
        object StaticText15: TStaticText
          Left = 8
          Top = 24
          Width = 35
          Height = 17
          Caption = 'A'#30456#65306
          TabOrder = 0
        end
        object Edit10: TEdit
          Left = 56
          Top = 24
          Width = 89
          Height = 21
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          TabOrder = 1
          Text = '00.00'
        end
        object StaticText16: TStaticText
          Left = 192
          Top = 24
          Width = 35
          Height = 17
          Caption = 'B'#30456#65306
          TabOrder = 2
        end
        object Edit11: TEdit
          Left = 240
          Top = 24
          Width = 89
          Height = 21
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          TabOrder = 3
          Text = '00.00'
        end
        object Edit12: TEdit
          Left = 416
          Top = 24
          Width = 89
          Height = 21
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          TabOrder = 4
          Text = '00.00'
        end
        object StaticText17: TStaticText
          Left = 368
          Top = 24
          Width = 35
          Height = 17
          Caption = 'C'#30456#65306
          TabOrder = 5
        end
      end
      object Edit13: TEdit
        Left = 160
        Top = 280
        Width = 121
        Height = 21
        ImeName = #32043#20809#25340#38899#36755#20837#27861
        TabOrder = 4
        Text = '00.00'
      end
    end
    object TabSheetMSET: TTabSheet
      Caption = #37319#38598#25968#25454#26597#35810'3'
      ImageIndex = 2
      object GroupBox3: TGroupBox
        Left = 8
        Top = 24
        Width = 529
        Height = 97
        Caption = #22320#22336#21442#25968#35774#32622
        TabOrder = 0
        object SpeedButton1: TSpeedButton
          Tag = 6
          Left = 360
          Top = 40
          Width = 57
          Height = 22
          Caption = #35774#32622
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          OnClick = SBAddrSETClick
        end
        object StaticText6: TStaticText
          Left = 8
          Top = 48
          Width = 117
          Height = 17
          Caption = 'WBZ'#35774#22791#22320#22336'(BCD)'#65306
          TabOrder = 0
        end
        object ComboBox1: TComboBox
          Tag = 6
          Left = 160
          Top = 40
          Width = 129
          Height = 21
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          ItemHeight = 13
          TabOrder = 1
          Text = '00 00 00 00 00 00'
          OnChange = ComboBox1Change
          Items.Strings = (
            '00 00 00 00 00 00'
            '11 11 11 11 11 11'
            '22 22 22 22 22 22'
            '33 33 33 33 33 33'
            '44 44 44 44 44 44'
            '55 55 55 55 55 55'
            '66 66 66 66 66 66'
            '77 77 77 77 77 77'
            '88 88 88 88 88 88'
            '99 99 99 99 99 99')
        end
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 415
    Width = 751
    Height = 22
    Panels = <
      item
        Text = ' V 1.0 '#29256#26412
        Width = 100
      end
      item
        Width = 300
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object StaticText4: TStaticText
    Left = 8
    Top = 8
    Width = 64
    Height = 17
    Caption = #36830#25509#26041#24335#65306
    TabOrder = 11
  end
  object ComboBoxCOM: TComboBox
    Left = 72
    Top = 8
    Width = 81
    Height = 21
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    ItemHeight = 13
    ItemIndex = 0
    TabOrder = 12
    Text = #20018#21475
    OnChange = ComboBoxCOMChange
    Items.Strings = (
      #20018#21475
      'TCP')
  end
  object YbCommDevice1: TYbCommDevice
    PortNo = 1
    Baud = br19200
    ByteSize = 8
    InBufSize = 8192
    OutBufSize = 8192
    HwInSize = 1200
    HwOutSize = 1200
    QueueSize = 16
    PackageSize = 4096
    OnCommNotify = YbCommDevice1CommNotify
    Left = 48
    Top = 168
  end
  object ClientSocket1: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 0
    Left = 48
    Top = 128
  end
  object MainMenu1: TMainMenu
    Left = 48
    Top = 208
    object P1: TMenuItem
      Caption = #31471#21475#31649#29702'(&P)'
      object N1: TMenuItem
        Caption = #31471#21475#37197#32622'(&P)'
        OnClick = N1Click
      end
      object TCP1: TMenuItem
        Caption = #36828#31243'TCP'#36830#25509'(&T)'
      end
      object E1: TMenuItem
        Caption = #20851#38381'(&E)'
        OnClick = E1Click
      end
    end
    object R1: TMenuItem
      Caption = #25509#25910#25968#25454'(&R)'
      object N2: TMenuItem
        Caption = #28165#38500#26174#31034'(&C)'
        OnClick = N2Click
      end
    end
    object N3: TMenuItem
      Caption = #21457#36865#25968#25454'(&T)'
      object N4: TMenuItem
        Caption = #24320#22987#37319#38598'(&S)'
        OnClick = N4Click
      end
      object P2: TMenuItem
        Caption = #20572#27490#37319#38598'(&P)'
        OnClick = P2Click
      end
      object L1: TMenuItem
        Caption = #26174#31034#26085#24535'(&L)'
        OnClick = L1Click
      end
    end
    object H1: TMenuItem
      Caption = #24110#21161'(&H)'
      object N5: TMenuItem
        Caption = #29256#26412'(&V)'
        OnClick = N5Click
      end
    end
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 48
    Top = 88
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -