Consulta banco de dados em tabela (grid)

Os anúncios devem ficar desbloqueados para que este site exista e continue gratuito.

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