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