Discussion :

[The Ditch]

Bonjour,

J'aimerais avoir un peux d'aide concernant une procédure de vérification d'une table avant suppression.

Je travail sous delphi 6 avec un db access et le composant tplanner de tms software.

Je travail avec 2 tables:

la table des personnes et la table des réservations. J'aimerais avant suppression d'une personne faire une vérification dans la table des réservations si cette personne a ou pas de réservation.

Je bloque quelque pars, mais je ne trouve pas où.

Voici ma procedure:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
procedure TFFicheDetailsPersonne.BtnDeleteClick(Sender: TObject);
var flag,j, nb, refpers : integer;
 
begin
  flag := 0;
  refpers := DataMod.QPersonneper_id.AsInteger;
 
 
  Datamod.TSCHEDULE.First;
  nb := datamod.TSCHEDULE.RecordCount;
 
  for j := 1 to nb do
    begin
      if DataMod.TSCHEDULEPERS_ID.AsInteger = refpers then
            begin
                MessageDlg ('Suppression impossible ! ', mtError,[mbOK],0) ;
                flag := 1;
            end;
       inc(j);
      datamod.TSCHEDULE.Next;
    end;
 
   if flag = 1 then DataMod.QPersonne.Delete;
   FListPersonne.DBGrid.RefreshData;
  close;
end;

Pouvez-vous m'aider?

MErci

[tarekk73]

bon jour
un messagedlg dans une boucle imagineé qu'il on'a 100 resrvation a cette personne ..!

1 - utilisez un filtre pour votre table reservation et tester le nombre d'ocurence dans cette table si est zero supprimer cette personne sinon ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
refpers := DataMod.QPersonneper_id.AsInteger;
DataMod.TSCHEDULE.filtre  :=   '''pers = ' + inttostr(refpers) + ''''
DataMod.TSCHEDULE.filtered  := true ;
if DataMod.TSCHEDULE.RecordCount = 0 then 
DataMod.QPersonne.Delete;
else
MessageDlg ('Suppression impossible ! ', mtError,[mbOK],0) ;
DataMod.TSCHEDULE.filtered  := false ;

A+

[tarekk73]

vou pouver aussi changer votre code comme suite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure TFFicheDetailsPersonne.BtnDeleteClick(Sender: TObject);
var flag,j, nb, refpers : integer;
 
begin
  flag := 0;
  refpers := DataMod.QPersonneper_id.AsInteger;
 
 
  Datamod.TSCHEDULE.First;
  nb := datamod.TSCHEDULE.RecordCount;
 
  for j := 1 to nb do
    begin
      if DataMod.TSCHEDULEPERS_ID.AsInteger = refpers then
                                            flag := 1;
 
       inc(j);
      datamod.TSCHEDULE.Next;
    end;
 
   if flag = 1 then DataMod.QPersonne.Delete else MessageDlg ('Suppression impossible ! ', mtError,[mbOK],0) ;
;
   FListPersonne.DBGrid.RefreshData;
  close;
end;

[akli_agha]

Une requête SQL fera l'affaire et evitera tous ces cassements de tête !

[The Ditch]

Merci a tout les 3 pour votre réponse

Une requête SQL fera l'affaire et evitera tous ces cassements de tête !

Peux-tu m'aider a construire cette requête? J'aimerais pouvoir évolué

The Ditch

[akli_agha]

En espérant qu'Access supporte cette syntaxe.

Pour Supprimer les personnes qui ont des reservations

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
SQL.Text := 'DELETE FROM qPersonne '+
            'WHERE RefPers IN '+
            '      (SELECT PERS_ID FROM TSCHEDULE) ';
ExecSQL;

Pour Supprimer les personnes qui n'ont pas des reservations

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
SQL.Text := 'DELETE FROM qPersonne '+
            'WHERE RefPers NOT IN '+
            '      (SELECT PERS_ID FROM TSCHEDULE) ';
ExecSQL;

Il faut quand même se mettre à l'initiation du SQL. Un minimum de connaissance est requis pour ce genre de traitement.
Même la façon de parcourir votre table n'est pas adéquate. Il fallait utiliser la boucle comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
while not Table1.eof do begin
  //Traitements à exécuter sur le record courant
   :
   :
  Table1.Next;
end;

[The Ditch]

Bonjour,

Je tiens a remercier pour votre aide.

J'ai etudié vos propositions, j'ai essayé de trouvé une solution par moi même.

la voici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
procedure TFFicheDetailsPersonne.BtnDeleteClick(Sender: TObject);
 var refpers,flag: integer;
     nompers : String;
begin
  flag := 0;
  refpers := DataMod.QPersonneper_id.AsInteger;
  nompers := DataMod.QPersonneper_nom.AsString + DataMod.QPersonneper_prenom.AsString ;
 
  //showmessage ('id pers ' + inttostr(refpers ));
  //showmessage (nompers);
 
  DataMod.TSCHEDULE.First;
 
  if DataMod.TSCHEDULE.Locate('pers_id', refpers, []) then flag :=1;
  if flag = 1 then
      MessageDlg ('Suppression impossible pour ' + DataMod.QPersonneper_nom.AsString + ' ' + DataMod.QPersonneper_prenom.AsString + #10#30'une réservation a été assigné a ce client. ', mtError,[mbOK],0)
    else
      begin
          datamod.QPersonne.Locate('per_id', refpers, []);
          //Showmessage  (nompers +DataMod.QPersonneper_id.AsString + ' a été supprimé' )   ;
          Showmessage(DataMod.QPersonneper_nom.AsString + ' ' + DataMod.QPersonneper_prenom.AsString + ' a été supprimé !' );
          datamod.QPersonne.Delete;
       end;
 
    FListPersonne.DBGrid.Refresh;
  Close;
 
end;

The Ditch