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:
Pouvez-vous m'aider?
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;
MErci
Partager