Discussion :

[Andry]

Salut à tous.
Je dois aider mon pti frère a faire un TP sur une gestion de commande et on doit utiliser l'approche objet.
J'ai une vague idée sur comment faire mais c'est sur la gestion des lignes du commande qu'on a des petits soucis :
Alors, voici ce qu'il a déjà en tête :

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
 
Type 
  TLigneCmd = Record
              Art_ref      : String;
              Art_design : String;
              Art_pu      : Currency;
              Qte          : Integer;
  end;
  TLignesCmd = Array of TLigneCmd; 
   TCmdClass = Class
    private
      FLignes : TLignesCmd;
      FNumCmd : String;
      FDtSaisie : TDate;
      procedure setDtSaisie(Value : TDate);
    public
      Constructor Create;
      Destructor Destroy;
 
      procedure AddLigne(Ligne : TLigneCmd); //Ajouter une ligne de commande
      procedure UpdateLigne(Ligne : TLigneCmd);//Maj d'une ligne de commande
      procedure DeleteLigne(Ligne : TLigneCmd);//Suppression d'une ligne de commande
      procedure Load; //Chargement de la commande
      procedure Save; //Enregistrement de la commande
      procedure Delete;//Suppression de la commande
   published
      property NumCmd : String read FNumCmd write FNumCmd;
      property DtSaisie : TDate read FDtSaisie write SetDtSaisie;      
   end;

N'etant pas vraiment expert en la matière, je demandes votre aide.

Merci

[Cl@udius]

Bonjour

Ben je dirais que pour cet exercice l'utilisation de TCollection/TCollectionItem serais une bonne approche.

Tu hérites de toutes les fonctionnalités en place, et tu n'as qu'a définir tes propres propriétés et surcharger tes méthodes pour gérer tes commandes.

Il y a sûrement d'autres approches, mais c'est celle-ci que j'adopterais.

@+ Claudius

[Andry]

C'est aussi une idée. En plus, Sjrd a fait un tuto sur un compo utilisant cette technique.
J'attends l'avis des autres.

Merci

[Cl@udius]

Moi aussi l'avis des autres m'intéresse
@+

[Graffito]

Bonjour,

Ben je dirais que pour cet exercice l'utilisation de TCollection/TCollectionItem serais une bonne approche.

Tu hérites de toutes les fonctionnalités en place, et tu n'as qu'a définir tes propres propriétés et surcharger tes méthodes pour gérer tes commandes.

+1 (on peut aussi utiliser Tlist au lieu de TCollection/TCollectionItem).

et aussi TligneCmd à gérer en tant que class et non comme record.

Attention aux doublons, la fonction Ajout devra soit créer une ligne supplémentaire, soit faire un ajout de Qté à une ligne existante.

[bjl]

Bonsoir,

et en dérivant TLigneCmd de Tobject et TLignesCmd de TObjectList ?