inherited frmAgenda: TfrmAgenda
  Left = 234
  Top = 163
  Caption = 'frmAgenda'
  ClientWidth = 697
  OldCreateOrder = True
  ExplicitWidth = 703
  PixelsPerInch = 96
  TextHeight = 16
  inherited Paginas: TPageControl
    Width = 697
    ExplicitWidth = 697
    inherited Acesso: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 6
      ExplicitWidth = 689
      ExplicitHeight = 406
      inherited Panel2: TPanel
        Left = 598
        ExplicitLeft = 598
      end
      inherited Panel3: TPanel
        Width = 689
        ExplicitWidth = 689
      end
      inherited pnGrade: TPanel
        Width = 598
        ExplicitWidth = 598
        inherited grdPesquisa: TIB_Grid
          Width = 598
          ExplicitWidth = 598
        end
        inherited pnlOpcoesPesquisa: TPanel
          Width = 598
          ExplicitWidth = 598
        end
      end
    end
    inherited Manutencao: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 6
      ExplicitWidth = 689
      ExplicitHeight = 406
      inherited Panel6: TPanel
        Width = 689
        TabOrder = 8
        ExplicitWidth = 689
        inherited Linhabotao: TShape
          Width = 687
          ExplicitWidth = 687
        end
        inherited Panel7: TPanel
          Left = 361
          TabOrder = 1
          ExplicitLeft = 361
        end
        inherited btnVoltar: TBitBtn
          TabOrder = 2
        end
        inherited BtExcluir: TBitBtn
          TabOrder = 3
        end
        inherited btnEditar2: TBitBtn
          TabOrder = 0
        end
      end
      object edtNome: TIB_Edit
        Left = 8
        Top = 32
        Width = 529
        Height = 24
        AutoLabel.Caption = 'Nome'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'NOME'
        DataSource = DsPrincipal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentBackground = False
        TabOrder = 0
      end
      object edtFone1: TIB_Edit
        Left = 8
        Top = 75
        Width = 129
        Height = 24
        AutoLabel.Caption = 'Fone 1'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'TELEFONE1'
        DataSource = DsPrincipal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentBackground = False
        TabOrder = 2
        OnExit = edtFone1Exit
      end
      object edtFone2: TIB_Edit
        Left = 144
        Top = 75
        Width = 137
        Height = 24
        AutoLabel.Caption = 'Fone 2'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'TELEFONE2'
        DataSource = DsPrincipal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentBackground = False
        TabOrder = 3
        OnExit = edtFone2Exit
      end
      object edtEmail: TIB_Edit
        Left = 288
        Top = 75
        Width = 385
        Height = 24
        AutoLabel.Caption = 'E-Mail'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'EMAIL'
        DataSource = DsPrincipal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentBackground = False
        TabOrder = 4
      end
      object edtParticular: TIB_CheckBox
        Left = 464
        Top = 256
        Width = 169
        Height = 49
        Hint = 'O contato ser'#225' visivel apenas por voc'#234
        DataField = 'PARTICULAR'
        DataSource = DsPrincipal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -20
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        BorderStyle = bsNone
        ParentBackground = False
        TabOrder = 7
        Caption = 'Particular'
      end
      object edtObs: TIB_Memo
        Left = 8
        Top = 248
        Width = 441
        Height = 97
        AutoLabel.Caption = 'Obs'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'OBS'
        DataSource = DsPrincipal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentBackground = False
        TabOrder = 6
        AutoSize = False
      end
      object edtAniversario: TIB_Date
        Left = 544
        Top = 32
        Width = 129
        Height = 24
        AutoLabel.Caption = 'Anivers'#225'rio'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'ANIVERSARIO'
        DataSource = DsPrincipal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentBackground = False
        TabOrder = 1
        IncCellHeight = 1
        IncCellWidth = 2
        DrawYearArrow = False
      end
      object Panel4: TPanel
        Left = 0
        Top = 115
        Width = 681
        Height = 105
        Color = 16765623
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        object edtBAirro: TIB_Edit
          Left = 8
          Top = 65
          Width = 294
          Height = 24
          Hint = 'Bairro'
          AutoLabel.Caption = 'Bairro'
          AutoLabel.Kind = albTop
          AutoLabel.Margin = 0
          DataField = 'ENDERECO_BAIRRO'
          DataSource = DsPrincipal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Verdana'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          ParentBackground = False
          TabOrder = 4
        end
        object edtCep: TIB_Edit
          Tag = 1
          Left = 9
          Top = 23
          Width = 110
          Height = 24
          Hint = 'Cep'
          AutoLabel.Caption = 'Cep'
          AutoLabel.Kind = albTop
          AutoLabel.Margin = 0
          DataField = 'ENDERECO_CEP'
          DataSource = DsPrincipal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Verdana'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          PopupMenu = popPesquisaCep
          ShowHint = True
          ParentBackground = False
          TabOrder = 0
          OnExit = edtCepExit
          OnKeyDown = edtCepKeyDown
        end
        object edtEndereco: TIB_Edit
          Left = 122
          Top = 23
          Width = 319
          Height = 24
          Hint = 'Endere'#231'o'
          AutoLabel.Caption = 'Endere'#231'o'
          AutoLabel.Kind = albTop
          AutoLabel.Margin = 0
          DataField = 'ENDERECO_LOGRADOURO'
          DataSource = DsPrincipal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Verdana'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          ParentBackground = False
          TabOrder = 1
        end
        object edtCidade: TIB_Edit
          Left = 305
          Top = 65
          Width = 304
          Height = 24
          Hint = 'Cidade'
          AutoLabel.Caption = 'Cidade'
          AutoLabel.Kind = albTop
          AutoLabel.Margin = 0
          DataField = 'ENDERECO_CIDADE'
          DataSource = DsPrincipal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Verdana'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          ParentBackground = False
          TabOrder = 5
        end
        object edtNumero: TIB_Edit
          Left = 445
          Top = 23
          Width = 89
          Height = 24
          Hint = 'N'#250'mero'
          AutoLabel.Caption = 'N'#250'mero'
          AutoLabel.Kind = albTop
          AutoLabel.Margin = 0
          DataField = 'ENDERECO_NUMERO'
          DataSource = DsPrincipal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Verdana'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          ParentBackground = False
          TabOrder = 2
        end
        object edtComplemento: TIB_Edit
          Left = 537
          Top = 23
          Width = 135
          Height = 24
          Hint = 'Complemento'
          AutoLabel.Caption = 'Complemento'
          AutoLabel.Kind = albTop
          AutoLabel.Margin = 0
          DataField = 'ENDERECO_COMPLEMENTO'
          DataSource = DsPrincipal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Verdana'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          ParentBackground = False
          TabOrder = 3
        end
        object edtUF: TIB_LookupCombo
          Left = 616
          Top = 67
          Width = 64
          Height = 21
          AutoLabel.Caption = 'UF'
          AutoLabel.Kind = albTop
          DataSource = dsrUF
          ParentBackground = False
          TabOrder = 6
          DisplayField = 'DESCRICAO'
          ShowButton = True
        end
      end
    end
  end
  inherited Panel1: TPanel
    Width = 697
    ExplicitWidth = 697
    inherited Label2: TLabel
      Width = 175
      Caption = 'Agenda Telef'#244'nica'
      ExplicitWidth = 175
    end
    inherited Shape1: TShape
      Width = 697
      ExplicitWidth = 697
    end
    inherited imgAcao: TImage
      Left = 337
      ExplicitLeft = 337
    end
  end
  inherited TbPrincipal: TIB_Query
    ColumnAttributes.Strings = (
      'PARTICULAR=BOOLEAN=T,F')
    FieldsCharCase.Strings = (
      'CODIGO_AGENDA=UPPER'
      'NOME=UPPER'
      'TELEFONE1=UPPER'
      'TELEFONE2=UPPER'
      'EMAIL=LOWER'
      'ANIVERSARIO=UPPER'
      'COD_USUARIO=UPPER'
      'TIPO=UPPER'
      'ENDERECO_LOGRADOURO=UPPER'
      'ENDERECO_NUMERO=UPPER'
      'ENDERECO_COMPLEMENTO=UPPER'
      'ENDERECO_BAIRRO=UPPER'
      'ENDERECO_CIDADE=UPPER'
      'ENDERECO_UF=UPPER'
      'ENDERECO_CEP=UPPER'
      'COD_FILIAL=UPPER'
      'PARTICULAR=UPPER'
      'DESCRICAO=UPPER')
    FieldsDisplayLabel.Strings = (
      'NOME=Nome'
      'TELEFONE1=Fone1'
      'TELEFONE2=Fone1'
      'EMAIL=E-Mail'
      'ENDERECO_CIDADE=Cidade'
      'ENDERECO_UF=UF'
      'DESCRICAO=UF')
    FieldsDisplayWidth.Strings = (
      'TELEFONE1=105'
      'EXPORTADO=64'
      'TELEFONE2=106'
      'EMAIL=64'
      'NOME=203'
      'ENDERECO_CIDADE=145'
      'DESCRICAO=59')
    FieldsEditMask.Strings = (
      'TELEFONE1=(99)9999-9999;0'
      'TELEFONE2=(99)9999-9999;0'
      'ENDERECO_CEP=99999-999;0')
    FieldsIndex.Strings = (
      'CODIGO_AGENDA'
      'NOME'
      'TELEFONE1'
      'TELEFONE2'
      'ENDERECO_CIDADE'
      'ENDERECO_UF'
      'EMAIL'
      'ANIVERSARIO'
      'COD_USUARIO'
      'TIPO'
      'ENDERECO_LOGRADOURO'
      'ENDERECO_NUMERO'
      'ENDERECO_COMPLEMENTO'
      'ENDERECO_BAIRRO'
      'ENDERECO_CEP'
      'COD_FILIAL'
      'PARTICULAR')
    FieldsVisible.Strings = (
      'NOME=TRUE'
      'TELEFONE1=TRUE'
      'TELEFONE2=TRUE'
      'EMAIL=FALSE'
      'ANIVERSARIO=FALSE'
      'COD_USUARIO=FALSE'
      'TIPO=FALSE'
      'ENDERECO_LOGRADOURO=FALSE'
      'ENDERECO_NUMERO=FALSE'
      'ENDERECO_COMPLEMENTO=FALSE'
      'ENDERECO_BAIRRO=FALSE'
      'ENDERECO_CIDADE=TRUE'
      'ENDERECO_UF=FALSE'
      'ENDERECO_CEP=FALSE'
      'COD_FILIAL=FALSE'
      'PARTICULAR=FALSE'
      'CODIGO_AGENDA=FALSE'
      'EXPORTADO=FALSE'
      'OBS=FALSE'
      'COD_AGENDA=FALSE'
      'DESCRICAO=TRUE'
      'COD_UF=FALSE')
    SQL.Strings = (
      'SELECT AGENDA_TELEFONICA.*'
      '     , uf.DESCRICAO'
      ''
      'from AGENDA_TELEFONICA'
      '  left join uf ON UF.COD_UF = AGENDA_TELEFONICA.COD_UF'
      ''
      'where (AGENDA_TELEFONICA.COD_USUARIO = :VARUSUARIO)'
      '    or(AGENDA_TELEFONICA.PARTICULAR = '#39'F'#39')')
    DeleteSQL.Strings = (
      'DELETE FROM AGENDA_TELEFONICA'
      'WHERE'
      '   COD_AGENDA = :OLD_COD_AGENDA')
    EditSQL.Strings = (
      'UPDATE AGENDA_TELEFONICA SET'
      '   COD_AGENDA = :COD_AGENDA, /*PK*/'
      '   NOME = :NOME,'
      '   TELEFONE1 = :TELEFONE1,'
      '   TELEFONE2 = :TELEFONE2,'
      '   ENDERECO_CIDADE = :ENDERECO_CIDADE,'
      '   ENDERECO_UF = :ENDERECO_UF,'
      '   EMAIL = :EMAIL,'
      '   ANIVERSARIO = :ANIVERSARIO,'
      '   COD_USUARIO = :COD_USUARIO,'
      '   TIPO = :TIPO,'
      '   ENDERECO_LOGRADOURO = :ENDERECO_LOGRADOURO,'
      '   ENDERECO_NUMERO = :ENDERECO_NUMERO,'
      '   ENDERECO_COMPLEMENTO = :ENDERECO_COMPLEMENTO,'
      '   ENDERECO_BAIRRO = :ENDERECO_BAIRRO,'
      '   ENDERECO_CEP = :ENDERECO_CEP,'
      '   PARTICULAR = :PARTICULAR,'
      '   OBS = :OBS,'
      '   COD_UF = :COD_UF'
      'WHERE'
      '   COD_AGENDA = :OLD_COD_AGENDA')
    GeneratorLinks.Strings = (
      'AGENDA_TELEFONICA.COD_AGENDA = GEN_AGENDA_TELEFONICA')
    InsertSQL.Strings = (
      'INSERT INTO AGENDA_TELEFONICA('
      '   COD_AGENDA, /*PK*/'
      '   NOME,'
      '   TELEFONE1,'
      '   TELEFONE2,'
      '   ENDERECO_CIDADE,'
      '   ENDERECO_UF,'
      '   EMAIL,'
      '   ANIVERSARIO,'
      '   COD_USUARIO,'
      '   TIPO,'
      '   ENDERECO_LOGRADOURO,'
      '   ENDERECO_NUMERO,'
      '   ENDERECO_COMPLEMENTO,'
      '   ENDERECO_BAIRRO,'
      '   ENDERECO_CEP,'
      '   PARTICULAR,'
      '   OBS,'
      '   COD_UF)'
      'VALUES ('
      '   :COD_AGENDA,'
      '   :NOME,'
      '   :TELEFONE1,'
      '   :TELEFONE2,'
      '   :ENDERECO_CIDADE,'
      '   :ENDERECO_UF,'
      '   :EMAIL,'
      '   :ANIVERSARIO,'
      '   :COD_USUARIO,'
      '   :TIPO,'
      '   :ENDERECO_LOGRADOURO,'
      '   :ENDERECO_NUMERO,'
      '   :ENDERECO_COMPLEMENTO,'
      '   :ENDERECO_BAIRRO,'
      '   :ENDERECO_CEP,'
      '   :PARTICULAR,'
      '   :OBS,'
      '   :COD_UF)')
    KeyLinks.Strings = (
      'AGENDA_TELEFONICA.COD_AGENDA')
    OrderingItemNo = 1
    OrderingItems.Strings = (
      'NOME=AGENDA_TELEFONICA.NOME;AGENDA_TELEFONICA.NOME DESC'
      
        'TELEFONE1=AGENDA_TELEFONICA.TELEFONE1;AGENDA_TELEFONICA.TELEFONE' +
        '1 DESC'
      
        'TELEFONE2=AGENDA_TELEFONICA.TELEFONE2;AGENDA_TELEFONICA.TELEFONE' +
        '2 DESC'
      
        'ENDERECO_CIDADE=AGENDA_TELEFONICA.ENDERECO_CIDADE;AGENDA_TELEFON' +
        'ICA.ENDERECO_CIDADE DESC'
      'DESCRICAO=UF.DESCRICAO;UF.DESCRICAO DESC')
    OrderingLinks.Strings = (
      'NOME=1'
      'TELEFONE1=2'
      'TELEFONE2=3'
      'ENDERECO_CIDADE=4'
      'DESCRICAO=5')
    SearchingLinks.Strings = (
      'NOME=NOME'
      'TELEFONE1=TELEFONE1'
      'TELEFONE2=TELEFONE2'
      'ENDERECO_CIDADE=ENDERECO_CIDADE'
      'DESCRICAO=DESCRICAO')
  end
  inherited ImagensPadrao: TImageList
    Bitmap = {
      [encoded data, 8768 characters]
      000000000000}
  end
  inherited uc_Controle_Acesso: TUCControls
    GroupName = 'Agenda Telefonica'
  end
  object popPesquisaCep: TPopupMenu
    Images = ImagensPadrao
    Left = 612
    Top = 8
    object PesquisarCEP1: TMenuItem
      Caption = 'Pesquisar CEP'
      ImageIndex = 2
      OnClick = PesquisarCEP1Click
    end
  end
  object qrUF: TIB_Query
    FieldsCharCase.Strings = (
      'COD_UF=UPPER'
      'DESCRICAO=UPPER')
    FieldsDisplayLabel.Strings = (
      'DESCRICAO=UF')
    FieldsVisible.Strings = (
      'COD_UF=FALSE'
      'DESCRICAO=TRUE')
    IB_Connection = Dados.IB_Conexao
    SQL.Strings = (
      'SELECT UF.*'
      'FROM UF')
    OrderingItemNo = 1
    OrderingItems.Strings = (
      'DESCRICAO=DESCRICAO;DESCRICAO DESC')
    OrderingLinks.Strings = (
      'DESCRICAO=1')
    SearchingLinks.Strings = (
      'DESCRICAO=DESCRICAO')
    Left = 296
  end
  object dsrUF: TIB_DataSource
    Dataset = qrUF
    Left = 295
    Top = 28
  end
end
