Boucle For dans un TDBGrid

Version imprimable

09/06/2005, 11h25
Latipolia

Boucle For dans un TDBGrid

Voila j'ai un base de données Paradox 7 et dans cette table j'ai comme colonnes :
- Date
- Heure
- TypeEntre
- TypeBillet
- Quantité
- Total

et je doit faire une fonction qui doit me permettre de faire un récapitulatif des ventes de la journée:
Savoir le type d'entrée, le type de billet vendu dans la journé en faire le total et avoir un total général.
Donc pour l'instant j'ai commencer a faire une recherche de la date mais le problème c'est qu'apres si j'ai bien compris je doit faire plusieurs boucle for pour avoir le total des Type d'entrée et de type de billet mais comment faire une boucle for si on ne sait pas combien on aura de case a parcourire ????
Je me trompe totalement ou je suis sur la bonne voie ?
:cry: [/code]
09/06/2005, 13h11
Sunchaser

Salut,
Mais tu ne peut pas faire un requete avec un TQuery plutot ?
:?
@ +
09/06/2005, 14h22
Latipolia

J'ai placer mon TQuery je l'ai configurer mais comment faire car dans ce cas la il faut alors afficher le contenu de la sélection du TQuery?
car de ce que j'ai comprit tu me demande de mettre des TQuery pour faire mes filtrations de ce que je souhaite avoir comme info mais alors dans ce cas la il me faut les affichers pour ensuite faire mon total des différentes parties
09/06/2005, 14h30
say

à mon avis, l'affichage et ton calcul sont indépendant. Comme le dit cantrelle, il est probable que tu puisses faire ces calculs avec une requête donc dans un TQuery.

Sinon, en ce qui concerne ton idée de parcourir le DBGrid, il est très simple d'avoir les bornes de ta boucle avec les propriètes FieldCount et RecordCount du dataset de ton DBGrid.

mais je pense en effet que c'est pas la bonne voie.

tch'o
09/06/2005, 14h41
Latipolia

Oui mais comment afficher mon TQuery ?
09/06/2005, 14h46
bakaneko

Citation:

Envoyé par Latipolia

Oui mais comment afficher mon TQuery ?

Tu lies ton TQuery à un TDBGrid via un TDataSource.
Regardes l'aide pour savoir dans quel sens ça fonctionne.
09/06/2005, 14h56
say

hum..en même tps, ton TQuery, il doit pas y avoir plusieurs ligens de retourner...donc tu dois pouvoir récuperer les values facilement pour les placer dans des Edit

Salut,
Je ne sais pas vraimment comment est ta table, comment sont organisée les données mais tu peut peut etre essayer :
Code:

1 2 3 4 5 6 7 Query->Close(); Query->SQL->Clear(); Query->SQL->Add("SELECT DISTINCT T1.TypeEntre AS Type d'entrée, T1.TypeBillet AS Type de billet, COUNT(T1.TypeBillet) AS Decompte Billets, SUM(T1.Quantité)"); Query->SQL->Add("FROM 'TaTable.db' T1"); Query->SQL->Add("GROUP BY T1.TypeEntre, T1.TypeBillet"); Query->Open();
Sous reserve d'essais parceque je ca serai mieux d'avoir la table sous la main....
D'ailleurs si tu veut, tu peut me l'envoyer et j'essayerai de trouver une requete appropriée.
@ + :wink:

Dans un premier temps, je te propose ca :
Code:

1 2 3 4 5 6 7 8 9 Query->Close(); Query->SQL->Clear(); Query->SQL->Add("SELECT DISTINCT T1.TypeEntre AS Type, T1.TypeBillet AS Billets, COUNT(T1.TypeBillet) AS NombreEntreeParType, SUM(T1.Quantite) AS NombreBilletsParType, SUM(T1.Total) AS TotalVenteParType"); Query->SQL->Add("FROM 'Vente.db' T1"); Query->SQL->Add("WHERE T1.TypeEntre <> ''"); Query->SQL->Add("AND T1.TypeBillet <> ''"); Query->SQL->Add("GROUP BY T1.TypeEntre, T1.TypeBillet"); Query->Open();
En espérant que ca puisse t'aider, c'est sur c'est pas du grand génie mais si tu as besoin d'affiner ou de présenter différemment, fais moi signe qu'on essaie de travailler dessus...
Pour les clauses WHERE et AND, je les ai mises pour supprimer les lignes qui n'etaient pas renseignées...il y a des tuples vides dans ta table (test ?).
@ + :wink:

09/06/2005, 18h10
Latipolia

merci mais je le met ou ce code ?
Ainsi que pour les tuples qui sont vide c'est des erreurs il ne poura plus y en avoir j'ai fais les test initiaux.
je devrais vider la bd a la fin de la programmation pour l'utilisateur.
09/06/2005, 19h47
Sunchaser

Hé bien a mon avis, ce code doit remplacer ce qui permettais l'affichage des données dans ton DBGrid (parceque tu parles d'un DBGrid dans ton intitulé) mais il peut aussi te servir a alimenter un QuickRep pour présenter tes données...
10/06/2005, 10h39
Latipolia

J'ai essailer de placer ton source et sa marche mais le problème c'est que je doit faire tout ca mais pour une seule journée cad la journé actuelle.
La secrétaire qui se servira de ce programme doit pourvoir avoir le total des ventes de la journée actuelle et je n'arrive pas a faire en sorte que ca soit la journée actuelle
Si vous avez une idée merci de m'en faire par !

Il faut que tu mettes une condition sur ton champ Date. Je suppose que ton champ Date de ta table est la date de la journée pendant laquelle la secrétaire saisait la vente, non ?
En reprenant le code de cantrelle avec cette condition celà donne :
Code:

1 2 3 4 5 6 7 8 9 Query->Close(); Query->SQL->Clear(); Query->SQL->Add("SELECT DISTINCT T1.TypeEntre AS Type, T1.TypeBillet AS Billets, COUNT(T1.TypeBillet) AS NombreEntreeParType, SUM(T1.Quantite) AS NombreBilletsParType, SUM(T1.Total) AS TotalVenteParType"); Query->SQL->Add("FROM 'Vente.db' T1"); Query->SQL->Add("WHERE T1.TypeEntre <> ''"); Query->SQL->Add("AND T1.TypeBillet <> ''"); Query->SQL->Add("AND T1.Date = " + Date()); Query->SQL->Add("GROUP BY T1.TypeEntre, T1.TypeBillet"); Query->Open();
Je crois que ça devrait passer

10/06/2005, 11h22
bakaneko

Attention!!
Pour les dates, si je me trompe pas, en SQL, elles doivent être au format mois/jour/année pas au format jour/mois/année.
10/06/2005, 11h52
papy_tergnier

bien vu. en fait je connais pas la base paradox mais comme j'utilise PostGreSQL, je n'ai pas recontré ce genre de problème. La date est rangé sous ce format : AAAA/MM/JJ mais si je teste avec JJ/MM/AAAA il me renvoit quand même les mêmes données.
Je viens de tester grâce à ta remarque car je ne connaissais pas ce comportement donc merci car tu viens, sans le vouloir, de m'apprendre un truc de plus sous PostGre :wink:
10/06/2005, 11h54
bakaneko

Citation:

Envoyé par papy_tergnier

bien vu. en fait je connais pas la base paradox mais comme j'utilise PostGreSQL, je n'ai pas recontré ce genre de problème. La date est rangé sous ce format : AAAA/MM/JJ mais si je teste avec JJ/MM/AAAA il me renvoit quand même les mêmes données.
Je viens de tester grâce à ta remarque car je ne connaissais pas ce comportement donc merci car tu viens, sans le vouloir, de m'apprendre un truc de plus sous PostGre :wink:

J'ai eu ce problème sous Access. Donc maintenant je me pose plus de questions, je m'ai toutes les dates dans ce format :D
10/06/2005, 13h47
Sunchaser

Bonjour a tous,

Je me demande si ca va passer tel quel parceque le champ 'Date' de la table de notre ami Latipolia est de type 'Alphanumérique' et non du type 'Date', et de ce fait l'instruction

Code:

Query->SQL->Add("AND T1.Date = " + Date());

n'a pas l'air de passer...
De plus il m'etait impossible de selectionner ce champ, tout simplement au cause de son nom, que j'ai remodifier en DateEntree et la je peut travailler a nouveau sur le champ.

A mon avis, il va falloir faire qq modifs sur la table, non ?

@ + :wink:
10/06/2005, 13h50
bakaneko

Si c'est de l'alphanumérique, traiter la date comme une chaine de caractères devrait faire l'affaire...
10/06/2005, 13h56
Sunchaser

ui, ui, ainsi cela fonctionne mais ca me semble moins juste...Perso, je lui conseillerais quand meme de changer ce champ ainsi que le suivant (pour qu'il soit en Date&Heure)
10/06/2005, 13h59
bakaneko

Citation:

Envoyé par Cantrelle

ui, ui, ainsi cela fonctionne mais ca me semble moins juste...Perso, je lui conseillerais quand meme de changer ce champ ainsi que le suivant (pour qu'il soit en Date&Heure)

Je suis tout à fait d'accord avec toi :D
J'ai juste dit que c'était fonctionnambe avec cette méthode. Pas des + juste mais fonctionnable :P

oui en effet j'ai une erreur sur la parti du code source avec le champ date il me donne une message d'érreur :
Code:

1 2 3 4 Le projet sdiapp.ese a provoqué une classe d'exception EDBEngineError avec le message 'utilisation incorrecte du mot-clé. Element: Date Numéro de ligne :5'. Processus stoppé. Utilisez Pas-à-pas ou Exécuter pour continuer.
Donc alors si j'ai bien comprit il me faut changer le nom de ma colonne "Date" en autre chose c ca ??

Merci bcp pour votre aide je débute et j'ai un pe de mal

10/06/2005, 15h23
bakaneko

Date est un nom-clé du SQL donc interdit dans les noms de champs (et je crois même de tables).
Si tu veux des infos sur le SQL, regardes ce tuto.
14/06/2005, 10h42
Latipolia

En fait j'ai changer mes base de données et les seule modification que j'ai apporter c'est de changer le nom de la colonne "Date" par "Jour" mais kan je fais les modifications dans mon code source et que je compile il me donne un message d'erreur

Code:

Différence de type dans une expression

Donc si je ne me trompe pas c'est le problème dons vous parlez au dessus la date qui n'est pas au bon format alors faut'il que je change le format de la date que je met dans ma base de données ou alors est-ce qu'il y a un moyen de changer le format de la date avec laquel je compare ma date de ma base de données ? ? ?
14/06/2005, 10h51
bakaneko

Tu l'as où précisement cette erreur???
C'est dans le code ou à l'exécution???
Si c'est dans le code, c'est à quelle ligne (donnes la ligne au passage) et si c'est à l'exécution, donnes nous la ligne qui plante...

Mon code source modifier est :

Code:

1
2
3
4
5
6
7
8
9
Query->Close();
Query->SQL->Clear();
Query->SQL->Add("SELECT DISTINCT T1.TypeEntre AS Type, T1.TypeBillet AS Billets, COUNT(T1.TypeBillet) AS NombreEntreeParType, SUM(T1.Quantite) AS NombreBilletsParType, SUM(T1.Total) AS TotalVenteParType");
Query->SQL->Add("FROM 'Vente.db' T1");
Query->SQL->Add("WHERE T1.TypeEntre <> ''");
Query->SQL->Add("AND T1.TypeBillet <> ''");
Query->SQL->Add("AND T1.Jour = " + Date());
Query->SQL->Add("GROUP BY T1.TypeEntre, T1.TypeBillet");
Query->Open();

L'erreur est a l'exécution et elle plante a la ligne :

Code:

Query->SQL->Add("AND T1.Jour = " + Date());

Essayes avec ça:
Code:

1 2 Query->SQL->Add("AND T1.Jour = " + QuotedStr(Date().DateString()));
mais je ne promets rien.

14/06/2005, 11h35
Latipolia

j'ai essailer cette ligne elle compile bien et s'execute bien mais le problème c'est quel ne fais rien elle me met une ligne dans mon tableau mais ne me fais pas la rechercher des lignes a mettre
14/06/2005, 11h46
bakaneko

C'est peut-être le format.
Dans ce cas, regardes du côté de FormatDateTime dans l'aide.

Citation:

Envoyé par Aide de Builder

Formate un objet TDateTime.

extern PACKAGE AnsiString __fastcall FormatDateTime(const AnsiString Format, System::TDateTime DateTime);

Description

FormatDateTime formate l'objet TDateTime spécifié par DateTime en utilisant la chaîne de formatage Format. Pour plus d'informations, voir Chaînes de format date/heure.

Si la chaîne spécifiée par le paramètre Format est vide, l'objet TDateTime est implicitement formaté avec le spécificateur de format 'c'.
14/06/2005, 12h12
Latipolia

J'ai regarder mais sa ne marche pas alors j'ai essailer de mettre cette ligne pour changer la date

Code:

Query->SQL->Add("AND T1.Jour = " + QuotedStr(FormatDateTime("yy/mm/dd", Now() + 0)));

et sa marche donc merci bcp pour toute l'aide que vous m'avez apporter

Fuseau horaire GMT +2. Il est actuellement 00h16.