l'ajout d'une minuterie pour mettre en œuvre des rappels dans l'application

Question

J'ai une table de rappels dans ma base de données des applications

FieldName = 'id' 
FieldName = 'title' 
FieldName = 'description' 
FieldName = 'start_date' 
FieldName = 'start_time' 
FieldName = 'end_date' 
FieldName = 'end_time' 
FieldName = 'repeat' (true/false) 
FieldName = 'occurs' (Integer = 1-Daily, 2-Weekly, 3-Monthy, 4-Annually) 
FieldName = 'completed" (true/False) 

est-il un moyen d'utiliser un TTimer pour afficher le titre et la description du rappel à chaque fois que l'événement se produit? Si oui, veuillez expliquer en code/seudo code, ou texte.

un rappel est soit un onetime - ou - ne se reproduise événement

si un temps (se produit = 1 jour), la date et l'heure sont stockées dans le start_date & Start Time Le rappel doit afficher à ce temps. Après affichage, le champ de table "Completed" est défini sur true.

Si la répétition se produit, la date et l'heure sont stockées dans le Start_Date & Start Time et la date de fin et l'heure de fin sont stockées. Le rappel doit s'afficher à ce jour et à cette heure, chaque jour (1), semaine (2), mois (3) ou année (4)

Si tous les jours, un rappel doit s'afficher à ce moment tous les jours, jusqu'à la date de fin est atteint

Si hebdomadaire, rappel devrait afficher à ce moment-là, ce jour-là (de chaque semaine), jusqu'à la date de fin est atteinte

Si chaque mois, le rappel devrait afficher à ce moment-là, ce jour-là (de chaque mois), jusqu'à ce que la date de fin soit atteinte

Si Annuellement, le rappel devrait s'afficher à ce moment-là, ce jour particulier (de chaque année), jusqu'à la date de fin e est atteinte

lorsque la date de fin est atteinte, complété est mis à jour avec True

merci, j'espère que cela est facilement faisables avec des composants supplémentaires ou bibliothèques

Answer 1

Donc, je ne pouvais pas comprendre comment afficher tout le code, mais voici le principal événement TTimer

Procedure TForm1.Timer1Time(Sender: TObject); 
var 
CommandText: String; 
begin 
try 
    Timer1.Enabled:= False; 
    if ADOQuery1.Active then 
    ADOQuery1.Active:= False; 
    CommandText := 
    Format('SELECT * FROM REMINDERS WHERE (START_DATE <= %s) AND (COMPLETED = FALSE) AND (LASTCHECK < %s)', 
    [FormatDateTime('mm/dd/yy', Date), FormatDateTime('mm/dd/yy', Date)]); 
ADOQuery1.SQL.Text := CommandText; 
try 
    ADOQuery1.Active := True; 
    if not ADOQuery1.IsEmpty then 
    begin 
    BuildReminderList(ADOQuery1); 
    end; 
except 
    // 
end; 
finally 
Timer1.Enabled := True; 
    end; 
end; 

Answer 2

<ironique>

Votre question: Existe-t-il un moyen d'utiliser un TTimer pour afficher le titre et la description du rappel à chaque fois que l'événement se produit?

Ma réponse

Oui, est-il un moyen de le faire.

Exigence: Si oui, veuillez expliquer le code.

Anwer à fillfull vos besoins

pseudocode:

procedure TEventsManager.SetNextEventTimer; 
begin 
    if Assigned(NextOcurringEvent) then 
    begin 
    Timer1.Interval := MillisecondsBetween(Now, NextOcurringEvent.DateTime); 
    Timer1.Enabled := True; 
    end; 
end; 

procedure TEventsManager.Timer1Timer(Sender: TObject); 
begin 
    Timer1.Enabled := False; 
    DisplayReminder(nextOcurringEvent); 
    SetNextEventTimer; 
end; 

</ironique >

Answer 3

Je sais que vous avez dit sans composants supplémentaires, mais je pense que vous aimerez ça.

En JVCL, il existe un composant appelé TJvScheduledEvents qui peut faire exactement ce dont vous avez besoin et vous pouvez l'utiliser avec très peu de programmation. Essayez-le et si vous avez des questions à ce sujet, n'hésitez pas à demander.