dbGrid Recebendo Informações da Tabela de Produtos

Delphi

31/12/2013

Amigos, alguem me conseguiria um exemplo de como eu posso resolver o seguinte problema:

1) tenho uma tela de 'baixa de OS' e preciso adicionar os itens de produtos usados no serviço.
2) Pensei em colocar um botao e um dbgrid. O Botao abriria o cadastro de produto e ao sair o item apareceria no dbgrid.
3) Pensei tambem em colocar um um edit de pesquisa do codigo do produto e, ao inserir atraves de um button, o grid fosse sendo preeenchido.

Como faço, desde a criação da tabela o banco para fazer isso? tem algum link que me eu possa estudar para entender como é feita essa ligação?

Obrigado,

Germano
Lammer Ltda

Lammer Ltda

Curtidas 0

Respostas

Lammer Ltda

Lammer Ltda

31/12/2013

Já resolvi. Obrigado a todos
GOSTEI 0
Joabe Silva

Joabe Silva

31/12/2013

Como foi que você resolveu estou com um problema parecido com o seu , quero pegar os dados do produto e jogar na tela de itens da venda .
GOSTEI 0
Lammer Ltda

Lammer Ltda

31/12/2013

Como foi que você resolveu estou com um problema parecido com o seu , quero pegar os dados do produto e jogar na tela de itens da venda .


procedure TfrmBaixaOS.Button1Click(Sender: TObject);
var
  bbb, ccc: Currency;
begin
  dmCadOS.qryBxItens.Append;
  dmCadOS.qryBxItens.FieldByName('id_BxOS').AsInteger:= dmCadOS.qryBxOS.FieldByName('itens').AsInteger;
  dmCadOS.qryBxItens.FieldByName('descprod').AsString:= DBEdit1.Text;
  dmCadOS.qryBxItens.FieldByName('vlprod').AsFloat:= dmCadOS.qryCadProd.FieldByName('prvenda').AsFloat;
  dmCadOS.qryBxItens.FieldByName('quantidade').AsFloat:= StrToFloat(Edit5.Text);
  bbb:= dmCadOS.qryBxItens.FieldByName('vlprod').AsFloat;
  ccc:= (bbb * StrToFloat(Edit5.Text));
  dmCadOS.qryBxItens.FieldByName('total_item').AsFloat:= ccc;
  dmCadOS.qryBxItens.next;
  Edit4.Clear;
  Edit5.Clear;
  DBEdit1.Clear;
  Edit4.SetFocus;
end;
GOSTEI 0
Joabe Silva

Joabe Silva

31/12/2013

Vlw, Obrigado ... :D
GOSTEI 0
POSTAR