unit1.dfm

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

      FF002F97FF000067FF000000FF0000009000FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF000000CF0000009000FF00FF00FF00FF00FF00FF006067
      90000000CF0060679000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
  end
  object BitBtn3: TBitBtn
    Left = 520
    Top = 392
    Width = 75
    Height = 25
    Caption = #20462#25913
    TabOrder = 6
    OnClick = BitBtn3Click
    Glyph.Data = {
      36040000424D3604000000000000360000002800000010000000100000000100
      2000000000000004000000000000000000000000000000000000FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000
      0000FF00FF000000000000000000000000000000000000000000FFFFFF00FFFF
      FF0000000000FFFFFF000000000000000000FFFFFF0000000000FFFF00000000
      00000000000000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF00000000
      000000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000000000000000FFFF
      FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000000000FFFF00000000
      0000FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF000000
      0000FFFFFF000000000000000000FFFFFF00FFFFFF0000000000FFFF00000000
      000000FFFF00FFFFFF0000FFFF00FFFFFF000000000000000000000000000000
      00000000000000FFFF0000000000FFFFFF00FFFFFF0000000000FFFF00000000
      0000FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF
      FF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF0000000000FFFF00000000
      000000FFFF00FFFFFF0000000000000000000000000000000000000000000000
      000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000
      00000000000000FFFF00FFFFFF0000FFFF00000000000000000000FFFF000000
      0000FFFFFF00FFFFFF000000000000000000FFFFFF0000000000FF00FF00FF00
      FF00FF00FF000000000000000000000000000000000000FFFF0000000000FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF000000000000FFFF0000000000FFFFFF00FFFF
      FF00FFFFFF00FFFFFF0000000000000000000000000000000000FF00FF00FF00
      FF00FF00FF00FF00FF000000000000FFFF0000000000FFFFFF00FFFFFF000000
      000000000000FFFFFF0000000000FFFFFF00FFFFFF0000000000FF00FF00FF00
      FF00FF00FF000000000000FFFF000000000000000000FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF0000000000FFFFFF0000000000FF00FF00FF00FF00FF00
      FF00000000000000FF0000000000FF00FF0000000000FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF000000000000000000FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF0000000000FF00FF00FF00FF000000000000000000000000000000
      0000000000000000000000000000FF00FF00FF00FF00FF00FF00}
  end
  object ComboBox2: TComboBox
    Left = 328
    Top = 112
    Width = 121
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    ItemHeight = 13
    TabOrder = 7
    Text = '0'
    Items.Strings = (
      '0'
      '1')
  end
  object ComboBox4: TComboBox
    Left = 552
    Top = 112
    Width = 145
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    ItemHeight = 13
    TabOrder = 8
    Text = 'kWh'
  end
  object ComboBox3: TComboBox
    Left = 328
    Top = 68
    Width = 121
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    ItemHeight = 13
    TabOrder = 9
    Text = 'XXXXXX.XX'
  end
  object ComboBox5: TComboBox
    Left = 552
    Top = 68
    Width = 145
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    ItemHeight = 13
    TabOrder = 10
    Text = '1'
    Items.Strings = (
      '1'
      '2'
      '3'
      '4'
      '5'
      '6'
      '7')
  end
  object ComboBox6: TComboBox
    Left = 552
    Top = 24
    Width = 145
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    ItemHeight = 13
    TabOrder = 11
    Text = 'A1'
    Items.Strings = (
      'A1'
      'A2'
      'A3'
      'A4'
      'A5'
      'A6'
      'A7')
  end
  object ComboBox7: TComboBox
    Left = 112
    Top = 16
    Width = 113
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    ItemHeight = 13
    TabOrder = 12
  end
  object ComboBox8: TComboBox
    Left = 112
    Top = 140
    Width = 249
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    ItemHeight = 13
    TabOrder = 13
  end
  object BitBtn4: TBitBtn
    Left = 144
    Top = 392
    Width = 75
    Height = 25
    Caption = #26597#35810
    TabOrder = 14
    OnClick = BitBtn4Click
    Glyph.Data = {
      EE000000424DEE000000000000007600000028000000100000000F0000000100
      04000000000078000000130B0000130B00001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
      888800000888880000080F000888880F00080F000888880F0008000000080000
      000800F000000F00000800F000800F00000800F000800F000008800000000000
      0088880F00080F000888880000080000088888800088800088888880F08880F0
      888888800088800088888888888888888888}
  end
  object ComboBox9: TComboBox
    Left = 336
    Top = 184
    Width = 249
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    ItemHeight = 13
    TabOrder = 15
  end
  object ComboBox10: TComboBox
    Left = 112
    Top = 224
    Width = 297
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    ItemHeight = 13
    TabOrder = 16
  end
  object MaskEdit1: TMaskEdit
    Left = 112
    Top = 182
    Width = 201
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    TabOrder = 17
  end
  object BitBtn5: TBitBtn
    Left = 240
    Top = 392
    Width = 75
    Height = 25
    Caption = #21333#26465#26465#20214
    TabOrder = 18
    OnClick = BitBtn5Click
    Glyph.Data = {
      36040000424D3604000000000000360000002800000010000000100000000100
      2000000000000004000000000000000000000000000000000000FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000FF000000000000FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000FF000000000000FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF000000000000000000000000000000000000FF0000000000000000
      00000000000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF000000000000FF000000FF000000FF000000FF000000FF000000FF
      000000FF000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF000000000000000000000000000000000000FF0000000000000000
      00000000000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000FF000000000000FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000FF000000000000FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
  end
  object ADOTable1: TADOTable
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\DL_T 645\data\DL' +
      '_T645.mdb;Persist Security Info=False'
    CursorType = ctStatic
    TableName = #21629#20196#32534#30721
    Left = 56
    Top = 288
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 96
    Top = 288
  end
  object ADOTable2: TADOTable
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\DL_T 645\data\DL' +
      '_T645.mdb;Persist Security Info=False'
    CursorType = ctStatic
    TableName = #21629#20196#32534#30721'1'
    Top = 16
  end
  object ADOTable3: TADOTable
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\DL_T 645\data\DL' +
      '_T645.mdb;Persist Security Info=False'
    CursorType = ctStatic
    TableName = #25968#25454#26684#24335
    Left = 248
    Top = 48
  end
  object ADOTable4: TADOTable
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\DL_T 645\data\DL' +
      '_T645.mdb;Persist Security Info=False'
    CursorType = ctStatic
    TableName = #25968#25454#39033#21517#31216'1'
    Left = 496
    Top = 144
  end
  object ADOTable5: TADOTable
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\DL_T 645\data\DL' +
      '_T645.mdb;Persist Security Info=False'
    CursorType = ctStatic
    TableName = #25968#25454#39033#21517#31216'2'
    Left = 536
    Top = 144
  end
  object ADOTable6: TADOTable
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\DL_T 645\data\DL' +
      '_T645.mdb;Persist Security Info=False'
    CursorType = ctStatic
    TableName = #25968#25454#39033#21517#31216'3'
    Left = 584
    Top = 144
  end
  object ADOTable7: TADOTable
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\DL_T 645\data\DL' +
      '_T645.mdb;Persist Security Info=False'
    CursorType = ctStatic
    TableName = #21333#20301
    Left = 520
    Top = 104
  end
end