quarta-feira, 6 de março de 2019
So salvar se o banco estiver em edição
if dm.Q_funcionarios.State in [DsEdit] then
begin
dm.Q_funcionarios.Post;
MessageDlg('Foi salvo com sucesso!',mtInformation,[mbOk],0);
end
else if dm.Q_funcionarios.State in [DsInsert] then
begin
dm.Q_funcionarios.Post;
MessageDlg('Foi salvo com sucesso!',mtInformation,[mbOk],0);
end;
Assinar:
Postar comentários (Atom)
📌 Tela de Splash, Tela de Login e Tela Principal em Delphi: Aprendendo na Prática
No desenvolvimento de sistemas, a experiência do usuário começa muito antes de utilizar as principais funcionalidades do software. Elemen...
Um comentário:
so um ajuste:
if (dm.Q_funcionarios.State in [DsEdit, dsInsert]) then
begin
dm.Q_funcionarios.Post;
MessageDlg('Foi salvo com sucesso!',mtInformation,[mbOk],0);
end;
Postar um comentário