setting.dfm

Monitor.dfm Meter.dpr pasMain.pas

object frmSetup: TfrmSetup
  Left = 147
  Top = 53
  BorderIcons = [biSystemMenu, biHelp]
  BorderStyle = bsSingle
  Caption = '通信协议与集中器初始设置 Setup Concentrator Operating Parameters'
  ClientHeight = 414
  ClientWidth = 385
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010002002020100000000000E80200002600000010101000000000002801
    00000E0300002800000020000000400000000100040000000000800200000000
    0000000000000000000000000000000000000000800000800000008080008000
    0000800080008080000080808000C0C0C0000000FF0000FF000000FFFF00FF00
    0000FF00FF00FFFF0000FFFFFF00887777007700000000000000000000008887
    7770077000000000000000000000F8887777007700000000000000000000FF88
    8777700770000000000000000000FFF88877770077000000000000000000FFFF
    88877770077000000000000000000FFFF88877770077000000000000000000FF
    FF88877770077000000000000000000FFFF88877770077777777777000000000
    FFFF88877770077777777777000000000FFFF888777700000000000770000000
    00FFFF88877777777777777077000000000FFFF8887777777777777707700000
    0000FFFF88877777777777777077000000000FFFF88888888888887777070000
    000000FFFFFFFFFFFFFFFF87777000000000000FFF77770000008FF877700000
    0000000FF8777077000008F8777000000000000FF87770770000008877700000
    0000000FF877707700000008777000000000000FF87770770000000877700000
    0000000FF877707700000008777000000000000FF87770770000000877700000
    0000000FF87770777000000F777000000000000FF877770777777000F8700000
    0000000FF8777770777777000FF000000000000FFF8777770000077000000000
    00000000FFF877777777707700000000000000000FFF87777777770770000000
    0000000000FFF888888887707000000000000000000FFFFFFFFFF87070000000
    0000000000000000000000007000003FFFFF001FFFFF000FFFFF0007FFFF0003
    FFFF0001FFFF0000FFFF80007FFFC000001FE000000FF0000007F8000003FC00
    0001FE000000FF000000FF800000FFC00000FFC00F00FFC00F80FFC00FC0FFC0
    0FC0FFC00FC0FFC00FC0FFC007C0FFC00060FFC00030FFC00018FFE0000FFFF0
    0007FFF80007FFFC0007FFFE0007280000001000000020000000010004000000
    0000C00000000000000000000000000000000000000000000000000080000080
    00000080800080000000800080008080000080808000C0C0C0000000FF0000FF
    000000FFFF00FF000000FF00FF00FFFF0000FFFFFF008877070000000000F887
    707000000000FF887707000000000FF887707000000000FF887707777000000F
    F887700007000000FF887777707000000FF88FFF8707000000F70000F8700000
    00F707000F80000000F707000080000000F707700080000000F7707770000000
    000F7700070000000000FFFFF000000000000000000003FF000001FF000000FF
    0000007F000080070000C0030000E0010000F0000000F8000000F8300000F838
    0000F8180000F8040000FC030000FE030000FF030000}
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Image5: TImage
    Left = 13
    Top = 379
    Width = 26
    Height = 20
    AutoSize = True
    Picture.Data = {
      07544269746D6170AE020000424DAE020000000000007E000000280000001A00
      000014000000010008000000000030020000C30E0000C30E0000120000001200
      0000FFFFFF0000FFFF00BFBFBF00AFAFAF00CFCF90000090900080808000007F
      7F007070700060606000CF9000007F7F000060600000FF000000CF0000009000
      00007F0000000000000002020202020202020202020202020202020202020202
      0202020200000202020202020202020202021111111111111111111111020202
      0000020202020202021111111106060606060606060606080911020200000202
      1111111111010507110600020202020211111102091102020000020206060606
      0607070711060000000000000000000009110202000002020202020202020611
      0006061111111111111111110911020200000202021111111111111111110602
      0202020202020209111102020000020208060606060606060606060011060606
      080602091102020200000202060002020202021111110600110B0C0C0C060209
      1102020200000202060000000000000000000600110B0B0C0C06020911020202
      0000020202061111111111111111060011040B0B0C0602091102020200000202
      0206020202020202020206001111111111110209110202020000020202060011
      101010101002060000000000000003091102020200000202020600110F0E0F0E
      1002060606060606080606060202020200000202020600110E0E0E0F10020609
      02020202020202020202020200000202020600110A0D0E0F1002060902020202
      0202020202020202000002020206001111111111110206090202020202020202
      0202020200000202020600000000000000020609020202020202020202020202
      0000020202020606060606060606060202020202020202020202020200000202
      0202020202020202020202020202020202020202020202020000}
  end
  object StatusLab: TLabel
    Left = 41
    Top = 384
    Width = 108
    Height = 12
    Caption = 'Status Information'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object PageControl1: TPageControl
    Left = 10
    Top = 6
    Width = 365
    Height = 359
    HelpContext = -1
    ActivePage = TabSheet2
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = '通信协议'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      object Image1: TImage
        Left = 17
        Top = 11
        Width = 32
        Height = 32
        AutoSize = True
        Picture.Data = {
          055449636F6E0000010001002020100000000000E80200001600000028000000
          2000000040000000010004000000000080020000000000000000000000000000
          0000000000000000000080000080000000808000800000008000800080800000
          80808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000
          FFFFFF0000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000BBBBBBB00000000000
          0000000000000BB00000BB00000000000000000000000B0000000B0000000000
          EEEEE00000000B0000000B00000000000000000000000B0000000B00000000BB
          BBBBBBB000000B0000000B00000000BBBBBBBBB00BBBBBBBBB000B00000000B0
          000000B00BBBBBBBBB000B00000000BBBBBBBBB00B0000000B000BB0000000B0
          000000B00BBBBBBBBB0000BBBB0000BBBBBBBBB00B0000000B0000000BB000B0
          000000B00BBBBBBBBB00000000B000BBBBBBBBB00B0000000B00000000B000BB
          BBBBBBB00BBBBBBBBB00000000B0000000B000000BBBBBBBBB00000000B00000
          00B00000000000000000000000B0000000B00000000EEEEE0000000000B00000
          00B00000000000000000000000BB00000BB000000000000000000000000BBBBB
          BB00000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFC07FFFFF803FFFFF001FE03F1F1FE03F1F1F800F1F1F8008031F800
          0011F8000011F8000010380000181800001C0800001F8800001F8800001F8C01
          001F8F8F001F8F8FC07F8F8FC07F800FFFFFC01FFFFFE03FFFFFFFFFFFFFFFFF
          FFFFFFFF}
      end
      object Label7: TLabel
        Left = 54
        Top = 19
        Width = 150
        Height = 12
        Caption = '设置计算机与Modem通信协议'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object GroupBox1: TGroupBox
        Left = 18
        Top = 48
        Width = 320
        Height = 53
        Caption = '通信端口'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object Label8: TLabel
          Left = 40
          Top = 22
          Width = 24
          Height = 12
          Caption = '串口'
        end
        object PortCB: TDBComboBox
          Left = 95
          Top = 19
          Width = 81
          Height = 20
          Style = csDropDownList
          DataField = 'COM'
          DataSource = DM1.ProtocalDS
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ItemHeight = 12
          Items.Strings = (
            'Com1'
            'Com2'
            'Com3'
            'Com4'
            'com5')
          ParentFont = False
          TabOrder = 0
        end
      end
      object GroupBox2: TGroupBox
        Left = 18
        Top = 169
        Width = 320
        Height = 95
        Caption = '数据格式'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        object Label3: TLabel
          Left = 40
          Top = 23
          Width = 36
          Height = 12
          Caption = '数据位'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label4: TLabel
          Left = 40
          Top = 45
          Width = 36
          Height = 12
          Caption = '校验位'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label5: TLabel
          Left = 40
          Top = 65
          Width = 36
          Height = 12
          Caption = '停止位'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object DataCB: TDBComboBox
          Left = 95
          Top = 19
          Width = 81
          Height = 20
          Style = csDropDownList
          DataField = 'DATABIT'
          DataSource = DM1.ProtocalDS
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ItemHeight = 12
          Items.Strings = (
            '5'
            '6'
            '7'
            '8')
          ParentFont = False
          TabOrder = 0
        end
        object ParityCB: TDBComboBox
          Left = 95
          Top = 40
          Width = 81
          Height = 20
          Style = csDropDownList
          DataField = 'PARITYBIT'
          DataSource = DM1.ProtocalDS
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ItemHeight = 12
          Items.Strings = (
            'No'
            'Even'
            'Odd')
          ParentFont = False
          TabOrder = 1
        end
        object StopCB: TDBComboBox
          Left = 95
          Top = 60
          Width = 81
          Height = 20
          Style = csDropDownList
          DataField = 'STOPBIT'
          DataSource = DM1.ProtocalDS
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ItemHeight = 12
          Items.Strings = (
            '1'
            '1.5'
            '2')
          ParentFont = False
          TabOrder = 2
        end
      end
      object GroupBox3: TGroupBox