readdata.dfm

Monitor.dfm Meter.dpr pasMain.pas

object frmRead: TfrmRead
  Left = -4
  Top = -4
  Width = 808
  Height = 608
  Anchors = [akLeft]
  BorderIcons = [biSystemMenu, biMaximize]
  Caption = '用户基本信息 Custom  Infomation'
  Color = clWhite
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  Icon.Data = {
    0000010001001010100000000000280100001600000028000000100000002000
    00000100040000000000C0000000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000FFFFFFFFFFFF0000F0
    0FF00FF00F0000FFFFFFFFFFFF0000F00FF00FF00F0000FFFFFFFFFFFF0000F0
    0FF00FF00F0000FFFFFFFFFFFF00000000000000000000444444444444000044
    444444444400000000000000000000000000000000000000000000000000FFFF
    0000FFFF00008001000080010000800100008001000080010000800100008001
    00008001000080010000800100008001000080010000FFFF0000FFFF0000}
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DataListView: TListView
    Left = 0
    Top = 98
    Width = 800
    Height = 455
    Hint = '右键打印台区用户信息，双击显示用户抄表信息'
    Align = alClient
    Color = clWhite
    Columns = <
      item
        Caption = '表号'
        Width = 70
      end
      item
        Caption = '资产号'
        Width = 70
      end
      item
        Caption = '用户名'
        Width = 80
      end
      item
        Caption = '地址'
        Width = 135
      end
      item
        Alignment = taRightJustify
        Caption = '当前电量'
        Width = 73
      end
      item
        Alignment = taCenter
        Caption = '量程'
        Width = 73
      end
      item
        Alignment = taCenter
        Caption = '常数'
        Width = 54
      end
      item
        Alignment = taCenter
        Caption = '倍率'
        Width = 48
      end
      item
        Caption = '表型'
      end
      item
        Caption = '用途'
        Width = 80
      end
      item
        Alignment = taCenter
        Caption = '相位'
        Width = 42
      end
      item
        Alignment = taCenter
        Caption = '中继深度'
        Width = 48
      end
      item
        Alignment = taCenter
        AutoSize = True
        Caption = '中继表号'
        WidthType = (
          -27)
      end>
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ReadOnly = True
    RowSelect = True
    ParentFont = False
    PopupMenu = frmMain.PrintMenu
    SmallImages = ImageList1
    SortType = stData
    TabOrder = 0
    TabStop = False
    ViewStyle = vsReport
    OnColumnClick = DataListViewColumnClick
    OnCompare = DataListViewCompare
    OnDblClick = DataListViewDblClick
    OnSelectItem = DataListViewSelectItem
  end
  object DataPanel: TPanel
    Left = 0
    Top = 0
    Width = 800
    Height = 98
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = clSilver
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    Visible = False
    object Label9: TLabel
      Left = 10
      Top = 8
      Width = 36
      Height = 12
      Caption = '通讯号'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 10
      Top = 52
      Width = 24
      Height = 12
      Caption = '户名'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 10
      Top = 73
      Width = 24
      Height = 12
      Caption = '地址'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label14: TLabel
      Left = 161
      Top = 8
      Width = 36
      Height = 12
      Caption = '总电量'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label15: TLabel
      Left = 305
      Top = 30
      Width = 3
      Height = 13
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label12: TLabel
      Left = 162
      Top = 53
      Width = 24
      Height = 12
      Caption = '常数'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label13: TLabel
      Left = 581
      Top = 13
      Width = 24
      Height = 12
      Caption = '相位'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 429
      Top = 8
      Width = 24
      Height = 12
      Caption = '表型'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 430
      Top = 53
      Width = 48
      Height = 12
      Caption = '中继表号'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 429
      Top = 32
      Width = 48
      Height = 12
      Caption = '用电类别'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 10
      Top = 31
      Width = 24
      Height = 12
      Caption = '帐号'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 429
      Top = 75
      Width = 48
      Height = 12
      Caption = '台区名称'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object SpeedButton1: TSpeedButton
      Left = 705
      Top = 55
      Width = 41
      Height = 38
      Caption = '隐藏'
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      Glyph.Data = {
        EE000000424DEE000000000000007600000028000000100000000F0000000100
        04000000000078000000120B0000120B00001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888188888
        8888888888118888881888888871188887188888888118881188888888871187
        1188888888881111188800000000711188880FFFFFF7111188880F00F7111871
        18880FFFFFFF088711880F00F00F088881180FFFFFFF08888888444444444888
        888844444444488888888888888888888888}
      Layout = blGlyphTop
      ParentFont = False
      Spacing = 2
      OnClick = SpeedButton1Click
    end
    object Label1: TLabel
      Left = 161
      Top = 31
      Width = 24
      Height = 12
      Caption = '量程'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 163
      Top = 74
      Width = 24
      Height = 12
      Caption = '变比'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 582
      Top = 33
      Width = 36
      Height = 12
      Caption = '条码号'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object btnAppend: TSpeedButton
      Left = 572
      Top = 55
      Width = 41
      Height = 38
      Caption = '添加'
      Enabled = False
      Flat = True
      Glyph.Data = {
        EE000000424DEE000000000000007600000028000000100000000F0000000100
        04000000000078000000120B0000120B00001000000000000000000000000000