ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Verificação de Registros

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
lucasdfp
Novato
Novato


Registrado: Terça-Feira, 14 de Julho de 2009
Mensagens: 37

MensagemEnviada: Qua Nov 25, 2009 8:20 am    Assunto: Verificação de Registros Responder com Citação

Bom dia pessoa,

Sei que parece meio bobo, mais está dando erro agora no meu...
Eu quero fazer a verificação de RG e CPF, ou seja, verificar se eles estão cadastrados. Porém eu estou usando IBExpert e Firebird e quando inicio um cadastro clico em Novo para começar a inserir os dados...coloquei a verificação no evento onExit porem como está inserindo na tabela ele acusa existente....por exemplo..tenho na tabela 1,2,3,4,5,6,7,8,9 e eu começo a digitar 10 após eu sair do edit ele acusa tbm pois está sendo inserido automaticamente....como eu faço essa verificação?...

Obrigado
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
adriano_servitec
Colaborador
Colaborador


Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618

MensagemEnviada: Qua Nov 25, 2009 8:25 am    Assunto: Re: Verificação de Registros Responder com Citação

lucasdfp escreveu:
Bom dia pessoa,

Sei que parece meio bobo, mais está dando erro agora no meu...
Eu quero fazer a verificação de RG e CPF, ou seja, verificar se eles estão cadastrados. Porém eu estou usando IBExpert e Firebird e quando inicio um cadastro clico em Novo para começar a inserir os dados...coloquei a verificação no evento onExit porem como está inserindo na tabela ele acusa existente....por exemplo..tenho na tabela 1,2,3,4,5,6,7,8,9 e eu começo a digitar 10 após eu sair do edit ele acusa tbm pois está sendo inserido automaticamente....como eu faço essa verificação?...

Obrigado
Primeiramente fica mais facil de ajudar se vc postar o método que usa para inserir;

Segundo, a maneira que eu utilizo para verificar se ja existe registro cadastrado é fazer um select pasando a variavel para o paramentro e usando um is not empty para ver se existe na tabela.
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
lucasdfp
Novato
Novato


Registrado: Terça-Feira, 14 de Julho de 2009
Mensagens: 37

MensagemEnviada: Qua Nov 25, 2009 8:37 am    Assunto: Responder com Citação

para inserir eu clico é... dm.tabela.insert
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
lucasdfp
Novato
Novato


Registrado: Terça-Feira, 14 de Julho de 2009
Mensagens: 37

MensagemEnviada: Qua Nov 25, 2009 8:40 am    Assunto: Responder com Citação

clico em NOVO...
comando
dm.tabela.insert
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
lucasdfp
Novato
Novato


Registrado: Terça-Feira, 14 de Julho de 2009
Mensagens: 37

MensagemEnviada: Qua Nov 25, 2009 9:32 am    Assunto: Responder com Citação

alguem sabe?
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
adriano_servitec
Colaborador
Colaborador


Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618

MensagemEnviada: Qua Nov 25, 2009 10:26 am    Assunto: Responder com Citação

Quais componentes vc usa, da paleta Standard ou Data Controls, e post também o código que vc está fazendo no onexit para verificar se ja existe os dados no banco...
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
lucasdfp
Novato
Novato


Registrado: Terça-Feira, 14 de Julho de 2009
Mensagens: 37

MensagemEnviada: Qua Nov 25, 2009 10:43 am    Assunto: Responder com Citação

no onexit eu uso o locate

dm.tabelacampo.locate('',edit,[]);

o problema é que ele sempre acha e quando nao acha ele posiciona a tabela em algum registro...

como eu faço pra qdo ele nao achar ele continuar cadastrando e nao posicionar a tabela em algum registro?

valeu
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
adriano_servitec
Colaborador
Colaborador


Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618

MensagemEnviada: Qua Nov 25, 2009 10:52 am    Assunto: Responder com Citação

lucasdfp escreveu:
no onexit eu uso o locate

dm.tabelacampo.locate('',edit,[]);

o problema é que ele sempre acha e quando nao acha ele posiciona a tabela em algum registro...

como eu faço pra qdo ele nao achar ele continuar cadastrando e nao posicionar a tabela em algum registro?

valeu
Bom au deduzi que vc esta udando EDITS ja que não postou quais componente esta usando.

Faça um select no onexit então


Código:
select * from tabela
where campo = :parametro
parambyname('parametro').asstring := edit.text;
open;
if not isempty then
begin
   messagedlg(edit.text+' '+já cadastrado no banco de dados, mtinformation, [mbok], 0);
   edit.setfocus;
  //continue ou finalize o bloco
end;
end;

_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
lucasdfp
Novato
Novato


Registrado: Terça-Feira, 14 de Julho de 2009
Mensagens: 37

MensagemEnviada: Qua Nov 25, 2009 2:28 pm    Assunto: Responder com Citação

Amigão deu certo, mais eu fiz de outra forma...eu estava errando pois como eu estava insereindo direto no ttable sempre verificava que já existia, eu então criei um query e fiz uma consulta simples através da query e deu certo...valeu ae
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
adriano_servitec
Colaborador
Colaborador


Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618

MensagemEnviada: Qua Nov 25, 2009 2:41 pm    Assunto: Responder com Citação

lucasdfp escreveu:
Amigão deu certo, mais eu fiz de outra forma...eu estava errando pois como eu estava insereindo direto no ttable sempre verificava que já existia, eu então criei um query e fiz uma consulta simples através da query e deu certo...valeu ae
Só um detalhe, acompanho a algum tempo o forum, e vejo que muitos programadores utilizam o TTable, para criar projetos, até que é valido, pois se o componente esta ali e conecta com o banco, ok...Mas isso para um sistema local bem basico é o suficiente, mais se for pensar mais além, tipo um sistema client/server, ai amigo, aconselho jamais usar o TTable.
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
lucasdfp
Novato
Novato


Registrado: Terça-Feira, 14 de Julho de 2009
Mensagens: 37

MensagemEnviada: Qua Nov 25, 2009 2:43 pm    Assunto: Responder com Citação

Opa valeu pela dica, eu faço sistemas básicos, por isso que uso o TTable...apenas sistemas internos da empresa aqui.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB