Um clippeiro perdido no Delphi !

Question

Estou tentando desenvolver um sistema em Delphi 6.0 com Interbase, mas est� meio dificil, a maioria dos livros e exemplos na internete � com componetes vinculados com o Banco (DBEdit, DBGrid etc...)Al...

Okama · Answer

Sauda��es Clippeiro, � sempre uma emo��o encontrar um programador Clipper.

Para tal tratamaneto verifique o Help do componente que voc� est� usando.

IbTable1.Insert;
IbTable1.FieldByName(�Codigo�).Value := 10;
IbTable1.FieldByName(�Nome�).Value := �Clipper�;
IbTable1.FieldByName(�Descricao�).Value := �A Melhor Ferramenta para DOS�;
IbTable1.Post;

----
Edit1.Text := IbTable1.FieldByName(�Nome�).AsString;

----
IbTable1.Delete;

----
IbTable1.Edit;
<comandos>
IbTable1.Post;

Isaac Cavalcanti · Answer

Realmente nao entendi, oq vc quiz dizer por travar o registro, explique melhor...

Andersonc · Answer

O Interbase possui um mecanismo de controle interno de transa��es.
Neste caso, em delphi com Interbae, n�o � necess�rio realizar o controle de bloqueio de registro pela aplica��o.
O interbase trabalha com uma forma otimista de grava��o do registro, de modo a tratar a concorr�ncia no momento da efetiva��o do registro, se o mesmo estiver em edi��o retorna um erro a aplica��o denominado Record locked... Basta tratar este erro e tentar novamente.
Voc� tamb�m pode controlar a transa��o, com TDATABASE.StartTransaction; TDATABASE.COMMIT; TDATABASE.ROLLBACK, isto para o caso da utiliza��o do BDE. Para IBX ou DBExpress o processo � quase parecido.
Exemplo:

dbteste.StartTransaction;
...
try
// manipula��es com table ou query, efetivando altera��es em banco de dados
...
dbteste.commit;
except
dbteste.Rollback
end;

ou seja, executa um atransa��o em um bloco protegido, caso n�o consiga
executar at� a efetiva��o do commit (causando uma excess�o) desfaz toda a altera��o feita desde o momento do starttransaction.

Okama · Answer

N�o seria �tratar� ao inv�s de �travar� ??...

Alcino · Answer

amigo�p, quem escreve � um programador clipper e delphi ao mesmon tempo.
Para voce travar um registro, basta coloc�-lo em modo de edi��o.
Ex.:

tbcliente.active:=true;
tbcliente.first;
tbcliente.edit; // coloca em edi��o e trava o registro automaticamente.
tbcliente.post; // grava e destrava o registro

__________________________________
ALSOFT -Sistemas e Softwares
http://alsoft.cjb.net
(0xx91) 9634-0617/9166-3386
Alcino Pamplona

Brazoli · Answer

tamb�m sou clippeiro, (meio enferrujado, mas sou).

Veja bem, se vc tem certeza que seu sistema vai rodar somente no Interbase, aconselho a usar os componentes da Palheta Interbase.
IbDatabase, IbTransaction e o IbQuery. � uma maravilha, pelos menos penso assim.
Quanto ao travamento, como ja disseram os colegas, o interbase j� faz a parte dele, mas claro que vc pode criar suas pr�prias regras. Mas � sempre bom deixar o pr�prio gerenciador fazer o que sabe fazer..
Seja bem vindo � comunidade delphi.