Gestion Commande : Analyse et code

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:

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

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

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

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

Bonjour,

Citation:

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.

Bonsoir,

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

Merci du réponse.
Après mainte reflexion, je pense que l'utilisation de TObjectList est la plus simple a mettre en oeuvre.
Voici le code qu'on a tester :

Code:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
 
Type
  TLignesCmdList = class;
TCmd = class
  private
    FLignesCmd: TLignesCmdList;
    FDiscount: Double;
    FFournisseur: String;
    FOperateur: String;
    FNumCmd: String;
    FDateCmd: TDateTime;
    FNumFrs: String;
    FStatus: String;
    procedure SetDateCmd(const Value: TDateTime);
    procedure SetDiscount(const Value: Double);
    procedure SetFournisseur(const Value: String);
    procedure SetLignesCmd(const Value: TLignesCmdList);
    procedure SetNumCmd(const Value: String);
    procedure SetOperateur(const Value: String);
    procedure SetNumFrs(const Value: String);
    procedure SetStatus(const Value: String);
  public
    property    LignesCmd   : TLignesCmdList read FLignesCmd write SetLignesCmd;
    property    NumCmd      : String read FNumCmd write SetNumCmd;
    property    DateCmd     : TDateTime read FDateCmd write SetDateCmd;
    property    Operateur   : String read FOperateur write SetOperateur;
    property    Fournisseur : String read FFournisseur write SetFournisseur;
    property    NumFrs      : String read FNumFrs write SetNumFrs;
    property    Discount    : Double read FDiscount write SetDiscount;
    property    Status      : String read FStatus write SetStatus;
    constructor create;
    destructor  destroy; override;
    procedure   Load; //Chargement de la commande depuis la BDD
    procedure   Save; //Enregistrement de la commande
    procedure   Delete; //Suppression de la commande
  end;
 
  TLigneCmd = class
  private
    FPrix: Currency;
    FQte: Integer;
    FArticle: String;
    FDesignation: String;
    FStatus: String;
    FInfoImport: String;
    FNumCmd: String;
    FDtLivraison: TDateTime;
    procedure SetArticle(const Value: String);
    procedure SetDesignation(const Value: String);
    procedure SetDtLivraison(const Value: TDateTime);
    procedure SetInfoImport(const Value: String);
    procedure SetNumCmd(const Value: String);
    procedure SetPrix(const Value: Currency);
    procedure SetQte(const Value: Integer);
    procedure SetStatus(const Value: String);
  public
    property NumCmd       : String read FNumCmd write SetNumCmd;
    property Article      : String read FArticle write SetArticle;
    property Designation  : String read FDesignation write SetDesignation;
    property Prix         : Currency read FPrix write SetPrix;
    property Qte          : Integer read FQte write SetQte;
    property Status       : String read FStatus write SetStatus;
    property DtLivraison  : TDateTime read FDtLivraison write SetDtLivraison;
    property InfoImport   : String read FInfoImport write SetInfoImport;
  end;
  TLignesCmdList = class(TObjectList)
  private
    function GetItems(Index: Integer): TLigneCmd;
    procedure SetItems(Index: Integer; value: TLigneCmd);
  public
    constructor Create;
    function  Add(value: TLigneCmd): Integer;
    function  IndexOf(value: TLigneCmd): Integer;
    procedure Insert(Index: Integer; value: TLigneCmd);
    function  Remove(value: TLigneCmd): Integer;
    property  Items[Index: Integer]: TLigneCmd read GetItems write SetItems; default;
  end;

Les quelques code interressante de l'implementation

Code:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
{===============================================================================
                                 TLignesCmdList
===============================================================================}
function TLignesCmdList.Add(value: TLigneCmd): Integer;
begin
  Result := inherited Add(value);
end;
{------------------------------------------------------------------------------}
constructor TLignesCmdList.Create;
begin
 // the list own its objects.
  inherited Create(true);
end;
{------------------------------------------------------------------------------}
function TLignesCmdList.GetItems(Index: Integer): TLigneCmd;
begin
  Result := TLigneCmd(inherited Items[Index]);
end;
{------------------------------------------------------------------------------}
function TLignesCmdList.IndexOf(value: TLigneCmd): Integer;
begin
 Result := inherited IndexOf(value);
end;
{------------------------------------------------------------------------------}
procedure TLignesCmdList.Insert(Index: Integer; value: TLigneCmd);
begin
 inherited Insert(Index, value);
end;
{------------------------------------------------------------------------------}
function TLignesCmdList.Remove(value: TLigneCmd): Integer;
begin
  Result := inherited Remove(value);
end;
{------------------------------------------------------------------------------}
procedure TLignesCmdList.SetItems(Index: Integer; value: TLigneCmd);
begin
  inherited Items[Index] := value;
end;
{===============================================================================
                                 TCmd
===============================================================================}
constructor TCmd.create;
begin
  inherited;
  FLignesCmd  := TLignesCmdList.Create;
end;
{------------------------------------------------------------------------------}
destructor TCmd.destroy;
begin
  FLignesCmd.Free;
  Inherited;
end;

Toutes remarques est suggestions sont les bienvenues.

Merci