Consulta banco de dados em tabela (grid)

Foto de Anderson

Abaixo uma rotina simples de consulta de banco de dados em forma de tabela (grid).

FUNCTION CONSULTA()
USE AGENDA ALIAS AG SHARED NEW // ABRE O BANCO DE DADOS EM MODO COMPARTILHADO
SET INDEX TO AGENDA            // ABRE O ARQUIVO DE ÍNDICE  
SET ORDER TO TAG NOME          // COLOCA ORDENADO POR CPF
// Observe que você apelidou AGENDA de AG
// AG-> É o mesmo que dar um SELECT AGENDA
// ALIAS é muito útil num sistema com vários DBF abertos

SETCOLOR("W+/N")
@ 04,01 SAY PADC("CONSULTA AGENDA", 77, " ") // CENTRALIZA DENTRO DE 77 CARACTERES
@ 07,01 CLEAR TO 22,78                       // LIMPA ESSA ÁREA
@ 24,55 SAY "Tecle [Esc] para sair" COLOR "W+/BG"

aDADOS   := { "NOME", "FONE"              , "AG->(STR(CPF,11))" }
aPICTURE := {       , "@R (99) 99999-9999", "@R 999.999.999-99" }
aTITLES  := {"NOME" , "TELEFONE"          , "CPF"               } 
AG->(DBEDIT(08,02,22,77, aDADOS,,aPICTURE, aTITLES))

AG->(DBCLOSEAREA()) // Fecha AGENDA.DBF

RETURN

Resultado:

consulta dbf

Os nomes, telefones e CPFs acima são fictícios!!!


Aprofunde-se mais em tabelas de banco de dados aprendendo o TBrowse().

Total votes: 0