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 29 30 31 32 33 34 35 36
| {===============================================================================
Actualisation de l'affichage contenu dans la liste des données.
===============================================================================}
Procedure ActualisationDbGrid;
Begin
Donnees.Query.Close;
Donnees.Query.SQL.Clear;
Donnees.Query.SQL.Add('SELECT H.*, S.* FROM horaires_examens AS H LEFT JOIN sections AS S ON H.fk_section = S.pk_section ORDER BY S.nom ASC;');
Donnees.Query.Open;
End;
{===============================================================================
Suppression d'un horaire dans la liste.
===============================================================================}
Procedure TFrmHoraires.BtnSupprimerClick(Sender: TObject);
Var
FkSection : String[15];
Begin
// Si il y a des données dans les horaires
If Donnees.Query.RecordCount <> 0 Then
Begin
If MessageDlg('Etes-vous certain de vouloir supprimer l''horaire : ' +
Donnees.Query.FieldValues['nom'] + ' ?', mtConfirmation, [MbYes,MbNo], 0) = MrYes Then
Begin
// On sauvegarde l'identifiant avant de fermer le query
FkSection := Donnees.Query.FieldValues['fk_section'];
// On supprime la sélection
Donnees.Query.Close;
Donnees.Query.SQL.Clear;
Donnees.Query.SQL.Add('DELETE FROM horaires_examens WHERE fk_section = ''' + FkSection + ''';');
// On execute la requête sans demande de résultat.
Donnees.Query.ExecSQL;
// On actualise l'affichage de la liste des données
ActualisationDbGrid;
End;
End;
End; |
Partager