Fórum PORFAVOR ALGUEM ME AJUDA #499320
27/10/2014
0
ONDE O CAMPO ETI_NUMERO QUE E UMA CHAVE PRIMARIA
SEM QUE SEJA AUTO ICREMENT POIS TENHO QUE DIGITAR A ETIQUETA E ELA NÃO PODE SE REPETIR EIS AI MINHA DUVIDA
TENHO QUE FAZER UM LOCATE NA TABELA MAIS NAO TO CONSEGUINDO SEMPRE DA ERRO
ESTOU USANDO ESSE CODIGO AQUI:
if (DM_1.TBL_ETIQUETAS.Locate('RC_ETI_NUN',txt_11.Text,[])) then
ShowMessage('Etiqueta ja cadastrada Nº' +txt_11.Text')
else
Begin
End;
COLOQUEI ESSE CODIGO NO ONEXIT DO EDIT MAS TODA VES QUE EU DIGITO UM NOVO NUMERO MESMO QUE NAO TENHA NO BANCO ELE ME MOSTRA A MENSAGEN
'Etiqueta ja cadastrada Nº' CARA SEI QUE ISSO E SIMPLES MAIS SO NOVO EM DELPHI ALGUEM ME AJUDA PELO O AMOR DE DEUSSSSSSSSSSSSSSSSSSS!
Naldo/danillo
Curtir tópico
+ 0Post mais votado
27/10/2014
ou
if (DM_1.TBL_ETIQUETAS.Locate('RC_ETI_NUN',txt_11.Text,[])) = true then
ShowMessage('Etiqueta ja cadastrada Nº' +txt_11.Text')
else
Begin
End;
Ricardo
Gostei + 1
Mais Posts
28/10/2014
Naldo/danillo
mas nao deu serto; dae fiz o seguinte
troquei o chave para o numero da etiqueta que se tornou uma chave primaria ate ae beleza; agora eu queria que ao inves de mostrar o codigo de erro do delphi tipo esse
"#23000Duplicite entry 'numero da minha etiqueta que ja exixte no banco'for key 'primary'"
para uma que eu mesmo personalize; eu nao quero dexistir cara mais ta dificil podes me ejudar?
Gostei + 0
28/10/2014
Ricardo
Gostei + 1
28/10/2014
Naldo/danillo
procedure Tfrm_PLP.ManipulaExcecoes(Sender: TObject; E: Exception);
begin
txt_11.Color:=clRed;
TXT_26.Text:='Etiqueta Nº '+txt_11.Text+ ' Já existe!';
img2.Visible:=True;
MessageDlg( #13 +
'VOCÊ ESTA TENTANDO CADASTRAR UMA ETIQUETA QUE JA EXISTE NO SISTEMA!' +
'',
mtError, [mbOK], 0);
txt_11.Color:=$0080FFFF;
txt_11.Text:='';
txt_11.SetFocus;
end;
TIPO UMA EXCESSÃO E DEU SERTO BRIGADO MANO
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)