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 

Inserir registro e pesquisar ao mesmo tempo

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Automação Comercial
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
Giovanna
Novato
Novato


Registrado: Quarta-Feira, 25 de Junho de 2008
Mensagens: 36

MensagemEnviada: Qui Dez 25, 2008 4:57 am    Assunto: Inserir registro e pesquisar ao mesmo tempo Responder com Citação

Estou desenvolvendo um programa para controle de supermercado. Quando o caixa ler o código de barras dos produtos com o leitor se o produto não tiver cadastrado quero que apareça uma mensagem produto não cadastrado, por favor cadastre o produto.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
Tchock
Colaborador
Colaborador


Registrado: Domingo, 18 de Julho de 2004
Mensagens: 1242

MensagemEnviada: Sáb Dez 27, 2008 1:58 am    Assunto: Responder com Citação

Boa Noite, Giovanna.

é so vc fazer a busca na sua tebela tipo:

Código:
 if FrmVenda.db_estoque.RecordCount<1 then
     begin
          Erro('Produto não cadastrado no estoque');
          EditCODIGO.SetFocus;
          FrmVenda.db_estoque.Close;
          Exit;
     End;
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Giovanna
Novato
Novato


Registrado: Quarta-Feira, 25 de Junho de 2008
Mensagens: 36

MensagemEnviada: Ter Dez 30, 2008 1:41 am    Assunto: Responder com Citação

Tchock escreveu:
Boa Noite, Giovanna.

é so vc fazer a busca na sua tebela tipo:

Código:
 if FrmVenda.db_estoque.RecordCount<1 then
     begin
          Erro('Produto não cadastrado no estoque');
          EditCODIGO.SetFocus;
          FrmVenda.db_estoque.Close;
          Exit;
     End;

Já tentei usar ese código mas desaparece os registros da tabela. Acho que falta um código pra terminar a pesquisa e mostrar todos os registros da tabela.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
pestana
Colaborador
Colaborador


Registrado: Sábado, 25 de Junho de 2005
Mensagens: 3147
Localização: Araras-SP

MensagemEnviada: Ter Dez 30, 2008 9:25 am    Assunto: Responder com Citação

O problema deve estar como você esta realizando essa pesquisa, talvez a pesquisa não esta satisfazendo as condições que você deseja, por isso que não retorna os registros na query.
_________________
Ao invés de ficar desanimado no que deu de errado, olhe para frente, aprenda com os erros e veja o que ainda pode ser feito. A determinação e a persistência é uma das etapas para o sucesso.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Automação Comercial 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