Fórum Inclusão pelo Combobox #463451

 // Rotina para preencher o ComboBox com os Produtos
  DataModule.tbProdutos. first;
  while not DataModule.tbProdutos.Eof do
  begin
    dbcProdutos.Items.Add(DataModule.tbProdutosNOME_PRODUTO.AsString);
    DataModule.tbProdutos.Next;
  end;

  // se não houver rgistro no Banco ele salva o novo Produto
if not (DataModule.tbProduto.Locate('NOME_PRODUTO', dbcProdutos.Text,[])) then
    if Application.MessageBox('Produto Não Encontrado! Deseja Incluir? ','Pergunta',
                            MB_YESNO+MB_ICONQUESTION+MB_DEFBUTTON2) <> IDNO then
    begin
      DataModule.tbProduto.Insert;
      DataModule.tbProdutoNOME_PRODUTO.AsString := dbcProdutos.Text;
      DataModule.tbProduto.Post;
      dbcProduto.Items.Add(dbcProduto.Text);
  end;