CALCUL D UN CHAMP EN FONCTION D UNE DATE BDD PARADOX [Résolu]

Signaler
Messages postés
30
Date d'inscription
lundi 11 janvier 2016
Statut
Membre
Dernière intervention
10 décembre 2017
-
Messages postés
30
Date d'inscription
lundi 11 janvier 2016
Statut
Membre
Dernière intervention
10 décembre 2017
-
Bonjour,

SOUS DELPHI 7 ET BASE D DONNEE PARADOX

jais nommé ma table :reservation

contenue de ma table :
reservation:Nombre:Nom:telephone:DateXreservation:Heure:service:Table
------------------------------------------------------------------------------------
image : 2 :client: 060000 : 22/10/2017 : 11h : midi : 1


ma question: j aimerais pouvoir calculer le champ nombre en fonction de la date

a fin de connaitre par rapport a l a date de réservation le nombre de résa

je veux pas changer de type de base car trop compliqué pour moi ;-)


en vous remerciant pour ce que vous pourriez avoir a me proposé !!!
moi je sèche !! je trouve pas de solution sur la toille !!!

mercci

1 réponse

Messages postés
30
Date d'inscription
lundi 11 janvier 2016
Statut
Membre
Dernière intervention
10 décembre 2017

cet bon jai trouvé

je fait un tri dans mon degrid et je fait le calcul après !!

je vous met le code des fois ca puisse servir a d autre

pour mon tri :

procedure TForm1.Image3DblClick(Sender: TObject);
var Filtre : string;
begin
filtreDatej.text:=datetostr(date());
Filtre := 'DateXDataModule9.reservation =''' + filtreDatej.text + '''';
if filtreDatej.text ='' then
begin
DataModule9.reservation.Filtered:=false;
exit;
end;
DataModule9.reservation.Filter := Filtre;
DataModule9.reservation.Filtered := true;
end;

pour le calcul de la colonne :


procedure TForm1.Image1DblClick(Sender: TObject);
begin
Edit7.text:='0'; //Efface le contenu de l edit7
DataModule9.reservation.First; //positionnée sur le premier enregistrement
repeat //reperter la procedure
Edit7.text:=inttostr(strtoint(edit7.text)+DataModule9.reservation.FieldValues['Nombre']);
DataModule9.reservation.next;
until DataModule9.reservation.eof=true; //arretre la fonction REPEAT A la fin au dernier enregistrement
end;