Composant et module

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,

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)

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?

Bonjour,

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

Code:

---

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.

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:

---

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;

---

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 :roll:)

le code que vous avez présenté deviendrai ceci

Code:

---

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'

Sinon, comment vous feriez vous pour créer une nouvelle fiche pour mettre tout les composants, peut être n'ai je pas pris la bonne. Si vous pouviez me dire la démarche à suivre, merci. Je sais pas si les termes sont correctes, donc c'est sa que je veux regrouper sur une autre fiche. Voilà ce que je voudrais faire : http://prntscr.com/75u4yd

Bonjour,

je vous ai déjà indiqué que je n'utiliserai pas une Fiche mais un DataModule que je mettrai (je pense) l'utilisation de cette unité en Interface pour chaque unité l'utilisant. Par contre pour ce qui est des liaisons je préférerai les mettre dans la fiche l'utilisant.

voilà un schéma rapide

Citation:

---

// crées dans l'ordre
Datamodule
connection // ouvert à la création du datamodule
tables
Querys

MainUnit // fiche principale (par exemple menu)
implementation
uses unit1,unit2

// non crées dans le project mais par CreateForm()
unit1 // crée au besoin enfant de mainunit
interface uses datamodule
Form1
Grid
Liaison Grid/Table
....
ouverture de datamodule.table à la création

unit2 // crée au besoin enfant de mainunit
interface uses datamodule
form2
Edits
Liaison Edit/Query
...
ouverture de datamodule.Query

---

OO merci, c'était bien sa que je voulais. Dites, si je peux demander sans refaire un sujet, comment feriez vous pour zommer sur un stringgrid(Un tableau quoi) car il est minuscule sur mon téléphone? Quand je change le scale, sa fait n'importe quoi avec la largeur des colonnes et je ne peux pas les régler.?

Citation:

---

Envoyé par Sky14b

OO merci, c'était bien sa que je voulais.

---

un petit :plusser: et un :resolu: alors.

Citation:

---

Dites, si je peux demander sans refaire un sujet, comment feriez vous pour zommer sur un stringgrid(Un tableau quoi) car il est minuscule sur mon téléphone? Quand je change le scale, sa fait n'importe quoi avec la largeur des colonnes et je ne peux pas les régler.?

---

règle du forum et tout simplement de bons sens : autre question = autre sujet car il faut en faire profiter la communauté.
De plus qui dit tableau sur téléphone dit FMX donc autant poster un nouveau sujet dans le bon sous/forum