Estudando Tbrowse

[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 ...

tebrouse.prg

(3.51 KiB) Baixado 129 vezes

Bom final de semana a todos!

[]´s

Netavin

[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.

[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