ActiveDelphi

[Rogazzi]

Olá Amigos!

Estou com um problema e garimpando na net sempre achei a mesma solução, porém no meu sistema não funciona.

Estou tentando ver o estado da tabela na hora da gravação dos dados para aparecer a mensagem de item gravado com sucesso ou item alterado com sucesso.

Segue o meu código (que não está funcionado)

if intConfirmaGravar = IDYES then
begin
DMSistema.QConfigEmail.Post;

if DMSistema.QConfigEmail.State = dsInsert then
begin
Application.MessageBox(Pchar('Conta ' +
DMSistema.QConfigEmailNomeConta.AsString + ' Cadastrada com Sucesso!'),
PChar(strNomeSistema + ' - Aviso'), Mb_Ok + Mb_IconInformation);
end;

if DMSistema.QConfigEmail.State = dsEdit then
begin
Application.MessageBox(Pchar('Conta ' +
DMSistema.QConfigEmailNomeConta.AsString + ' alterada com sucesso!'),
PChar(strNomeSistema + ' - Aviso'), Mb_Ok + Mb_IconInformation);
end;
btnCancelarClick(FormCadContaEmail);
end
else
begin
btnCancelarClick(FormCadContaEmail);
end;

Estou usando o FireDac com TFDQuery e também já coloquei Data.DB na uses.

Como dito acima, sem sucesso.

Abraço

[imex]

Boa tarde,

Acho que você teria que verificar a propriedade State antes da execução do método Post, pois o State será alterado em caso de sucesso na execução desse método.
Segue uma sugestão de código para testes:

[Rogazzi]

Valeu a ajuda imex, era isso mesmo.
Deu certo.
Muito obrigado!!