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 ?