Discussion :

[FOCUS77]

Bonjour,

Je vous propose un nouvel élément à utiliser :X-Parameters

X-Parameters est une application inspirée de la discussion :
https://www.developpez.net/forums/d1...reation-table/

Elle a pour objet l'inscription de prix de vente d'un produit alimentaire selon plusieurs paramètres :

-L'année
-Le mois
-La zone (dépôt)


Sa manipulation est facile, il suffit de localiser le produit voulu,
ensuite ajouter l'année en cours ex : 2017, 2018 dans le formulaire 'MAINFORM'.

Une fois poster, un nombre d’enregistrement (égale au nombre de zones X 12 mois) est ajouté
automatiquement dans la table 'PRIXMOYEN' (à droite du formulaire).

Ensuite on procède à remplir le champ (P. vente) avec les valeurs adéquates.

Les trois Graphes permettent la visualisation des résultats par Zones, par mois et par années
mais aussi la sauvegarde des images sous forme BMP destinées à l'impression.

fig:


Outils:

Lazarus 1.8 RC3
Firebird 2.5.7
Flamerobin

Merci pour vos remarques.

[FOCUS77]

Bonjour,

Le but de cette amélioration est de présenter l'utilisation de graphe Bubble:

img:

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
procedure TF_GRAPHE.BCImageButton3Click(Sender: TObject);
 var str:ansistring; x,y:variant;
begin
   ChartPrix_An.Active:=False;
   MD.Q_PrixParAn.Close;
   MD.Q_PrixParAn.ParamByName('P').AsInteger:=DBLookupComboBox1.KeyValue;
   MD.Q_PrixParAn.Open;
   if MD.Q_PrixParAn.FieldValues['APRIXMOY']=Null then
   Abort;
   MD.Q_PrixParAn.First; x:=MD.Q_PrixParAn.FieldValues['APRIXMOY'];str:='';ListChartSource1.Clear;
   While not MD.Q_PrixParAn.EOF do
   begin
   str:=MD.Q_PrixParAn.FieldValues['NOM_ANN'];
   y:=MD.Q_PrixParAn.FieldValues['APRIXMOY'];
   ListChartSource1.AddXYList(x,[y,y],str,Random(100025244)+random(15958450));
   x:=x+(SpinEdit1.Value*y);
   MD.Q_PrixParAn.Next;
   end;
   ChartPrix_An.Active:=True;
end;

merci de votre interrêt

[FOCUS77]

Bonsoir à tous,

Le but de cette version est la présentation des Barres empilées
reliées à des DataSets.

En fait la barre empilée est conçue pour représenter la structure maître-détails
La barre représente un enregistrement de la table maître.
Sa sub-division représente les enregistrements liés de la table détails.

img1:

[FOCUS77]

Bonjour à tous,

Cette version a apporté quelques améliorations au barres empilées.
fig:


En plus j'ai quatre remarques à signaler:

1. Chart/ChartBarSeries/Marks/LabelFont/Color n'accèpte que la couleur clBlack.[Ver:1.8 RC5]

2. Le nombre des items(ici zones) doit rester constant durant toute l'année, sinon les valeurs

apparues sur le graphe seront confuses.

3. Je ne suis pas parvenu à appliquer BGRA au barres Empilées et j'ignore la cause.

4. Le dossier lazarus/components/tachart/demo contient des très bons exemples sur les graphes.

Merci pour vos remarques.