u_bcset.dfm

此系统完成了单向复费率电能表的抄表以及编程

object F_bcset: TF_bcset
  Left = 0
  Top = 0
  BorderStyle = bsDialog
  BorderWidth = 3
  ClientHeight = 536
  ClientWidth = 792
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #26032#23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object RzLabel2: TRzLabel
    Left = 9
    Top = 399
    Width = 426
    Height = 12
    Caption = #27880#65306#20197#19978#12304#29366#24577#23383#12305#20013#30340#21442#25968#36873#20013#20026' '#30495'(1);'#12304#20445#30041#12305#20026#22791#29992#23383#65292#35831#19981#35201#38543#24847#36873#25321
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = #26032#23435#20307
    Font.Style = []
    ParentFont = False
  end
  object RzGroupBox1: TRzGroupBox
    Left = 6
    Top = 8
    Width = 361
    Height = 51
    Caption = #26085#26399#12289#21608#27425#12289#26102#38047'[C010] --- [C011]'
    TabOrder = 0
    object RzLabel1: TRzLabel
      Left = 36
      Top = 29
      Width = 312
      Height = 12
      Caption = #24180'      '#26376'      '#26085'      '#21608#27425'      '#26102'      '#20998'      '#31186
    end
    object RzMaskEdit1: TRzMaskEdit
      Left = 5
      Top = 23
      Width = 28
      Height = 20
      Ctl3D = True
      FrameHotTrack = True
      FrameVisible = True
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      MaxLength = 2
      ParentCtl3D = False
      TabOrder = 0
      OnKeyPress = RzMaskEdit1KeyPress
    end
    object RzMaskEdit2: TRzMaskEdit
      Left = 52
      Top = 23
      Width = 28
      Height = 20
      Ctl3D = True
      FrameHotTrack = True
      FrameVisible = True
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      MaxLength = 2
      ParentCtl3D = False
      TabOrder = 1
      OnExit = RzMaskEdit2Exit
      OnKeyPress = RzMaskEdit1KeyPress
    end
    object RzMaskEdit3: TRzMaskEdit
      Left = 98
      Top = 23
      Width = 28
      Height = 20
      Ctl3D = True
      FrameHotTrack = True
      FrameVisible = True
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      MaxLength = 2
      ParentCtl3D = False
      TabOrder = 2
      OnExit = RzMaskEdit3Exit
      OnKeyPress = RzMaskEdit1KeyPress
    end
    object RzMaskEdit4: TRzMaskEdit
      Left = 148
      Top = 23
      Width = 28
      Height = 20
      Ctl3D = True
      FrameHotTrack = True
      FrameVisible = True
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      MaxLength = 2
      ParentCtl3D = False
      TabOrder = 3
      OnExit = RzMaskEdit4Exit
      OnKeyPress = RzMaskEdit1KeyPress
    end
    object RzMaskEdit5: TRzMaskEdit
      Left = 208
      Top = 23
      Width = 28
      Height = 20
      Ctl3D = True
      FrameHotTrack = True
      FrameVisible = True
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      MaxLength = 2
      ParentCtl3D = False
      TabOrder = 4
      OnExit = RzMaskEdit5Exit
      OnKeyPress = RzMaskEdit1KeyPress
    end
    object RzMaskEdit6: TRzMaskEdit
      Left = 256
      Top = 23
      Width = 28
      Height = 20
      Ctl3D = True
      FrameHotTrack = True
      FrameVisible = True
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      MaxLength = 2
      ParentCtl3D = False
      TabOrder = 5
      OnExit = RzMaskEdit6Exit
      OnKeyPress = RzMaskEdit1KeyPress
    end
    object RzMaskEdit7: TRzMaskEdit
      Left = 302
      Top = 23
      Width = 28
      Height = 20
      Ctl3D = True
      FrameHotTrack = True
      FrameVisible = True
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      MaxLength = 2
      ParentCtl3D = False
      TabOrder = 6
      OnExit = RzMaskEdit7Exit
      OnKeyPress = RzMaskEdit1KeyPress
    end
  end
  object RzCheckGroup1: TRzCheckGroup
    Left = 6
    Top = 291
    Width = 433
    Height = 102
    Caption = #30005#34920#36816#34892#29366#24577#23383'[C020]'
    Columns = 2
    Items.Strings = (
      #25220#34920#65306#33258#21160'(0)/'#25163#21160'(1)'
      #26368#22823#38656#37327#35745#31639#26041#24335#65306#28369#24046'(0)/'#21306#38388'(1)'
      #30005#27744#30005#21387#65306#27491#24120'(0)/'#27424#21387'(1)'
      #20445#30041#65306'(0)'
      #26377#21151#30005#33021#26041#21521#65306#27491#21521'(0)/'#21453#21521'(1)'
      #26080#21151#30005#33021#26041#21521#65306#27491#21521'(0)/'#21453#21521'(1)'
      #20445#30041#65306'(0)'
      #20445#30041#65306'(0)')
    TabOrder = 1
    CheckStates = (
      0
      0
      0
      0
      0
      0
      0
      0)
  end
  object RzCheckGroup2: TRzCheckGroup
    Left = 6
    Top = 69
    Width = 360
    Height = 101
    Caption = #30005#32593#36816#34892#29366#24577#23383'[C021]'
    Columns = 2
    Items.Strings = (
      'A '#30456#26029#30005#65306#27491#24120'(0)/'#26029#30005'(1)'
      'B '#30456#26029#30005#65306#27491#24120'(0)/'#26029#30005'(1)'
      'C '#30456#26029#30005#65306#27491#24120'(0)/'#26029#30005'(1)'
      #20445#30041#65306'(0)'
      'A '#30456#36807#21387#65306#27491#24120'(0)/'#36807#21387'(1)'
      'B '#30456#36807#21387#65306#27491#24120'(0)/'#36807#21387'(1)'
      'C '#30456#36807#21387#65306#27491#24120'(0)/'#36807#21387'(1)'
      #20445#30041#65306'(0)')
    TabOrder = 2
    CheckStates = (
      0
      0
      0
      0
      0
      0
      0
      0)
  end
  object RzCheckGroup3: TRzCheckGroup
    Left = 6
    Top = 179
    Width = 360
    Height = 103
    Caption = #21608#20241#29366#24577#23383'[C022]'
    Columns = 2
    Items.Strings = (
      #21608#26085#65306#20241#24687'(0)/'#24037#20316'(1)'
      #21608#19968#65306#20241#24687'(0)/'#24037#20316'(1)'
      #21608#20108#65306#20241#24687'(0)/'#24037#20316'(1)'
      #21608#19977#65306#20241#24687'(0)/'#24037#20316'(1)'
      #21608#22235#65306#20241#24687'(0)/'#24037#20316'(1)'
      #21608#20116#65306#20241#24687'(0)/'#24037#20316'(1)'
      #21608#20845#65306#20241#24687'(0)/'#24037#20316'(1)'
      #20445#30041#65306'(0)')
    TabOrder = 3
    CheckStates = (
      0
      0
      0
      0
      0
      0
      0
      0)
  end
  object RzGroupBox2: TRzGroupBox
    Left = 6
    Top = 418
    Width = 433
    Height = 103
    Caption = #30005#34920#24120#25968#21442#37327'[CO3X]'
    TabOrder = 4
    object RzLabel5: TRzLabel
      Left = 8
      Top = 24
      Width = 108
      Height = 12
      Caption = #26377#21151#30005#34920#24120#25968'[CO3O]'
    end
    object RzLabel6: TRzLabel
      Left = 225
      Top = 24
      Width = 108
      Height = 12
      Caption = #26080#21151#30005#34920#24120#25968'[CO31]'
    end
    object RzLabel3: TRzLabel
      Left = 8
      Top = 52
      Width = 108
      Height = 12
      Caption = #34920' '#21495'       [CO32]'
    end
    object RzLabel4: TRzLabel
      Left = 225
      Top = 52
      Width = 108
      Height = 12
      Caption = #29992' '#25143' '#21495'    [CO33]'
    end
    object RzLabel7: TRzLabel
      Left = 8
      Top = 80
      Width = 108
      Height = 12
      Caption = #35774' '#22791' '#21495'    [CO34]'
    end
    object RzMaskEdit8: TRzMaskEdit
      Left = 121
      Top = 20
      Width = 90
      Height = 20
      Ctl3D = True
      FrameHotTrack = True
      FrameVisible = True
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      MaxLength = 6
      ParentCtl3D = False
      TabOrder = 0
      Text = '3200'
      OnKeyPress = RzMaskEdit1KeyPress
    end
    object RzMaskEdit9: TRzMaskEdit
      Left = 337
      Top = 20
      Width = 90
      Height = 20
      Ctl3D = True
      FrameHotTrack = True
      FrameVisible = True
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      MaxLength = 6
      ParentCtl3D = False
      TabOrder = 1
      Text = '3200'
      OnKeyPress = RzMaskEdit1KeyPress
    end
    object RzMaskEdit10: TRzMaskEdit