Delete Record????????????

Question

Vejam s�:procedure TDataModule1.tDepartBeforeDelete(DataSet: TDataSet);begin  if MessageDlg(�Tem certeza que deseja excluir esse Departamento?�,mtConfirmation,[mbyes,mbno],0)<>mrno then     tDep...

Henry · Answer

Brother, tente assim....

if messagedlg (�Quer deletar o que vc ta deletando?�,mtconfirmation, [mbyes, mbno], 0) = idYes then tableseiladoque.delete else
abort;

se n�o d�.....
tente no lugar do abort, inserir uma rotina que ja esteja sendo usada....
como form1.enabled:= true, algo que nao mude em nada....
.Brother, se n�o conseguir entre em contato comigo.......

Pabhen · Answer

Caleu henry pela for�a mas naum funcionou ainda esta dando esse erro:

[Error] uDM.pas(88): Statement expected, but expression of type �Integer� found

Ser� q tem alguma coisa a ver dessa minha tabela esta dentro de um DATAMODULE?

ser� q eu tenho q usar alguma unit especial pra poder usar esse procedimento?

Henry · Answer

Brother n�o sei, o nome da tua datamodule �: �uDM�? Se for, que eu acho dificil tire a tabela do Datamodule, ou delete e crie outro, e nos meus humildes conhecimentos, � tudo que eu posso te aconselha...
Espero que de certo....SE n�o der entre em contato comigo...Falow?

Adilsond · Answer

O abort existe em mais de uma Unit. Provavlemente voce declarou a unit DBIProcs para poder utilizar o dbisavechanges. Mude seu c�digo para SysUtils.Abort;...

Pabhen · Answer

Valeu adilson, o sua dica funcionou direitinho.Te devo uma...

Anonymous · Answer

Tente trocar ( <> MrNo por <> MRYes ) e teste talves isto o ajude .

procedure TDataModule1.tDepartBeforeDelete(DataSet: TDataSet);
begin
if MessageDlg(�Tem certeza que deseja excluir esse Departamento?�,mtConfirmation,[mbyes,mbno],0)<>mrno then
tDepart.Delete;
end;