Página 1 de 1
Estudando Tbrowse
Enviado: 10 Mai 2008 10:04
por Netavin
Bom dia pessoal!
Após verificar que outros colegas estão estudando o Tbrowse, resolvi entrar de sola.
Vi um exemplo de programação com Tbrowse. Compilei para ver seu funcionamento, mas não surtiu nenhum efeito. Se puderem dar uma olhada ...
Bom final de semana a todos!
[]´s
Netavin
Re: Estudando Tbrowse
Enviado: 10 Mai 2008 14:35
por rochinha
Amiguinho
Só de olhar o codigo deu pra ver que ele cria uma estrutura, preenche com dados aleatorios e abre o browse pra visualizar, o resto fica por sua conta.
Acrescente:
Código: Selecionar todos
...
elseif nkey == K_CTRL_RIGHT
oMybrowser:panRight()
...
elseif nkey == K_INSERT
// Coloque aqui sua rotina de inclusao de dados. Não esqueça do dbSelectArea( "CUSTOMER" )
elseif nkey == K_DELETE
// Coloque aqui sua rotina de exclusao de dados. Não esqueça do dbSelectArea( "CUSTOMER" )
...
elseif nkey == K_ESC
exit
endif
...
Suas rotinas extras podem selecionar outras areas, fazer GETs, etc, mas antes de atualizar o CUSTOMER.DBF voce deve usar dbSelectArea( "CUSTOMER" ) para não quebrar o TBrowse.
Re: Estudando Tbrowse
Enviado: 10 Mai 2008 18:07
por sygecom
De uma olhada nesse pequeno exemplo em anexo de Letra a Letra com TBROWSE que foi copiado do site do Toledo que usava dbedit().
Abraços
Leonardo Machado
tebrouse.prg