Pequenas duvidas referentes ao desenvolvimento de um sistema

Question

J� sou um assiduo frequentador desta pagina, mas � a primeira vez que pe�o ajuda. Nunca respondi nada pq ainda tenho poucos conhecimentos sobre programacao.Bom, se alguem quiser me ajudar vou contar a...

Luineumann · Answer

coloque o seguinte comando no evento onposterror da sua tabela

Procedure TForm1.Table1PostError(DataSet: TDataSet; E: EDatabaseError;var Action: TDataAction);
Var
ErroMens :String;
begin
ErroMens := E.Message;
if ErroMens = �Key violation.�
then begin
ShowMessage(�C�digo j� existe!�);
action := daAbort;
end;
end;

Rafael Heise · Answer

Voc� tem como sua chave o campo CAMPO.Ent�o, quando voc� for salvar, fa�a o seguinte:Se voc� n�o estiver filtrando a tabela, voc� pode usar o locate. Caso esteja filtrando, voc� deve usar uma outra Table sem filtro.O melhor mesmo seria usar SQL talvez.Ent�o ai v�o as alteranativas:Table sem filter:Isso voc� coloca no bot�o salvar, bem no come�o[code:1:67b61cc92c]  if Table.Locate(�CAMPO�,DBEdit1.Text,&#91;&93;) then  begin    ShowMessage(�Chave Duplicada�);  end  else  begin    { ... } // Seu c�digo  end;[/code:1:67b61cc92c]SQL:[code:1:67b61cc92c]  Query.Close;  Query.SQL.Clear;  Query.SQL.Add(�SELECT CAMPO FROM TABELA WHERE CAMPO = � + DBedit1.Text);  Query.Open;  if not Query.IsEmpty then  begin    ShowMessage(�Registro Duplicado�)  end  else  begin    {...} //Seu c�digo  end;[/code:1:67b61cc92c]Agora se voc� est� filtrando a table, ent�o voc� deve ter uma outra table para efetuar o locate.beleza?eu sou meio contra fazer no PostError pois voc� n�o est� tratando o erro e sim caso de algum erro ent�o fa�a isso. O tratar erro que digo � fazer c�digo para que evite que o banco ou o pr�prio programa d� um erro. (try except).� isso ae, espero ter sido claro...valeu!...

Cinh0 · Answer

Manow, eu acho melhor voc� utilizar esse campo como auto-incremento, s� assim vc despreocupa e tudo funciona sem problema....

Wagsilvasilva · Answer

Quero agradecer a todos as dicas. Vou tentar implementa-las e dou retorno a todos pra dizer se funcionou. Vou deixar aqui uma mostra de como eu estava tentando fazer a consulta do registro se existia ou nao.
If udmdados.tbdadosfunc.Locate(�Codfunc�,dbedit1.Text,[])
then...

O Zerneo falou algo referente ao filtro utilizado na tabela. Eu utilizo filtros em outra tela (tabsheet) para exibi��o dos dados na Dbgrid. Deve ser isso ent�o que est� ocasionando o erro.

F�rum Pequenas duvidas referentes ao desenvolvimento de um sistema #198328