Delete Record????????????
Vejam só:
procedure TDataModule1.tDepartBeforeDelete(DataSet: TDataSet);
begin
if MessageDlg(´Tem certeza que deseja excluir esse Departamento?´,mtConfirmation,[mbyes,mbno],0)<>mrno then
tDepart.Delete;
end;
qd eu uso este procedimento, mesmo eu marcando o não ele apaga o registro.
e qd eu uso este:
procedure TDataModule1.tDepartBeforeDelete(DataSet: TDataSet);
begin
if MessageDlg(´Tem certeza que deseja excluir esse Departamento?´,mtConfirmation,[mbyes,mbno],0)<>mryes then
abort;
end;
o delphi naum compila dando a seguinte mensagem:
[Error] uDM.pas(87): Statement expected, but expression of type ´Integer´ found
Será q alguem podia me ajudar com este problema?
procedure TDataModule1.tDepartBeforeDelete(DataSet: TDataSet);
begin
if MessageDlg(´Tem certeza que deseja excluir esse Departamento?´,mtConfirmation,[mbyes,mbno],0)<>mrno then
tDepart.Delete;
end;
qd eu uso este procedimento, mesmo eu marcando o não ele apaga o registro.
e qd eu uso este:
procedure TDataModule1.tDepartBeforeDelete(DataSet: TDataSet);
begin
if MessageDlg(´Tem certeza que deseja excluir esse Departamento?´,mtConfirmation,[mbyes,mbno],0)<>mryes then
abort;
end;
o delphi naum compila dando a seguinte mensagem:
[Error] uDM.pas(87): Statement expected, but expression of type ´Integer´ found
Será q alguem podia me ajudar com este problema?
Pabhen
Curtidas 0
Respostas
Henry
23/02/2003
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.......
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.......
GOSTEI 0
Pabhen
23/02/2003
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?
[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?
GOSTEI 0
Henry
23/02/2003
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?
Espero que de certo....SE não der entre em contato comigo...Falow?
GOSTEI 0
Adilsond
23/02/2003
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;
SysUtils.Abort;
GOSTEI 0
Pabhen
23/02/2003
Valeu adilson, o sua dica funcionou direitinho.
Te devo uma
Te devo uma
GOSTEI 0
Anonymous
23/02/2003
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;
procedure TDataModule1.tDepartBeforeDelete(DataSet: TDataSet);
begin
if MessageDlg(´Tem certeza que deseja excluir esse Departamento?´,mtConfirmation,[mbyes,mbno],0)<>mrno then
tDepart.Delete;
end;
GOSTEI 0