inherited frmDigito9: TfrmDigito9
  Caption = 'D'#237'gito 9'
  ExplicitWidth = 384
  ExplicitHeight = 207
  PixelsPerInch = 96
  TextHeight = 13
  object lbl_tel: TLabel [0]
    Left = 176
    Top = 48
    Width = 3
    Height = 13
    Alignment = taCenter
  end
  object lbl_tel2: TLabel [1]
    Left = 192
    Top = 112
    Width = 3
    Height = 13
    Alignment = taCenter
  end
  object ProgressBar1: TProgressBar
    Left = 8
    Top = 80
    Width = 362
    Height = 17
    TabOrder = 1
  end
  object DBGrid1: TDBGrid
    Left = 34
    Top = 131
    Width = 320
    Height = 14
    DataSource = dtsTelefones
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Visible = False
  end
  object dtsTelefones: TDataSource
    DataSet = qryTelefones
    Left = 320
    Top = 24
  end
  object Timer1: TTimer
    Interval = 1
    OnTimer = Timer1Timer
    Left = 8
    Top = 8
  end
  object qryTelefones: TZQuery
    Connection = dtmSystem.ZConnection
    SQL.Strings = (
      'select * from chg_telefones'
      'where'
      'nr_numero similar to '#39'[6-9]%'#39)
    Params = <>
    Left = 232
    Top = 24
    object qryTelefonesID_TELEFONE: TIntegerField
      FieldName = 'ID_TELEFONE'
      Required = True
    end
    object qryTelefonesID_DEVEDOR: TIntegerField
      FieldName = 'ID_DEVEDOR'
      Required = True
    end
    object qryTelefonesNR_DDD: TWideStringField
      FieldName = 'NR_DDD'
      Size = 4
    end
    object qryTelefonesNR_NUMERO: TWideStringField
      FieldName = 'NR_NUMERO'
    end
    object qryTelefonesTP_ATIVO: TWideStringField
      FieldName = 'TP_ATIVO'
      Size = 1
    end
    object qryTelefonesTP_TIPOTEL: TWideStringField
      FieldName = 'TP_TIPOTEL'
      Size = 1
    end
    object qryTelefonesTX_DESC: TWideStringField
      FieldName = 'TX_DESC'
      Size = 100
    end
    object qryTelefonesTX_OBS: TWideMemoField
      FieldName = 'TX_OBS'
      BlobType = ftWideMemo
    end
    object qryTelefonesID_ULTIMO_USUARIO: TIntegerField
      FieldName = 'ID_ULTIMO_USUARIO'
    end
    object qryTelefonesDT_HORA_ULTIMA_ATT: TDateTimeField
      FieldName = 'DT_HORA_ULTIMA_ATT'
    end
  end
end