Canclose [Résolu]

Question

Posez votre question Signaler

Canclose [Résolu]

pierrotk10d

Messages postés: 104
Date d'inscription: mardi 13 novembre 2007
Dernière intervention: 31 janvier 2019

- 30 janv. 2019 à 16:35 - Dernière réponse : pierrotk10d

Messages postés: 104
Date d'inscription: mardi 13 novembre 2007
Dernière intervention: 31 janvier 2019

- 31 janv. 2019 à 10:08

Delphi / Pascal Posez votre question Signaler

Bonjour,
Comment faire pour s'assurer que toutes les tables d'une fiche ne sont pas mode dsEdit ou dsInsert avant de fermer la fiche. J'aimerais utiliser Canclose. Comment passer la liste des tables à la fonction IsTableEnEdition? j'ai un peu de difficulté à me remettre dedans. C'est l'age!

procedure TfEdition.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
// peut on faire: for i := 0 to le nombre de tables ?
   CanClose := IsTableEnEdition(DM. Table[i]);
end;

function TfEdition.IsTableEnEdition(DataSet: TDataSet): Boolean;
begin
   Result := True;
   With TDBDataset(Dataset) do begin
      if (State in dsEditModes) then begin
         if MessageDlg('Appliquer les modifications avant de fermer ?',
                  mtConfirmation, [mbYes, mbNo], 0) = mrYes then
             Cancel
         else
             Result := False;  
      end;
   end;
end;

Cordiales salutations

Afficher la suite

A voir également:

Votre réponse

Répondre au sujet

1 réponse

Votre réponse

Répondre au sujet

Posez votre question

pierrotk10d · Answer 1 · 2019-01-31T10:08:15+0100

Bonjour,
J'ai trouvé.

procedure TfEdition.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var i: Integer;
begin
   For i := 0 To DM.ComponentCount -1 do
      If (DM.Components[i] is TTable) then
        CanClose := IsTableEnEdition(Components[i] as TTable);
end;

function TfEdition.IsTableEnEdition(DataSet: TDataSet): Boolean;
begin
   Result := True;
   With TDBDataset(Dataset) do begin
      if (State in dsEditModes) then begin
         if MessageDlg('Appliquer les modifications avant de fermer ?',
                  mtConfirmation, [mbYes, mbNo], 0) = mrYes then
             Cancel
         else
             Result := False;  
      end;
   end;
end;

Canclose [Résolu]

Votre réponse

Votre réponse

Votre réponse

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !