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; |
Partager