Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Téléchargez Pascal Discussion :

Utiliser Chart avec X-Parameters


Sujet :

Téléchargez Pascal

  1. #1
    Membre éclairé
    Utiliser Chart avec X-Parameters
    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.

  2. #2
    Membre éclairé
    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

  3. #3
    Membre éclairé
    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:

  4. #4
    Membre éclairé
    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.