Discussion :

[Pascal26120]

Bonjour,
quelqu'un peut il me dire le moyen le plus efficace de remplir un tableau dynamic dans une class à partir de la base de données ?

Petit exemple de ce que je fais actuellement:

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
19
20
21
22
23
24
25
26
27
28
29
 
//Déclaration de ma classe commande
cCommande est classe
PRIVÉ
	Numero est entier 		//Numéro de la commande
	NumeroClient est entier	//Numéro du client
	date est une Date 		//Date de la commande
	Operateur est chaîne //Nom de la personne ayant pris la commande
FIN
 
//Déclaration de ma classe client 
cClient est classe 
PRIVÉ 
	NumeroClient est entier //Numero du client 
	Nom est chaîne 		//Nom du client 
	ListeCommande est tableau de cCommande dynamique //Liste des commande du client 
FIN 
 
//Constructeur de cClient
PROCEDURE Constructeur(IdClient)
//Chargement du client
SI HLitRecherchePremier(FClient,NumeroClient,IdClient) ALORS
	FichierVersMémoire(objet,FClient)
 
	//Chargement de la liste des commandes du client
	Filtre est chaîne = HFiltreIdentique(FCommande,NumeroClient,IdClient)
	FichierVersTableau(ListeCommande,FCommande,Filtre)
 
FIN

Je suis d'accord, ce n'est pas très efficace.
En plus, souvent dans les commandes, je dois charger les produits. Immaginez vous un client qui a 100 commandes de plus de 100 produits chaqu'un.

Merci de vos suggestions.

Cordialement.

[tatayo]

Bonjour,
Tu peux faire du "chargement à la demande".
Dans tes classe, au lieu de charger les commandes du client et les produits des commandes dans le constructeur, tu passes par des propriétés.
Dans la classe client, tu ajoutes une propriété pour l'accès aux commandes. Dans cette propriété (dans la partie lecture), si le tableau des commandes est vide, tu charges les commandes.
Dans la classe commande, tu fais de même pour les produits des commandes.

J'ai fait des tests il y a quelques temps pour quelque chose de similaire:
J'ai une classe Article, qui contient un tableau dynamique de champs utilisateurs. Plutôt que de charger ceux-ci à chaque fois, j'ai déclaré une propriété pour l'accès à ce tableau:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
PROCEDURE p_tabClassification()
 
SI Dimension(:m_tabClassification) = 0 ALORS
	:ChargeClassification()
FIN
RENVOYER :m_tabClassification
 
 
PROCEDURE p_tabClassification(Valeur est un tableau dynamique)
TableauCopie(Valeur,:m_tabClassification)

Ainsi tant que mon code n'accède pas aux champs utilisateurs, ils ne sont pas chargés.
Et ça fonctionne même avec le DataBinding, si je lie ce tableau à un champ table. L'affichage de la table déclenche le chargement des champs.

Tatayo.

[Pascal26120]

Bonjour tatayo.
Merci de ta réponse.
Ta solution me parrait très interressante.
Par contre, deux petites question :
- si je dois afficher toutes les commandes (dans une table par databinding) d'un client à l'ouverture de la fenêtre client, je n'aurais pas de gain.
- Dans la methode ChargeCommande(), je suis obligé de faire un code du genre ?:

Code :

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

1
2
3
4
5
6
7
8
9
 
lsFiltre est chaîne = HFiltre(FCommande,NumeroClient,NumeroClient)
HLitPremier(FCommade,lsFiltre)
TANTQUE HTrouve(FCommande)
	lobjCommande est cCommande(FCommande.NumeroCommande)
	Ajoute(mTabCommande,lobjCommande)
	HLitSuivant(FCommande,lsFiltre)
FIN
HDésactiveFiltre(FCommande)

Et ainsi de suite pour les produits. Ou il y a t'il mieux ?

[tatayo]

1. En fait ça dépend. Si tu ne fais qu'afficher la liste des commandes sans les lignes, tu peux utiliser la même méthode dans la classe commande. Ainsi les lignes ne seront chargées que quand tu veux les afficher. Donc à part si tu affiches toutes les lignes de toutes les commandes du client, tu as ici un gain de temps.

2. Tu peux optimiser en vérifiant si les commandes ont déjà été chargées:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
SI DIMENSION(:mTabCommande) = 0 ALORS
	lsFiltre est chaîne = HFiltre(FCommande,NumeroClient,:NumeroClient)
	HLitPremier(FCommade,lsFiltre)
	TANTQUE HTrouve(FCommande)
		lobjCommande est cCommande(FCommande.NumeroCommande)
		Ajoute(:mTabCommande,lobjCommande)
		HLitSuivant(FCommande,lsFiltre)
	FIN
	HDésactiveFiltre(FCommande)
fin

Ainsi la recherche ne sera faite qu'une seule fois.
Pour le chargement en lui-même, peut-être qu'une requête serait un peu plus rapide, mais à vérifier. En effet, avec hFiltre/hLitPremier ici tu récupères tout l'enregistrement correspondant à ta commande, alors que tu n'as besoin que du numéro. Mais je ne sais pas si ça fera une grosse différence...

Tatayo.

[Pascal26120]

Merci beaucoup de ta réponse.
Cela me rassure d'etre sur la bonne voie.
Petit problème lorsque je lie une table à la propiété pTabCommande, je n'ai pas accès aux membres de cCommande. Donc impossibilité de lier les colones de la table aux membres.

As tu une idée d'ou cela peut venir ?

Cordialement.

[tatayo]

J'avais noté ça avec la version 15, je n'ai pas eut le temps de vérifier si c'était corrigé avec la 16, mais visiblement non.
Quoi qu'il en soit tu peux faire la liaison "à la main", dans le code d'initialisation de la colonne:

Code :

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

1
2
 
MoiMême..LiaisonFichier = "gclArticleCourant:p_tabChpUts:p_sNom"

C'est moins bien que de le faire directement dans les propriétés de la table, mais ça fonctionne.

Tatayo.

[Pascal26120]

Merci de ta réponse.
Tout fonctionne parfaitement.
Merci encore de ton aide.