F�rum dbGrid Recebendo Informa��es da Tabela de Produtos #465417

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

Curtir t�pico

+ 0

Responder

Posts

03/01/2014

Lammer Ltda

J� resolvi. Obrigado a todos

Responder

Gostei + 0

05/01/2014

Joabe Silva

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 .

Responder

Gostei + 0

05/01/2014

Lammer Ltda

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;

Responder

Gostei + 0

05/01/2014

Joabe Silva

Vlw, Obrigado ... :D

Responder

Gostei + 0