Discussion :

[messahel]

Bonsoir;
j'ai une form "mainform" et une frame "frmbase" et une fiche "commande" de class "frmbase"
la fiche "mainform":

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
unit MAIN;
 
interface
 
uses
  ******************************;
 
type
  Tmainform = class(TForm)
 
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  mainform: Tmainform;
 
implementation
uses BaseFrame;//
 
{$R *.dfm}
 
 
end.

la fiche "frmbase":

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
unit BaseFrame;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, Data.DB, MemDS, DBAccess, Uni;
 
const
  IDFirst = 0;
  IDcommande = IDFirst;
  IDarticles = 1;
  IDachat = 2;
  IDLast = IDachat;
 
type
  TfrmBase = class(TFrame)
  private
    { Private declarations }
  public
 
  end;
  TfrmBaseClass = class of TfrmBase;
 
function GetDetailControlClass(ATag: Integer): TfrmBaseClass;
procedure RegisterFrame(AID: Integer; AFrameClass: TfrmBaseClass);
 
implementation
 
{$R *.dfm}
 
var
  AFrameClasses: array [IDFirst..IDLast] of TfrmBaseClass;
 
function GetDetailControlClass(ATag: Integer): TfrmBaseClass;
begin
  Result := AFrameClasses[ATag];
end;
 
procedure RegisterFrame(AID: Integer; AFrameClass: TfrmBaseClass);
begin
  AFrameClasses[AID] := AFrameClass;
end;
 
{ TfrmBase }
 
 
end.

la fiche "commande"

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
unit Unit_commande;
 
interface
 
uses
  *********************;
 
type
  Tcommande = class(TfrmBase)
    Table_com: TUniTable;
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    constructor Create(AOwner: TComponent); override;
  end;
 
var
  commande: Tcommande;
 
implementation
uses MAIN, unit_achat;
 
{$R *.dfm}
 
constructor Tcommande.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
table_com.Open;
end;
 
 
initialization
  RegisterFrame(IDcommande, Tcommande);
end.

comment peut on accéder a la table "table_com" existe dans la fiche "commande" depuis "mainform" ou une autre fiche ?

[Paul TOTH]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
type
  Tmainform = class (..
    FCommande: TCommande;
  ...
  end;
procedure Tmainform.Button1Click(Sender: TObject);
begin
  FCommande := Tcommande(GetDetailControlClass(IDcommande));
  FCommande.table_com;
end;

autre possibilité (s'il n'y a qu'une commande)

Code :

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

1
2
3
4
5
6
 
constructor TCommande.Create(...);
begin
   ...
   Commande := Self; // il est alors possible d'utiliser la variable commande
end;

[messahel]

Merci beaucoup Mr Paul TOTH.