alert.dfm

Monitor.dfm Meter.dpr pasMain.pas

object frmAlert: TfrmAlert
  Left = 47
  Top = 69
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = '抄表结果报告：'
  ClientHeight = 402
  ClientWidth = 718
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000088
    8888888888888888888888888888008888888888888888888888888888880000
    00000000000000000000000000880FFFFCFFFCFFFCFFFCFFFCFFFCFFF0880FFF
    FCFFFCFFFCFFFCFFFCFFFCFFF088099FFC0FFC0FFC0FFCFFFCFFFCFFF0880CCC
    CCCCCCCCCCCCCCCCCCCCCCCCC0880FFFFCFFFCFFFCFFFCFFFCFFFCFFF0880FFF
    FCFFFCFFFCFFFCFFFCFFFCFFF088099FFC0FFC0FFC0FFC0FFC0FFC0FF0880CCC
    CCCCCCCCCCCCCCCCCCCCCCCCC0880FFFFCFFFCFFFCFFFCFFFCFFFCFFF0880FFF
    FCFFFCFFFCFFFCFFFCFFFCFFF088099FFC0FFC0FFC0FFC0FFC0FFC0FF0880CCC
    CCCCCCCCCCCCCCCCCCCCCCCCC0880FFFFCFFFCFFFCFFFCFFFCFFFCFFF0880FFF
    FCFFFCFFFCFFFCFFFCFFFCFFF088099FFC0FFC0FFC0FFC0FFC0FFC0FF0880CCC
    CCCCCCCCCCCCCCCCCCCCCCCCC0880FFFFCFFFCFFFCFFFCFFFCFFFCFFF0880FFF
    FCFFFCFFFCFFFCFFFCFFFCFFF0880FFFFCFFFC0FFC0FFC0FFC0FFC0FF0880CCC
    CCCCCCCCCCCCCCCCCCCCCCCCC0880FFFFFFFFFFFFFFFFFFFFFFFFFFFF0880FFF
    FFFFFFFFFFFFFFFFFFFFFFFFF0880F0F0F0F0FFF00000FFFF0F0F0F0F0880FFF
    FFFFFFFF0F0F0FFFFFFFFFFFF0880F0F0F0F0FFFFFFFFFFFF0F0F0F0F0880FFF
    FFFFFFF0000000FFFFFFFFFFF0880F0F0F0F0FF0F0F0F0FFF0F0F0F0F0880FFF
    FFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000C000
    0000C00000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000300000003}
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 8
    Top = 8
    Width = 241
    Height = 385
    BevelInner = bvLowered
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label19: TLabel
      Left = 40
      Top = 96
      Width = 60
      Height = 12
      Caption = '请选择台变'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label20: TLabel
      Left = 40
      Top = 160
      Width = 60
      Height = 12
      Caption = '请选择时间'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object RadioButton1: TRadioButton
      Left = 32
      Top = 33
      Width = 153
      Height = 17
      Caption = '查看所有抄表异常'
      Checked = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      TabStop = True
      OnClick = RadioButton1Click
    end
    object RadioButton2: TRadioButton
      Left = 32
      Top = 65
      Width = 161
      Height = 17
      Caption = '查看指定抄表异常'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = RadioButton2Click
    end
    object BitBtn1: TBitBtn
      Left = 88
      Top = 241
      Width = 75
      Height = 25
      Caption = '确定'
      Default = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      Visible = False
      OnClick = BitBtn1Click
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333388F3333333333000033334224333333333333
        338338F3333333330000333422224333333333333833338F3333333300003342
        222224333333333383333338F3333333000034222A22224333333338F338F333
        8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
        33333338F83338F338F33333000033A33333A222433333338333338F338F3333
        0000333333333A222433333333333338F338F33300003333333333A222433333
        333333338F338F33000033333333333A222433333333333338F338F300003333
        33333333A222433333333333338F338F00003333333333333A22433333333333
        3338F38F000033333333333333A223333333333333338F830000333333333333
        333A333333333333333338330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object ComboBox1: TComboBox
      Left = 40
      Top = 124
      Width = 185
      Height = 20
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ItemHeight = 12
      ParentFont = False
      TabOrder = 3
      OnClick = ComboBox1Click
    end
    object ComboBox2: TComboBox
      Left = 40
      Top = 184
      Width = 185
      Height = 20
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ItemHeight = 12
      ParentFont = False
      Sorted = True
      TabOrder = 4
    end
  end
  object meterreport: TPageControl
    Left = 275
    Top = 0
    Width = 441
    Height = 401
    ActivePage = littzero
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    MultiLine = True
    ParentFont = False
    TabOrder = 1
    OnChange = meterreportChange
    object notsuccess: TTabSheet
      Caption = '未能成功抄表的用户'
      object Label1: TLabel
        Left = 16
        Top = 248
        Width = 6
        Height = 12
        Alignment = taCenter
      end
      object DBGrid3: TDBGrid
        Left = 0
        Top = 0
        Width = 433
        Height = 353
        Align = alTop
        DataSource = DataSource1
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        Options = [dgEditing, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        ParentFont = False
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clBlack
        TitleFont.Height = -16
        TitleFont.Name = '宋体'
        TitleFont.Style = []
      end
    end
    object zero: TTabSheet
      Caption = '用电量为零的用户'
      ImageIndex = 1
      object Label4: TLabel
        Left = 38
        Top = 272
        Width = 110
        Height = 21
        Caption = '故障分析：'
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -21
        Font.Name = '隶书'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 8
        Top = 248
        Width = 6
        Height = 12
        Alignment = taCenter
      end
      object Label6: TLabel
        Left = 60
        Top = 322
        Width = 152
        Height = 16
        Caption = '2、可能计量表记故障'
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -16
        Font.Name = '楷体_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object Label10: TLabel
        Left = 60
        Top = 298
        Width = 168
        Height = 16
        Caption = '1、可能无人居住或外出'
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -16
        Font.Name = '楷体_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object Label11: TLabel
        Left = 60
        Top = 346
        Width = 120
        Height = 16
        Caption = '3、可能人为窃电'
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -16
        Font.Name = '楷体_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object Label17: TLabel
        Left = 278
        Top = 272
        Width = 66
        Height = 21
        Caption = '建议：'
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -21
        Font.Name = '隶书'
        Font.Style = []
        ParentFont = False
      end
      object Label18: TLabel
        Left = 324
        Top = 306
        Width = 80
        Height = 16
        Caption = '请补抄确认'
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -16
        Font.Name = '楷体_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object DBGrid2: TDBGrid
        Left = 0
        Top = 0
        Width = 433
        Height = 233
        Align = alTop
        DataSource = DataSource1
        Options = [dgEditing, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clBlack
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
      end
    end
    object littzero: TTabSheet
      Caption = '用电量为负的用户'
      ImageIndex = 2
      object Label7: TLabel
        Left = 38
        Top = 272
        Width = 110
        Height = 21
        Caption = '故障分析：'
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -21
        Font.Name = '隶书'
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 8
        Top = 246
        Width = 6
        Height = 12
        Alignment = taCenter
      end
      object Label9: TLabel
        Left = 84
        Top = 298
        Width = 120
        Height = 16
        Caption = '1、可能人为偷电'
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -16
        Font.Name = '楷体_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object Label14: TLabel
        Left = 84
        Top = 330
        Width = 232
        Height = 16
        Caption = '2、电表可能有故障(短路或短线)'
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -16
        Font.Name = '楷体_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object Label15: TLabel
        Left = 278
        Top = 272
        Width = 66
        Height = 21
        Caption = '建议：'
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -21
        Font.Name = '隶书'
        Font.Style = []
        ParentFont = False
      end
      object Label16: TLabel
        Left = 324
        Top = 306
        Width = 80
        Height = 16
        Caption = '请补抄确认'
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -16
        Font.Name = '楷体_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 433
        Height = 233
        Align = alTop
        DataSource = DataSource1
        Options = [dgEditing, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clBlack
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
      end
    end
  end
  object Query1: TQuery
    DatabaseName = 'meter3'
    SQL.Strings = (
      'select rtm.dno,rmt.uno,rmt.rdt,Mtr.name,Mtr.address'
      '       from rmt ,Mtr'
      '       where rmt.uno=mtr.uno and'
      '             rmt.dno=:pardno   and'
      '             rmt.rdt=:parrdt  and'
      ''
      ' '
      ' ')
    Left = 392
    Top = 163
    ParamData = <
      item
        DataType = ftString
        Name = 'pardno'
        ParamType = ptOutput
      end
      item
        DataType = ftString
        Name = 'parrdt'
        ParamType = ptOutput
      end>
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 464
    Top = 171
  end
end