unit1.dfm

符合DL645规约的电能表数据解析. 可直接实现远程RTU.

object Form1: TForm1
  Left = 203
  Top = 50
  Width = 1036
  Height = 628
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  ShowHint = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object Memo2: TMemo
    Left = 401
    Top = 105
    Width = 627
    Height = 489
    Align = alClient
    Lines.Strings = (
      'Memo2')
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 1028
    Height = 105
    Align = alTop
    TabOrder = 1
    object Label1: TLabel
      Left = 368
      Top = 48
      Width = 225
      Height = 16
      AutoSize = False
      Caption = #23494#30721#65306'PA         P1        P2         P3'
    end
    object Button1: TButton
      Left = 424
      Top = 5
      Width = 51
      Height = 25
      Caption = 'go'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #40657#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 480
      Top = 5
      Width = 49
      Height = 25
      Caption = 'stop'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #40657#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = Button2Click
    end
    object Edit1: TEdit
      Left = 544
      Top = 6
      Width = 105
      Height = 24
      TabOrder = 2
      Text = '12'
    end
    object ck: TCheckBox
      Left = 672
      Top = 5
      Width = 81
      Height = 20
      Caption = #36830#32493
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #40657#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
    end
    object DBNavigator1: TDBNavigator
      Left = 168
      Top = 5
      Width = 240
      Height = 25
      DataSource = DataSource1
      TabOrder = 4
    end
    object cbf: TComboBox
      Left = 16
      Top = 5
      Width = 145
      Height = 24
      ItemHeight = 16
      TabOrder = 5
      Text = #38598#21512
      OnClick = cbfClick
      Items.Strings = (
        #38598#21512
        #22359
        #30456
        #30456'1')
    end
    object Button4: TButton
      Left = 592
      Top = 64
      Width = 97
      Height = 25
      Caption = #20889#26102#38388' C01F'
      TabOrder = 6
      OnClick = Button4Click
    end
    object MA: TEdit
      Left = 416
      Top = 64
      Width = 41
      Height = 24
      TabOrder = 7
      Text = '00'
    end
    object M1: TEdit
      Left = 456
      Top = 64
      Width = 41
      Height = 24
      TabOrder = 8
      Text = '33'
    end
    object M2: TEdit
      Left = 500
      Top = 63
      Width = 41
      Height = 24
      TabOrder = 9
      Text = '66'
    end
    object M3: TEdit
      Left = 544
      Top = 62
      Width = 41
      Height = 24
      TabOrder = 10
      Text = '99'
    end
    object Button5: TButton
      Left = 24
      Top = 72
      Width = 75
      Height = 25
      Caption = #25913#36895#29575
      TabOrder = 11
      OnClick = Button5Click
    end
    object Button6: TButton
      Left = 24
      Top = 40
      Width = 75
      Height = 25
      Caption = #24191#25773#26657#26102
      TabOrder = 12
      OnClick = Button6Click
    end
    object cbBPS: TComboBox
      Left = 112
      Top = 72
      Width = 73
      Height = 24
      ItemHeight = 16
      TabOrder = 13
      Text = 'cbBPS'
      Items.Strings = (
        '300'
        '600'
        '2400'
        '4800'
        '9600')
    end
    object Button7: TButton
      Left = 112
      Top = 40
      Width = 75
      Height = 25
      Caption = #24191#25773#20923#32467
      TabOrder = 14
      OnClick = Button7Click
    end
    object Button3: TButton
      Left = 208
      Top = 40
      Width = 75
      Height = 25
      Caption = #24191#25773#22320#22336
      TabOrder = 15
      OnClick = Button3Click
    end
    object Edit2: TEdit
      Left = 208
      Top = 72
      Width = 121
      Height = 24
      TabOrder = 16
      Text = '16'
    end
  end
  object DBGrid2: TDBGrid
    Left = 0
    Top = 105
    Width = 401
    Height = 489
    Align = alLeft
    DataSource = DataSource1
    TabOrder = 2