Paradox? Posso utilizar isso ainda?

Question

Amigos, comecei a �programar� (hobby) com Delphi 3 e Paradox. Hoje tenho o Delphi 7. Tenho um sistema pr�prio de minha oficina (sou t�cnico em elet�nica - tenho uma empresa - micro - de assist�ncia t�...

Edilcimar · Answer

O �nico problema com o piradox s�o os �ndices, eles se corrompem f�cil, apesar disto tenho programas rodando com ele em diversos locais sem nenhum problema. Passar para o firebird � melhor, e como voc� j� est� acostumado com �tabelas�, use a paletra do interbase onde voc� tem IBTable, que � uma �tabela� que pode ser utilizada com o firebird da mesma forma que usa uma tabela com o piradox (a diferen�a � muito pouca), al�m disto se usa query, l� tamb�m tem IBQuery. O �nico problema que vai encontrar com o firebird � a inexist�ncia de um campo autoincremento, mas ser olhar por aqui vai ver dezenas de exemplos de cria��o de uma campo �autoincremento�

Gilson.pontes · Answer

�PIRADOX�....... ah ah ah..... gostei. Cara, utilizo o paradox h� mais de quatro anos em meu sistema e nunca ocorreu essa hist�ria de corromper �ndices..... estranho. Somente no in�cio, qdo ainda estava pouco acostumado, � que andou acontecendo uns problemas qdo ocorria pico de luz e desligamento de m�quina, p. exemplo. Mas a�, criei uma rotina p/ salvar fisicamente o registro sempre que havia inser��o ou altera��o... conforme abaixo:

no after post e no after delete...
//
var i: LongInt;
begin
with Table1 do
begin
i := Fields(0).AsInteger;
Close;
Open;
Locate(�Registro�, i, []);
end;
end;

Comecei a utilizar o Firebird, mas esbarrei, p. exemplo, na situa��o de duplo acesso.... No paradox, qdo vc coloca a tabela em �edit�, o paradox n�o permite que outro usu�rio tb a coloque em �edit�. No firebird, isso � permitido e a�...... (?) Tamb�m achei um tanto complexa a configura��o para utiliz�-lo em rede... N�o achei muita coisa (que realmente explicasse direitinho) na internet sobre o assunto.

Bem..... vou continuar a pesquisar e fazer experi�ncias com o firebird... pelo visto, terei que aprender esse neg�cio mesmo.... T� todo mundo usando.....

Abra�o..... e obrigado pela resposta.... t�+

Edilcimar · Answer

as respostas vc acha aqui mesmo no f�rum, na parte interbase/firebird...

Jocelio · Answer

Ol� GILSON.PONTES, tambem tenho um sistema em paradox, n�o entendi a sua rotina :

no after post e no after delete...
//
var i: LongInt;
begin
with Table1 do
begin
i := Fields(0).AsInteger;
Close;
Open;
Locate(�Registro�, i, []);
end;
end;

Poderia me explicar o porqu� do Locate ?

Obrigado.

Jocelio

Jcol_info · Answer

coloque no evento AfterPost e AfterDelete de cada tabela do seu sistema o comando a seguir:

DbiSaveChanges((DataSet as TTable).Handle);

dessa forma, todos os registros ser�o salvos em disco ap�s um Post ou um Delete.

Inclua na sess�o uses a unit BDE.

Eu uso Paradox desde 1998 e nunca tive corrup��o de arquivos.

Gilson.pontes · Answer

Ao amigo Jocelio...o Locate � para que a tabela volte para o registro em que estava antes de ser fechada. Por isso capturo o Registro (ou c�digo - como queira), salvo em uma vari�vel inteira e depois utilizo o valor que est� nessa vari�vel para voltar ao registro. Se n�o fizer o locate, ao reabrir a tabela, ela simplesmente fica no primeiro registro.Ao amigo Jco_info...N�o conhecia esse comando. Vou test�-lo. Como diz um progrmador com quem tenho contato de vez em quando, a rotina por mim criada nada mais � que um �P.O.G.� (programa��o orientada a gambiarras)..... uma alus�o ao P.O.O. (programa��o orientada a objeto)...... eh eh eh.... aposto que n�o � mais �pogado� que o windows....Abra�o a todos....

Jcol_info · Answer

Amigo Gilson,eu tamb�m utilizava uma rotina parecida. Aprendi sobre este comando num santo forum desses por a�!...

Daykas · Answer

Prezado!Quanto a poder usar, se quiser, pode usar at� arquivos de texto, mas precisa ficar atento para as tecnologias que as atuais necessidades necessitam e, sendo assim, paradox j� estaria ultrapassado demais para utiliz�-lo....

Jcol_info · Answer

Concordo em g�nero, n�mero e grau com o Daykas. Se vc tem um sistema em paradox e est� funcionando ou tem que desenvolver um sistema simples e o paradox serve, td bem!!

Mas se vai desenvolver um sistema novo ou at� se pretende melhorar um sistema j� existente, estude novas tecnologias, vc ter� mais recursos, com toda certeza, abandone o Paradox.

Abra�os.

Gilson.pontes · Answer

Muito obrigado a todos..... J� estou batalhando aki com Firebird....

Ent�o... j� q estou come�ando c/ o Firebird... vamos l�...

Criei alguns Trigger�s (opa.... vejam s�, progredi, j� estou at� fazendo trigger... eh eh eh) de autoincremento de �REGISTRO� nas diversas tabelas. At� a� tudo bem.... Por�m... ao chamar o evento Post, ap�s a inclus�o de um cliente, p. exemplo, esse �REGISTRO� n�o aparece, mesmo se, ap�s o evendo post (afterpost) eu puser um CommitRetaining no TIBTransaction..... (a impress�o q eu tenho, � que n�o est� sendo gravado fisicamente no disco o registro inserido, por isso ele n�o est� retornando o �REGISTRO� gerado pelo trigger).

Nesse caso, ao inserir um novo registro de telefone (que � tabela �filha� - detalhe), preciso iniciar (afterinsert) com a atribui��o do �REGISTRO� da tabela clientes no �REG_CLIENTE� da tabela Telefones (p/ manter a integridade referencial)..... certo? Como ainda �n�o existe� o �REGISTRO� da tabela Clientes, o �REG_CLIENTE� da tabela telefones com valor 0 e d� erro se eu executar Post nela, dizendo que n�o existe referencia da chave estrangeira da tabela telefones na tabela clientes.

P/ eu come�ar c/ o p� direito nesse neg�cio, algu�m pode me dar uma �luz�....

Abra�o a todos....

Gandalf.nho · Answer

Que componentes de acesso voc� est� usando?...

Gilson.pontes · Answer

Amigo, estou utilizando paleta InterBase (c/ delphi 7). Mas j� resolvi o problema....

H� uma propriedade do IBDataSet chamada GeneratorField que �traz� o �REGISTRO� da tabela �CLIENTE� gerado no Genarator do firebird. Ali�s, nem precisa fazer nenhuma trigger p/ gerar o �REGISTRO�, basta essa propriedade estar configurada. Com rela��o ao �REG_CLIENTE� da tabela �TELEFONES�, nesse caso teria duas op��es:

1� -> Colocar uma IBTable (p/ TELEFONES) que possuem as propriedades �MasterSource� e �MasterField� - portanto fazem essa depend�ncia - e com isso, gera o �REG_CLIENTE� na tabela �TELEFONES� automaticamente, a partir do �REGISTRO� da tabela �CLIENTES�.

2� -> Utilizar o IBDataSet (IBDataSetTelefones), e, no seu evento afterpost, atribuir ao field �REG_CLIENTE�, o field �REGISTRO� da tabela �CLIENTES�.

De qualquer forma.... agrade�o.... e, � claro, continuo aceitando sujest�es... essas s�o SEMPRE bem vindas....

Gilson.pontes · Answer

s� encontrei agora um problema......n�o consigo editar*, nem deletar*... ele altera/deleta ap�s o post/delete, dou commit (ou commitretraing). Por�m, ao abrir a tabela novamente, o registro est� l� do mesmo jeito (como se n�o tivesse feito nada).(*utilizando IBDataSet) - se eu utilizar o IBTable, consigo salvar edi��o e/ou deletar registro normalmente.Viram.... continuo precisando de sujest�es....... Eita Firebird..... mas eu n�o desisto.......

Gilson.pontes · Answer

errata................2� -> Utilizar o IBDataSet (IBDataSetTelefones), e, no seu evento AFTERINSERT (e n�o afterpost), atribuir ao field �REG_CLIENTE�, o field �REGISTRO� da tabela �CLIENTES�. desculpem-me........

Gandalf.nho · Answer

Em vez de usar o AfterInsert, use OnNewRecord para atribuir o valor que serve para unir as tabelas.

Quanto ao problema de atualizar/excluir, d� uma conferida nas SQLs geradas para essas propriedades, para ver se est�o corretas.

F�rum Paradox? Posso utilizar isso ainda? #349571