[TDataModule] Intérêt de séparer les accès aux données?

**Cornell** · 05/09/2003, 14h13

Je pensais que l'interêt du datamodule était de séparer les composants d'accès à une base, du reste de l'application mais j'en suis pas convaincu.

Soit l'exemple suivant:

un module de données "DataModule1" sur lequel je place un CLientDataset1(MyBase) et un Datasource1.
une fiche "Form1" sur laquelle je place un DBGrid1.
une fiche "Form2" sur laquelle je place un DBGrid2.

A.Séparer l'accès aux données des fiches

Je créé une instance de TDataModule1 dans ma fiche Form1. Si je souhaite effectuer des actions avant la sauvegarde d'un enregistrement, je dois donc ajouter mon code dans l'évènement 'BeforePost' du ClientDataSet1, ce qui me lie donc mon module et ma fiche, même chose avec le datasource1 si je souhaite réagir au changement d'état(dsInsert, dsBrowse...), sur l'évènement 'OnStateChange'.

Ma Form1 et mon datamodule1 vont donc se retrouver liés de manière importante.

B. Réutiliser mon Datamodule1 sur d'autres fiches.

Je créé une instance de TDataModule1 dans ma fiche Form2. Si je souhaite effectuer des actions avant l'ajout d'un enregistrement, je dois donc à nouveau ajouter mon code dans l'évènement 'BeforePost' du ClientDataSet1, dans lequel est déjà présent le code qui le lie à la fiche Form1, je devrais donc mettre des conditions pour ne pas avoir d'erreurs.

je trouve ça plutôt lourd à gérer, avec un risque important d'erreurs.

N'est'il pas plus simple de mettre les composants d'accès aux données directement sur les fiches en ayant besoin ?

Y'a un truc que j'ai pas dû saisir ?

Si quelqu'un peut m'éclairer, ce serait sympa !

**Bloon** · 05/09/2003, 14h27

Ma Form1 et mon datamodule1 vont donc se retrouver liés de manière importante

Vu que les contrôles éditent les données, c'est bien qu'à un moment ils se recontrent quand même :-) La séparation doit avoir lieu dans le code : ce qui concerne les données, dans un datamodule, ce qui concerne la présentation, dans une form. La liaison entre les 2 se fait avec un DataSource.

dans lequel est déjà présent le code qui le lie à la fiche Form1

Le code associé à ClientDataset1 sera dans DataModule1. Si tu utilises ce DataModule dans Form1 et Form2, le même code sera utilisé. Il est donc hors de question, par exemple, de faire référence à Form1 ou 2 dans le datamodule ! D'ailleurs, un datamodule ne doit même pas savoir qu'il existe une form quelque part qui l'utilise.

N'est'il pas plus simple de mettre les composants d'accès aux données directement sur les fiches en ayant besoin

Plus simple peut-être, mais tu vas te retrouver avec un programme mal construit. C'est valable éventuellement pour les très petits programmes (1 fenêtre avec 1 table ayant 1 zone et 1 seul enregistrement :-)

Bloon

**Andry** · 05/09/2003, 15h44

Pour moi,
j'utilise presuqe toujours un Datamodule pour mettre les compo Database et transaction vu que je travaille avec Interbase.
Et puis quand plusieurs fiches peuvent partager une source de donnée, je le met dans le datamodule

A+

**Cornell** · 05/09/2003, 16h11

J'ai pas tous compris...

Envoyé par Bloon

Si tu utilises ce DataModule dans Form1 et Form2, le même code sera utilisé. Il est donc hors de question, par exemple, de faire référence à Form1 ou 2 dans le datamodule ! D'ailleurs, un datamodule ne doit même pas savoir qu'il existe une form quelque part qui l'utilise.
Bloon

Mais si je veux remplir mon DBRadioGroup1 qui est dans Form1, il faut bien qu'il soit connu du datamodule donc y faire référence ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
constructor TForm1.Create(AOwner: TComponent; const AProduit: integer);
begin
  inherited Create(AOwner);
 
  FModule1 := TDataModule1.Create(Self);
end;

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
36
37
38
39
40
41
42
43
44
45
46
47
48
 
implementation
{$R *.dfm}
uses
  Unite1,  // Form1
  Unite2;  // Form2
 
// Pointeur vers Form1 et Form2
var
  PForm1: TForm1;
  PForm2: TForm2;
 
constructor TDataModule1.Create(AOwner: TComponent);
var
  i: integer;
begin
  inherited Create(AOwner);
 
  PForm1 := TForm1(AOwner);
 
//  PForm2 := TForm2(AOwner)
end;
 
procedure TDataModule1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  if not Assigned(PForm1) then Exit;
  if not cdsSousProduit.Active then cdsSousProduit.Open;
 
  // Référence vers les composants de Form1.
  with PForm1 do
  begin
      ....
      while not Eof do
      begin
        DBradioGroup1.Values.Add(cdsSousProduit_spd_id.AsString);
        DBradioGroup1.Items.Add(cdsSousProduit_spd_libelle.AsString);
        Next;
      end;
    end;
  end;
 
  // Là ça bloque !
{  with PForm2 do
  begin
    .....
  end;
}
end;