Discussion :

[Sky14b]

Bonjour, j'ai ma première Unit1.pas et ma deuxième fiche FicheModule.pas contenant tout les composants types base de données SqlConnection, je voudrais savoir comme je pourrais l'activer dans la fiche Unit1 avec SqlConnection.Acitve := true; sachant que je n'arrive pas à importer l'un dans l'autre?
Merci,

[SergioMaster]

Bonjour,

il faut déclarer l'utilisation de l'unité FicheModule dans l'unité Unit1. Il y a plusieurs méthodes/endroits pour le faire cependant.

-le faire "à la main" en ajoutant FicheModule dans les clauses uses
-utiliser le menu Fichier/utiliser l'unité (raccourci Alt+F11) et sélectionner l'unité FicheModule

reste le choix de la position
Interface ou (exclusif) Implementation qui va définir la portée de la déclaration , en général un Datamodule sera mis dans la partie implémentation (seul moyen par exemple d'ouvrir des tables dans la partie Oncreate de la forme) .
De même, en général le datamodule sera créé avant la fiche dans la création du projet (voir options du projet ou source de ce dernier)

[Sky14b]

j'ai déjà fais le uses FicheModule, mais il ne veut pas me faire le FicheModule.TForm3.SqlConnection := true; Donc je fais comment pour réaliser cette commande de la fiche 1 (Unit1) grâce à la FicheModule ou se trouve mon sqlconnection?

[SergioMaster]

Bonjour,

si unit1 correspond à la Form3 et contient bien le uses alors

Code :

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

1
2
3
4
procedure TForm3.FormCreate(Sender : TObject);
begin
FicheModule.SqlConnection := true;
end;

rien n'est plus complexe que de répondre avec aucun code ! proposé une réponse révèle de la chiromancie (ou tout autre mode de voyance) !
merci de fournir votre code, ou du moins des parties, si vous voulez des réponses précises.

[Sky14b]

Non, pas exactement, enfaîte j'ai donc une fiche FicheModule ou j'ai tous mes modules ou composants type SqlConnection avec en haut de la hiérarchie, Frame3. Puis j'ai mon application, Contenu sur Unit2 avec en haut de la hiérarchie, From2. J'ai bien mis les uses Unit1, FicheModule; dans le code de Unit2 sous implémentation, je ne pas pas copié mon code car j'ai plusieurs millier de ligne sur tout le programme, mais je peux mettre un bout : J'ai souligné et mis en gras ce que je souhaite faire.

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
procedure TForm2.Button45Click(Sender: TObject);
var
  Envoi_Data: TMyClassClient;
  Requete_Reussie:boolean;
  RowRecount, Num_Perso : String;
  I : Integer;
begin
  //FDTableTravailleur.Active := true;//active la liste stringgrid8
  try
         FicheModule.TForm3.SqlConnection1.Connected := true;
         FicheModule.TFrame3.CDS_Personnel.Active:=true;
  except
    on e: Exception do
    begin
      ShowMessage(e.Message);
    end;
  end;

[SergioMaster]

Bonjour,

je ne comprend pas votre logique/structure

FicheModule comme son nom semblait l'indiquer était pour moi un datamodule (c'est généralement ainsi que l'on procède)
Unit1 et Unit2 des formes
et maintenant vous amenez en plus Frame3 !!!

une structure "simple" serait
1 Datamodule : FicheModule
2 Unités contenants des formes UnitForm1 , UnitForm2 (un nom plus explicite est toujours mieux)
1 Frame (puisque frame il y a) UnitFrame

Form2 semblant être votre forme principale (la renommer en mainform, par exemple, serait plus lisible )

le code que vous avez présenté deviendrai ceci

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
procedure TForm2.Button45Click(Sender: TObject);
var
  Envoi_Data: TMyClassClient;
  Requete_Reussie:boolean;
  RowRecount, Num_Perso : String;
  I : Integer;
begin
with Fichemodule do
      begin
        try  
          SqlConnection1.Connected := true;
          CDS_Personnel.Active:=true;
          FDTableTravailleur.Active := true;//active la liste stringgrid8 
      except
         on e: Exception do
       begin
          ShowMessage(e.Message);
       end;
  end;
end;

une recommandation (que l'on ne fait jamais assez) NOMMEZ LES COMPOSANTS explicitement (il y a des conventions de nommage)
pensez : 'et si je devais reprendre mon code dans 5 ans, si quelqu'un d'autre que moi devais le reprendre, si un autre programmeur devait le lire'