Evento no Before Delete - Zeos
Olá,
Boa tarde a todos. Estou tendo um probleminha na execução de um evento no before delete no zeos. Estou colocando uma confirmação no before delete e não sei como cancelar ou confirmar a exclusão do registro. Se alguém já passou por isso, gentileza postar aqui.
Obrigado,
Att
Dalton Fernando
Boa tarde a todos. Estou tendo um probleminha na execução de um evento no before delete no zeos. Estou colocando uma confirmação no before delete e não sei como cancelar ou confirmar a exclusão do registro. Se alguém já passou por isso, gentileza postar aqui.
Obrigado,
Att
Dalton Fernando
Dbergkamps10
Curtidas 0
Respostas
Silviogs
09/01/2007
Olá amigo
type
TDataMPadrao = class(TDataModule)
Conexao: TZConnection;
.
.
.
.
procedure DeletaRegistro(DataSet: TDataSet);
private
{ Private declarations }
public
.
.
.
.
procedure TDataMPadrao.DeletaRegistro(DataSet: TDataSet);
begin
if Messagedlg(MENSAGEM_DLG,mtconfirmation,[mbYes,mbNo], 0) then mryes
Abort;
end;
coloque nos eventos beforedelete das querys DeletaRegistro e todos os eventos de suas querys passarão a ter o mesmo evento para permitir ou não a exclusão do registro.
Obs: MENSAGEM_DLG é uma variável golbal que recebe a mensagem que vc deseja.
ex:
procedure TFrmHistoricoLancamentosCAD.DBNavClick(Sender: TObject;
Button: TNavigateBtn);
begin
if (Button = nbPost) or (Button = nbDelete) or (Button = nbCancel) then begin
if Button = nbDelete then begin
MENSAGEM_DLG := ´Deseja deletar este lançamento S/N´;
end;
Calcula_Totais(Sender);
end;
end;
Silvio Guedes
type
TDataMPadrao = class(TDataModule)
Conexao: TZConnection;
.
.
.
.
procedure DeletaRegistro(DataSet: TDataSet);
private
{ Private declarations }
public
.
.
.
.
procedure TDataMPadrao.DeletaRegistro(DataSet: TDataSet);
begin
if Messagedlg(MENSAGEM_DLG,mtconfirmation,[mbYes,mbNo], 0) then mryes
Abort;
end;
coloque nos eventos beforedelete das querys DeletaRegistro e todos os eventos de suas querys passarão a ter o mesmo evento para permitir ou não a exclusão do registro.
Obs: MENSAGEM_DLG é uma variável golbal que recebe a mensagem que vc deseja.
ex:
procedure TFrmHistoricoLancamentosCAD.DBNavClick(Sender: TObject;
Button: TNavigateBtn);
begin
if (Button = nbPost) or (Button = nbDelete) or (Button = nbCancel) then begin
if Button = nbDelete then begin
MENSAGEM_DLG := ´Deseja deletar este lançamento S/N´;
end;
Calcula_Totais(Sender);
end;
end;
Silvio Guedes
GOSTEI 0
Dbergkamps10
09/01/2007
obrigado
Valeu msmo
Valeu msmo
GOSTEI 0