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