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 

Selecionar linha da GRID

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


Registrado: Quinta-Feira, 24 de Outubro de 2013
Mensagens: 24

MensagemEnviada: Ter Jan 28, 2014 7:55 pm    Assunto: Selecionar linha da GRID Responder com Citação

Boa noite,
Como eu posso fazer a seguinte função, somente com a linha selecionada na GRID?

Código:

Query1.Open;
if Query1.FieldByName('ESTOQUE_MINIMO').AsInteger +
Query1.FieldByName('QTD').AsInteger > Query1.FieldByName('SALDO_ATUAL').AsInteger
THEN
begin
ShowMessage('GERAR ORDEM DE PRODUÇÃO');

end
else
begin
ShowMessage('NÃO GERAR ORDEM DE PRODUÇÃO');

Exit;
end;

end;
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
AndersonWorkInfo
Aprendiz
Aprendiz


Registrado: Segunda-Feira, 14 de Outubro de 2013
Mensagens: 222
Localização: Belém - Pará

MensagemEnviada: Qua Jan 29, 2014 6:59 pm    Assunto: Re: Selecionar linha da GRID Responder com Citação

Amigo,

Primeiro vou esclarecer uma coisa pra você.

O DBGrid é só um mostrador do que tem dentro de uma consulta em uma Query, Table ou outro componente que faça função semelhante, então tudo que você vê setado em um DbGrid na verdade está setado também na query.

Então selecione no DbGrid e depois quando for clicar no botão que contém o seu código você faz referencia a query.

Exemplo.

DbGrid1 está setando o registro numero 10 e vc clica para pegar esse dado e colocar em um Label qualquer.

Você faz assim:

Label.Caption := Qry.FieldByName('CampoQVcQuer').AsString;

Experimente.

Espero ter ajudado.

jhonatanvaz escreveu:
Boa noite,
Como eu posso fazer a seguinte função, somente com a linha selecionada na GRID?

Código:

Query1.Open;
if Query1.FieldByName('ESTOQUE_MINIMO').AsInteger +
Query1.FieldByName('QTD').AsInteger > Query1.FieldByName('SALDO_ATUAL').AsInteger
THEN
begin
ShowMessage('GERAR ORDEM DE PRODUÇÃO');

end
else
begin
ShowMessage('NÃO GERAR ORDEM DE PRODUÇÃO');

Exit;
end;

end;
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Visitar a homepage do Usuário MSN Messenger
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