TBrowse / Delete

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Avatar do usuário
Netavin
Usuário Nível 3
Usuário Nível 3
Mensagens: 306
Registrado em: 28 Fev 2007 08:37
Localização: Cacoal-RO

TBrowse / Delete

Mensagem por Netavin »

Boa tarde amigos do conselho !!

Até que enfim estou pegando o traquejo no TB !! Isso graças aos incentivos dos amigos do Fórum aliado às dicas.
Neste momento eu gostaria de saber como fazer para excluir um registro através dele. Já vi alguns exemplos de uso do TB, porém até agora não encontrei nada sobre como fazer uma exclusão.

:{

[]´s
Netavin
TK90 / TK95 / APPLE IIe / 286 / 386 / 486 / 586 / AMD Atlhon
" Sem saber que era impossível, foi lá e fez !! "
Hasse
Usuário Nível 4
Usuário Nível 4
Mensagens: 820
Registrado em: 19 Out 2004 10:30
Localização: Jaraguá do Sul - SC

Re: TBrowse / Delete

Mensagem por Hasse »

Nenhum segredo.

Basta dar o comando DELETE ou a função DBDelete() e voilá....

Evidente que se você quer que o registro não mais apareça do TB, é necessário dar o SET DELETED ON. Assim que você der um SET DELETED OFF, todos os registros "deletados" no DBF aparacerão novamente na tela. Veja que a teoria permanece inalterada em relação aos procedimentos anteriores.

Na realidade o TB simplesmente obedece ao arquivo DBF, seus parâmetros e seus SET's. Veja o TB como um simples mas moderno e poderoso apresentador (visualizador) do dados do DBF.

É importante que o TB reconstrua a tela após o DELETE, via um dos métodos de refresh.
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
Avatar do usuário
alaminojunior
Colaborador
Colaborador
Mensagens: 1717
Registrado em: 16 Dez 2005 21:26
Localização: Ubatuba - SP

Re: TBrowse / Delete

Mensagem por alaminojunior »

Eis um fragmento do código que eu utilizo

Código: Selecionar todos

      case tempo = K_DEL
           if wvt_messagebox("C O N F I R M A   O P E R A C A O   ?","A T E N C A O",36) == 6
              bloq(2)
              dele
              dbcommit()
              unlock
           endif           
           pit6:RefreshAll()           
           loop
Compilador xHarbour 1.2.3 + Embarcadero C++ 7.30
MySQL c/ SQLRDD
HwGui + GTWVG
Avatar do usuário
Netavin
Usuário Nível 3
Usuário Nível 3
Mensagens: 306
Registrado em: 28 Fev 2007 08:37
Localização: Cacoal-RO

Re: TBrowse / Delete

Mensagem por Netavin »

Boa noite meus amigos !
Valeu pelas dicas !!!
Captei a mensagem honorável alamino.

Agradecido.
[]´s

Netavin
TK90 / TK95 / APPLE IIe / 286 / 386 / 486 / 586 / AMD Atlhon
" Sem saber que era impossível, foi lá e fez !! "
Responder