Fórum Nova linha no DBGRID #441158

27/04/2013

0

Delphi

Aee galera eis a minha dúvida , estou criando um sistema básico de estoque , e coloco para pesquisar no estoque e dou um tab ele vai pra outra janela e me mostra em um dbgrid alguma coisa q contenha oq eu digitei , até ai tudo bem , ae eu clico no botao adicionar, esse botao adiciona nome do produto no form de venda , ae é que vem a minha dúvida , ele não está puxando o código do produto , apenas o nome , como eu faço para que ele identifique o nome e o código junto e jogue pro form de vendas ???

ae vai o codigo q eu já fiz 


procedure TF_Consulta_Estoque.BitBtn1Click(Sender: TObject);
begin
    dm_dados.Tabela_Saida_ProdutoNOME_PRODUTO.value := dbgrid1.SelectedField.Value;

end;

procedure TF_Consulta_Estoque.DBGrid1Enter(Sender: TObject);
begin
    dm_Dados.QueryEstoque.Close;
    dm_dados.QueryEstoque.ParamByName('nome').AsString := '%'+F_Venda.editPesquisar.Text+'%';
    dm_Dados.QueryEstoque.Open;

end;
Rodrigo Alexandrino

Rodrigo Alexandrino

Responder

Posts

27/04/2013

Joel Rodrigues

Ao invés de pegar o valor do DBGrid, pegue do dataset ao qual o grid está ligado. Por exemplo:
alguma_coisa := tabelaDoGrid.FieldByName('nome do campo').Value;

Responder

Gostei + 0

28/04/2013

Rodrigo Alexandrino

nao entendi muito bem , o que seria esse "alguma coisa " ??
e outra , no fieldbyname eu posso colocar o codigo do produto e o nome , ou somente um ?
Responder

Gostei + 0

28/04/2013

Deivison Melo

Quando está digitando a sessão atual que vc está, não está mostrando o código do produto
antes de vc salvar (pressionar post ou commitar), caso realmente deseje exibir o número,
vc deverá pegar essa informação utilizando o evento BeforeInsert.
Responder

Gostei + 0

28/04/2013

Rodrigo Alexandrino

Bom eu usei esse comando 
dm_dados.Tabela_Saida_ProdutoCOD_PRODUTO.Value := dbgrid1.SelectedIndex;

mas ele está pegando o primeiro registro , gostaria de saber se tem como eu usar o locate de alguma forma ae ele localizava o codigo e jogava no dbgrid do form de venda , se sim , gostaria de exemplos
Responder

Gostei + 0

28/04/2013

Rodrigo Alexandrino

Ae gente consegui resolver meu problema , agradeço a todos q ajudaram :D

aqui vai o código pra quem tbm estiver com esse problema (depois q eu fiz achei tão besta kkkkkkkk)

procedure TF_Consulta_Estoque.BitBtn1Click(Sender: TObject);
begin
    dm_Dados.Tabela_Saida_Produto.Append;

    dm_dados.Tabela_Saida_ProdutoNOME_PRODUTO.value := dbgrid1.SelectedField.Value;
    dm_dados.Tabela_Saida_ProdutoCOD_PRODUTO.Value := dm_Dados.QueryEstoqueCODIGO.Value;
end;
Responder

Gostei + 0

28/04/2013

Joel Rodrigues

Pois é, bastante simples. É o mesmo que usar o FieldByName que eu falei.
Ah, aconselho fazer o mesmo para o campo NOME_PRODUTO.
Bem, então estou marcando este tópico como Concluído.
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar