TFDQuery et message de suppression

Version imprimable

17/09/2023, 10h15
Papy214

TFDQuery et message de suppression

Bonjour

Je cherche le moyen d'empêcher TFDQuery d'afficher le message "Supprimer l'enregistrement ?" quand on veut supprimer l'enregistrement en cours.
Pourquoi ? Parce que j'ai mis mon propre message d'avertissement dans le OnBeforeDelete.

Est-ce possible de faire ça à votre avis ?
17/09/2023, 13h53
ShaiLeTroll

Ce n'est pas le TFQuery qui affiche le message mais souvent le TDBNavigator.ConfirmDelete
17/09/2023, 14h14
Papy214

Je n'avais pas vu cette cette propriété.
Ca règle le problème avec le DBNavigator.
Mais si je sélectionne une ligne sur la grille et que je fais Ctrl Suppr, il affiche le message que je ne veux pas. :-(
18/09/2023, 08h06
SergioMaster

Bonjour,

Idem que pour le DBNavigator le DBGrid à une propriété Options.dgConfirmDelete qui est à true par défaut
18/09/2023, 10h15
Paul TOTH

tu peux aussi jouer sur le FDQuery.BeforeDelete et utliser Abort() pour l'interdire le cas échéant

Citation:

Envoyé par Paul TOTH

tu peux aussi jouer sur le FDQuery.BeforeDelete et utliser Abort() pour l'interdire le cas échéant

J'ai fait ça mais ça ne change rien.

Code:

1
2
3
4
5
6
7
8
9
10
11
 
procedure TDMOptions.FDQueryAutorProfBeforeDelete(DataSet: TDataSet);
begin
  if Confirme(Format('Êtes vous sûr de vouloir enlever l''autorisation "%s" du profil "%s"',
    [DMOptions.FDQueryAutorProf.FieldByName('Libelle').AsString, DMOptions.FDTableProfils.FieldByName('Libelle')
    .AsString])) then
    FDCnxOptions.ExecSQL('DELETE FROM AutorisationsProfile where ClefAutorisation = :ca and ClefProfile = :cp',
      [FDQueryAutorProfClefAutorisation.AsInteger, FDQueryAutorProfClefProfil.AsInteger]);
  FDQueryAutorProf.Refresh;
  Abort;
end;

18/09/2023, 10h24
Papy214

Citation:

Envoyé par SergioMaster

Bonjour,

Idem que pour le DBNavigator le DBGrid à une propriété Options.dgConfirmDelete qui est à true par défaut

Je l'avais ratée celle-ci aussi.
Décidément, fait pas bon vieillir :calim2:
A ma décharge je cherchais plutôt un point central côté composant de données. :)

Merci

Citation:

Envoyé par Papy214

J'ai fait ça mais ça ne change rien.

Non, il faut simplement faire un Abort pour annuler le Delete, sinon on laisse faire

Code:

1
2
3
4
5
6
7
8
 
procedure TDMOptions.FDQueryAutorProfBeforeDelete(DataSet: TDataSet);
begin
  if  NOT Confirme(Format('Êtes vous sûr de vouloir enlever l''autorisation "%s" du profil "%s"',
    [DMOptions.FDQueryAutorProf.FieldByName('Libelle').AsString, DMOptions.FDTableProfils.FieldByName('Libelle')
    .AsString])) then
    Abort;
end;

18/09/2023, 10h45
SergioMaster

Citation:

Envoyé par Papy214

Décidément, fait pas bon vieillir :calim2:

je plussoie, surtout si tu y ajoutes une interruption involontaire assez longue causant un sevrage Delphi.
Ma retraite dans 3 mois désormais n'arrange pas la sauce :lol:
18/09/2023, 11h25
Papy214

Citation:

Envoyé par SergioMaster

je plussoie, surtout si tu y ajoutes une interruption involontaire assez longue causant un sevrage Delphi.
Ma retraite dans 3 mois désormais n'arrange pas la sauce :lol:

Tu feras comme moi (depuis début janvier). Tu continueras pour t'occuper et pour éviter que le cerveau dépérisse trop vite ;)