Fórum tabelas paradox #180367

Em relacao a pequisa sem dbnavigator , coloque um edit e use um locate
para procurar o conteudo do que foi digitado, agora se vc tiver um dbgrid
e nao quiser que alterem algum dado use nas propriedades , options,dgEditing := false

8) Aí vai uma dica do programa 800 dicas e truques Delphi....
**********************
A dica abaixo apresenta o código para evitar que o programa pare e envie uma mensagem padrão de erro por Key Violation (Chave Primária).

Para isto, o código deve ser inserido no evento OnPostError do componente de banco de dados (Table ou Query).

Toda vez que ocorrer um erro de gravação no banco de dados este evento será executado, sendo que na variável de parâmetro ´E´ deste procedimento é armazenado a mensagem que será apresentada na tela.

No caso de Key Violation a mensagem é exatamente esta: ´Key violation.´.

Para realizar um tratamento deste erro, testa-se se a mensagem ocorrida é ´Key violation.´, se for verdadeiro o processo de gravação é abortado (Action := daAbort).

Código Completo:

Procedure TForm1.Table1PostError(DataSet: TDataSet; E: EDatabaseError;var Action: TDataAction);
Var
ErroMens :String;
begin
ErroMens := E.Message;
if ErroMens = ´Key violation.´ then begin ShowMessage(´Chave Primária Inválida !´);
action := daAbort;
end;
end;
*****************************
Em relacao a pesquisa sem altera-la
Coloque a propriedade da ttable como readonly=true ou se vc tá usando o dbgrid a mesma coisa readonly=true e para melhorar a consulta use edit e um button onde o onclick do button vc coloca:
ttable.locate(´<<seu_campo>>´,edit.text,[]);
8)
Outra coisa...se vc só programa em java parábens...pois domina-la é dificil...tô me matando pra aprende-la,atualmente estou pesquisando uma solução usando palm´s pra minha faculdade mas programar que bom estou voando.... 8)