Valor DBComboBox - Delphi

19/11/2020

7

Boa tarde!!
Precisando mais de uma ajuda galera, parece ser simples, mais não conseguir resolver ainda, e por isso peço a ajuda de vocês.

No meu formulário tenho 2 DbComboBox, e os mesmo estão conectados no meu datasource. Tenho botão novo e botão salvar, no botão novo quando é pressionado a minha Query fica no modo insert e os DbComboBox recebe um valor padrão, Mais quando clico em gravar esses valores some, e os valores não aparece no meu banco de dados.

Código:
Botão Novo:
procedure TFrmCadProdutos.BtnNovoProdutosClick(Sender: TObject);
begin
QryCadProdutos.Active := true;
UnitDataModule.DMUnilite.FDUniLite.Commit;
QryCadProdutos.Insert;
QryCadProdutos.FieldByName('EST_MINIMO').Value := '0,00';
QryCadProdutos.FieldByName('EST_MAXIMO').Value := '0,00';
QryCadProdutos.FieldByName('EST_ATUAL').Value := '0,00';
QryCadProdutos.FieldByName('P_CUSTO').Value := '0,00';
QryCadProdutos.FieldByName('P_COMPRA').Value := '0,00';
QryCadProdutos.FieldByName('P_VENDA').Value := '0,00';
QryCadProdutos.FieldByName('PERCENTUAL').Value := '0,00';
QryCadProdutos.FieldByName('P_VENDA_PRAZO').Value := '0,00';
DBComboBox1.ItemIndex := 33;
DBComboBox2.ItemIndex := 33;
BtnNovoProdutos.Enabled := false;
BtnEditarProdutos.Enabled := false;
BtnExcluirProdutos.Enabled := false;
DBEditDescricaoProduto.SetFocus;
end;

Botão Gravar:

procedure TFrmCadProdutos.BtnGravarProdutosClick(Sender: TObject);
begin
DBEditDtaCadastro.Text := DateTimeToStr(now);
QryCadProdutos.Post;
MessageBox(handle,'Produto Cadastrado com sucesso!','Sistema Unilite', MB_OK or MB_ICONINFORMATION);
UnitDataModule.DMUnilite.FDUniLite.Commit;
BtnNovoProdutos.Enabled := true;
BtnEditarProdutos.Enabled := true;
BtnExcluirProdutos.Enabled := true;
end;
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar