Julianop 0 Denunciar post Postado Dezembro 12, 2005 como envio uma mensagem ao usuario quando ele clicar em excluir registro !!quero perguntar se ele tem certeza da opearaçao!um abraço Compartilhar este post Link para o post Compartilhar em outros sites
AbraaoRamiro 1 Denunciar post Postado Dezembro 12, 2005 if MessageDlg('ATENÇÃO:'+#13+#13+'Deseja realmente excluir este cadastro?',mtConfirmation,[mbYes,mbNo],0)<>mrYes then Abort;Table1.delete Compartilhar este post Link para o post Compartilhar em outros sites
wvitorhugo 0 Denunciar post Postado Dezembro 14, 2005 é bom testar para ver c jah está vazia a tabela, pq senaum pode dar erro tentar deletar tabela vazia begin //testa se está vazia a tabela (no meu caso do firebird) if DM_Conexao.Zqry_Produtos.isempty then begin application.MessageBox('Tabela Vazia', 'Impossivel excluir', Mb_OK); EXIT end; if application.MessageBox( 'Deseja excluir o Registro?', 'Responda com atenção', Mb_YesNo+Mb_IconQuestion + Mb_defButton2)=mryes then //deleta DM_Conexao.Zqry_Produtos.Delete; //confirma e atualiza Dm_Conexao.Zqry_Produtos.ApplyUpdates; Dm_Conexao.Zqry_Produtos.CommitUpdates; Dá um commit na CONEXÃO; Dm_Conexao.ZConnection.Commit;end; Compartilhar este post Link para o post Compartilhar em outros sites