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 

função locate

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


Registrado: Terça-Feira, 6 de Julho de 2010
Mensagens: 4

MensagemEnviada: Qua Fev 22, 2012 3:51 pm    Assunto: função locate Responder com Citação

Meus amigos será que alguém pode me ajudar?
É o seguinte, estou acrecentando produto, no dbgrid na tela de vendas. Supomos que eu já tenha colocado varios produtos, 06 por exemplo, quando estou colocando o último, digamos que sem querer repito o primeiro produto, nesse caso queria que o sistema informasse, 'Produto já lançado', e deletasse o mesmo, ou então travasse a navegação no dbgrid, ficasse apenas no item em questão, até que mudasse o ítem, ou deletasse.

Quando uso a opção locate:
if tabela_vendas.locate('nome',tabela_Temp['Nome'],[]);
o sistema procura o item repetido, que foi lancado primeiro.

aí é que estar o problema queria que o sistema soubesse que estar sendo repetido ítem, mais que não fosse selecionar o ítem repetido.
uso delphi 7 banco de dados access, e Paradox
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
leandroksc
Profissional
Profissional


Registrado: Quinta-Feira, 29 de Setembro de 2011
Mensagens: 528

MensagemEnviada: Qua Fev 22, 2012 4:22 pm    Assunto: Responder com Citação

Tente desta forma:
Código:

var
  Point: Pointer;
begin
  Point := Tabela_Vendas.GetBookmark;
  Tabela_Vendas.DisableControls;
  if tabela_vendas.locate('nome',tabela_Temp['Nome'],[]) then
    Result := True;
  Tabela_Vendas.GotoBookmark(Point);
  Tabela_Vendas.EnableControls;
end;
 
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Visitar a homepage do Usuário
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