TTrainingSession.Post
| TTrainingSession = class (TObject) | Interface de TTrainingSession | Exemples de TTrainingSession |
Qubes 8.0 Ecriture d'une session de formation dans la base de données
Syntaxe
procedure Post()
Exemples
// Validation d'une session
// NB : on a récupéré son ID interne via une recherche avec GetTrainingSessions
uses QubesTrainings;
var sessionId := 123;
var session := TTrainingSession.ConnectById(sessionId);
session.UserTraining['user2'].Status := UserTrainingStatus.Undefined; // on supprime l'utilisateur prévu
session.UserTraining['user3'].Status := UserTrainingStatus.Done; // l'utilisateur prévu devient formé
session.UserTraining['user3'].Commentary := 'Quelques lacunes';
session.UserTraining['user4'].Status := UserTrainingStatus.Done; // on ajoute un autre utilisateur formé
session.Status := TrainingSessionStatus.Done;
session.Post; // on enregistre les modifications
// NB : on a récupéré son ID interne via une recherche avec GetTrainingSessions
uses QubesTrainings;
var sessionId := 123;
var session := TTrainingSession.ConnectById(sessionId);
session.UserTraining['user2'].Status := UserTrainingStatus.Undefined; // on supprime l'utilisateur prévu
session.UserTraining['user3'].Status := UserTrainingStatus.Done; // l'utilisateur prévu devient formé
session.UserTraining['user3'].Commentary := 'Quelques lacunes';
session.UserTraining['user4'].Status := UserTrainingStatus.Done; // on ajoute un autre utilisateur formé
session.Status := TrainingSessionStatus.Done;
session.Post; // on enregistre les modifications