Salut à tous.
J'ai lu pas mal de tuto et livre sur la conception de composant.
Mais j'ai du mal a me decider comment organiser le packet.
On parle tout le temps de packet de conception et d'execution, mais dans la pratique c'est pas si evident à mettre en oeuvre.
Disons que voici mon composant :
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
30
31
32
33
34
35
 
type
  TTestCompo = class(TComponent)
  private
    FCustNo: Integer;
    FIbDatabase: TIbdatabase;
    FIbTransaction: TIBTransaction;
    FQryDossier: TIbQuery;
    procedure SetCustNo(const Value: Integer);
    procedure SetIbDatabase(const Value: TIbdatabase);
    procedure SetIbTransaction(const Value: TIBTransaction);
    procedure SetQryDossier(const Value: TIbQuery);
    { Déclarations privées }
  protected
    { Déclarations protégées }
    procedure UpdateQuery;
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  public
    { Déclarations publiques }
    constructor Create(AOwner : TComponent); override;
    destructor  Destroy;override;
    procedure   Load;
    procedure   Delete;
    procedure   Update;
    procedure   Insert; 
    procedure   ListQryDossier;
    procedure   CloseQryDossier;
  published
    { Déclarations publiées }
    property IbDatabase     : TIbdatabase read FIbDatabase write SetIbDatabase;
    property IbTransaction  : TIBTransaction read FIbTransaction write SetIbTransaction;
    property CustNo         : Integer read FCustNo write SetCustNo default 0;
    property QryDossier     : TIbQuery read FQryDossier write SetQryDossier;
  end;
procedure Register;
Regardons ce code :
Les methodes Update,Delete,Insert sont specialement utiliser en execution.
Les methodes Load, ListQryDossier, CloseQryDossier peut être utiliser en mode conception, mais aussi en mode execution.
Comment dois je organiser mes unités et mes paquets ?


Merci aus âmes charritables.

A+