https://youtu.be/7dYte-uU1Sc
Bom Dia Boa Tarde Boa Noite
Seja Membro do Canal
Esse Video Ao Vivo vai estrear as 19:00 do dia 21/01/2021
DICAS 3247 - WINDEV - PERGUNTAS E RESPOSTAS 9 - Como realizar uma navegação completa no arquivo?
ASSUNTOS
How to perform a full file browse?
Como realizar uma navegação completa no arquivo?
VAMOS CRIAR UMA PAGINA CHAMADA NAVEGACAO ARQUIVOS
VAMOS CRIAR UM BOTAO - LENDO ARQUIVOS COM FUNCOES
VAMOS CRIAR UMA TABELA POR PROGRACAO COM DUAS COLUNAS, CODIGO E NOME
VAMOS ENTRAR PROPRIEDADE TABELA E QUE A COLUNA DO NOME, SE EXTENDA, NO CASO COLUNA 2
VAMOS ENTRAR NO CODIGO DO BOTAO
VAMOS USAR OS COMANDOS , HReadFirst,HOut,HReadNext
VAMOS CRIAR OUTRO BOTAO - LENDO ARQUIVO COM FOR EACH
ENTRAR NO CODIGO DO Botao
VAMOS FAZER O CODIGO USANDO FOR EACH
=============
//btn_lendo_arquivos_com_funcoes
TABLE_EMPRESA.DeleteAll() // eliminado dados da tabela
HReadFirst(empresa_v26,empresa_v26ID) // é usado para acessar o primeiro registro de acordo com a chave de pesquisa.
WHILE NOT HOut(empresa_v26) // é usado para descobrir se o fim do arquivo foi atingido.
TABLE_EMPRESA.AddLine(empresa_v26.empresa_v26ID,empresa_v26.nome) // adicionado dados na tabela
HReadNext(empresa_v26) // proximo registro
END
ToastDisplay("finalizado arquivo empresa",toastLong,vaMiddle,haCenter) // mensagem
================
// lendo arquivo com for each
TABLE_EMPRESA.DeleteAll() // eliminado dados da tabela
FOR EACH empresa_v26 // percorre o arquivo empresa ate o final
TABLE_EMPRESA.AddLine(empresa_v26.empresa_v26ID,empresa_v26.nome) // adicionado dados na tabela
END
ToastDisplay("finalizado arquivo empresa",toastLong,vaMiddle,haCenter) // mensagem
===============
// lendo arquivo com for each invertido
TABLE_EMPRESA.DeleteAll() // eliminado dados da tabela
FOR EACH empresa_v26 FromEnd // percorre o arquivo empresa do final ate o inicio
TABLE_EMPRESA.AddLine(empresa_v26.empresa_v26ID,empresa_v26.nome) // adicionado dados na tabela
END
ToastDisplay("finalizado arquivo empresa",toastLong,vaMiddle,haCenter) // mensagem-----------
----
 |
=============== INDICE PERGUNTAS E RESPOSTA
PlayList WebDev tutorial Amarildo Webdev
Playlist Windev Tutorial Amarildo Windev
PlayList Windev Mobile
Amarildo
Donwloads Windev
Windev
WxSolucoes
Matos Informatica
Repositorio Windev
Inscricao Evento Pcsof
Site forum Google
Video sobre 3 Mil Videos Windev
Video sobre Alfaserver servidor
Como realizar uma navegação completa no arquivo?
How to perform a full file browse
Dois métodos podem ser usados para realizar a navegação completa de um arquivo de dados:
Este método usa as funções WLanguage para navegar pelos arquivos de dados:
Neste método:
- HReadFirst é usado para acessar o primeiro registro de acordo com a chave de pesquisa.
- HReadNext é usado para acessar o próximo registro (na ordem da chave de pesquisa).
- HOut é usado para descobrir se o fim do arquivo foi atingido.
Observação : Você tem a capacidade de usar HReadLast e HReadPrevious para realizar uma navegação na ordem inversa.
A instrução FOR EACH é usada para navegar pelos registros encontrados em um arquivo de dados. No nosso caso, esta instrução será usada para ler os registros encontrados em um arquivo de dados.
- o nome do arquivo para navegar
- o nome do índice (ou chave) para classificar os registros
O primeiro registro e o próximo registro são lidos pela instrução FOR EACH. Não há necessidade de usar as funções HReadXXX.
Observação : A palavra DESC permite que você execute uma navegação na ordem inversa.