Nomes duplicados....

Question

pessoal sou novo em Delphi e n tenho muito material p estudo...
estou precisando de uma rotina q n deixe gravar nomes iguais na Tabela, alguem sabe onde posso encontrar ou ainda se tiver agrade�o muito :)!!! valews

Repa · Answer

P/ fazer a verifica��o eu fa�o a compara��o entre o edit (que foi digitado) e o dbedit(que est� na tabela)..
Por ex:
If ((tabela.FindKey([UpperCase(trim(Editnome.Text))]) = True)
then
begin
showmessage(�J� existe o nome na tabela�);
end;

Mas, � muito pouco prov�vel que n�o existam pessoas com o mesmo nome, ent�o sugiro que use + um campo p/ compara��o, por exemplo um documento ou o nome da m�e.

Motta · Answer

Ou solu��o (mais onerosa) � criar um �ndice �nico na tabela, a cria��o depende do bd, mas o �ndice agiliza a busca pelo nome....

Hviana · Answer

[quote:024a414424=�Motta�]Ou solu��o (mais onerosa) � criar um �ndice �nico na tabela, a cria��o depende do bd, mas o �ndice agiliza a busca pelo nome.[/quote:024a414424]blz...mais como eu traduzo essa messagem p/ o usu�rio???...

Reginaldo174 · Answer

vc acha que pode existir dois : jo�o da silva ??
Re: � claro que sim !
Ent�o acho que voce deve usar uma referencia que n�o exista outra iguais por exemplo o CPF, CNPJ, Identidade, etc...

Dessa forma sua aplica��o ficar� mais consistente.

J� que est� iniciando v� ao www.superdownloads.com.br e procure por Deephi.exe . � um arquivo com 1.600 dicas de delphi que funcionam.

Hviana · Answer

[quote:e5e0034ae5=�reginaldo174�]vc acha que pode existir dois : jo�o da silva ??Re: � claro que sim !Ent�o acho que voce deve usar uma referencia que n�o exista outra iguais por exemplo o CPF, CNPJ, Identidade, etc...Dessa forma sua aplica��o ficar� mais consistente.J� que est� iniciando v� ao www.superdownloads.com.br e procure por Deephi.exe . � um arquivo com 1.600 dicas de delphi que funcionam.[/quote:e5e0034ae5]Qndo eu disse �nome� na verdade quis generalizar...no meu caso especifico � um cadastro de m�sicas q n pode ter musicas cadastradas c mesmo nome 2 vezes!!!...

Motta · Answer

blz...mais como eu traduzo essa messagem p/ o usu�rio???

qdo se grava � o indice � violado uma mensagem de erro retorna.

fa�o assim

try
...
excepty
on e:exception do
_begin
____if pos (e.message,�idx_xpto�) > 0 then
_______ShowMessage(�Nome Duplicado�);
_end;
end;

idx_xpto � o nome do indice violado, no Oracle funciona assim ele retorna o objeto que gerou o erro,creioque funciona em outros bd�s , at� os mais simples tipo paradox.

nao tenho certeza da sintaxe da function pos, nunca lembro a ordem ....

Hviana · Answer

[quote:788a45088c=�Motta�]blz...mais como eu traduzo essa messagem p/ o usu�rio???qdo se grava � o indice � violado uma mensagem de erro retorna.fa�o assimtry...excepty  on e:exception do_begin____if pos (e.message,�idx_xpto�) > 0 then_______ShowMessage(�Nome Duplicado�);_end;  end;idx_xpto � o nome do indice violado, no Oracle funciona assim ele retorna o objeto que gerou o erro,creioque funciona em outros bd�s , at� os mais simples tipo paradox.nao tenho certeza da sintaxe da function pos, nunca lembro a ordem ....[/quote:788a45088c]valew galera...vc�s do forun desenrolam tudo...a uni�o faz a for�a heheh :idea:...

Rm · Answer

Tive a necessidade disto a pouco tempo.Sem pesquisar solu��es prontas simplesmente fiz O QUE SEGUE. Experimente � bem pratico. Deleta o registro igual logo apos que inserido e seleciona o j� existente.

Para fazer somente primeira letra maisucula SEMPRE.
procedure TForm1.Table3BeforePost(DataSet: TDataSet);
begin
if table3combina.value<> �� then begin
table3.Edit;
table3combina.value:= UpperCase(Copy(table3combina.value,1,1))+LowerCase(Copy(table3combina.value,2,Length(table3combina.value)));
end;
end;

Para localizar e deletar registros IGUAIS por locate (locaseInsensitive)
TABLE3COMBINA.VALUE � O REGISTRO QUE SERIA PARA TI �MUSICA�.

procedure TForm1.Table3AfterPost(DataSet: TDataSet);
VAR
s:string;
r:integer;
begin
s:=table3combina.value;
r:=table3.RecNo;
Table3.Locate(�combina�,s,[LoCaseInsensitive]);

if table3.RecNo<>r then begin
if table3combina.value=s then begin
showmessage (�Registro j� existe!!Duplica��o foi deletada!Registro j� existente est� selecionado.�);
table3.recno:=r;
table3.delete;
Table3.Locate(�combina�,s,[LoCaseInsensitive]);
end;
end;

end;

SDS/RM

F�rum Nomes duplicados.... #239222