Utiliser Chart avec X-Parameters

Version imprimable

05/10/2017, 13h39
FOCUS77

1 pièce(s) jointe(s)

Utiliser Chart avec X-Parameters

Bonjour, :P

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:
Pièce jointe 317832

Outils:

Lazarus 1.8 RC3
Firebird 2.5.7
Flamerobin

Merci pour vos remarques.

1 pièce(s) jointe(s)

Bonjour,

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

img:
Pièce jointe 317827

Code:

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

12/10/2017, 23h03
FOCUS77

1 pièce(s) jointe(s)

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:
Pièce jointe 319308
24/10/2017, 15h50
FOCUS77

1 pièce(s) jointe(s)

Bonjour à tous,

Cette version a apporté quelques améliorations au barres empilées.
fig:
Pièce jointe 322646

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. :aie:

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

Merci pour vos remarques. :P