Discussion :

[netsoft]

Bonjour !!

J'ai programmé un petit programme de test entre deux dates. Le but est de tester la date d'un enregistrement avec la date actuelle
comme dans mon exemple table vehicule qui comporte les champs :

• code
  matricule
  date assurance
  date controle technique
  date permis de circule

J'ai testé la date assurance avec la date actuelle en créant une alerte avant 30 jours de la date d'expiration :

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
procedure TForm1.Button1Click(Sender: TObject);
  VAR myDate, Datev: TDateTime;
begin
with    ADOTable1 DO
BEGIN
ADOTable1.First;
while not EOF do BEGIN
myDate:=IncDay(now,-30);
DateV:=ADOTable1.fieldbyname('DATEA').asDateTime; // date assurance 
IF  DateOf(myDate)>= DateOf(DateV) THEN begin
AlertMsgBox('ALERTE DATE  !','LA DATE ASSURANCE DU VEHICULE ''#13#10'APPROCHE A EXPIRATION.',ICON_WARNING1,true,2000,40);  // message d'alerte 
ADOTable1.Edit;
ADOTable1.fieldbyname('ETAT').AsBoolean:=TRUE; // cette valeur me permet de changer la couleur du champ du Dbgrid en rouge par un autre programme 
ADOTable1.fieldbyname('STATUT').AsString:='ALERTE';
ADOTable1.Post;
END;
ADOTable1.Next;
 END;

Je demande des conseils ou remarques pour améliorer mon programme qui pour l'instant marche.

Mon problème est que j'ai plusieurs dates à tester et à mettre en alerte comme la date assurance , la date du contrôle technique et la date permis de circuler qui se déclenche automatiquement sans cliquer sur bouton.
Je demande conseil ???
Est-ce que je crée des procédures pour chaque date ?? comment je fais ??
Ou autre suggestion...

Merci !

[retwas]

Tu peux gérer un type énuméré :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TDateVehicule = (dvAssurance, dvCT, dvPermis);

Une fonction qui prend en paramètre le type que tu veux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
var
  sChamp : string;
begin
  if dvCurrent = dvAssurance then
    sChamp := 'datea'
  // ...
 
  DateV:=ADOTable1.fieldbyname(sChamp).asDateTime;

Pour faire ce que tu veux, il existe aussi la fonction DaysBetwwen qui prend deux TDateTime en paramètre.

Si tu veux déclencher automatiquement le traitement tu pourrais faire une classe TVehicule et lors du Create déclencher tes tests, si tu charges ton véhicule lors de l'ouverture avec un événement FormShow tu peux aussi appeler ta procédure juste après, par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
// chargement du véhicule
// ...
 
CheckDateVehicule([dvAssurance, dvCT]);

Par contre je te conseil d'indenter ton code correctement, mot clé en minuscule, ce qui est je trouve plus facile à lire.

[SergioMaster]

Bonjour,

moi je conseillerais surtout de faire cela par SQL, dépendant de la SGBD

[netsoft]

merci pour les réponse en particulier celle de retwas