Excluindo um registro do ClientDataSet e ao mesmo tempo mostrar qual esta sendo excluído.

Delphi

01/03/2015

Ao excluir um item do estoque, gostaria que me mostra-se a descrição do item a ser excluído junto com a mensagem de confirmação de exclusão. veja código abaixo :

if Application.MessageBox('Deseja realmente excluir este Produto ?','Confirme',
MB_ICONQUESTION+MB_YESNO) = ID_YES then
begin
ClientDataSet_estoque.Delete;
ClientDataSet_estoque.ApplyUpdates(0);
end;

Como poderia então fazer com que apareça a descrição do item que foi selecionado para exclusão ? alguém poderia me ajudar ?
Jhon

Jhon

Curtidas 0

Respostas

Jacques Silva

Jacques Silva

01/03/2015

É só vc fazer esta alteração no código.

if Application.MessageBox('Deseja realmente excluir este Produto: '+ClientDataSet_estoque.FieldByName('Descricao').asString+' ?','Confirme', MB_ICONQUESTION+MB_YESNO) = ID_YES then
begin
ClientDataSet_estoque.Delete;
ClientDataSet_estoque.ApplyUpdates(0);
end;
GOSTEI 0
Jhon

Jhon

01/03/2015

Certo, usando MessageDlg com seu exemplo funciona perfeitamente, porem com Application.MessageBox não esta funcionando, verifique por gentileza como eu fiz:

if Application.MessageBox('Deseja Apagar o Registro ?' +#13 +#13 + 'Código nº : '+
ClientDataSet_estoqueCOD_PRODUTO.AsString + #13 +#13 +
'Descrição: '+ClientDataSet_estoqueDESCRICAO.AsString+'?','Confirme', // Linha do erro.
MB_ICONQUESTION+MB_YESNO) = ID_YES then
begin
ClientDataSet_estoque.Delete;
ClientDataSet_estoque.ApplyUpdates(0);

Oque poderia estar incorreto ?
GOSTEI 0
Renato Rubinho

Renato Rubinho

01/03/2015

Tente colocar a mensagem dentro de PChar()

if Application.MessageBox(PChar('Deseja Apagar o Registro ?' +#13#13 + 
                                                 'Código nº : '+
                                                 ClientDataSet_estoqueCOD_PRODUTO.AsString + #13#13 +
                                                 'Descrição: '+ClientDataSet_estoqueDESCRICAO.AsString + '?') ,
                                        'Confirme', // Linha do erro.
                                        MB_ICONQUESTION+MB_YESNO) = ID_YES then
GOSTEI 0
Jhon

Jhon

01/03/2015

Deu certo, obrigado amigo.
GOSTEI 0
POSTAR