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:
Os nomes, telefones e CPFs acima são fictícios!!!
Aprofunde-se mais em tabelas de banco de dados aprendendo o TBrowse().
Comentários recentes