Bonjour,
dans un DataModule, je dispose d'un connecteur qui est associé à une adresse de serveur, un utilisateur et un password fixes.
Mais la base change selon les TForm. Par exemple dans Form1 et Form2, j'utilise BaseA alors que Form3 utilise BaseB.
La procédure de connexion est dans le DataModule. Je me demandais si selon le nom de la Tform, je pouvais dans cette procédure définir la Base concernée.... ce qui sous entendrait que la méthode function TDataModule.eConnect() : Boolean; serait capable de déterminer dans quelle Form elle est appelée...
Donc schématiquementOK pour l'erreur sur le case of (sur des chaines)... Le problème c'est le TForm qui correspondrait à la Form appelant la fonction du DataModule.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 function TDataModule.eConnect() : Boolean; var aBase : String; begin aBase := gBaseDefault; case TForm.name of 'Form1', 'Form2' : aBase := 'BaseA'; 'Form3' : aBase := 'BaseB'; [...] end; end;
Est-ce jouable ? Bon évidemment, on peut passer le nom de la Form appelante comme paramètre de la méthode... Mais sinon, y a-t-il un moyen en Delphi comme exprimé ci-dessus ?
Merci.
Partager